VERSION 5.00
Begin VB.MDIForm frmMain 
   AutoShowChildren=   0   'False
   BackColor       =   &H8000000C&
   Caption         =   "企業人事管理系統"
   ClientHeight    =   3195
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   4680
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin VB.Menu mnulist 
      Caption         =   "檔案管理"
      Begin VB.Menu mnuAdd 
         Caption         =   "增加人事卡片"
      End
      Begin VB.Menu mnuDel 
         Caption         =   "刪除人事卡片"
      End
      Begin VB.Menu mnuEdit 
         Caption         =   "編輯人事卡片"
      End
      Begin VB.Menu mnusp1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuDept 
         Caption         =   "部門管理"
      End
      Begin VB.Menu mnuDeptlist 
         Caption         =   "部門人事瀏覽"
      End
   End
   Begin VB.Menu mnuSearch 
      Caption         =   "檔案查詢和統計"
      Begin VB.Menu mnuSearch1 
         Caption         =   "查詢人事卡片"
      End
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub mnulistdep_Click()
frmDep.Show
End Sub

Private Sub mnulistSingle_Click()
frmZGXX.Show
End Sub

Private Sub mnuAdd_Click()
ActionType = "Add"
frmSingleView.Show
End Sub

Private Sub mnuDel_Click()
ActionType = "Del"
frmSingleView.Show
End Sub

Private Sub mnuDept_Click()
frmDep.Show
End Sub

Private Sub mnuDeptlist_Click()
frmDeptView.Show
End Sub

Private Sub mnuEdit_Click()
ActionType = "Edit"
frmSingleView.Show
End Sub

Private Sub mnuSearch1_Click()
frmSearch.Show
End Sub