mdi_frm.frm

前两年帮人写的毕业设计

VERSION 5.00
Begin VB.MDIForm MDI_Frm 
   BackColor       =   &H8000000C&
   Caption         =   "职工信息管理"
   ClientHeight    =   5010
   ClientLeft      =   2970
   ClientTop       =   2190
   ClientWidth     =   6495
   Icon            =   "MDI_Frm.frx":0000
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   1  '所有者中心
   WindowState     =   2  'Maximized
   Begin VB.Menu jbxx 
      Caption         =   "基本信息"
      Begin VB.Menu zgxx 
         Caption         =   "职工信息"
      End
      Begin VB.Menu bmxx 
         Caption         =   "部门信息"
      End
   End
   Begin VB.Menu gzxx 
      Caption         =   "工资信息"
      Begin VB.Menu gzgl 
         Caption         =   "工资管理"
      End
   End
End
Attribute VB_Name = "MDI_Frm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub bmxx_Click()
    Frm_bumen.Show
    Frm_bumen.ZOrder 0
End Sub

Private Sub gzgl_Click()
    Frm_gongzi.Show
    Frm_gongzi.ZOrder 0
End Sub

Private Sub zgxx_Click()
    Frm_zhigong.Show
    Frm_zhigong.ZOrder 0
End Sub