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@