[求助]毕业设计遇到的一些小问题(三)
很奇怪的问题,代码没有任何问题。在登陆输入密码后要求我自己选搜索密码用的表,无论我怎么联编都不能解决问题,为什么会出现这种情况啊。
真是伤脑经。
我确定我用于放用户名和密码的表就叫yonghu
这是确定按钮的keypress事件代码
on key label enter
hide window screen
*判断密码是否正确
i=i-1
locate all for alltrim(thisform.text1.value)==alltrim(yonghu.用户名)
DO CASE
CASE i>=1 and found() and alltrim(thisform.text2.value)==alltrim(yonghu.密码)
Do form .\main\程序主界面.scx
thisform.release
CASE i>=1 AND NOT FOUND()
MESSAGEBOX("密码错误,请重输!","警告")
THISFORM.Text1.Value=""
THISFORM.Text2.Value=""
CASE i=0
MESSAGEBOX("禁止进入系统!","警告")
THISFORM.Release
quit
ENDCASE
还有form1 的init事件代码
PUBLIC i &&i用于记录用户名及口令输入次数
i=3
THISFORM.Text1.Setfocus