mdifrmmain.frm

200605编号201923文件名计算机自动出卷系统vb版(含开题报告+外文翻译+源程序+可执行程序+论文正文+答辩ppt).rar

VERSION 5.00
Begin VB.MDIForm MDIfrmMain 
   BackColor       =   &H8000000C&
   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 mtLogin 
         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 mTeacher 
      Caption         =   "操作"
      Visible         =   0   'False
      Begin VB.Menu mcPaper 
         Caption         =   "生成试卷"
      End
      Begin VB.Menu mcLookThrough 
         Caption         =   "浏览试卷"
      End
      Begin VB.Menu lookalthough2 
         Caption         =   "浏览答案"
      End
      Begin VB.Menu mcModify 
         Caption         =   "修改考卷"
      End
      Begin VB.Menu mcBar1 
         Caption         =   "-"
      End
      Begin VB.Menu mcRefresh 
         Caption         =   "试题管理"
      End
      Begin VB.Menu mcBar2 
         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 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 lookalthough2_Click()
If QPaper.Created Then
      QPaper.ReportToFile2 "varFile.tmp"
      frmReport.FileName = "varFile.tmp"
      frmReport.Show vbModal
      
    Else
      MsgBox "答案还未创建", vbCritical, "错误"
    End If
End Sub

Private Sub mcLookThrough_Click()
    If QPaper.Created Then
      QPaper.ReportToFile "varFile.tmp"
      frmReport.FileName = "varFile.tmp"
      frmReport.Show vbModal
      
    Else
      MsgBox "试卷还未创建", vbCritical, "错误"
    End If
End Sub

Private Sub mcModify_Click()
    If Not QPaper.Created Then
        MsgBox "试卷还没有创建", vbCritical, "错误"
        Exit Sub
    End If
    frmModifyPaper.Show vbModal
End Sub

Private Sub mcPaper_Click()
    If QPaper.Created Then
        MsgBox "试卷已经创建,请选择修改试卷", vbExclamation, "警告"
        Exit Sub
    End If
    frmCreatePaper.Left = Me.Width / 2 - frmCreatePaper.Width / 2
    frmCreatePaper.Top = Me.Height / 2 - frmCreatePaper.Height / 2
    frmCreatePaper.Show
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
End Sub
Private Sub mtExit_Click()
    End
End Sub
Private Sub mtLogin_Click()
    frmLogin.Show 1
    If Not TestUser.LogFail Then
        Me.Caption = "计算机自动出卷系统"
        Me.mtLogin.Enabled = False
        Me.mtLogout.Enabled = True
       
        If TestUser.UserType = teacher Then
        Me.mTeacher.Visible = True
        
        End If
    End If
End Sub



Private Sub mtLogout_Click()
    Me.mtLogin.Enabled = True
    Me.mtLogout.Enabled = False
    
    Me.mTeacher.Visible = False
    TestUser.LogFail = True
End Sub