VERSION 5.00
Begin VB.Form SystemLogon 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "用戶登錄"
   ClientHeight    =   2565
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   4575
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2565
   ScaleWidth      =   4575
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   Begin VB.ComboBox cmbStatus 
      Height          =   300
      ItemData        =   "用戶登錄.frx":0000
      Left            =   1320
      List            =   "用戶登錄.frx":000A
      Style           =   2  'Dropdown List
      TabIndex        =   7
      Top             =   1440
      Width           =   1935
   End
   Begin VB.CommandButton cmdCancel 
      Cancel          =   -1  'True
      Caption         =   "取消"
      Height          =   375
      Left            =   2880
      TabIndex        =   6
      Top             =   2040
      Width           =   1095
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "確定"
      Default         =   -1  'True
      Height          =   375
      Left            =   840
      TabIndex        =   5
      Top             =   2040
      Width           =   1095
   End
   Begin VB.TextBox txtPassword 
      Height          =   375
      Left            =   1320
      TabIndex        =   4
      Top             =   840
      Width           =   2295
   End
   Begin VB.TextBox txtUserName 
      Height          =   375
      Left            =   1320
      TabIndex        =   3
      Top             =   360
      Width           =   2295
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      Caption         =   "身份："
      Height          =   180
      Left            =   600
      TabIndex        =   2
      Top             =   1500
      Width           =   540
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      Caption         =   "口令："
      Height          =   180
      Left            =   600
      TabIndex        =   1
      Top             =   930
      Width           =   540
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "用戶名："
      Height          =   180
      Left            =   420
      TabIndex        =   0
      Top             =   450
      Width           =   720
   End
End
Attribute VB_Name = "SystemLogon"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim objRs As Recordset       'Recordset對象用于保存"系統用戶"數據。

Private Sub cmdCancel_Click()
  '顯示推出登陸提示信息
      n = MsgBox("你選擇了退出系統登陸，退出將不能啟動管理系統！" & vbCrLf & "是否真的退出？", vbYesNo + vbInformation, "登陸驗證")
     'n = MsgBox("是否真的退出？", vbYesNo + vbInformation, "登陸驗證")
      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 "用戶名出錯！", vbOKOnly + vbCritical, "系統登陸"
     txtUserName.SetFocus
  Else
     '檢查代碼是否正確
     If objRs!口令 <> txtPassword Then
        MsgBox "口令錯誤！", vbOKOnly + vbCritical, "系統登陸"
        txtPassword.SetFocus
     Else
        '檢查身份是否正確
        If objRs!身份 <> cmbStatus Then
           MsgBox "身份錯誤！", vbOKOnly + vbCritical, "登陸系統"
           cmbStatus.SetFocus
        Else
           '在設計登陸窗體時， 可用MsgBox語句替代下面的語句，
           '在系統主窗體完成后加入下面的代碼
           ThisUserName = txtUserName
           ThisPassWord = txtPassword
           ThisStatus = cmbStatus
           Unload Me
           MDIForm1.Show
        End If
     End If
 End If
  Exit Sub

DealError:
   msg = "程序執行出錯，錯誤信息如下：" & vbCrLf & Err.Description
   ShowError msg
End Sub



Private Sub Form_Load()

  On Error GoTo DealError
  Dim objCn As New Connection
  '建立數據庫連接
  Dim strcn As String
 ' (strcn = "Provider=Microsoft.Access Provider(*.mdb);" & "Data Source=" & App.Path & "\數據庫\工資管理.mdb")
  strcn = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\工資管理.mdb"
  objCn.ConnectionString = strcn
  objCn.Open
  
'  '測試數據庫是否打開
'  If objCn.State = adStateOpen Then
'     MsgBox "數據庫連接成功!"
'  End If
'
  '創建Recordset對象，獲取系統用戶信息
  Set objRs = New Recordset
  Set objRs.ActiveConnection = objCn
  objRs.CursorLocation = adUseClient
  Strsql = "SELECT * FROM 系統用戶"
  objRs.Open Strsql
  
'  objRs.ActiveConnection = Nothing   '取消數據庫連接
'  objCn.Close
'  '關閉數據庫連接
'  Set objCn = Nothing                '釋放連接對象

  cmbStatus.ListIndex = 0            '設置默認身份
  Exit Sub

' Dim Sc As String
' Sc = "driver={Microsoft Access Driver (*.mdb)};dbq=" & App.Path & "\工資管理.mdb"
' Dim conn As ADODB.Connection
' Set conn = New ADODB.Connection
' conn.Open Sc




DealError:
   msg = "程序執行出錯，錯誤信息如下：" & vbCrLf & Err.Description
   ShowError msg

End Sub

Private Sub Form_Unload(Cancel As Integer)
 Set objRs = Nothing
End Sub