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