frmsysmain.frm

上机考试系统

VERSION 5.00
Begin VB.MDIForm frmSysMain 
   BackColor       =   &H8000000C&
   Caption         =   "高校学籍管理系统"
   ClientHeight    =   2055
   ClientLeft      =   60
   ClientTop       =   630
   ClientWidth     =   4155
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   2  '屏幕中心
   WindowState     =   2  'Maximized
   Begin VB.Menu mnuFile 
      Caption         =   "文件"
      Begin VB.Menu mnuExit 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu mnuSys 
      Caption         =   "系统管理"
      Begin VB.Menu mnuUser 
         Caption         =   "系统用户管理"
      End
      Begin VB.Menu mnuDepart 
         Caption         =   "系部信息管理"
      End
      Begin VB.Menu mnuGrade 
         Caption         =   "班级信息管理"
      End
      Begin VB.Menu mnud1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuTeacher 
         Caption         =   "教师信息管理"
      End
      Begin VB.Menu mnuStudent 
         Caption         =   "学生信息管理"
      End
      Begin VB.Menu mnud2 
         Caption         =   "-"
      End
      Begin VB.Menu mnuClass 
         Caption         =   "课程信息管理"
      End
      Begin VB.Menu mnuScore 
         Caption         =   "成绩管理"
      End
      Begin VB.Menu mnud3 
         Caption         =   "-"
      End
      Begin VB.Menu mnuChoose 
         Caption         =   "学分制选课"
      End
   End
   Begin VB.Menu mnuQuery 
      Caption         =   "查询"
      Begin VB.Menu mnuQueryList 
         Caption         =   "教学班名单查询"
      End
      Begin VB.Menu mnuQueryScore 
         Caption         =   "学生成绩查询"
      End
   End
   Begin VB.Menu mnuWindows 
      Caption         =   "窗口"
      WindowList      =   -1  'True
   End
End
Attribute VB_Name = "frmSysMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub MDIForm_Load()
    '根据用户身份启用不同的菜单
    If CurrentUserType = "学生" Then
        mnuSys.Enabled = False
        mnuQueryList.Enabled = False
    ElseIf CurrentUserType = "教师" Then
        mnuUser.Enabled = False
        mnuTeacher.Enabled = False
        mnuGrade.Enabled = False
        mnuDepart.Enabled = False
        mnuClass.Enabled = False
        mnuStudent.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 + vbQuestion, "学籍管理系统") = vbYes Then
        '判断在所有子窗体关闭之后才能关闭系统主窗体
        If Not Me.ActiveForm Is Nothing Then
            MsgBox "请先关闭打开的子窗体！", vbCritical, "学籍管理系统"
            Cancel = 1
        End If
    Else
        Cancel = 1
    End If
End Sub

'显示学生选课窗体
Private Sub mnuChoose_Click()
    frmSelectClasses.Show: frmSelectClasses.SetFocus
End Sub
'显示课程信息管理窗体
Private Sub mnuClass_Click()
    frmClass.Show: frmClass.SetFocus
End Sub
'显示系部信息管理窗体
Private Sub mnuDepart_Click()
    frmDepartment.Show: frmDepartment.SetFocus
End Sub
'显示班级信息管理窗体
Private Sub mnuGrade_Click()
    frmGrade.Show: frmGrade.SetFocus
End Sub
'显示教学班学生信息查询窗体
Private Sub mnuQueryList_Click()
    frmTeaching.Show: frmTeaching.SetFocus
End Sub
'显示学生个人成绩查询窗体
Private Sub mnuQueryScore_Click()
    frmScoreQuery.Show: frmScoreQuery.SetFocus
End Sub
'显示成绩管理窗体
Private Sub mnuScore_Click()
    frmScore.Show: frmScore.SetFocus
End Sub
'显示学生信息管理窗体
Private Sub mnuStudent_Click()
    frmStudent.Show: frmStudent.SetFocus
End Sub
'显示教师信息管理窗体
Private Sub mnuTeacher_Click()
    frmTeacher.Show: frmTeacher.SetFocus
End Sub
'显示系统用户管理窗体
Private Sub mnuUser_Click()
    frmManagers.Show: frmManagers.SetFocus
End Sub