?? mdisystemmain.frm
字號(hào):
VERSION 5.00
Begin VB.MDIForm mdiSystemMain
BackColor = &H8000000C&
Caption = "Basic自測(cè)考試管理系統(tǒng)"
ClientHeight = 4350
ClientLeft = 60
ClientTop = 630
ClientWidth = 6495
LinkTopic = "MDIForm1"
StartUpPosition = 2 '屏幕中心
WindowState = 2 'Maximized
Begin VB.Menu mnuExit
Caption = "退出"
End
Begin VB.Menu mnuInfo
Caption = "信息管理"
Begin VB.Menu mnuDept
Caption = "系部信息"
End
Begin VB.Menu mnuClass
Caption = "班級(jí)信息"
End
Begin VB.Menu mnuD1
Caption = "-"
End
Begin VB.Menu mnuStudent
Caption = "學(xué)生信息"
End
Begin VB.Menu mnuTeacher
Caption = "閱卷教師"
End
Begin VB.Menu mnuAdmin
Caption = "管理員信息"
End
Begin VB.Menu mnuD2
Caption = "-"
End
Begin VB.Menu mnuQScore
Caption = "成績查詢"
End
End
Begin VB.Menu mnuTest
Caption = "試題管理"
Begin VB.Menu mnuSetTest
Caption = "定制試卷"
End
Begin VB.Menu mnuThisTest
Caption = "選擇考題"
End
Begin VB.Menu mnuCheckTest
Caption = "評(píng)閱試卷"
End
Begin VB.Menu mnuOldTest
Caption = "歷屆試題"
End
Begin VB.Menu mnuD3
Caption = "-"
End
Begin VB.Menu mnuJudge
Caption = "判斷題題庫"
End
Begin VB.Menu mnuSelect
Caption = "選擇題題庫"
End
Begin VB.Menu mnuProRead
Caption = "程序閱讀題題庫"
End
Begin VB.Menu mnuProFill
Caption = "程序填空題題庫"
End
End
Begin VB.Menu mnuWin
Caption = "窗口"
WindowList = -1 'True
Begin VB.Menu mnuH
Caption = "水平平鋪"
End
Begin VB.Menu mnuV
Caption = "垂直平鋪"
End
Begin VB.Menu mnuCas
Caption = "層疊"
End
Begin VB.Menu mnuIcon
Caption = "排列圖標(biāo)"
End
End
End
Attribute VB_Name = "mdiSystemMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub MDIForm_Load()
'根據(jù)用戶身份禁用其無權(quán)使用的系統(tǒng)功能菜單
If CurrentUserStatus = "閱卷教師" Then
mnuAdmin.Enabled = False
mnuClass.Enabled = False
mnuDept.Enabled = False
mnuJudge.Enabled = False
mnuOldTest.Enabled = False
mnuProFill.Enabled = False
mnuProRead.Enabled = False
mnuSelect.Enabled = False
mnuSetTest.Enabled = False
mnuStudent.Enabled = False
mnuTeacher.Enabled = False
mnuThisTest.Enabled = False
ElseIf CurrentUserStatus = "學(xué)生" Then
mnuAdmin.Enabled = False
mnuClass.Enabled = False
mnuDept.Enabled = False
mnuStudent.Enabled = False
mnuTeacher.Enabled = False
mnuTest.Enabled = False
End If
End Sub
Private Sub mnuExit_Click()
Unload Me '關(guān)閉系統(tǒng)主窗體
End Sub
Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If MsgBox("你選擇了關(guān)閉自測(cè)考試管理系統(tǒng),是否繼續(xù)?", _
vbYesNo + vbInformation, Me.Caption) = vbYes Then
'判斷在所有子窗體關(guān)閉之后才關(guān)閉系統(tǒng)主窗體
If Not Me.ActiveForm Is Nothing Then
MsgBox "請(qǐng)先關(guān)閉打開的子窗體!", vbCritical, Me.Caption
Cancel = 1
Else
End
End If
Else
Cancel = 1
End If
End Sub
Private Sub mnuAdmin_Click()
SysUserManage.Show: SysUserManage.SetFocus
End Sub
Private Sub mnuCheckTest_Click()
ToScoring.Show: ToScoring.SetFocus
End Sub
Private Sub mnuClass_Click()
Class.Show: Class.SetFocus
End Sub
Private Sub mnuDept_Click()
Department.Show: Department.SetFocus
End Sub
Private Sub mnuJudge_Click()
Judgement.Show: Judgement.SetFocus
End Sub
Private Sub mnuOldTest_Click()
OldTests.Show: OldTests.SetFocus
End Sub
Private Sub mnuProFill_Click()
ProgramFilling.Show: ProgramFilling.SetFocus
End Sub
Private Sub mnuProRead_Click()
ProgramReading.Show: ProgramReading.SetFocus
End Sub
Private Sub mnuQScore_Click()
QueryScore.Show: QueryScore.SetFocus
End Sub
Private Sub mnuSelect_Click()
SelectOne.Show: SelectOne.SetFocus
End Sub
Private Sub mnuSetTest_Click()
SelectTest.Show: SelectTest.SetFocus
End Sub
Private Sub mnuStudent_Click()
Student.Show: Student.SetFocus
End Sub
Private Sub mnuTeacher_Click()
Teacher.Show: Teacher.SetFocus
End Sub
Private Sub mnuThisTest_Click()
SelectDoTest.Show: SelectDoTest.SetFocus
End Sub
Private Sub mnuCas_Click()
Me.Arrange vbCascade '層疊所有非最小化 MDI 子窗體
End Sub
Private Sub mnuH_Click()
Me.Arrange vbTileHorizontal '水平平鋪所有非最小化 MDI 子窗體
End Sub
Private Sub mnuIcon_Click()
Me.Arrange vbArrangeIcons '重排最小化 MDI 子窗體的圖標(biāo)。
End Sub
Private Sub mnuV_Click()
Me.Arrange vbTileVertical '垂直平鋪所有非最小化 MDI 子窗體
End Sub
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -