VERSION 5.00
Begin VB.MDIForm MDIMain 
   BackColor       =   &H8000000C&
   Caption         =   "成績管理系統"
   ClientHeight    =   3780
   ClientLeft      =   1800
   ClientTop       =   1815
   ClientWidth     =   4425
   LockControls    =   -1  'True
   WindowState     =   2  'Maximized
   Begin VB.Menu mnuGeneral 
      Caption         =   "通用(&G)"
      WindowList      =   -1  'True
      Begin VB.Menu mnuLogin 
         Caption         =   "重新登錄(&L)..."
         Shortcut        =   {F2}
      End
      Begin VB.Menu mnuLine 
         Caption         =   "-"
         Index           =   0
      End
      Begin VB.Menu mnuExit 
         Caption         =   "退出(&X)"
         Shortcut        =   ^X
      End
   End
   Begin VB.Menu mnuScore 
      Caption         =   "成績管理(&S)"
      Begin VB.Menu mnuStudentScore 
         Caption         =   "按學生進行(&S)..."
         Shortcut        =   {F5}
      End
      Begin VB.Menu mnuCourseScore 
         Caption         =   "按課程進行(&C)..."
         Shortcut        =   {F6}
      End
   End
   Begin VB.Menu mnuHelp 
      Caption         =   "幫助(&H)"
      Begin VB.Menu mnuAbout 
         Caption         =   "關于(&A)..."
         Shortcut        =   {F1}
      End
   End
End
Attribute VB_Name = "MDIMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub MDIForm_Load()
  ''根據不同的用戶類型，使相應的菜單項可見
  Select Case gnUserType
    Case 0:                       '以教師身份登錄, 可以按各種方式進行查詢和管理
        mnuCourseScore.Visible = True
        mnuStudentScore.Visible = True
    Case 1:                       '以課程身份登錄， 只能查詢自己的信息
        mnuCourseScore.Visible = False
        mnuStudentScore.Visible = True
  End Select
End Sub

Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  If MsgBox("真的要對出本系統嗎？", vbQuestion + vbYesNo + vbDefaultButton2, "退出") = vbNo Then
    Cancel = 1
  End If
End Sub

Private Sub mnuAbout_Click()
  frmSplash.Show vbModal
End Sub

Private Sub mnuCourseScore_Click()
    frmCourseScore.Show
End Sub

Private Sub mnuExit_Click()
  Unload Me
End Sub

Private Sub mnuLogin_Click()
  If MsgBox("若重新登錄，所有窗體都將關閉！是否重新登錄？", vbQuestion + vbYesNo + vbDefaultButton2, "重新登錄") = vbYes Then
     Unload MDIMain
     frmLogin.Show
  End If
End Sub

Private Sub mnuStudentScore_Click()
   frmStudentScore.Show
End Sub