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
