VERSION 5.00
Begin VB.MDIForm MainForm 
   BackColor       =   &H8000000C&
   Caption         =   "企業員工工資管理系統"
   ClientHeight    =   7425
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   10470
   Icon            =   "MainForm.frx":0000
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   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
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
    
    Unload HRForm
    Unload PayForm
    Unload PosForm
    Unload SpecialForm
End Sub

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

'調用"人員管理"窗體
Private Sub HRManage_Click()
    HRForm.Show
    
    Unload AnaForm
    Unload PayForm
    Unload PosForm
    Unload SpecialForm
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
    
    Unload HRForm
    Unload AnaForm
    Unload PosForm
    Unload SpecialForm
End Sub

'調用"職位管理"窗體
Private Sub PosManage_Click()
    PosForm.Show
    
    Unload HRForm
    Unload PayForm
    Unload AnaForm
    Unload SpecialForm
End Sub

'調用"特殊項管理"窗體
Private Sub SpecialManage_Click()
    SpecialForm.Show
    
    Unload HRForm
    Unload PayForm
    Unload PosForm
    Unload AnaForm
End Sub