frmmain.frm

来自「企业人事管理软件」· FRM 代码 · 共 78 行

VERSION 5.00
Begin VB.MDIForm frmMain 
   BackColor       =   &H8000000C&
   Caption         =   "学员信息管理系统"
   ClientHeight    =   3090
   ClientLeft      =   165
   ClientTop       =   855
   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 mnuAdd_Click()
Ationtype = "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