VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm 人事管理系統(tǒng) 
   BackColor       =   &H00FF8080&
   Caption         =   "人事管理系統(tǒng)"
   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         =   "部門設(shè)置"
            Key             =   "部門設(shè)置"
            Object.ToolTipText     =   "部門設(shè)置"
            ImageIndex      =   8
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "職務(wù)設(shè)置"
            Key             =   "職務(wù)設(shè)置"
            Object.ToolTipText     =   "職務(wù)設(shè)置"
            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         =   "工資計發(fā)"
            Key             =   "工資計發(fā)"
            Object.ToolTipText     =   "工資計發(fā)"
            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         =   "人事管理系統(tǒng).frx":0000
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "人事管理系統(tǒng).frx":08DC
            Key             =   ""
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "人事管理系統(tǒng).frx":11B8
            Key             =   ""
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "人事管理系統(tǒng).frx":1A94
            Key             =   ""
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "人事管理系統(tǒng).frx":2370
            Key             =   ""
         EndProperty
         BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "人事管理系統(tǒng).frx":2C4C
            Key             =   ""
         EndProperty
         BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "人事管理系統(tǒng).frx":3528
            Key             =   ""
         EndProperty
         BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "人事管理系統(tǒng).frx":3E04
            Key             =   ""
         EndProperty
         BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "人事管理系統(tǒng).frx":46E0
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin VB.Menu 職能設(shè)置 
      Caption         =   "【職能設(shè)置】"
      Begin VB.Menu 部門設(shè)置 
         Caption         =   "部門設(shè)置"
      End
      Begin VB.Menu 職務(wù)設(shè)置 
         Caption         =   "職務(wù)設(shè)置"
      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 工資計發(fā) 
         Caption         =   "工資計發(fā)"
      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 系統(tǒng)管理 
      Caption         =   "【系統(tǒng)管理】"
      Begin VB.Menu 用戶管理 
         Caption         =   "用戶管理"
      End
      Begin VB.Menu 密碼維護 
         Caption         =   "密碼維護"
      End
      Begin VB.Menu 重新登錄 
         Caption         =   "重新登錄"
      End
   End
End
Attribute VB_Name = "人事管理系統(tǒng)"
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        '保存記錄中的權(quán)限值
    '查找權(quán)限
    SQL = " select 權(quán)限 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
    '設(shè)置權(quán)限
    If InStr(rights, "職能設(shè)置") Then
        職能設(shè)置.Enabled = True
        Me.Toolbar1.Buttons(1).Enabled = True
        Me.Toolbar1.Buttons(3).Enabled = True
    Else
        職能設(shè)置.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 部門設(shè)置_Click()
    A部門設(shè)置.Show
    人事管理系統(tǒng).Enabled = False
End Sub
Private Sub 職務(wù)設(shè)置_Click()
    A職務(wù)設(shè)置.Show
    人事管理系統(tǒng).Enabled = False
End Sub
Private Sub 員工錄用_Click()
    B員工錄用.Show
    人事管理系統(tǒng).Enabled = False
End Sub
Private Sub 員工基本信息_Click()
    B員工基本信息.Show
    人事管理系統(tǒng).Enabled = False
End Sub
Private Sub 花名冊_Click()
    B花名冊.Show
    人事管理系統(tǒng).Enabled = False
End Sub
Private Sub 工資標準_Click()
    C工資標準.Show
    人事管理系統(tǒng).Enabled = False
End Sub
Private Sub 工資計發(fā)_Click()
    c工資計發(fā).Show
    人事管理系統(tǒng).Enabled = False
End Sub
Private Sub 工資報表_Click()
    C工資報表.Show
    人事管理系統(tǒng).Enabled = False
End Sub
Private Sub 考勤錄入_Click()
    D考勤管理.Show
    D考勤管理.SSTab1.Tab = 0
    人事管理系統(tǒng).Enabled = False
End Sub
Private Sub 考勤考核_Click()
    D考勤管理.Show
    D考勤管理.SSTab1.Tab = 2
    人事管理系統(tǒng).Enabled = False
End Sub
Private Sub 考勤查詢_Click()
    D考勤管理.Show
    D考勤管理.SSTab1.Tab = 1
    人事管理系統(tǒng).Enabled = False
End Sub
Private Sub 考核錄入_Click()
    E考核錄入.Show
    人事管理系統(tǒng).Enabled = False
End Sub
Private Sub 考核查詢_Click()
    E考核查詢.Show
    人事管理系統(tǒng).Enabled = False
End Sub
Private Sub 考核單生成_Click()
    E考核單生成.Show
    人事管理系統(tǒng).Enabled = False
End Sub
Private Sub 用戶管理_Click()
    F用戶管理.Show
    人事管理系統(tǒng).Enabled = False
End Sub
Private Sub 密碼維護_Click()
    F密碼維護.Show
    人事管理系統(tǒng).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 部門設(shè)置_Click     '調(diào)入部門設(shè)置
    Case 3:
        Call 職務(wù)設(shè)置_Click     '調(diào)入職務(wù)設(shè)置
    Case 5:
        Call 員工錄用_Click     '調(diào)入員工錄用
    Case 7:
        Call 員工基本信息_Click '調(diào)入員工基本信息
    Case 9:
        Call 工資計發(fā)_Click     '調(diào)入工資計發(fā)
    Case 11:
        Call 工資報表_Click     '調(diào)入工資報表
    Case 13:
        Call 考勤考核_Click     '調(diào)入考勤考核
    Case 15:
        Call 考核錄入_Click     '調(diào)入考核錄入
    Case 17:
        Call 重新登錄_Click     '調(diào)入重新登錄
    End Select
End Sub