formmain.frm

来自「vb数据库编程资料」· FRM 代码 · 共 90 行

VERSION 5.00
Begin VB.Form frmMain 
   BackColor       =   &H8000000C&
   Caption         =   "学生信息管理系统"
   ClientHeight    =   6750
   ClientLeft      =   60
   ClientTop       =   630
   ClientWidth     =   9120
   LinkTopic       =   "Form1"
   ScaleHeight     =   6750
   ScaleWidth      =   9120
   StartUpPosition =   2  '屏幕中心
   WindowState     =   2  'Maximized
   Begin VB.Menu mntSystem 
      Caption         =   "系统维护(&S)"
      Begin VB.Menu mntSysDepart 
         Caption         =   "院系设置(&D)"
      End
      Begin VB.Menu mntSysClass 
         Caption         =   "班级管理(&C)"
      End
      Begin VB.Menu mntSysSP 
         Caption         =   "-"
      End
      Begin VB.Menu mntSysQuit 
         Caption         =   "退出系统(&Q)"
      End
   End
   Begin VB.Menu mntStudent 
      Caption         =   "学生管理(&t)"
      Begin VB.Menu mntStuManage 
         Caption         =   "学生管理(&M)"
      End
      Begin VB.Menu mntStuSP1 
         Caption         =   "-"
      End
      Begin VB.Menu mntStuQuery 
         Caption         =   "学生信息查询(&Q)"
      End
   End
   Begin VB.Menu mntEduAdmin 
      Caption         =   "教务管理(&E)"
      Begin VB.Menu mntEduChange 
         Caption         =   "学籍变更(&C)"
      End
      Begin VB.Menu mntReward 
         Caption         =   "奖励情况(&R)"
      End
      Begin VB.Menu mntEduPunish 
         Caption         =   "处罚情况(&P)"
      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 mntEduChange_Click()
  frmChange.Show vbModal
End Sub

Private Sub mntEduPunish_Click()
  frmPunish.Show vbModal
End Sub

Private Sub mntReward_Click()
  frmReward.Show vbModal
End Sub

Private Sub mntStuManage_Click()
  frmStudent.Show vbModal
End Sub

Private Sub mntStuQuery_Click()
  frmQuery.Show vbModal
End Sub

Private Sub mntSysClass_Click()
  frmClass.Show vbModal
End Sub

Private Sub mntSysDepart_Click()
  frmDepartment.Show vbModal
End Sub

Private Sub mntSysQuit_Click()
  End
End Sub