期末作业!求助!(急)
问题一:如何往vfp表单中插入音频,表单一打开就播放?问题二:如何往vfp中插入视频
问题三:求一个身份验证的代码,一个文本框输入学号,一个文本框输入姓名,正确打开下一个表单!
这是我自己写的代码,但是运行时总是提示 “学号错误,请输入正确学号!”这个文本框(我输入的学号跟姓名是正确的)
***zucx.prg
YZ1=ALLTRIM(THISFORM.TEXT1.VALUE)
GO TOP
SCAN
IF 学号=val(yz1)
N=recno()
Do zhicx
Thisform.text1.setfocus
Else
Messagebox("学号错误,请输入正确学号!")
Thisform.text1.value=""
Thisform.text2.value=""
Thisform.text1.setfocus
retu
Endif
Endscan
***zhicx.prg
YZ2=ALLTRIM(THISFORM.TEXT2.VALUE)
Go n
If 姓名=yz2
Do form zhbd
Thisform.release
Thisform.text2.setfocus
Else
Messagebox("姓名错误,请输入正确的姓名!")
Thisform.text2.value=""
Thisform.text2.setfocus
Endif
retu