VERSION 5.00
Begin VB.MDIForm mdiSystemMain 
   BackColor       =   &H8000000C&
   Caption         =   "Basic自測(cè)考試管理系統(tǒng)"
   ClientHeight    =   4350
   ClientLeft      =   60
   ClientTop       =   630
   ClientWidth     =   6495
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   2  '屏幕中心
   WindowState     =   2  'Maximized
   Begin VB.Menu mnuExit 
      Caption         =   "退出"
   End
   Begin VB.Menu mnuInfo 
      Caption         =   "信息管理"
      Begin VB.Menu mnuDept 
         Caption         =   "系部信息"
      End
      Begin VB.Menu mnuClass 
         Caption         =   "班級(jí)信息"
      End
      Begin VB.Menu mnuD1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuStudent 
         Caption         =   "學(xué)生信息"
      End
      Begin VB.Menu mnuTeacher 
         Caption         =   "閱卷教師"
      End
      Begin VB.Menu mnuAdmin 
         Caption         =   "管理員信息"
      End
      Begin VB.Menu mnuD2 
         Caption         =   "-"
      End
      Begin VB.Menu mnuQScore 
         Caption         =   "成績查詢"
      End
   End
   Begin VB.Menu mnuTest 
      Caption         =   "試題管理"
      Begin VB.Menu mnuSetTest 
         Caption         =   "定制試卷"
      End
      Begin VB.Menu mnuThisTest 
         Caption         =   "選擇考題"
      End
      Begin VB.Menu mnuCheckTest 
         Caption         =   "評(píng)閱試卷"
      End
      Begin VB.Menu mnuOldTest 
         Caption         =   "歷屆試題"
      End
      Begin VB.Menu mnuD3 
         Caption         =   "-"
      End
      Begin VB.Menu mnuJudge 
         Caption         =   "判斷題題庫"
      End
      Begin VB.Menu mnuSelect 
         Caption         =   "選擇題題庫"
      End
      Begin VB.Menu mnuProRead 
         Caption         =   "程序閱讀題題庫"
      End
      Begin VB.Menu mnuProFill 
         Caption         =   "程序填空題題庫"
      End
   End
   Begin VB.Menu mnuWin 
      Caption         =   "窗口"
      WindowList      =   -1  'True
      Begin VB.Menu mnuH 
         Caption         =   "水平平鋪"
      End
      Begin VB.Menu mnuV 
         Caption         =   "垂直平鋪"
      End
      Begin VB.Menu mnuCas 
         Caption         =   "層疊"
      End
      Begin VB.Menu mnuIcon 
         Caption         =   "排列圖標(biāo)"
      End
   End
End
Attribute VB_Name = "mdiSystemMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub MDIForm_Load()
    '根據(jù)用戶身份禁用其無權(quán)使用的系統(tǒng)功能菜單
    If CurrentUserStatus = "閱卷教師" Then
        mnuAdmin.Enabled = False
        mnuClass.Enabled = False
        mnuDept.Enabled = False
        mnuJudge.Enabled = False
        mnuOldTest.Enabled = False
        mnuProFill.Enabled = False
        mnuProRead.Enabled = False
        mnuSelect.Enabled = False
        mnuSetTest.Enabled = False
        mnuStudent.Enabled = False
        mnuTeacher.Enabled = False
        mnuThisTest.Enabled = False
    ElseIf CurrentUserStatus = "學(xué)生" Then
        mnuAdmin.Enabled = False
        mnuClass.Enabled = False
        mnuDept.Enabled = False
        mnuStudent.Enabled = False
        mnuTeacher.Enabled = False
        mnuTest.Enabled = False
    End If
End Sub

Private Sub mnuExit_Click()
    Unload Me       '關(guān)閉系統(tǒng)主窗體
End Sub

Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    If MsgBox("你選擇了關(guān)閉自測(cè)考試管理系統(tǒng)，是否繼續(xù)？", _
        vbYesNo + vbInformation, Me.Caption) = vbYes Then
        '判斷在所有子窗體關(guān)閉之后才關(guān)閉系統(tǒng)主窗體
        If Not Me.ActiveForm Is Nothing Then
            MsgBox "請(qǐng)先關(guān)閉打開的子窗體！", vbCritical, Me.Caption
            Cancel = 1
        Else
            End
        End If
    Else
        Cancel = 1
    End If
End Sub

Private Sub mnuAdmin_Click()
    SysUserManage.Show: SysUserManage.SetFocus
End Sub

Private Sub mnuCheckTest_Click()
    ToScoring.Show: ToScoring.SetFocus
End Sub

Private Sub mnuClass_Click()
    Class.Show: Class.SetFocus
End Sub

Private Sub mnuDept_Click()
    Department.Show: Department.SetFocus
End Sub

Private Sub mnuJudge_Click()
    Judgement.Show: Judgement.SetFocus
End Sub

Private Sub mnuOldTest_Click()
    OldTests.Show: OldTests.SetFocus
End Sub

Private Sub mnuProFill_Click()
    ProgramFilling.Show: ProgramFilling.SetFocus
End Sub

Private Sub mnuProRead_Click()
    ProgramReading.Show: ProgramReading.SetFocus
End Sub

Private Sub mnuQScore_Click()
    QueryScore.Show: QueryScore.SetFocus
End Sub

Private Sub mnuSelect_Click()
    SelectOne.Show: SelectOne.SetFocus
End Sub

Private Sub mnuSetTest_Click()
    SelectTest.Show: SelectTest.SetFocus
End Sub

Private Sub mnuStudent_Click()
    Student.Show: Student.SetFocus
End Sub

Private Sub mnuTeacher_Click()
    Teacher.Show: Teacher.SetFocus
End Sub

Private Sub mnuThisTest_Click()
    SelectDoTest.Show: SelectDoTest.SetFocus
End Sub

Private Sub mnuCas_Click()
    Me.Arrange vbCascade                  '層疊所有非最小化 MDI 子窗體
End Sub

Private Sub mnuH_Click()
    Me.Arrange vbTileHorizontal         '水平平鋪所有非最小化 MDI 子窗體
End Sub

Private Sub mnuIcon_Click()
    Me.Arrange vbArrangeIcons           '重排最小化 MDI 子窗體的圖標(biāo)。
End Sub

Private Sub mnuV_Click()
    Me.Arrange vbTileVertical           '垂直平鋪所有非最小化 MDI 子窗體
End Sub