frmkaoshitemp.frm

自己用vb开发的局域网考试系统

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form Frmkaoshitemp 
   Caption         =   "Form1"
   ClientHeight    =   6360
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   7770
   LinkTopic       =   "Form1"
   ScaleHeight     =   6360
   ScaleWidth      =   7770
   StartUpPosition =   3  '窗口缺省
   Begin MSComctlLib.TreeView TrVTM 
      Height          =   5790
      Left            =   120
      TabIndex        =   0
      Top             =   240
      Width           =   2070
      _ExtentX        =   3651
      _ExtentY        =   10213
      _Version        =   393217
      Indentation     =   265
      LabelEdit       =   1
      LineStyle       =   1
      Style           =   7
      ImageList       =   "ImageList1"
      BorderStyle     =   1
      Appearance      =   0
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
End
Attribute VB_Name = "Frmkaoshitemp"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'生成题目树
Sub CreateTree()
  
  Dim adoRS As Recordset
  Dim i As Integer
  Dim MyNod As Node
  Dim NewNod As Node
 '显示试卷题目信息
 '打开记录集
  Set adoRS = New Recordset
  adoRS.CursorLocation = adUseClient

  adoRS.Open "select ID from 试卷选择题 where 类别='单'", LocalConn, adOpenStatic, adLockOptimistic
   
  '=========
  '判断是否有单选  '===================
  If adoRS.RecordCount <> 0 Then
     '=========建立单项选择根接点
  Set MyNod = TrVTM.Nodes.Add(, , "node_dan", "单项选择题", 1)
  Do While Not adoRS.EOF
    '建立单项题节点
    Set NewNod = TrVTM.Nodes.Add("node_dan", tvwChild, "node_dan|" + Trim(str(adoRS.Fields("ID").Value)), "第" + Trim(str(adoRS.AbsolutePosition)) + "题", 2)
    adoRS.MoveNext
  Loop
  End If
  adoRS.Close
 
   '=========建立多选
  adoRS.Open "select ID from 试卷选择题 where 类别='多'", LocalConn, adOpenStatic, adLockOptimistic
  If adoRS.RecordCount <> 0 Then
   '建立多项选择根接点
  Set MyNod = TrVTM.Nodes.Add(, , "node_duo", "多项选择题", 1)
  Do While Not adoRS.EOF
    '建立多项题节点
    Set NewNod = TrVTM.Nodes.Add("node_duo", tvwChild, "node_duo|" + Trim(str(adoRS.Fields("ID").Value)), "第" + Trim(str(adoRS.AbsolutePosition)) + "题", 2)
    adoRS.MoveNext
  Loop
  Set adoRS = Nothing
  End If
End Sub


Private Sub Form_Load()
'判断是否发试卷
'判断是否已经生成本地数据库
Dim adoRS As Recordset
Set adoRS = New Recordset
adoRS.CursorLocation = adUseClient

adoRS.Open "试卷信息", LocalConn, adOpenStatic, adLockOptimistic
If adoRS.EOF Then
   CreateTest '生成试卷
  Else
   LabTitle.Caption = adoRS.Fields("试卷标题").Value
   LabScore.Caption = "总分:" & adoRS.Fields("试卷总分").Value & "分"
End If
 '创建选择题的树
 CreateTree
 
'显示填空题显示
adoRS.Close
adoRS.Open "select ID from 试卷填空题", LocalConn, adOpenStatic, adLockOptimistic
LstTK.Clear
If Not adoRS.EOF Then
  adoRS.MoveLast
  adoRS.MoveFirst
  '重定义
  ReDim TKIDArr(adoRS.RecordCount + 1) As Long
  Do While Not adoRS.EOF
     LstTK.AddItem "第" & adoRS.AbsolutePosition & "题"
     TKIDArr(adoRS.AbsolutePosition) = adoRS.Fields("ID").Value
     adoRS.MoveNext
  Loop
End If

'显示判断题显示
adoRS.Close
adoRS.Open "select ID from 试卷判断题", LocalConn, adOpenStatic, adLockOptimistic
LstPD.Clear
If Not adoRS.EOF Then
  adoRS.MoveLast
  adoRS.MoveFirst
  '重定义
  ReDim PDIDArr(adoRS.RecordCount + 1) As Long
  Do While Not adoRS.EOF
     LstPD.AddItem "第" & adoRS.AbsolutePosition & "题"
     PDIDArr(adoRS.AbsolutePosition) = adoRS.Fields("ID").Value
     adoRS.MoveNext
  Loop
End If

'显示问答题显示
adoRS.Close
adoRS.Open "select ID from 试卷问答题", LocalConn, adOpenStatic, adLockOptimistic
LstWD.Clear
If Not adoRS.EOF Then
  adoRS.MoveLast
  adoRS.MoveFirst
  '重定义
  ReDim WDIDArr(adoRS.RecordCount + 1) As Long
  Do While Not adoRS.EOF
     LstWD.AddItem "第" & adoRS.AbsolutePosition & "题"
     WDIDArr(adoRS.AbsolutePosition) = adoRS.Fields("ID").Value
     adoRS.MoveNext
  Loop
End If

'显示作文题显示
adoRS.Close
adoRS.Open "select ID from 试卷作文题", LocalConn, adOpenStatic, adLockOptimistic
LstZW.Clear
If Not adoRS.EOF Then
  adoRS.MoveLast
  adoRS.MoveFirst
  '重定义
  ReDim ZWIDArr(adoRS.RecordCount + 1) As Long
  Do While Not adoRS.EOF
     LstZW.AddItem "第" & adoRS.AbsolutePosition & "题"
     ZWIDArr(adoRS.AbsolutePosition) = adoRS.Fields("ID").Value
     adoRS.MoveNext
  Loop
End If
'显示背景图片
PicXZ.Picture = Me.Picture
PicTK.Picture = Me.Picture
PicPD.Picture = Me.Picture
PicWD.Picture = Me.Picture
PicZW.Picture = Me.Picture
'产生填空框
CreateDA
'初始化
NewWho = 1
End Sub