sele user
if allt(thisform.text2.value)==""
messagebox(left(allt(thisform.label1.caption),6)+"为空,请输入!",64,"提示")
thisform.text2.setfocus
else
if allt(thisform.text3.value)==""
messagebox("密码为空,请输入!",64,"提示")
thisform.text2.setfocus
else
n=n+1
locate for allt()=allt(thisform.text2.value);
.and. allt(密码)=allt(thisform.text3.value)
if found()
if thisform.check1.value==1 .and. 标识
checked=1
thisform.release
do menu.mpr
else
if thisform.check1.value==1.and.!标识
messagebox("你不是管理员!",48,"警告")
thisform.check1.value=0
else
checked=0
cyonghu=allt()
cmima=allt(密码)
thisform.release
do menu.mpr
endif
endif
else
if n>=3
messagebox("你不是合法用户,请与管理员联系!",48,"警告")
thisform.release
clear event
quit
else
messagebox(left(allt(thisform.label1.caption),6)+"或密码错误,请重新输入!",64,"提示")
thisform.text2.value=""
thisform.text2.setfocus
thisform.text3.value=""
endif
endif
endif
endif
“取消”按钮的click事件添加如下的代码
nr=messagebox("你选择了退出登录,是否退出?",68,"用户登录")
if nr=6
thisform.release
quit
endif