mdifrmmain.frm

这是一个可以用于毕业设计的计算机等级考试模拟系统。管理员能够从题库中抽题来完成命题等工作。非常实用。

VERSION 5.00
Begin VB.MDIForm MDIfrmMain 
   BackColor       =   &H00808080&
   Caption         =   "考试系统"
   ClientHeight    =   5325
   ClientLeft      =   165
   ClientTop       =   435
   ClientWidth     =   8280
   LinkTopic       =   "MDIForm1"
   Picture         =   "MDIfrmMain.frx":0000
   StartUpPosition =   2  '屏幕中心
   WindowState     =   2  'Maximized
   Begin VB.Menu mTest 
      Caption         =   "人员"
      Begin VB.Menu AdminLogin 
         Caption         =   "管理员登录"
      End
      Begin VB.Menu StuLogin 
         Caption         =   "学生登录"
      End
      Begin VB.Menu mtLogout 
         Caption         =   "注销登录"
         Enabled         =   0   'False
      End
      Begin VB.Menu mtBar 
         Caption         =   "-"
      End
      Begin VB.Menu mtExit 
         Caption         =   "退出系统"
      End
   End
   Begin VB.Menu mStudent 
      Caption         =   "学生"
      Visible         =   0   'False
      Begin VB.Menu msBeginTest 
         Caption         =   "开始考试"
      End
      Begin VB.Menu msQuery 
         Caption         =   "成绩查询"
      End
      Begin VB.Menu msCheck 
         Caption         =   "答案核对"
      End
   End
   Begin VB.Menu MAdmin 
      Caption         =   "管理员"
      Visible         =   0   'False
      Begin VB.Menu mcLookThrough 
         Caption         =   "浏览试卷"
      End
      Begin VB.Menu mcModify 
         Caption         =   "试卷管理"
      End
      Begin VB.Menu mcRefresh 
         Caption         =   "题库管理"
      End
      Begin VB.Menu MAMng 
         Caption         =   "信息管理"
      End
   End
   Begin VB.Menu mHelp 
      Caption         =   "帮助"
      Begin VB.Menu mhReadme 
         Caption         =   "使用手册"
      End
      Begin VB.Menu mhAbout 
         Caption         =   "关于"
      End
   End
End
Attribute VB_Name = "MDIfrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub AdminLogin_Click()
    frmAdminLogin.Show 1
    If Not TestUser.LogFail Then
        Me.Caption = "考试系统"
        Me.AdminLogin.Enabled = False
        Me.StuLogin.Enabled = False
        Me.mtLogout.Enabled = True
        Me.MAdmin.Visible = True
    End If
End Sub

Private Sub MAMng_Click()
    frmAdmin.Show vbModal
End Sub

Private Sub mcCheck_Click()
    If QPaper.Answered Then
        frmCheck.Show vbModal
    Else
        MsgBox "考试尚未进行", vbCritical, "操作失败"
    End If
End Sub
Private Sub msCheck_Click()
    DoType = CheckPaper
    frmSelPaper.Show vbModal
   End Sub

Private Sub mcLookThrough_Click()
      frmSelPaper.Show
      DoType = LookThroughPaper
End Sub

Private Sub mcModify_Click()

    frmSelPaper.Show
    DoType = ModifyPaper
    
End Sub



Private Sub mcQuery_Click()
    If Not QPaper.Answered Then
        MsgBox "试卷还未提交", vbCritical, "操作失败"
    Else
    frmResult.Show vbModal
    End If
End Sub

Private Sub mcRefresh_Click()
    frmTestLib.Show vbModal
End Sub

Private Sub mhAbout_Click()
    frmSplash.Left = Me.Width / 2 - frmSplash.Width / 2
    frmSplash.Top = Me.Height / 2 - frmSplash.Height / 2
    frmSplash.Show vbModal
End Sub

Private Sub mhReadme_Click()
'    frmReport.CmdPrint.Visible = False
'    frmReport.FileName = "Readme.txt"
'   frmReport.Show vbModal
    Dim r As Long
    r = StartDoc(App.Path & "\help.chm")
End Sub

Private Sub msBeginTest_Click()

    frmSelPaper.Show
    DoType = BeginTest
End Sub

Private Sub msQuery_Click()
    If Not QPaper.Answered Then
        MsgBox "试卷还未评阅", vbCritical, "操作失败"
    Else
        frmResult.Show vbModal
        Me.msCheck.Enabled = True
    End If
End Sub

Private Sub mtExit_Click()
    Dim dbrs As ADODB.Recordset
    Set dbrs = DataEnv.rsQstPaper
    dbrs.Open
    dbrs.Fields("UserAnswer") = ""
    dbrs.Update
    End
End Sub


Private Sub mtLogout_Click()
    Me.AdminLogin.Enabled = True
    Me.StuLogin.Enabled = True
    Me.mtLogout.Enabled = False
    Me.mStudent.Visible = False
    Me.MAdmin.Visible = False
    'Dim data As ADODB.Recordset
    'Set data = DataEnv.rsQstPaper
    'data.Open
    'data.Filter = "PaperID=" & Paper
    'While Not data.BOF And Not data.EOF
    'data.Fields("Commence") = ""
    'data.MoveNext
    'Wend
    TestUser.LogFail = True
End Sub

Private Sub StuLogin_Click()
    FrmStuLogin.Show 1
    If Not TestUser.LogFail Then
        Me.Caption = "考试系统"
        Me.StuLogin.Enabled = False
        Me.AdminLogin.Enabled = False
        Me.msCheck.Enabled = False
        Me.mtLogout.Enabled = True
        Me.mStudent.Visible = True
    End If
End Sub