欧美性猛交XXXX免费看蜜桃,成人网18免费韩国,亚洲国产成人精品区综合,欧美日韩一区二区三区高清不卡,亚洲综合一区二区精品久久

      Dim UserName As String
     
      Dim PassWord As String

      Dim conn As New ADODB.Connection                 '定義新的連接

      Dim rs As New ADODB.Recordset                    '定義新的記錄集
   
      Dim StrSQL As String                             '定義字符串StrSQL
   
      conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\db1.mdb"   '打開(kāi)連接，指定連接路徑和支持
     
      UserName = Trim(TxtUserName.Text)                '將文本框內的值賦給定義好的變量，trim為類(lèi)型轉換函數
      PassWord = Trim(TxtPassword.Text)

If UserName = "" Or PassWord = "" Then                '如果輸入的用戶(hù)名和密碼為空則

    MsgBox "對不起，用戶(hù)或密碼不能為空！請重新輸入??！", vbCritical, "錯誤"

    ElseIf UserName <> Empty And PassWord <> Empty Then     '否則如果用戶(hù)名與密碼都不為空則Cnum自加1，Cnum為窗體載入時(shí)添加數字變量，用于記錄錯誤登錄次數
   
    Cnum = Cnum + 1
   
    StrSQL = "select * from 用戶(hù)信息表 where 用戶(hù)名稱(chēng)= '" & UserName & "'and 用戶(hù)口令 ='" & PassWord & "'"
    '從用戶(hù)信息表中查詢(xún)用戶(hù)名稱(chēng)和用戶(hù)口令兩個(gè)字段并獲得屬性值，為下面的判斷語(yǔ)句做準備
    rs.Open StrSQL, conn, adOpenKeyset, adLockPessimistic '//打開(kāi)記錄集,可以用數字代替
   
    If rs.EOF = True Then                              '此句為判斷的核心語(yǔ)句，EOF的返回值表示為最后一行的后一行，和BOF類(lèi)似，返回值為T(mén)RUE，則表示表中不存在這一行記錄，由此判斷密碼是否與表中記錄相一致，從而達到驗證的目的。
    MsgBox "對不起，無(wú)此用戶(hù)或者密碼不正確！請重新輸入??！", vbCritical, "錯誤"
    TxtUserName.Text = ""                              '置文本框為空
    TxtPassword.Text = ""
    TxtUserName.SetFocus
    rs.Close                                           '每次打開(kāi)記錄完成后需要注意及時(shí)關(guān)閉，不然下次使用時(shí)會(huì )出錯
   
   
    If Cnum >= 3 Then                                  '判斷輸入錯誤次數，以提高系統的安全性能
    MsgBox "對不起，您已經(jīng)多次失敗，無(wú)權操作本系統！", vbCritical, "無(wú)權限"
    Unload Me
    Exit Sub
    End If
   
   

   
Else '登陸成功,以下為權限驗證

Form2.Show
Unload Me

End if

End if
     
End Sub

Private Sub Form_Load()
'//加載主窗時(shí)給文本框賦值
Cnum = 0