www.pudn.com > cjg2.rar > mdiSystemMain.frm

VERSION 5.00 
Begin VB.MDIForm mdiSystemMain  
   BackColor       =   &H8000000C& 
   Caption         =   "Basic自测考试管理系统" 
   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