登錄按鈕的過程的簡單示範

環境：VB6
ADO 2.6或更高

Option   Explicit
Const  conString  =   " Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=dssopt_sms;Data Source=. "
Dim  cn  As  ADODB.Connection


Private   Sub  Command1_Click()

    Static i  As   Integer   ' 控制登陸的次數
     Dim  Username  As   String
     Dim  Password  As   String
     Dim  rs    As  ADODB.Recordset
     Dim  be    As   Boolean
     Dim  sql   As   String
    
    i  =  i  +   1
    Username  =  txtUser  ‘為了防止注入，要判斷所取的長度、特殊字符替換
    Password  =  txtPassword
    
     ' 判斷用戶名是否存在
    sql  =   " select * from 登陸 where 用戶名=' "   &  Username  &   " ' "
   
        set  rs  = new  ADODB.Recordset
     Call  rs.Open(sql, cn,  1 ,  1 )
    be  =  (rs.EOF  And  rs.BOF)
    rs.Close
    
     If  be  Then
         If  i  <   3   Then
             MsgBox   " 無效的用戶名 " , ,  " 系統登陸 "
            txtUser.SetFocus
            SendKeys  " {Home}+{end} "
             Exit   Sub
         Else
             MsgBox   " 多次錯誤登陸，再見！ " , ,  " 系統登陸 "
             End
         End   If
     End   If
    
     ' 判斷密碼是否正確
    sql  =   " select * from 登陸 where 用戶名=' "   &  Username  &   " ' and 密碼=' "   &  Password  &   " ' "
    
     Call  rs.Open(sql, cn,  1 ,  1 )
    be  =  (rs.EOF  And  rs.BOF)
    rs.Close
        set rs = noting
    
     If   Not  be  Then
         ' frmPic.Show
         ' Denglu_name = Username
         ' Load MDIForm1
        
         MsgBox   " Login successful! "
        Unload Me
     Else
         If  i  <   3   Then
             MsgBox   " 無效的密碼 " , ,  " 系統登陸 "
            txtPassword.SetFocus
            SendKeys  " {Home}+{end} "
         Else
             MsgBox   " 多次輸入錯誤，請正確輸入！ " , ,  " 系統登陸 "
             End
         End   If
     End   If

End Sub

Private   Sub  Form_Load()
    
     Set  cn  =   New  ADODB.Connection
    cn.Open conString

End Sub

Private Sub Form_Unload(Cancel As Integer)

    If cn.State <> 0 Then cn.Close
    Set cn = Nothing
   
End Sub