?? frmmdisystemmain.frm
字號:
VERSION 5.00
Begin VB.MDIForm mdisystemmain
Appearance = 0 'Flat
BackColor = &H8000000C&
Caption = "會計電算化考試管理系統"
ClientHeight = 5205
ClientLeft = 165
ClientTop = 855
ClientWidth = 10695
LinkTopic = "MDIForm1"
Picture = "frmmdisystemmain.frx":0000
StartUpPosition = 3 '窗口缺省
WindowState = 2 'Maximized
Begin VB.Menu mnuexit
Caption = "退出"
WindowList = -1 'True
End
Begin VB.Menu mnuguanli
Caption = "管理員"
Begin VB.Menu mnustudentnews
Caption = "學生信息"
End
Begin VB.Menu mnuteacher
Caption = "閱卷教師"
End
Begin VB.Menu mnuadmin
Caption = "管理員信息"
End
End
Begin VB.Menu mnuteacher1
Caption = "教師"
Begin VB.Menu mnusettest
Caption = "定制試卷"
End
Begin VB.Menu mnuthistest
Caption = "選擇考試"
End
Begin VB.Menu mnuoldtest
Caption = "歷屆試題"
End
Begin VB.Menu mnuchecktest
Caption = "評閱試卷"
End
Begin VB.Menu mnuqscore
Caption = "成績查詢"
End
Begin VB.Menu mnud2
Caption = "-"
End
Begin VB.Menu tiku
Caption = "題庫管理"
Begin VB.Menu mnujudge
Caption = "判斷題"
End
Begin VB.Menu mnusingleselect
Caption = "單項選擇題"
End
Begin VB.Menu mnumanyselect
Caption = "多項選擇題"
End
Begin VB.Menu mnufill
Caption = "填空題"
End
Begin VB.Menu mnuanswer
Caption = "問答題"
End
End
End
Begin VB.Menu mnustudent
Caption = "學生"
Begin VB.Menu mnudotest
Caption = "考試"
End
Begin VB.Menu mnuqueryscore
Caption = "成績查詢"
End
End
End
Attribute VB_Name = "mdisystemmain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Private Sub MDIForm_Load()
'根據用戶身份禁用其無權使用的系統功能菜單
'If currentuserstatus = "閱卷教師" Then
'mnuadmin.Enabled = False
'mnujudge.Enabled = False
'mnuselect.Enabled = False
'mnufill.Enabled = False
'mnusettest.Enabled = False
'mnuoldtest.Enabled = False
'mnuthistest.Enabled = False
'mnustudent.Enabled = False
'mnuteacher.Enabled = False
'ElseIf currentuserstatus = "學生" Then
'mnuadmin.Enabled = False
'mnustudent.Enabled = False
'mnuteacher.Enabled = False
'mnutest.Enabled = False
'End If
'End Sub
Private Sub MDIForm_Load()
'根據用戶身份禁止其無權使用的系統功能菜單
If currentuserstatus = "系統管理員" Then
mnustudent.Enabled = False
mnuteacher1.Enabled = False
ElseIf currentuserstatus = "閱卷教師" Then
mnustudent.Enabled = False
mnuguanli.Enabled = False
ElseIf currentuserstatus = "學生" Then
mnuteacher1.Enabled = False
mnuguanli.Enabled = False
End If
End Sub
Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If MsgBox("您選擇了關閉自測考試系統,是否繼續?", vbYesNo + vbInformation, Me.Caption) = vbYes Then
If Not Me.ActiveForm Is Nothing Then
MsgBox "請先關閉打開的子窗體!", 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 mnuanswer_Click()
answer.Show: answer.SetFocus
End Sub
Private Sub mnuchecktest_Click()
toscoring.Show: toscoring.SetFocus
End Sub
Private Sub mnudotest_Click()
dotest.Show: dotest.SetFocus
End Sub
Private Sub mnuexit_Click()
Unload Me
End Sub
Private Sub mnufill_Click()
fill.Show: fill.SetFocus
End Sub
Private Sub mnujudge_Click()
judgement.Show: judgement.SetFocus
End Sub
Private Sub mnumanyselect_Click()
manyselect.Show: manyselect.SetFocus
End Sub
Private Sub mnuoldtest_Click()
oldtests.Show: oldtests.SetFocus
End Sub
Private Sub mnuqscore_Click()
queryscore.Show: queryscore.SetFocus
End Sub
Private Sub mnuqueryscore_Click()
queryscore.Show: queryscore.SetFocus
End Sub
Private Sub mnusettest_Click()
selecttest.Show: selecttest.SetFocus
End Sub
Private Sub mnusingleselect_Click()
singleselect.Show: singleselect.SetFocus
End Sub
Private Sub mnustudentnews_Click()
student.Show: student.SetFocus
End Sub
Private Sub mnuteacher_Click()
frmTeacher.Show: frmTeacher.SetFocus
End Sub
Private Sub mnuthistest_Click()
selectdotest.Show: selectdotest.SetFocus
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -