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
     '=========建立單項(xiàng)選擇根接點(diǎn)
  Set MyNod = TrVTM.Nodes.Add(, , "node_dan", "單項(xiàng)選擇題", 1)
  Do While Not adoRS.EOF
    '建立單項(xiàng)題節(jié)點(diǎn)
    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
   '建立多項(xiàng)選擇根接點(diǎn)
  Set MyNod = TrVTM.Nodes.Add(, , "node_duo", "多項(xiàng)選擇題", 1)
  Do While Not adoRS.EOF
    '建立多項(xiàng)題節(jié)點(diǎn)
    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()
'判斷是否發(fā)試卷
'判斷是否已經(jīng)生成本地?cái)?shù)據(jù)庫
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("試卷標(biāo)題").Value
   LabScore.Caption = "總分:" & adoRS.Fields("試卷總分").Value & "分"
End If
 '創(chuàng)建選擇題的樹
 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
'產(chǎn)生填空框
CreateDA
'初始化
NewWho = 1
End Sub