frmmain.frm

企业人事管理信息系统,采用ＶＢ开发企业人事管理信息系统

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