mdisystemmain.frm

上机考试系统

VERSION 5.00
Begin VB.MDIForm mdiSystemMain 
   BackColor       =   &H8000000C&
   Caption         =   "大学计算机基础课上机考试评分系统"
   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         =   "班级信息"
      End
      Begin VB.Menu mnuD1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuStudent 
         Caption         =   "学生信息"
      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         =   "评阅试卷"
      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         =   "排列图标"
      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()
    '根据用户身份禁用其无权使用的系统功能菜单
    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 = "学生" 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       '关闭系统主窗体
End Sub

Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    If MsgBox("你选择了关闭自测考试管理系统，是否继续？", _
        vbYesNo + vbInformation, Me.Caption) = vbYes Then
        '判断在所有子窗体关闭之后才关闭系统主窗体
        If Not Me.ActiveForm Is Nothing Then
            MsgBox "请先关闭打开的子窗体！", 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 子窗体的图标。
End Sub

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