frmlogin.frm

企业人事管理系统

VERSION 5.00
Begin VB.Form frmLogin 
   BackColor       =   &H00E0E0E0&
   BorderStyle     =   3  'Fixed Dialog
   ClientHeight    =   3780
   ClientLeft      =   45
   ClientTop       =   45
   ClientWidth     =   4575
   ControlBox      =   0   'False
   BeginProperty Font 
      Name            =   "宋体"
      Size            =   9
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   Icon            =   "frmLogin.frx":0000
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "frmLogin.frx":000C
   ScaleHeight     =   7269.23
   ScaleMode       =   0  'User
   ScaleWidth      =   4575
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.Frame fraInfo 
      BackColor       =   &H00E0E0E0&
      Caption         =   "版本信息"
      Height          =   2175
      Left            =   60
      TabIndex        =   7
      Top             =   1080
      Width           =   4455
      Begin VB.Label lblInfo 
         BackStyle       =   0  'Transparent
         Height          =   975
         Index           =   0
         Left            =   360
         TabIndex        =   9
         Top             =   240
         Width           =   3735
      End
      Begin VB.Label lblInfo 
         BackColor       =   &H00C0C0FF&
         BackStyle       =   0  'Transparent
         Height          =   735
         Index           =   1
         Left            =   360
         TabIndex        =   8
         Top             =   1320
         Width           =   3735
      End
   End
   Begin VB.CommandButton cmdCancel 
      BackColor       =   &H00C0FFC0&
      Caption         =   "关闭(&C)"
      Height          =   350
      Left            =   3420
      Style           =   1  'Graphical
      TabIndex        =   10
      Top             =   3360
      Width           =   1095
   End
   Begin VB.Timer tmrLoad 
      Interval        =   50
      Left            =   3840
      Top             =   1200
   End
   Begin VB.CommandButton CmdExit 
      BackColor       =   &H00C0FFC0&
      Caption         =   "退出(&Q)"
      Height          =   350
      Left            =   2400
      Style           =   1  'Graphical
      TabIndex        =   5
      Top             =   2025
      Visible         =   0   'False
      Width           =   1095
   End
   Begin VB.CommandButton cmdOK 
      BackColor       =   &H00C0FFC0&
      Caption         =   "登录(&L)"
      Default         =   -1  'True
      Height          =   350
      Left            =   1200
      Style           =   1  'Graphical
      TabIndex        =   4
      Top             =   2025
      Visible         =   0   'False
      Width           =   1095
   End
   Begin VB.ComboBox cboName 
      BackColor       =   &H00C0E0FF&
      ForeColor       =   &H00400040&
      Height          =   300
      ItemData        =   "frmLogin.frx":291C
      Left            =   1320
      List            =   "frmLogin.frx":291E
      Style           =   2  'Dropdown List
      TabIndex        =   3
      Top             =   1200
      Visible         =   0   'False
      Width           =   2175
   End
   Begin VB.TextBox txtPassword 
      BackColor       =   &H00C0E0FF&
      ForeColor       =   &H00400040&
      Height          =   300
      IMEMode         =   3  'DISABLE
      Left            =   1320
      MaxLength       =   50
      PasswordChar    =   "*"
      TabIndex        =   0
      Top             =   1560
      Visible         =   0   'False
      Width           =   2175
   End
   Begin VB.Label lblTitle 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      ForeColor       =   &H00C00000&
      Height          =   180
      Left            =   240
      TabIndex        =   6
      Top             =   1080
      Width           =   90
   End
   Begin VB.Label lblName 
      AutoSize        =   -1  'True
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "用户名:"
      ForeColor       =   &H00800000&
      Height          =   180
      Left            =   600
      TabIndex        =   2
      Top             =   1200
      Visible         =   0   'False
      Width           =   630
   End
   Begin VB.Label lblPassword 
      AutoSize        =   -1  'True
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "密  码:"
      ForeColor       =   &H00800000&
      Height          =   180
      Left            =   600
      TabIndex        =   1
      Top             =   1560
      Visible         =   0   'False
      Width           =   630
   End
End
Attribute VB_Name = "frmLogin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim intCount As Integer
Dim gstrCN As String

Private Sub cmdCancel_Click()
    frmInfo.Enabled = True
    Unload Me
