frmselpaper.frm

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

VERSION 5.00
Begin VB.Form frmSelPaper 
   BackColor       =   &H0080FFFF&
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   1950
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   4740
   LinkTopic       =   "Form1"
   ScaleHeight     =   1950
   ScaleWidth      =   4740
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton CmdCancel 
      Caption         =   "取消"
      Height          =   375
      Left            =   2640
      TabIndex        =   4
      Top             =   1320
      Width           =   1815
   End
   Begin VB.CommandButton CmdOk 
      Caption         =   "确定"
      Height          =   375
      Left            =   360
      TabIndex        =   3
      Top             =   1320
      Width           =   1815
   End
   Begin VB.Frame Frame1 
      Caption         =   "试卷选择"
      Height          =   735
      Left            =   240
      TabIndex        =   0
      Top             =   240
      Width           =   4215
      Begin VB.ComboBox PTypes 
         Height          =   300
         ItemData        =   "frmSelPaper.frx":0000
         Left            =   2640
         List            =   "frmSelPaper.frx":0013
         TabIndex        =   2
         Text            =   "Combo1"
         Top             =   240
         Width           =   1455
      End
      Begin VB.Label Label1 
         Caption         =   "请选择试卷"
         Height          =   300
         Left            =   120
         TabIndex        =   1
         Top             =   240
         Width           =   2220
      End
   End
End
Attribute VB_Name = "frmSelPaper"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub CmdCancel_Click()
Unload Me
End Sub

Private Sub CmdOK_Click()
If PTypes.ListIndex = 0 Then
MsgBox "请选择试卷号", vbCritical, "登录失败"
Else
Paper = PTypes.ListIndex
If DoType = BeginTest Then
      frmAnswer.Show vbModal
ElseIf DoType = ModifyPaper Then
      frmModifyPaper.Show vbModal
ElseIf DoType = CheckPaper Then
      frmCheck.Show vbModal
Else
      QPaper.ReportToFile "varFile.tmp"
      frmReport.FileName = "varFile.tmp"
      frmReport.Show vbModal
      Kill "varFile.tmp"
End If
Unload Me
End If
End Sub

Private Sub Form_Load()
PTypes.ListIndex = 0
End Sub