用户登录.frm

企业工资管理系统的主要任务是用计算机对各种工资信息进行日常的管理

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