[求助]找一下代码出错的原因!
s=1 if lenc(allt(thisform.text1.value))#0 .and. lenc(allt(thisform.text2.value))#0 then
use \图书管理系统\管理员.dbf
s=s+1
if s<3
locate for alltrim(管理员.用户名)=alltrim(thisform.text1.value)
if found()
if alltrim(管理员.密码)=alltrim(thisform.text2.value)
do form 图书管理信息系统
thisform.release
else
s=s+1
messagebox("用户名或密码不正确！",46,"错误")
thisform.text2.value=''
thisform.text1.setfocus
thisform.refresh
endif
endif
else
messagebox("三次错误！退出系统！",46,"错误")
thisform.release
endif
endif
这是我加在登陆界面确定按键里的代码,从理论上来看这实在是找不出问题,但是一运用起来不及不知整么的,我输入了错误的用户名和密码,都不会弹出错误提示!
有一次好不容易弹出了错误提示,但是超出了三次还是不会关闭窗口!不知为何故!
望各位高手们给予指点一二,万分感激!
