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