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
close all &&添加上来的
Use dl.Dbf &&修改为相对路径以及在当前工作区(1号工作区)打开
Locate For 姓名=Thisform.text1.Value AND 密码=Thisform.text2.Value
*注意，上述语句的正确执行，依赖TEXT1和TEXT2的INPUTMASK的数据格式及宽度与姓名及密码要求相同
If Eof()
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
ELSE
do form qzgl.scx
ENDIF
感言：学以致用。 博客：http://www./blog/user14/65009/index.shtml email：Tiger5392@
