mdimain.frm

本论文以“计算机考试系统”的开发为背景

VERSION 5.00
Begin VB.MDIForm MDIMain 
   BackColor       =   &H8000000C&
   Caption         =   "考试系统"
   ClientHeight    =   3810
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   4680
   Icon            =   "MDIMain.frx":0000
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin VB.Menu mnuFile 
      Caption         =   "文件(&F)"
      Begin VB.Menu mnuExitApp 
         Caption         =   "退出系统"
      End
   End
   Begin VB.Menu mnuSetup 
      Caption         =   "题库维护(&S)"
      Begin VB.Menu mnuSetEdit 
         Caption         =   "套号编辑"
      End
      Begin VB.Menu mnuSubjectEdit 
         Caption         =   "题库编辑"
      End
      Begin VB.Menu m1 
         Caption         =   "-"
         Visible         =   0   'False
      End
      Begin VB.Menu mnuSubjectSetup 
         Caption         =   "题库设置"
      End
   End
   Begin VB.Menu mpf 
      Caption         =   "评分(&P)"
      Begin VB.Menu mpfbb 
         Caption         =   "评分报表"
      End
   End
   Begin VB.Menu mnuHelp 
      Caption         =   "帮助(&H)"
      Begin VB.Menu mnuAbout 
         Caption         =   "关于..."
      End
   End
End
Attribute VB_Name = "MDIMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub mnuScoreReport_Click()
    frmScore.Show 1
End Sub

Private Sub mnuAbout_Click()
    frmAbout.Show 1
End Sub

Private Sub mnuExitApp_Click()
    End
End Sub

Private Sub mnuSetEdit_Click()
    frmSubjectSetEdit.Show 1
End Sub

Private Sub mnuSubjectEdit_Click()
    frmSubject.Show 1
End Sub

Private Sub mnuSubjectSetup_Click()
    frmSetup.Show 1
End Sub

Private Sub mpfbb_Click()
    frmScore.Show 1
End Sub