前言：

        一直也沒有對遇到的問題進行總結，現在總結一下，是不是相當於又學習了一遍學生啊！

內容：

      1、判斷使用者名稱是否為空

 '判斷輸入使用者名稱是否為空
   If Trim(txtUserName.Text = "") Then
       MsgBox "沒有這個使用者，請重新輸入使用者名稱！", vbOKOnly + vbExclamation, "警告"
       
       txtUserName.SetFocus
       txtUserName.Text = ""
   Else
   
   '查詢指定使用者名稱的記錄
 

   txtSQL = "select * from user_Info where user_ID='" & txtUserName.Text & "'"
   
   '執行查詢語句
   Set mrc = ExecuteSQL(txtSQL, MsgText)
   
   If Trim(txtUserName.Text = "") Then
       MsgBox "沒有這個使用者，請重新輸入使用者名稱！", vbOKOnly + vbExclamation, "警告"
       
       txtUserName.SetFocus
       txtUserName.Text = ""
   Else
   
   '查詢指定使用者名稱的記錄
 

   txtSQL = "select * from user_Info where user_ID='" & txtUserName.Text & "'"
   
   '執行查詢語句
   Set mrc = ExecuteSQL(txtSQL, MsgText)
   

       其中Trim（）是什麼意思呢？

       刪除字串首尾的空白(可以首尾一起，也可以指定首或尾，取決於控制引數)，但會保留字串內部作為詞與詞之間分隔的空格。

       2、判斷是否存在該使用者名稱

      If mrc.EOF Then
        MsgBox "沒有這個使用者，請重新輸入使用者名稱！", vbOKOnly + vbExclamation, "警告"
        txtUserName.SetFocus
        txtUserName.Text = ""
 

       3、判斷輸入密碼是否正確

       If Trim(mrc.Fields(1)) = Trim(txtPassword.Text) Then
            OK = True
            mrc.Close
            Me.Hide
            UserName = Trim(txtUserName.Text)
            
            FrmMain.Show
            
        Else
        
            MsgBox "輸入密碼不正確，請重新輸入！", vbOKOnly + vbExclamation, "警告"
            
            txtPassword.SetFocus
            txtPassword.Text = ""
            
        End If
       

       4、限制驗證次數

Dim micount as integer

micount=micount+1

If miCount = 3 Then
  
    MsgBox "你已經超過允許驗證次數！", vbOKOnly + vbExclamation, "警告"
    
     End

  End If

總結：

       這是登入窗體需要注意的事項：首先判斷使用者名稱是否為空，然後從資料庫裡查詢是否存在該使用者名稱，然後查詢其密碼是否正確，最後限制一下允許驗證的次數。

       回頭看這個邏輯還挺簡單的，以後要好好看看程式碼，真正理解程式碼之後，程式碼也會很簡單的！