if lenc(allt(thisform.text1.value))#0 .and. lenc(allt(thisform.text2.value))#0 then
use data\passwd
if cn<3
locate for alltrim(thisform.text1.value)=alltrim(passwd.yonghuming)
if found()
if alltrim(thisform.text2.value)=alltrim(passwd.mima)
rank=1
thisform.release
else
cn=cn+1
messagebox("口令错误!","提示窗口")
thisform.text2.value=''
thisform.text1.setfocus
thisform.refresh
endif
else
cn=cn+1
messagebox("用户错误!","提示窗口")
thisform.text2.value=''
thisform.text1.setfocus
thisform.refresh
endif
else
messagebox("三次错误!","提示窗口")
thisform.release
endif
endif