這是機房收費系統的第一個窗體，所以它很重要，這個窗體和我們剛敲完的學生格外的相似，登入介面都是一樣的，所以可以借鑑那個的登入窗體，首先來理一下這個思路：

以下是程式碼部分，希望可以幫助到大家

Private Sub cmdOk_Click()
'用來存放SQL語句
    Dim txtsql As String
    ' 用來存放記錄集物件
    Dim mrc As ADODB.Recordset
    '用來存放返回資訊
    Dim msgtext As String
    UserName = ""
    '判斷輸入使用者名稱是否為空
    If Not testtxt(txtUserName.Text = "") Then
        MsgBox "沒有這個使用者，請註冊！", 0 + 48, "警告"
    Else
        UserName = Trim(txtUserName.Text)
        '查詢指定使用者名稱的記錄
        txtsql = "select * from user_info where userID = '" & UserName & "'"
        '執行查詢語句
        Set mrc = ExecuteSQL(txtsql, msgtext)
        
        If mrc.EOF = True Then
            MsgBox "沒有這個使用者，請重新輸入使用者名稱！", 0 + 48, "警告"
            txtUserName.SetFocus
            txtUserName = ""
            txtPassword = ""
            Exit Sub
        Else
            '判斷輸入密碼是否正確
            If Trim(mrc.Fields(1)) = Trim(txtPassword.Text) Then
                OK = True
                mrc.Close
                Me.Hide
                UserName = Trim(txtUserName.Text)
                frmMain.Show
            Else
                MsgBox "輸入密碼不正確，請重新輸入！", 0 + 48, "警告"
                txtUserName.SetFocus
            txtUserName = ""
            txtPassword = ""
            Exit Sub
            
            End If
        End If
    End If
    
    
    micount = micount + 1
    If micount < 3 Then
        Me.Hide
    End If
    
        
End Sub
 

以上是我剛敲得登入窗體部分，如果有哪些地方做的不好，需要改進，希望小夥伴可以指出！