frmsysmain.frm

所在类别： 随书资源/T 工业技术/TP 自动化技术、计算机技术/TP31 计算机软件 其他题名： 作者： 夏邦贵, 刘凡馨等编著 出版者： 机械工业出版社 出版年： 2006 I

VERSION 5.00
Begin VB.MDIForm frmSysMain 
   BackColor       =   &H8000000C&
   Caption         =   "学分制选课系统"
   ClientHeight    =   2235
   ClientLeft      =   60
   ClientTop       =   630
   ClientWidth     =   4950
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   2  '屏幕中心
   WindowState     =   2  'Maximized
   Begin VB.Menu mnuFile 
      Caption         =   "文件(&F)"
      Begin VB.Menu mnuExit 
         Caption         =   "退出"
         Shortcut        =   +^{F1}
      End
   End
   Begin VB.Menu mnuSys 
      Caption         =   "系统管理(&S)"
      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         =   "查询(&Q)"
      Begin VB.Menu mnuQueryList 
         Caption         =   "教学班名单查询"
      End
      Begin VB.Menu mnuQueryScore 
         Caption         =   "学生成绩查询"
      End
   End
   Begin VB.Menu mnuWindows 
      Caption         =   "窗口(&W)"
      WindowList      =   -1  'True
      Begin VB.Menu mnuCascade 
         Caption         =   "层叠排列"
      End
      Begin VB.Menu mnuTileH 
         Caption         =   "水平平铺"
      End
      Begin VB.Menu mnuTileV 
         Caption         =   "垂直平铺"
      End
      Begin VB.Menu mnuIcons 
         Caption         =   "重新排列"
      End
   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 mnuUser_Click()
    frmManagers.Show: frmManagers.SetFocus  '显示系统用户管理窗体
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 mnuCascade_Click()
    Me.Arrange vbCascade              '层叠排列子窗体
End Sub

Private Sub mnuIcons_Click()
    Me.Arrange vbArrangeIcons         '重新排列最小化的子窗体图标
End Sub

Private Sub mnuTileH_Click()
    Me.Arrange vbTileHorizontal           '水平平铺子窗体
End Sub

Private Sub mnuTileV_Click()
    Me.Arrange vbTileVertical             '垂直平铺子窗体
End Sub