?? mdimain.frm
字號:
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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -