1、一个登陆表单,校验用户名密码,运行时候提示文件正在使用,是dl.dbf这个文件吗?怎么回事?
2、想在校验密码后添加一个检查用户权限的代码,用户权限dl.dbf里边有,目的是当权限<=2时,do form 1
当权限>2时 do form 2。
If Len(Alltrim(Thisform.text1.Value))=0
Messagebox('请输入用户名!')
Return
Endif
If Len(Alltrim(Thisform.text2.Value))=0
Messagebox('请输入密码!')
Return
Endif
Use f:\工资管理\dl.Dbf In 0
Locate For Alltrim(姓名)==Alltrim(Thisform.text1.Value)
If Eof()
Use
Messagebox('没有此用户!')
Thisform.text1.Value=''
Thisform.text2.Value=''
Thisform.text1.SetFocus
Thisform.label3.Caption=Alltrim(Str(Val(Thisform.label3.Caption)+1))
If Thisform.label3.Caption='3'
Messagebox('连续三次输入错误,系统将退出!')
Use
Quit
Endif
Return
ENDIF
If Alltrim(Thisform.text2.Value)==Alltrim(密码)
use
do form f:\工资管理\qzgl.scx
Else
Use
Messagebox('密码错误!')
Thisform.text2.Value=''
Thisform.text2.SetFocus
Thisform.label3.Caption=Alltrim(Str(Val(Thisform.label3.Caption)+1))
If Thisform.label3.Caption='3'
Messagebox('连续三次输入错误,系统将退出!')
Use
Quit
Endif
Return
ENDIF