人事管理系统.frm

人事管理系统使用VB开发本系统规范了企业人事档案 能查询各类信息并进行统计分析

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm 人事管理系统 
   BackColor       =   &H00FF8080&
   Caption         =   "人事管理系统"
   ClientHeight    =   5445
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   8790
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  'Windows Default
   Begin MSComctlLib.Toolbar Toolbar1 
      Align           =   1  'Align Top
      Height          =   810
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   8790
      _ExtentX        =   15505
      _ExtentY        =   1429
      ButtonWidth     =   1455
      ButtonHeight    =   1376
      Style           =   1
      ImageList       =   "ImageList1"
      HotImageList    =   "ImageList1"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   18
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "部门设置"
            Key             =   "部门设置"
            Object.ToolTipText     =   "部门设置"
            ImageIndex      =   8
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "职务设置"
            Key             =   "职务设置"
            Object.ToolTipText     =   "职务设置"
            ImageIndex      =   2
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "员工录用"
            Key             =   "员工录用"
            Object.ToolTipText     =   "员工录用"
            ImageIndex      =   4
         EndProperty
         BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "员工信息"
            Key             =   "员工信息"
            Object.ToolTipText     =   "员工信息"
            ImageIndex      =   6
         EndProperty
         BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "工资计发"
            Key             =   "工资计发"
            Object.ToolTipText     =   "工资计发"
            ImageIndex      =   3
         EndProperty
         BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "工资报表"
            Key             =   "工资报表"
            Object.ToolTipText     =   "工资报表"
            ImageIndex      =   7
         EndProperty
         BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "考勤考核"
            Key             =   "考勤考核"
            Object.ToolTipText     =   "考勤考核"
            ImageIndex      =   1
         EndProperty
         BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "考核录入"
            Key             =   "考核录入"
            Object.ToolTipText     =   "考核录入"
            ImageIndex      =   9
         EndProperty
         BeginProperty Button16 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button17 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "重新登录"
            Key             =   "重新登录"
            Object.ToolTipText     =   "重新登录"
            ImageIndex      =   5
         EndProperty
         BeginProperty Button18 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
      EndProperty
      BorderStyle     =   1
   End
   Begin MSComctlLib.ImageList ImageList1 
      Left            =   240
      Top             =   1800
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   32
      ImageHeight     =   32
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   9
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "人事管理系统.frx":0000
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "人事管理系统.frx":08DC
            Key             =   ""
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "人事管理系统.frx":11B8
            Key             =   ""
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "人事管理系统.frx":1A94
            Key             =   ""
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "人事管理系统.frx":2370
            Key             =   ""
         EndProperty
         BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "人事管理系统.frx":2C4C
            Key             =   ""
         EndProperty
         BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "人事管理系统.frx":3528
            Key             =   ""
         EndProperty
         BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "人事管理系统.frx":3E04
            Key             =   ""
         EndProperty
         BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "人事管理系统.frx":46E0
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin VB.Menu 职能设置 
      Caption         =   "【职能设置】"
      Begin VB.Menu 部门设置 
         Caption         =   "部门设置"
      End
      Begin VB.Menu 职务设置 
         Caption         =   "职务设置"
      End
   End
   Begin VB.Menu 员工信息管理 
      Caption         =   "【员工信息管理】"
      Begin VB.Menu 员工录用 
         Caption         =   "员工录用"
      End
      Begin VB.Menu 员工基本信息 
         Caption         =   "员工基本信息"
      End
      Begin VB.Menu 花名册 
         Caption         =   "花名册"
      End
   End
   Begin VB.Menu 工资管理 
      Caption         =   "【工资管理】"
      Begin VB.Menu 工资标准 
         Caption         =   "工资标准"
      End
      Begin VB.Menu 工资计发 
         Caption         =   "工资计发"
      End
      Begin VB.Menu 工资报表 
         Caption         =   "工资报表"
      End
   End
   Begin VB.Menu 员工考勤管理 
      Caption         =   "【员工考勤管理】"
      Begin VB.Menu 考勤录入 
         Caption         =   "考勤录入"
      End
      Begin VB.Menu 考勤查询 
         Caption         =   "考勤查询"
      End
      Begin VB.Menu 考勤考核 
         Caption         =   "考勤考核"
      End
   End
   Begin VB.Menu 工作考核管理 
      Caption         =   "【工作考核管理】"
      Begin VB.Menu 考核录入 
         Caption         =   "考核录入"
      End
      Begin VB.Menu 考核查询 
         Caption         =   "考核查询"
      End
      Begin VB.Menu 考核单生成 
         Caption         =   "考核单生成"
      End
   End
   Begin VB.Menu 系统管理 
      Caption         =   "【系统管理】"
      Begin VB.Menu 用户管理 
         Caption         =   "用户管理"
      End
      Begin VB.Menu 密码维护 
         Caption         =   "密码维护"
      End
      Begin VB.Menu 重新登录 
         Caption         =   "重新登录"
      End
   End
