mainform.frm

企业工资管理系统的代码实现过程包括五大功能模块

VERSION 5.00
Begin VB.MDIForm MainForm 
   BackColor       =   &H8000000C&
   Caption         =   "职工工资管理系统"
   ClientHeight    =   7425
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   10470
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  'Windows Default
   WindowState     =   2  'Maximized
   Begin VB.Menu SalManage 
      Caption         =   "职工工资管理系统"
      Begin VB.Menu HRManage 
         Caption         =   "人员管理"
      End
      Begin VB.Menu PosManage 
         Caption         =   "职位管理"
      End
      Begin VB.Menu SpecialManage 
         Caption         =   "特殊项管理"
      End
      Begin VB.Menu PayoffTable 
         Caption         =   "工资发放"
      End
      Begin VB.Menu Analysis 
         Caption         =   "统计报表"
      End
      Begin VB.Menu Exit 
         Caption         =   "退出"
      End
   End
End
Attribute VB_Name = "MainForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'调用"统计报表"窗体
Private Sub Analysis_Click()
    AnaForm.Show
End Sub

'退出程序
Private Sub Exit_Click()
    Unload Me
    End
End Sub

'调用"人员管理"窗体
Private Sub HRManage_Click()
    HRForm.Show
End Sub

'设置启动参数
Private Sub MDIForm_Load()
    gFile = App.Path & "\职工工资管理系统.mdb"
    Set gX = CreateObject("Excel.Application")
End Sub

'关闭所有窗口
Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    On Error Resume Next
    Unload AddEForm
    Unload AddPForm
    Unload AddSForm
    Unload UpdateEForm
    Unload UpdatePForm
    Unload UpdateSForm
End Sub

'调用"工资发放"窗体
Private Sub PayoffTable_Click()
    PayForm.Show
End Sub

'调用"职位管理"窗体
Private Sub PosManage_Click()
    PosForm.Show
End Sub

'调用"特殊项管理"窗体
Private Sub SpecialManage_Click()
    SpecialForm.Show
End Sub