+---

人事管理系统软件为机关

VERSION 5.00
Begin VB.MDIForm 人事管理系统 
   BackColor       =   &H8000000C&
   Caption         =   "人事管理系统"
   ClientHeight    =   6930
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   11070
   LinkTopic       =   "MDIForm1"
   Picture         =   "人事管~1.frx":0000
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin VB.PictureBox Picture1 
      Align           =   1  'Align Top
      Height          =   2055
      Index           =   0
      Left            =   0
      Picture         =   "人事管~1.frx":2EFD
      ScaleHeight     =   1995
      ScaleWidth      =   11010
      TabIndex        =   0
      Top             =   0
      Width           =   11070
      Begin VB.PictureBox Picture3 
         Height          =   1815
         Left            =   7200
         ScaleHeight     =   1755
         ScaleWidth      =   2835
         TabIndex        =   2
         Top             =   120
         Width           =   2895
         Begin VB.PictureBox Picture2 
            Height          =   1815
            Index           =   1
            Left            =   -360
            Picture         =   "人事管~1.frx":5DFA
            ScaleHeight     =   1755
            ScaleWidth      =   3195
            TabIndex        =   3
            Top             =   0
            Width           =   3255
         End
      End
      Begin VB.PictureBox Picture2 
         Height          =   1815
         Index           =   0
         Left            =   3480
         Picture         =   "人事管~1.frx":8CF7
         ScaleHeight     =   1755
         ScaleWidth      =   3195
         TabIndex        =   1
         Top             =   120
         Width           =   3255
      End
   End
   Begin VB.Menu system 
      Caption         =   "系统"
      Begin VB.Menu adduser 
         Caption         =   "添加用户"
      End
      Begin VB.Menu changeuser 
         Caption         =   "修改用户"
      End
      Begin VB.Menu Exitsys 
         Caption         =   "退出系统"
      End
   End
   Begin VB.Menu StuffMis 
      Caption         =   "职工信息管理"
      Begin VB.Menu ADDstuff 
         Caption         =   "添加职工信息"
      End
      Begin VB.Menu changestuff 
         Caption         =   "修改职工信息"
      End
      Begin VB.Menu deletestuff 
         Caption         =   "删除职工信息"
      End
      Begin VB.Menu qurrystuff 
         Caption         =   "查询职工信息"
      End
   End
   Begin VB.Menu stuff_attandance 
      Caption         =   "职工考勤管理"
      Begin VB.Menu add_attandance 
         Caption         =   "添加考勤信息"
      End
      Begin VB.Menu change_attandance 
         Caption         =   "修改考勤信息"
      End
      Begin VB.Menu delete_attandance 
         Caption         =   "删除考勤信息"
      End
      Begin VB.Menu querry_attdance 
         Caption         =   "查询考勤信息"
      End
      Begin VB.Menu Statistic_attandace 
         Caption         =   "考勤统计"
      End
   End
   Begin VB.Menu stuff_attemper 
      Caption         =   "职工调度信息管理"
      Begin VB.Menu ADDstuff_attemper 
         Caption         =   "添加职工调度信息"
      End
      Begin VB.Menu change_stuff_attemper 
         Caption         =   "修改职工调度信息"
      End
      Begin VB.Menu delete_stuff_attemper 
         Caption         =   "删除职工调度信息"
      End
      Begin VB.Menu qurry_stuff_attemper 
         Caption         =   "查询职工调度信息"
      End
   End
   Begin VB.Menu stuff_wage 
      Caption         =   "职工工资信息管理"
   End
End
Attribute VB_Name = "人事管理系统"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub add_attandance_Click()
添加职工考勤信息.Show

End Sub

Private Sub ADDstuff_Click()
添加员工信息.Show

End Sub

Private Sub adduser_Click()
修改用户.Show
End Sub

Private Sub change_attandance_Click()
修改考勤信息.Show
End Sub

Private Sub changestuff_Click()
修改职工信息.Show
End Sub

Private Sub delete_attandance_Click()
删除考勤信息.Show
End Sub

Private Sub Label1_Click()

End Sub

Private Sub deletestuff_Click()
删除职工信息.Show

End Sub