login.frm

企业人事管理系统专门负责企业的人事

VERSION 5.00
Begin VB.Form Login 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "登录到系统"
   ClientHeight    =   3090
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4620
   ForeColor       =   &H8000000A&
   Icon            =   "Login.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3481.69
   ScaleMode       =   0  'User
   ScaleWidth      =   4620
   StartUpPosition =   2  '屏幕中心
   WhatsThisHelp   =   -1  'True
   Begin VB.CommandButton cmdCancel 
      Cancel          =   -1  'True
      Caption         =   "取消"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   2640
      TabIndex        =   6
      Top             =   2160
      Width           =   975
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "确定"
      Default         =   -1  'True
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   960
      TabIndex        =   5
      Top             =   2160
      Width           =   975
   End
   Begin VB.Frame Frame1 
      Height          =   1335
      Left            =   360
      TabIndex        =   0
      Top             =   720
      Width           =   3735
      Begin VB.TextBox txtPassWord 
         Height          =   270
         IMEMode         =   3  'DISABLE
         Left            =   960
         MaxLength       =   20
         PasswordChar    =   "*"
         TabIndex        =   4
         Text            =   "1"
         Top             =   720
         Width           =   2415
      End
      Begin VB.TextBox txtUserName 
         Height          =   270
         Left            =   960
         MaxLength       =   20
         TabIndex        =   3
         Text            =   "Guest"
         Top             =   240
         Width           =   2415
      End
      Begin VB.Label Label2 
         Caption         =   "密  码："
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   120
         TabIndex        =   2
         Top             =   840
         Width           =   855
      End
      Begin VB.Label Label1 
         Caption         =   "用户名："
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   120
         TabIndex        =   1
         Top             =   240
         Width           =   855
      End
   End
   Begin VB.Label Label3 
      Caption         =   "湖工人事管理系统"
      BeginProperty Font 
         Name            =   "华文彩云"
         Size            =   18
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   495
      Left            =   840
      TabIndex        =   8
      Top             =   240
      Width           =   3135
   End
   Begin VB.Label label13 
      Caption         =   "版权提供：梁峰"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   2640
      TabIndex        =   7
      Top             =   2640
      Width           =   1815
   End
End
Attribute VB_Name = "Login"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdCancel_Click()
    Unload Me
    
End Sub

Private Sub cmdOK_Click()
'验证用户填写的正确
If txtUserName.Text = "" Then
  MsgBox "请填写用户名！", vbOKOnly + vbInformation, "注意"
  txtUserName.SetFocus
  Exit Sub
ElseIf txtPassword.Text = "" Then
  MsgBox "请填写密码！", vbOKOnly + vbInformation, "注意"
  txtPassword.SetFocus
  Exit Sub
End If
'设置登录变量，这是为IsExistUser函数而设置的
g_blogin = True
If IsExistuser(txtUserName.Text, txtPassword.Text) Then
'用户登录成功
  Unload Me
Else
  If IsExistuser(txtUserName.Text, "") Then
    MsgBox "密码不正确！请重试……", vbOKOnly + vbInformation, "错误"
  Else
    MsgBox "无此用户！请先注册……", vbOKOnly + vbInformation, "错误"
    
  End If
End If

  End Sub


Private Sub Form_Unload(Cancel As Integer)
    Dim Msg, Response   ' 声明变量。
        With frmMain
    If g_blogin Then
            .ygAdd.Enabled = True
            .ygDel.Enabled = True
            .ygEdit.Enabled = True
            .ygFind.Enabled = True
            .kqAdd.Enabled = True
            .kqDel.Enabled = True
            .kqEdit.Enabled = True
            .kqFind.Enabled = True
            .gzEdit.Enabled = True
            .gzFind.Enabled = True
            .gzJifa.Enabled = True
            .pjAdd.Enabled = True
            .pjDel.Enabled = True
            .pjEdit.Enabled = True
            .pjFind.Enabled = True
            
    Else
            Msg = "你真的不登录到系统吗？"
            Response = MsgBox(Msg, vbQuestion + vbYesNoCancel, "登录")
            Select Case Response
                Case vbCancel   ' 不允许关闭。
                   Cancel = -1
                Case vbYes
                    Msg = "未登录到系统！" '
                Case vbNo
                    Msg = "请输入正确的用户名及密码！"
                    txtUserName.Text = ""
                    txtPassword.Text = ""
                    txtUserName.SetFocus
                    Cancel = -2
            End Select
            MsgBox Msg, vbOKOnly, "登录"   ' 显示信息。
            .ygAdd.Enabled = False
            .ygDel.Enabled = False
            .ygEdit.Enabled = False
            .ygFind.Enabled = False
            .kqAdd.Enabled = False
            .kqDel.Enabled = False
            .kqEdit.Enabled = False
            .kqFind.Enabled = False
            .gzEdit.Enabled = False
            .gzFind.Enabled = False
            .gzJifa.Enabled = False
            .pjAdd.Enabled = False
            .pjDel.Enabled = False
            .pjEdit.Enabled = False
            .pjFind.Enabled = False
    End If
        End With
End Sub