VERSION 5.00
Begin VB.MDIForm MDIMain 
   BackColor       =   &H8000000C&
   Caption         =   "學籍管理系統"
   ClientHeight    =   6225
   ClientLeft      =   1800
   ClientTop       =   1815
   ClientWidth     =   6630
   LockControls    =   -1  'True
   WindowState     =   2  'Maximized
   Begin VB.Menu mnuGeneral 
      Caption         =   "通用(&G)"
      WindowList      =   -1  'True
      Begin VB.Menu mnuStudent 
         Caption         =   "學籍管理(&S)..."
         Shortcut        =   {F5}
      End
      Begin VB.Menu mnuFind 
         Caption         =   "學籍查詢(&F)..."
         Shortcut        =   {F6}
      End
      Begin VB.Menu mnuTemp 
         Caption         =   "-"
      End
      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 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

'表示當前的用戶類型
'0---管理員類型的用戶; 1---學生類型的用戶
Public mnUserType As Integer
'表示當前登錄的用戶名
Public msUserName As String

Private Sub MDIForm_Activate()
''根據不同的用戶類型，使相應的菜單項可見
  Select Case mnUserType
    Case 0:                       '以管理員身份登錄
        mnuFind.Visible = True
    Case 1:                       '以學生身份登錄， 只能查詢自己的信息
        mnuFind.Visible = False
  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()
 ''顯示“關于...”窗口
  Load frmSplash
  frmSplash.mbAbout = True
  frmSplash.Show vbModal
End Sub

Private Sub mnuExit_Click()
  Unload Me
End Sub

Private Sub mnuFind_Click()
   frmStudent.Show
   frmStudent.cmdSeek.Value = True
End Sub

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

Private Sub mnuStudent_Click()
   If mnUserType = 0 Then   ''若為管理員用戶
      frmStudent.Show
   Else                     ''若為學生類用戶
      frmLook.Show
   End If
End Sub