请教登陆程序问题急哇~~~~
if empty(thisform.text1.value) or empty(thisform.text2.value) messagebox("用户名或者密码没有输入!",16,"错误")
ELSE
locat for 用户名=alltrim(thisform.text1.value)
if found()
locat for 登陆密码=alltrim(thisform.text2.value)
if found()
DO 系统菜单.mpr
thisform.release
else
messagebox("密码有误,请重新输入!",16,"密码错误")
thisform.text1.setfocus
endif
else
messagebox("用户名有误,请重新输入!",16,"用户名错误")
thisform.text2.setfocus
endif
endif
不知道为什么操作起来只要在text1(也就是登陆框) 里输入汉字就显示 操作符操作数类型不匹配 而输入字母就正常……
求高人指点~~~~~~~~~~
还有如能能添加限制登陆次数的命令?大约3次 谢谢啦
[ 本帖最后由 juice12345 于 2010-5-30 00:23 编辑 ]