教程內(nèi)容：

 

在用戶登錄時(shí)，要使用數(shù)據(jù)庫(kù)中的“系統(tǒng)用戶”表來(lái)完成登錄信息驗(yàn)證，使用RecordSet對(duì)象的Find方法查找指定的用戶名，如果用戶名正確，接著驗(yàn)證口令和身份。用戶登錄信息無(wú)誤后則啟動(dòng)主窗體。

 

Dim objRs As Recordset

Private Sub cmdCancel_Click()

    '請(qǐng)求用戶確認(rèn)是否真的退出系統(tǒng)登錄

    n = MsgBox("你選擇了退出系統(tǒng)登錄，退出將不能啟動(dòng)管理系統(tǒng)！" & vbCrLf _

              & "是否真的退出？", vbYesNo, "登錄驗(yàn)證")

    If n = vbYes Then

        Unload Me               '卸載登錄窗體

    End If

End Sub

 

Private Sub cmdOk_Click()

    On Error GoTo DealError

    '檢查是否存在指定身份用戶

    objRs.MoveFirst

    objRs.Find "用戶名='" & txtUserName & "'"

    If objRs.EOF Then

        MsgBox "用戶名錯(cuò)誤！", vbOKOnly + vbCritical, "系統(tǒng)登錄"

        txtUserName.SetFocus

    Else

        '檢查密碼是否正確

        If objRs!口令 <> txtPassWord Then

            MsgBox "口令錯(cuò)誤！", vbOKOnly + vbCritical, "系統(tǒng)登錄"

            txtPassWord.SetFocus

        Else

            '檢查身份是否正確

            If objRs!身份 <> cmbStatus Then

                MsgBox "身份錯(cuò)誤！", vbOKOnly + vbCritical, "系統(tǒng)登錄"

                cmbStatus.SetFocus

            Else

                ThisUserName = txtUserName

                ThisPassword = txtPassWord

                ThisStatus = cmbStatus

                Unload Me               '卸載登錄窗體

                Form1.Show

            End If

        End If

    End If

     Exit Sub

DealError:

    msg = "程序執(zhí)行出錯(cuò)，錯(cuò)誤信息如下：" & vbCrLf & Err.Description

    ShowError msg

End Sub

 

Private Sub Form_Load()

'    On Error GoTo DealError

    Dim objCn As New Connection

    '建立數(shù)據(jù)庫(kù)連接

    strcn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _

                    "Data Source=" & App.Path & "\數(shù)據(jù)庫(kù)\工資管理.mdb"

     objCn.ConnectionString = strcn

     objCn.Open

       

    '創(chuàng)建RecordSet對(duì)象，獲取系統(tǒng)用戶信息

    Set objRs = New Recordset

    Set objRs.ActiveConnection = objCn

    objRs.CursorLocation = adUseClient

    strsql = "SELECT * FROM 系統(tǒng)用戶"

    objRs.Open strsql

    objRs.ActiveConnection = Nothing    '取消數(shù)據(jù)庫(kù)連接

    objCn.Close                         '關(guān)閉數(shù)據(jù)庫(kù)連接

    Set objCn = Nothing                 '釋放連接對(duì)象

   

    '設(shè)置默認(rèn)身份

    cmbStatus.ListIndex = 0

    Exit Sub

DealError:

    msg = "程序執(zhí)行出錯(cuò)，錯(cuò)誤信息如下：" & vbCrLf & Err.Description

    ShowError msg

End Sub

 

Private Sub Form_Unload(Cancel As Integer)

    Set objRs = Nothing

End Sub

 

 

 

 

 

 

Public ThisUserName As String       '用于保存用戶名

Public ThisPassword As String       '用于保存密碼

Public ThisStatus As String         '用于保存身份

 

Public Sub ShowError(ByVal msg As String)

    MsgBox msg, vbCritical + vbOKOnly, "工資管理系統(tǒng)"

End Sub