![]() |
#2
wengjl2022-03-29 16:26
|
use 登录.dbf
public mm,gh,gc
mm=alltrim(thisform.text2.value)
gh=alltrim(thisform.text1.value)
gc=alltrim()
go top
locate for 工号=alltrim(thisform.text1.value).and.密码=alltrim(thisform.text2.value).and.工厂=alltrim(thisform.text2.value)
if found()=.n.
n=n+1
if n=3
wait window"工号或密码不对,登陆失败..2秒后自动退出程序!!"timeout 2
thisform.release
quit
else
wait window"工号或密码不对,请重新输入"timeout 2
thisform.text1.setfocus
thisform.text1.value=""
thisform.text2.value=""
thisform.refresh
endif
else
do ddplm.scx
endif