| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 809 人关注过本帖
标题:一段代码,问题在哪里?
只看楼主 加入收藏
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 
以下是引用smak在2006-5-14 7:43:00的发言:

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@
2006-05-22 09:37
中国龙王
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:484
专家分:283
注 册:2006-5-17
收藏
得分:0 
就在DO FORM前加判断语句好啦

不要为了打发无聊而做无聊的事!不要在虚幻的世界里做虚幻的事!
2006-05-22 12:45
hu9jj
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:红土地
等 级:贵宾
威 望:400
帖 子:11857
专家分:43421
注 册:2006-5-13
收藏
得分:0 
1、将表加入表单中,启动表单时自动打开表,关闭表单时自动关闭表,将上述的
Use f:\工资管理\dl.Dbf In 0
改为
select dl
2、增加下列代码
if 权限 > 2
do form2
else
do form1
endif

活到老,学到老!http://www.(该域名已经被ISP盗卖了)E-mail:hu-jj@
2006-05-22 12:57
快速回复:一段代码,问题在哪里?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.050966 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved