0

ログインコードにループを設定するには、ユーザーが3回目に間違ったパスワード/ユーザー名を入力すると、プログラムが終了するようになりますか？

この時点で、ループコードを配置するのに苦労しています。

これはVB2010の私のログインコードです

Private Sub btnLogIn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogIn.Click
    Me.Refresh()
    Dim login = Me.TblUserTableAdapter1.UsernamePasswordString(txtUser.Text, txtPass.Text)

    If login Is Nothing Then
        MessageBox.Show("Incorrect login details", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
    Else
        Dim ok As DialogResult
        ok = MessageBox.Show("Login Successful", "Dantiña's Catering Maintenance System", MessageBoxButtons.OK, MessageBoxIcon.Information)
        MMenu.Show()
        MMenu.lblName.Text = "Welcome " & Me.txtUser.Text & " !"
        If txtPass.Text <> "admin" Then
            MMenu.Button1.Enabled = False
            ProdMaintenance.GroupBox1.Visible = True
            MMenu.Button2.Enabled = True
            MMenu.Button3.Enabled = True
            MMenu.Button4.Enabled = True
        Else
            MMenu.Button1.Enabled = True
            ProdMaintenance.GroupBox1.Visible = True
            MMenu.Button2.Enabled = True
            MMenu.Button3.Enabled = True
            MMenu.Button4.Enabled = True
        End If
        Me.Refresh()
        Me.Hide()

    End If

End Sub
4

1 に答える 1

1

メソッドの外部でカウンターを初期化し、パスワードが正しくない場合はカウンターをインクリメントしてみてください

このようなもの

If login Is Nothing And counter<=3 Then
counter+=1
于 2012-11-09T09:30:57.870 に答える