| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 764 人关注过本帖
标题:期末作业!求助!(急)
取消只看楼主 加入收藏
cut9
Rank: 1
等 级:新手上路
帖 子:14
专家分:0
注 册:2009-11-8
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:2 
期末作业!求助!(急)
问题一:如何往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
搜索更多相关主题的帖子: 作业 
2010-01-01 12:49
cut9
Rank: 1
等 级:新手上路
帖 子:14
专家分:0
注 册:2009-11-8
收藏
得分:0 
回复 2楼 Tiger5392
大神啊 小弟太菜啦 看不懂你的代码啊 能不能给多点注释啊?
我黏贴过去提示函数值、数目或类型无效!
最重要的是 问题一、二 我百度了几次 都没找到可行的方法……


[ 本帖最后由 cut9 于 2010-1-1 13:51 编辑 ]
2010-01-01 13:49
cut9
Rank: 1
等 级:新手上路
帖 子:14
专家分:0
注 册:2009-11-8
收藏
得分:0 
回复 5楼 Tiger5392
多谢楼主啦,问题一、二我都搞定啦……

[ 本帖最后由 cut9 于 2010-1-2 10:07 编辑 ]
2010-01-01 23:30
快速回复:期末作业!求助!(急)
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.033449 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved