| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 764 人关注过本帖
标题:期末作业!求助!(急)
只看楼主 加入收藏
cut9
Rank: 1
等 级:新手上路
帖 子:14
专家分:0
注 册:2009-11-8
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:5 
期末作业!求助!(急)
问题一:如何往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
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:20 
问题三
(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

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2010-01-01 13:22
cut9
Rank: 1
等 级:新手上路
帖 子:14
专家分:0
注 册:2009-11-8
收藏
得分:0 
回复 2楼 Tiger5392
大神啊 小弟太菜啦 看不懂你的代码啊 能不能给多点注释啊?
我黏贴过去提示函数值、数目或类型无效!
最重要的是 问题一、二 我百度了几次 都没找到可行的方法……


[ 本帖最后由 cut9 于 2010-1-1 13:51 编辑 ]
2010-01-01 13:49
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 
以下是引用cut9在2010-1-1 13:49:29的发言:

大神啊 小弟太菜啦 看不懂你的代码啊 能不能给多点注释啊?
我黏贴过去提示函数值、数目或类型无效!
最重要的是 问题一、二 我百度了几次 都没找到可行的方法……
(1)关于函数值、数目或类型无效!
    首先,你要检查你的表中学号和姓名是什么数据类型的,我提供的代码是假定学号和姓名都是字符型的,最好把你的表中学号修改为字符型的,因为学号不参与算术运算,设计成数值型是没有道理的。
    其次,你要在表单中保证两个文本框初始值都是空白,即字符型的,最好设计一下Inputmask等属性。

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

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2010-01-01 14:42
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 
音频可以这样设置
set bell to '音频文件.扩展名',持续时间
??chr(7)

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

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2010-01-01 15:10
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.020839 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved