sql-server - VB .NET，我希望用户名和密码来自数据库，并在 3 次失败尝试后关闭程序

Question

Private Sub LogReceptionist()
  
     Dim Username() As String = {"Paul", "Philip", "James"}
     Dim Password() As String = {"1234", "12345", "123456"}

我不希望用户名和密码与上面的一样，而是希望用户名和密码来自 SQL 数据库，如下所示：

 Username = "select * from ReceptionistTbl where RecepName='" & txtUsername.Text & "'"
       
 Password = "select * from ReceptionistTbl where password='" & txtPassword.Text & "'"

我还想让程序在用户 3 次失败的登录尝试后关闭。一切正常，但只是我无法让用户名和密码检查直接来自数据库。

    Dim attempts As Integer = 0
    Dim Travel As New PatientForm

    Do While (attempts <= 3)
        attempts = attempts + 1
        Password.Contains(txtPassword.Text)
        Username.Contains(txtUsername.Text)

        If (Username.Contains(txtUsername.Text) And Password.Contains(txtPassword.Text) And Array.IndexOf(Username, txtUsername.Text) =
                Array.IndexOf(Password, txtPassword.Text)) Then

            Travel.Show()
            Me.Hide()
            txtUsername.Clear()
            txtPassword.Clear()

        Else
            txtUsername.Clear()
            txtUsername.Focus()
            txtPassword.Clear()
        End If
    Loop

    Checkers += 1

    If Checkers = 3 Then
        Application.Exit()
    End If
End Sub

标签： sql-servervb.net