[求助]关于登陆界面的问题
我是个完全的初学者,之前照着教程编了一个简单的软件,后来想加一个登陆界面,就到网上找了别人的源码
IF ALLTRIM(thisform.Text1.Value) == ''
MessageBox("请输入姓名")
RETURN
ENDIF
IF ALLTRIM(thisform.Text2.Value) == ''
MessageBox("请输入密码号")
RETURN
ENDIF
OPEN DATABASE rsgl.dbc
USE yhmm1
&&查找指定姓名为的记录
Locate For Allt(姓名)=Allt(thisform.Text1.Value)
If Found() == .T. &&如果找到
If Allt(密码号) == Allt(thisform.Text2.Value) &&比较密码号，成功则进入
MessageBox("欢迎光临", 64, "提示信息")
release thisform
Else &&比较密码号不成功
MessageBox("密码号不正确", 16, "错误提示")
Endif
Else &&没有找到指定姓名
MessageBox("姓名不存在", 16, "错误提示")
Endif
上面是我修改后的,运行后会出现一个程序错误的信息:函数参数的值,类型或数目无效.
我不懂是哪里出问题,请高手指点一下,谢谢
