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

把表文件添加到表单里。
Use f:\工资管理\dl.Dbf In 0
改用
sele dl.dbf

好像提示语法错误，怎么回事啊？

sele dl

2、想在校验密码后添加一个检查用户权限的代码，用户权限字段dl.dbf里边有，目的是当权限<=2时，do form 1,当权限>2时 do form 2。



问，要实现以上目的，要在上面的代码中什么地方添加什么代码？

[此贴子已经被作者于2006-5-14 9:20:57编辑过]

用IF 语句判断,多的话用DO CASE

不过这种方法不太好,你做表单肯定要多做,你可以考虑一下设置变量,通过变量控制菜单的显示

在菜单里可以通过设置不同的变量来设置权限。

你这段代码只要密码与表里的 密码 字段相同就会执行
do form f:\工资管理\qzgl.scx
不输入用户名也行
要改正
而且注意USE命令只能关闭当前表

也没有判断权限的语句啊
怎么当权限<=2时，do form 1
当权限>2时 do form 2。啊