mainform.frm

来自「工资管理系统源代码.很好...开发了很长时间」· FRM 代码 · 共 109 行

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