回复 11楼 hu9jj
cn=0
sele 12
use kl
index on dh to kl
set index to kl
pdh=alltrim(thisform.text2.value)
set order to dh
seek pdh
if alltrim(dh)!=pdh
cn=cn+1
w=messagebox('密码错误,请重新输入!',4+32,'信息')
do case
case w=6
thisform.text2.value=''
thisform.text2.setfocus
case w=7
messagebox('慎重考虑,三次退出!',4+32,'警告')
thisform.release
endcase
if cn=3
thisform.release
quit
endif
else
rank=yhm
rank1=cc
thisform.timer2.enabled=.t.
do case
........
以上是登录代码的一部分
[此贴子已经被作者于2023-2-14 09:56编辑过]