| 网站首页 | 业界新闻 | 群组 | 人才 | 下载频道 | 博客 | 代码贴 | 编程论坛
雷速体育发帖软件开发QQ118000023C语言培训|一对一辅导|零基础学编程LightningChart 快速先进的.Net图表控件
共有 218 人关注过本帖
标题:求助贴,制作一个提取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")
Me.ComboBox1.List = 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
附件: 您没有浏览附件的权限,请 登录注册
2018-04-09 12:58
wmf2014
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:138
帖 子:1674
专家分:9378
注 册:2014-12-6
  得分:10 
变量使用混乱。
定义了一个窗体变量i,应该是作为登录次数计数的,然后在commandbutton1里又把i作为循环变量用,自然得不到正确结果了。

能编个毛线衣吗?
2018-04-09 15:23
wds1
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:21
帖 子:215
专家分:1178
注 册: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







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

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