| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1225 人关注过本帖
标题:求助贴,制作一个提取Excel表内用户名密码的登录程序
只看楼主 加入收藏
三冬
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2018-4-9
结帖率:0
收藏
已结贴  问题点数:20 回复次数:2 
求助贴,制作一个提取Excel表内用户名密码的登录程序
前面的部分都差不多了,但是就是需要设置登录三次错误自动退出,我这也写有什么错误吗 ?除了用户1对应密码1正确,其他两个就算输入正确的密码也会接连跳出提示错误,然后关闭程序。求助三次登录错误部分怎么写。
图片附件: 游客没有浏览图片的权限,请 登录注册
图片附件: 游客没有浏览图片的权限,请 登录注册

Dim i As Integer
Private Sub UserForm_Initialize()
Dim Arr
Arr = Sheet1.Range("a1:a10")
= Application.Transpose(Arr)
End Sub

Private Sub CommandButton1_Click()
Dim username As String
Dim password As String
Dim r_rowcount As Integer

username = ComboBox1.Value
password = TextBox1.Value
r_rowcount = Sheets("sheet1").UsedRange.Rows.Count
For i = 1 To r_rowcount
If username = Worksheets(1).Cells(i, 1).Value And password = Worksheets(1).Cells(i, 2).Value Then
MsgBox "登录成功"

图片运动.Show
 Else
   
      i = i + 1
     If i <= 3 Then
     MsgBox "您输入的用户名或密码不正确,请重新输入"

     TextBox1.SetFocus
        Else
     MsgBox "您输入错误超过三次,请按确定退出"
     Unload Me
     End If
End If
Next i
End Sub

Private Sub CommandButton2_Click()
Unload Me
End

End Sub

Private Sub Label2_Click()

End Sub

Private Sub UserForm_Click()

End Sub
搜索更多相关主题的帖子: 密码 登录 错误 Sub End 
2018-04-09 12:58
wmf2014
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:216
帖 子:2039
专家分:11273
注 册:2014-12-6
收藏
得分:10 
变量使用混乱。
定义了一个窗体变量i,应该是作为登录次数计数的,然后在commandbutton1里又把i作为循环变量用,自然得不到正确结果了。

能编个毛线衣吗?
2018-04-09 15:23
wds1
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:49
帖 子:393
专家分:2025
注 册:2016-3-10
收藏
得分:10 
不能再循环体内判断,必须全部不对,在计数。
public j
主程序中 j=0
循环内如下修改
For i = 1 To r_rowcount'循环体完成在全部用户中匹配
 If username = Worksheets(1).Cells(i, 1).Value And password = Worksheets(1).Cells(i, 2).Value Then
  MsgBox "登录成功"
  图片运动.Show
 end if
next i
if i>r_rowcount then'如果没有匹配到
  j=j+1'计数的,在打开表和匹配前定义
  If j <= 3 Then
   MsgBox "您输入的用户名或密码不正确,请重新输入"
   TextBox1.SetFocus
  Else
   MsgBox "您输入错误超过三次,请按确定退出"
   Unload Me
  End If
End If



[此贴子已经被作者于2018-4-9 18:34编辑过]

2018-04-09 18:32
快速回复:求助贴,制作一个提取Excel表内用户名密码的登录程序
数据加载中...
 
   



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

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