[求助]新手求助!登录问题 - VFP论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 数据库技术 → 『 VFP论坛』 → [求助]新手求助!登录问题

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 1402 人关注过本帖

标题：[求助]新手求助!登录问题

取消只看楼主加入收藏

无心

等　级：新手上路
帖　子：63
专家分：0
注　册：2005-3-15

楼主

问题点数：0 回复次数：9

[求助]新手求助!登录问题

本人是VF菜鸟,自已写了一个登录的程序,但总不能实现,特来请哪位高手指教下,先谢谢了!

public sf,user_name,pwd
sf=thisform.optiongroup1.value
user_name=thisform.text1.value
pwd=thisform.text1.value
i=0
use 用户表
go top
do while .not.eof()
if 用户名=user_name .and. 密码=pwd .and. 身份=sf
thisform.release
else
i=i+1
if i>=3
=messagebox("3次输入错误!将自动关闭窗口!",48,"警告!")
thisform.release
else
thisform.text1.setfocus
=messagebox("用户名或密码或身份错误!",48,"错误!")
endif
endif
skip
enddo

搜索更多相关主题的帖子: thisform　pwd　name　user　

2006-05-16 09:10

无心

等　级：新手上路
帖　子：63
专家分：0
注　册：2005-3-15

第 2 楼

得分:0

那个是我粗心了,不过错误不是这个

因为把心给了你,所以我无心.

2006-05-16 22:51

无心

等　级：新手上路
帖　子：63
专家分：0
注　册：2005-3-15

第 3 楼

得分:0

难道是我的问题太菜了,高手们不愿帮我解答下吗?

因为把心给了你,所以我无心.

2006-05-17 12:03

无心

等　级：新手上路
帖　子：63
专家分：0
注　册：2005-3-15

第 4 楼

得分:0

以下是引用lndsqfyq在2006-5-17 13:47:00的发言：

在这
if 用户名=user_name .and. 密码=pwd .and. 身份=sf
thisform.release
else
i=i+1
if i>=3
=messagebox("3次输入错误!将自动关闭窗口!",48,"警告!")
thisform.release
else
thisform.text1.setfocus
=messagebox("用户名或密码或身份错误!",48,"错误!")
endif
endif
如果用户超过三个你循环查找三遍没有就退出了，不再查找其他的了。这样不对，你那三次的记数不应该再这里用。

三次记数不在这里用,应该用在哪里呢?

因为把心给了你,所以我无心.

2006-05-17 17:03

无心

等　级：新手上路
帖　子：63
专家分：0
注　册：2005-3-15

第 5 楼

得分:0

以下是引用baichuan在2006-5-17 13:12:00的发言：
你没有说明问题，这个程序出了什么错误?

就是个登录问题
我输入正确的用户名和密码并选择正确的身分后,却总弹出后面的错误警告而不是如希望的把表单关闭

因为把心给了你,所以我无心.

2006-05-17 17:07

无心

等　级：新手上路
帖　子：63
专家分：0
注　册：2005-3-15

第 6 楼

得分:0

以下是引用Tiger5392在2006-5-17 14:35:00的发言：
何必三遍，我的意思，成功就进，失败就退。程序如下:
use 用户表.dbf
locate all for 用户名=thisform.text1.value .and. 密码=thisform.text2.value .and. 身份=thisform.optiongroup1.value
if eof()
quit
else
thisform.release
do MENU.MPR &&这里进入主控程序MENU.MPR，根据需要可修改
ednif

多谢!用你的没问题了.
不过我想知道我写的那个程序到底哪儿错了,请指教下好吗?再次谢了!

因为把心给了你,所以我无心.

2006-05-17 17:12