大家来帮我看看啊!我都要晕了!错误的密码照样可以登陆!
set exact onif alltrim()="" or alltrim(thisform.text2.value)=""
MESSAGEBOX("用户名或者密码不能为空",46+2,"验证失败")
else
thisform.n=thisform.n+1
locate for alltrim(用户名) == alltrim()
if alltrim(密码)==alltrim(thisform.text2.value)
m.用户名 =用户名
MESSAGEBOX("成功登陆,欢迎使用此系统",46+2,"登陆成功")
do form 查询系统.scx
thisform.release
else
if thisform.n<3
MESSAGEBOX("密码错误,请重新输入",46+2,"错误")
thisform.text2.value=""
thisform.text2.setfocus()
else
MESSAGEBOX("密码错误三次,系统无法启动",46+2,"不要侵入我的系统")
thisform.release
clear events
quit
endif
endif
endif