| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1211 人关注过本帖
标题:管理员 求助。。。。。。。。。。。。。
只看楼主 加入收藏
anqiao009
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2006-1-22
收藏
 问题点数:0 回复次数:19 
管理员 求助。。。。。。。。。。。。。
请问 如何用VB 编辑一个 能确认帐号密码是否错误和正确的登陆界面?

我很急 喜欢能在这找到答案。。我是一只菜鸟
搜索更多相关主题的帖子: 管理员 
2006-01-22 23:06
anqiao009
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2006-1-22
收藏
得分:0 
看来没人告诉我了
2006-01-22 23:33
leon2
Rank: 3Rank: 3
等 级:新手上路
威 望:7
帖 子:731
专家分:0
注 册:2005-3-18
收藏
得分:0 


直接在窗体上放两个文本框,一个输入用户名,一个输入密码,还要放一个按钮,用来登录。
编辑那个按钮的代码,用 If ... Then ... Else ... End If,来判断两个文本框输入的文字是否有能力成功登录。
2006-01-22 23:49
anqiao009
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2006-1-22
收藏
得分:0 
能不能给我完整的代码做个示范

求求您了~~ 我现在正在学习编辑代码
2006-01-22 23:54
leon2
Rank: 3Rank: 3
等 级:新手上路
威 望:7
帖 子:731
专家分:0
注 册:2005-3-18
收藏
得分:0 

假设窗体上放了两个文本框和一个按钮(全部不需要重命名)。编辑代码:

Private Sub Command1_Click()
If (Text1.Text = "username") And (Text2.Text = "password") Then
'用户名和密码输入正确,登录成功
MsgBox "登录成功!", vbInformation
Else
'输入不正确,登录失败
MsgBox "登录失败!", vbExclamation
End If
End Sub

2006-01-23 00:14
anqiao009
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2006-1-22
收藏
得分:0 
非常感谢我明白了~~ 但是这样的代码只能实现一个帐号和密码的正确判断

如我想判断多个帐号密码 怎么填加代码格式?
2006-01-23 00:22
leon2
Rank: 3Rank: 3
等 级:新手上路
威 望:7
帖 子:731
专家分:0
注 册:2005-3-18
收藏
得分:0 
Private Sub Command1_Click()
Dim strUsers(), strTemp(), i As Integer

strUsers = Split("用户名1|密码1,用户名2|密码2,用户名3|密码3", ",") '注意: 一定要是英文逗号(,)不是全角逗号(,)

strTemp = Filter(strUser, Text1.Text & "|" & Text2.Text) 'Filter 用来检测某个数据是否被数组的某(几)个元素所包含,它返回了一个数组

If UBound(strTemp) > -1 Then '有匹配的结果
'用户名和密码输入正确,登录成功
MsgBox "登录成功!", vbInformation
Else
'输入不正确,登录失败
MsgBox "登录失败!", vbExclamation
End If
End Sub
2006-01-23 00:47
anqiao009
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2006-1-22
收藏
得分:0 
非常感谢得到你们的帮助
2006-01-23 00:51
anqiao009
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2006-1-22
收藏
得分:0 

还在吗 请把
Private Sub Command1_Click()
Dim strUsers(), strTemp(), i As Integer

strUsers = Split("用户名1|密码1,用户名2|密码2,用户名3|密码3", ",") '注意: 一定要是英文逗号(,)不是全角逗号(,)

strTemp = Filter(strUser, Text1.Text & "|" & Text2.Text) 'Filter 用来检测某个数据是否被数组的某(几)个元素所包含,它返回了一个数组

If UBound(strTemp) > -1 Then '有匹配的结果
'用户名和密码输入正确,登录成功
MsgBox "登录成功!", vbInformation
Else
'输入不正确,登录失败
MsgBox "登录失败!", vbExclamation
End If
End Sub

完整的做一个代码给我
我编辑了 老说不区配

2006-01-23 01:37
anqiao009
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2006-1-22
收藏
得分:0 

还在吗 请把




Private Sub Command1_Click()
Dim strUsers(), strTemp(), i As Integer

strUsers = Split("用户名1|密码1,用户名2|密码2,用户名3|密码3", ",") '注意: 一定要是英文逗号(,)不是全角逗号(,)

strTemp = Filter(strUser, Text1.Text & "|" & Text2.Text) 'Filter 用来检测某个数据是否被数组的某(几)个元素所包含,它返回了一个数组

If UBound(strTemp) > -1 Then '有匹配的结果
'用户名和密码输入正确,登录成功
MsgBox "登录成功!", vbInformation
Else
'输入不正确,登录失败
MsgBox "登录失败!", vbExclamation
End If
End Sub





完整的做一个代码给我
我编辑了 老说不区配

2006-01-23 01:43
快速回复:管理员 求助。。。。。。。。。。。。。
数据加载中...
 
   



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

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