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

我是新手
我自己编了一个登陆的程序不知道为什么 即使密码本来就是错的也能进入!!

各位前辈能不能给我发个做好的密码登陆的源码啊?

就是从密码表中取用户名和密码 与 表单文本框中的用户名和密码比对

对了就进入

错了重新输入 错误3次锁定的那种!

谢谢啊 急死我了

搜索更多相关主题的帖子: 源码 密码 登陆 用户 
2006-05-22 10:20
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 
以下是引用ckk162在2006-5-22 10:20:00的发言:

我是新手
我自己编了一个登陆的程序不知道为什么 即使密码本来就是错的也能进入!!

各位前辈能不能给我发个做好的密码登陆的源码啊?

就是从密码表中取用户名和密码 与 表单文本框中的用户名和密码比对

对了就进入

错了重新输入 错误3次锁定的那种!

谢谢啊 急死我了

请你到Tiger5392 的博客去看看,那里有你需要的内容
tiger5392.bc-cn.net

[此贴子已经被作者于2006-5-22 10:53:02编辑过]


感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2006-05-22 10:33
lingkai
Rank: 1
等 级:新手上路
帖 子:81
专家分:0
注 册:2006-4-26
收藏
得分:0 

登陆的确定表单:
我是这样做的,做了一个表,字段包括:用户名、密码,内容你可以随便输入
set exact on
if alltrim(thisform.combo1.value)=""or alltrim(thisform.text1.value)=""
messagebox("用户名或者密码不能为空!",46+2,"验证失败")
ELSE
thisform.n=thisform.n+1
locate for alltrim(用户名)==alltrim(thisform.combo1.value)
if alltrim(密码)==alltrim(thisform.text1.value)

messagebox("登陆成功,欢迎使用!",46+2,"成功登陆")
*可以在调用你的主表单
thisform.release
else
if thisform.n<3
messagebox("密码错误,请重新输入",46+2,"错误")
thisform.text1.value=""
thisform.text1.setfocus()
else
messagebox("密码错误三次,系统无法启动",46+2,"警告")
thisform.release
endif
endif
endif

2006-05-22 10:41
ckk162
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2006-5-19
收藏
得分:0 

大家看看
这是我的源码 问题在哪里哦?
为什么我现在运行连MESSAGEBOX也不出呢?
急死了

2006-05-22 10:48
ckk162
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2006-5-19
收藏
得分:0 
if lenc(allt(thisform.text1.value))#0 .and. lenc(allt(thisform.text2.value))#0 then
use data\passwd
if cn<3
locate for alltrim(thisform.text1.value)=alltrim(passwd.yonghuming)
if found()
if alltrim(thisform.text2.value)=alltrim(passwd.mima)
rank=1
thisform.release
else
cn=cn+1
messagebox("口令错误!","提示窗口")
thisform.text2.value=''
thisform.text1.setfocus
thisform.refresh
endif
else
cn=cn+1
messagebox("用户错误!","提示窗口")
thisform.text2.value=''
thisform.text1.setfocus
thisform.refresh
endif
else
messagebox("三次错误!","提示窗口")
thisform.release
endif
endif
2006-05-22 10:48
lingkai
Rank: 1
等 级:新手上路
帖 子:81
专家分:0
注 册:2006-4-26
收藏
得分:0 
我也是新手,上面是我参考写的
你可以看看我的,我的运行没有问题
2006-05-22 11:01
ckk162
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2006-5-19
收藏
得分:0 
好的
谢谢 我去弄弄!谢谢拉
2006-05-22 11:20
中国龙王
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:484
专家分:283
注 册:2006-5-17
收藏
得分:0 
中间没问题,用调试器查一下第一IF语句的条件设置

不要为了打发无聊而做无聊的事!不要在虚幻的世界里做虚幻的事!
2006-05-22 12:13
wanpj
Rank: 1
等 级:新手上路
帖 子:73
专家分:0
注 册:2006-5-19
收藏
得分:0 
这里:
if cn<3
locate for alltrim(thisform.text1.value)=alltrim(passwd.yonghuming)
if found()
if alltrim(thisform.text2.value)=alltrim(passwd.mima)
等号前后的值应该掉换
CN也要定义了才可用
改为:locate for alltrim(passwd.yonghuming)=alltrim(thisform.text1.value)



爱过的人,我从不曾拥有。爱过的心,没有任何请求 所以,我有一千个伤心的理由
2006-05-22 22:59
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 
强烈建议大家不要轻易使用ALLTRIM()函数和两个等号(==)进行比较,特别是严格比较的情况下。
只要你清楚你的字段的类型和宽度,在对应的文本框里设置相应的初始值(VALUE)和输入格式(INPUTMASK)就可以放心地比较了。

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2006-05-24 13:40
快速回复:用户登陆的源码怎么做?
数据加载中...
 
   



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

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