End
Attribute VB_Name = "人事管理系统"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub MDIForm_Load()
    Dim rst As ADODB.Recordset
    Dim SQL As String
    Dim msg As String
    Dim rights As String        '保存记录中的权限值
    '查找权限
    SQL = " select 权限 from 用户信息表 where 用户ID='" & UserID & "'"
    Set rst = SelectSQL(SQL, msg)
    If rst.RecordCount > 0 Then
        rights = Trim(rst.Fields(0))
        rst.Close
    Else
        MsgBox ("没有用户信息！")
        Exit Sub
    End If
    '设置权限
    If InStr(rights, "职能设置") Then
        职能设置.Enabled = True
        Me.Toolbar1.Buttons(1).Enabled = True
        Me.Toolbar1.Buttons(3).Enabled = True
    Else
        职能设置.Enabled = False
        Me.Toolbar1.Buttons(3).Enabled = False
        Me.Toolbar1.Buttons(1).Enabled = False
    End If
    If InStr(rights, "员工信息管理") Then
        员工信息管理.Enabled = True
        Me.Toolbar1.Buttons(5).Enabled = True
        Me.Toolbar1.Buttons(7).Enabled = True
    Else
        员工信息管理.Enabled = False
        Me.Toolbar1.Buttons(5).Enabled = False
        Me.Toolbar1.Buttons(7).Enabled = False
    End If
    If InStr(rights, "工资管理") Then
        工资管理.Enabled = True
        Me.Toolbar1.Buttons(9).Enabled = True
        Me.Toolbar1.Buttons(11).Enabled = True
    Else
        工资管理.Enabled = False
        Me.Toolbar1.Buttons(9).Enabled = False
        Me.Toolbar1.Buttons(11).Enabled = False
    End If
    If InStr(rights, "员工考勤管理") Then
        员工考勤管理.Enabled = True
        Me.Toolbar1.Buttons(13).Enabled = True
    Else
        员工考勤管理.Enabled = False
        Me.Toolbar1.Buttons(13).Enabled = False
    End If
    If InStr(rights, "工作考核管理") Then
        工作考核管理.Enabled = True
        Me.Toolbar1.Buttons(15).Enabled = True
    Else
        工作考核管理.Enabled = False
        Me.Toolbar1.Buttons(15).Enabled = False
    End If
    用户管理.Enabled = InStr(rights, "用户管理")
End Sub
Private Sub 部门设置_Click()
    A部门设置.Show
    人事管理系统.Enabled = False
End Sub
Private Sub 职务设置_Click()
    A职务设置.Show
    人事管理系统.Enabled = False
End Sub
Private Sub 员工录用_Click()
    B员工录用.Show
    人事管理系统.Enabled = False
End Sub
Private Sub 员工基本信息_Click()
    B员工基本信息.Show
    人事管理系统.Enabled = False
End Sub
Private Sub 花名册_Click()
    B花名册.Show
    人事管理系统.Enabled = False
End Sub
Private Sub 工资标准_Click()
    C工资标准.Show
    人事管理系统.Enabled = False
End Sub
Private Sub 工资计发_Click()
    c工资计发.Show
    人事管理系统.Enabled = False
End Sub
Private Sub 工资报表_Click()
    C工资报表.Show
    人事管理系统.Enabled = False
End Sub
Private Sub 考勤录入_Click()
    D考勤管理.Show
    D考勤管理.SSTab1.Tab = 0
    人事管理系统.Enabled = False
End Sub
Private Sub 考勤考核_Click()
    D考勤管理.Show
    D考勤管理.SSTab1.Tab = 2
    人事管理系统.Enabled = False
End Sub
Private Sub 考勤查询_Click()
    D考勤管理.Show
    D考勤管理.SSTab1.Tab = 1
    人事管理系统.Enabled = False
End Sub
Private Sub 考核录入_Click()
    E考核录入.Show
    人事管理系统.Enabled = False
End Sub
Private Sub 考核查询_Click()
    E考核查询.Show
    人事管理系统.Enabled = False
End Sub
Private Sub 考核单生成_Click()
    E考核单生成.Show
    人事管理系统.Enabled = False
End Sub
Private Sub 用户管理_Click()
    F用户管理.Show
    人事管理系统.Enabled = False
End Sub
Private Sub 密码维护_Click()
    F密码维护.Show
    人事管理系统.Enabled = False
End Sub
Private Sub 重新登录_Click()
    F重新登录.Show
    Unload Me
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    Select Case Button.Index
    Case 1:
        Call 部门设置_Click     '调入部门设置
    Case 3:
        Call 职务设置_Click     '调入职务设置
    Case 5:
        Call 员工录用_Click     '调入员工录用
    Case 7:
        Call 员工基本信息_Click '调入员工基本信息
    Case 9:
        Call 工资计发_Click     '调入工资计发
    Case 11:
        Call 工资报表_Click     '调入工资报表
    Case 13:
        Call 考勤考核_Click     '调入考勤考核
    Case 15:
        Call 考核录入_Click     '调入考核录入
    Case 17:
        Call 重新登录_Click     '调入重新登录
    End Select
End Sub