frmmain.frm

实现了对人力资源的管理

VERSION 5.00
Begin VB.MDIForm frmMain 
   BackColor       =   &H8000000C&
   Caption         =   "人力资源管理系统"
   ClientHeight    =   5370
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   8790
   LinkTopic       =   "Form1"
   StartUpPosition =   3  '窗口缺省
   Begin VB.Menu MenuItemDep 
      Caption         =   "机构编制管理(&X)"
      Begin VB.Menu MenuItemDepManage 
         Caption         =   "机构设置及编码(&Y)"
      End
      Begin VB.Menu MenuItemDepInfo 
         Caption         =   "机构详细信息(&Z)"
      End
   End
   Begin VB.Menu MenuItemPeople 
      Caption         =   "职员信息管理(&Y)"
      Begin VB.Menu MenuItemPeopleManage 
         Caption         =   "职员信息维护(&Y)"
      End
      Begin VB.Menu MenuItemPeopleQuery 
         Caption         =   "职员信息查询(&Z)"
      End
   End
   Begin VB.Menu MenuItemSalary 
      Caption         =   "薪资福利管理(&Z)"
      Begin VB.Menu MenuItemSalaryManage 
         Caption         =   "当月工资计算(&V)"
      End
      Begin VB.Menu MenuItemTaxInfo 
         Caption         =   "个人所得税率(&W)"
      End
      Begin VB.Menu MenuItemSalaryHis 
         Caption         =   "工资发放历史(&X)"
      End
      Begin VB.Menu MenuItemPrize 
         Caption         =   "职员奖励管理(&Y)"
      End
      Begin VB.Menu MenuItemPunish 
         Caption         =   "职员惩罚管理(&Z)"
      End
   End
   Begin VB.Menu MenuItemExit 
      Caption         =   "退出系统"
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub MenuItemDepInfo_Click()
    Dim frm As New frmDepInfo
    frm.Show
End Sub

Private Sub MenuItemDepManage_Click()
    Dim frm As New frmDepManage
    frm.Show
End Sub

Private Sub MenuItemExit_Click()
    End
End Sub

Private Sub MenuItemPeopleManage_Click()
    Dim frm As New frmPeopleManage
    frm.Show
End Sub

Private Sub MenuItemPeopleQuery_Click()
    Dim frm As New frmPeopleQuery
    frm.Show
End Sub

Private Sub MenuItemPrize_Click()
    Dim frm As New frmPrize
    frm.Show
End Sub

Private Sub MenuItemPunish_Click()
    Dim frm As New frmPunish
    frm.Show
End Sub

Private Sub MenuItemSalaryHis_Click()
    Dim frm As New frmSalaryHis
    frm.Show
End Sub

Private Sub MenuItemSalaryManage_Click()
    Dim frm As New frmSalaryManage
    frm.Show
End Sub

Private Sub MenuItemTaxInfo_Click()
    Dim frm As New frmTaxInfo
    frm.Show
End Sub