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