问题一：如何往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

问题三
(1)Form1.Init代码
Close All
If File('学生表.DBF')
  Use 学生表.DBF
Else
   &&登录命令按钮
EndIf

(2)代码
Locate All For Alltrim(Upper(学号))==Alltrim(Upper(ThisForm.Text1.Value)) And Alltrim(Upper(姓名))==Alltrim(Upper(ThisForm.Text2.Value))
If Eof()
  MessageBox("学号或姓名错误，无法正常登录！")
  ThisForm.Text1.SetFocus
Else
  Do Form 下一个表单
  ThisForm.Release
EndIf

大神啊 小弟太菜啦 看不懂你的代码啊 能不能给多点注释啊？
我黏贴过去提示函数值、数目或类型无效！
最重要的是 问题一、二 我百度了几次 都没找到可行的方法……


[ 本帖最后由 cut9 于 2010-1-1 13:51 编辑 ]

(1)关于函数值、数目或类型无效！
    首先，你要检查你的表中学号和姓名是什么数据类型的，我提供的代码是假定学号和姓名都是字符型的，最好把你的表中学号修改为字符型的，因为学号不参与算术运算，设计成数值型是没有道理的。
    其次，你要在表单中保证两个文本框初始值都是空白，即字符型的，最好设计一下Inputmask等属性。

(2)关于问题一、问题二
    这里交流学习的论坛，最好提供代码供大家学习、或讨论。

音频可以这样设置
set bell to '音频文件.扩展名',持续时间
??chr(7)

音频和视频可以使用多媒体控件建立一个VCD播放器完成

多谢楼主啦，问题一、二我都搞定啦……

[ 本帖最后由 cut9 于 2010-1-2 10:07 编辑 ]