| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 809 人关注过本帖
标题:一段代码,问题在哪里?
只看楼主 加入收藏
smak
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2006-5-14
收藏
 问题点数:0 回复次数:12 
一段代码,问题在哪里?

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

搜索更多相关主题的帖子: 代码 
2006-05-14 07:43
lndsqfyq
Rank: 1
等 级:新手上路
帖 子:232
专家分:0
注 册:2006-1-16
收藏
得分:0 
把表文件添加到表单里。
Use f:\工资管理\dl.Dbf In 0
改用
sele dl.dbf

2006-05-14 08:13
smak
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2006-5-14
收藏
得分:0 
好像提示语法错误,怎么回事啊?
2006-05-14 08:24
blueblood
Rank: 2
等 级:新手上路
威 望:4
帖 子:135
专家分:0
注 册:2006-4-2
收藏
得分:0 
sele dl
2006-05-14 09:05
smak
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2006-5-14
收藏
得分:0 
2、想在校验密码后添加一个检查用户权限的代码,用户权限字段dl.dbf里边有,目的是当权限<=2时,do form 1,当权限>2时 do form 2。



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

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

2006-05-14 09:20
fown
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:58
帖 子:1229
专家分:171
注 册:2005-5-26
收藏
得分:0 
用IF 语句判断,多的话用DO CASE

有人说VFP不行了,我想说,你连VFP十分之一的功能都不会用,你怎么知道VFP不行?本人拒绝回答学生的问题我回答问题一般情况下只提供思路不提供代码,请理解
2006-05-14 11:23
fown
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:58
帖 子:1229
专家分:171
注 册:2005-5-26
收藏
得分:0 
不过这种方法不太好,你做表单肯定要多做,你可以考虑一下设置变量,通过变量控制菜单的显示

有人说VFP不行了,我想说,你连VFP十分之一的功能都不会用,你怎么知道VFP不行?本人拒绝回答学生的问题我回答问题一般情况下只提供思路不提供代码,请理解
2006-05-14 11:24
lndsqfyq
Rank: 1
等 级:新手上路
帖 子:232
专家分:0
注 册:2006-1-16
收藏
得分:0 
在菜单里可以通过设置不同的变量来设置权限。

2006-05-14 13:38
wanpj
Rank: 1
等 级:新手上路
帖 子:73
专家分:0
注 册:2006-5-19
收藏
得分:0 
你这段代码只要密码与表里的 密码 字段相同就会执行
do form f:\工资管理\qzgl.scx
不输入用户名也行
要改正
而且注意USE命令只能关闭当前表

爱过的人,我从不曾拥有。爱过的心,没有任何请求 所以,我有一千个伤心的理由
2006-05-21 22:14
wanpj
Rank: 1
等 级:新手上路
帖 子:73
专家分:0
注 册:2006-5-19
收藏
得分:0 

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


爱过的人,我从不曾拥有。爱过的心,没有任何请求 所以,我有一千个伤心的理由
2006-05-21 22:17
快速回复:一段代码,问题在哪里?
数据加载中...
 
   



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

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