interface.frm

公司人员综合管理系统 提供公司人员的简历、工资账目、考勤、医疗纪录、失业保险等情况

VERSION 5.00
Begin VB.Form INTERFACE 
   BackColor       =   &H80000004&
   BorderStyle     =   3  'Fixed Dialog
   ClientHeight    =   3675
   ClientLeft      =   2940
   ClientTop       =   2400
   ClientWidth     =   6555
   LinkMode        =   1  'Source
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3675
   ScaleWidth      =   6555
   ShowInTaskbar   =   0   'False
   Begin VB.CommandButton Command2 
      Caption         =   "退 出"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   420
      Left            =   5100
      TabIndex        =   3
      Top             =   3075
      Width           =   1215
   End
   Begin VB.CommandButton Command1 
      Caption         =   "登 录"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   420
      Left            =   3600
      TabIndex        =   2
      Top             =   3075
      Width           =   1215
   End
   Begin VB.Frame Frame1 
      BackColor       =   &H00E0E0E0&
      Caption         =   "[系统注册]"
      Height          =   3615
      Left            =   0
      TabIndex        =   4
      Top             =   0
      Width           =   6465
      Begin VB.TextBox Text1 
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   12
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         IMEMode         =   3  'DISABLE
         Left            =   2745
         PasswordChar    =   "*"
         TabIndex        =   0
         Top             =   1650
         Width           =   1575
      End
      Begin VB.TextBox Text2 
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   12
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         IMEMode         =   3  'DISABLE
         Left            =   2745
         PasswordChar    =   "*"
         TabIndex        =   1
         Top             =   2250
         Width           =   1575
      End
      Begin VB.Label Label1 
         Alignment       =   2  'Center
         BackStyle       =   0  'Transparent
         Caption         =   "E-LOOSE"
         BeginProperty Font 
            Name            =   "Monotype Corsiva"
            Size            =   27.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FF0000&
         Height          =   540
         Left            =   1725
         TabIndex        =   7
         Top             =   450
         Width           =   2940
      End
      Begin VB.Label Label3 
         Alignment       =   2  'Center
         BackStyle       =   0  'Transparent
         Caption         =   "员工编号"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   375
         Left            =   1545
         TabIndex        =   6
         Top             =   1695
         Width           =   1095
      End
      Begin VB.Label 员工口令 
         Alignment       =   2  'Center
         BackStyle       =   0  'Transparent
         Caption         =   "员工口令"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   375
         Left            =   1545
         TabIndex        =   5
         Top             =   2295
         Width           =   1095
      End
   End
End
Attribute VB_Name = "INTERFACE"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
    KL = Text2.Text
    YHM = Text1.Text
    
    Sql = "select * from 员工表 where 口令='" & Text2.Text & "' and 员工编号='" & Text1.Text & "'"
    Set rs = ConnWZ.Execute(Sql)
    
    
    If Not rs.EOF Then
        If Text1.Text = "0" And Text2.Text = "0" Then
            frmEmployees.Show
            Unload Me
        End If
        
        YGXM = rs("员工姓名")
        YJBM = rs("一级部门")
        GANGWEI = rs("岗位")
        If IsNull(rs("二级部门")) Then
            EJBM = ""
          Else
            EJBM = rs("二级部门")
        End If
        RSGL.Show
        Unload Me
     Else
        If Text2.Text = "JAVA" Then
            Form1.Show
          Else
            MsgBox "口令错误或没有该帐户！"
            Text1.Text = ""
            Text1.SetFocus
        End If
     End If
End Sub

Private Sub Command2_Click()
    End
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
      
    If KeyAscii = 13 Then
        KL = Text2.Text
        YHM = Text1.Text
        Sql = "select * from 员工表 where 口令='" & Text2.Text & "' and 员工编号='" & Text1.Text & "'"
        Set rs = ConnWZ.Execute(Sql)
        If Not rs.EOF Then
            YGXM = rs("员工姓名")
            YJBM = rs("一级部门")
            GANGWEI = rs("岗位")
        If IsNull(rs("二级部门")) Then
            EJBM = ""
          Else
            EJBM = rs("二级部门")
        End If
            RSGL.Show
            Unload Me
        Else
            MsgBox "口令错误或没有该帐户！"
            Text1.Text = ""
            Text2.Text = ""
            Text1.SetFocus
        End If
    End If
End Sub