End Sub

Private Sub cmdExit_Click()
    Call Shutdown
End Sub

Private Sub cmdOK_Click()
    On Error GoTo loadErr
        If Len(txtPassword.Text) = 0 Then
            MsgBox "输入密码不能为空!"
            txtPassword.SetFocus
            Exit Sub
        Else
            With adoLink
                If .State = adStateOpen Then .Close
                .Open "select * from 系统管理员 where 用户名='" & cboName.Text & "'", adoConn, adOpenDynamic, adLockPessimistic, adCmdText
                If .EOF = False Then
                    If Trim(txtPassword.Text) = Trim(.Fields("密码")) Then
                        gstrName = Trim(cboName.Text)
                        gblnPopedom = .Fields("权限")
                        Unload Me
                        frmInfo.Show
                    Else
                        MsgBox "密码错误!", vbOKOnly + vbCritical, App.Title
                        txtPassword.Text = ""
                        txtPassword.SetFocus
                    End If
                Else
                    Unload Me
                    frmInfo.Show
                End If
            End With
        End If
    Exit Sub
loadErr:
    MsgBox "错误：" & Err.Number & vbCrLf & Err.Description, vbOKOnly + vbExclamation, "运行错误"
End Sub

Private Sub Form_Load()
    On Error Resume Next
    If blnInfo = False Then
        tmrLoad.Enabled = True
        Me.Height = 1600
        lblInfo(0).Visible = False
        lblInfo(1).Visible = False
        fraInfo.Visible = False
        cmdCancel.Visible = False
        lblTitle.Caption = "欢迎使用" & App.Title & "!" & vbCrLf & "正在检测网络..."
    Else
        frmInfo.Enabled = False
        tmrLoad.Enabled = False
        lblTitle.Visible = False
        Me.Caption = "关于..."
        lblInfo(0).Caption = "程序名称:    " & App.Title & vbTab & vbTab & vbCrLf & "版本号:      " & _
        vbTab & App.Major & "." & App.Minor & vbCrLf & "设计者:      " & vbTab & "章强" & _
        vbCrLf & "Email:       " & vbTab & "[e-mail]" & vbCrLf & "制作时间:    " & _
        vbTab & "2004-05-20"
        lblInfo(1).Caption = "此版本为测试版,目前数据库结构设计很简单,程序代码未优化,能完成基本的人事录入、查询、导出功能!" & vbCrLf & "本软件为自由软件,可任意Copy!"
    End If
End Sub
Private Sub loadUser()
On Error GoTo loadErr
    With adoLink
        intCount = 0
        Do Until .EOF
            cboName.AddItem .Fields("用户名"), intCount
            .MoveNext
            intCount = intCount + 1
        Loop
    End With
    Exit Sub
loadErr:
    MsgBox "错误：" & Err.Number & vbCrLf & Err.Description, vbOKOnly + vbExclamation, "运行错误"
End Sub

Private Sub tmrLoad_Timer()
    On Error GoTo ErrLink
    With adoConn
        .CursorLocation = adUseClient
        gstrCN = gstrLink
        .Open gstrCN
    End With
    With adoLink
        If .State = adStateOpen Then .Close
        .Open "select * from 系统管理员 order by 用户名", adoConn, adOpenDynamic, adLockPessimistic, adCmdText
    End With
EndTimer:
    If gblnLoadError = False Then
        Me.Hide
        lblTitle.Visible = False
        lblName.Visible = True
        lblPassword.Visible = True
        txtPassword.Visible = True
        cmdOK.Visible = True
        cmdExit.Visible = True
        Me.Height = 2600
        Me.Caption = App.Title & " Ver " & App.Major & "." & App.Minor
        Call loadUser
        cboName.Visible = True
        Me.Show
        Me.Refresh
        If cboName.ListCount > 0 Then cboName.ListIndex = 0
        txtPassword.SetFocus
    Else
        Unload Me
    End If
    tmrLoad.Enabled = False
    Exit Sub
ErrLink:
    gblnLoadError = True
    MsgBox "错误:" & Err.Number & vbCrLf & Err.Description & vbCrLf & "请设置数据库连接项或与网络管理员联系!", vbOKOnly + vbExclamation, App.Title
    GoTo EndTimer
End Sub