frmdaview.frm

一个题库系统 可以按照试题的难度

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form frmDaView 
   ClientHeight    =   7092
   ClientLeft      =   48
   ClientTop       =   48
   ClientWidth     =   10080
   ControlBox      =   0   'False
   BeginProperty Font 
      Name            =   "宋体"
      Size            =   10.8
      Charset         =   134
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   ScaleHeight     =   7092
   ScaleWidth      =   10080
   StartUpPosition =   3  '窗口缺省
   Begin MSComctlLib.ImageList ImList1 
      Left            =   3528
      Top             =   12
      _ExtentX        =   804
      _ExtentY        =   804
      BackColor       =   -2147483643
      ImageWidth      =   20
      ImageHeight     =   20
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   1
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmDaView.frx":0000
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin VB.Frame Frame1 
      Height          =   6960
      Left            =   60
      TabIndex        =   0
      Top             =   96
      Width           =   9924
      Begin MSComctlLib.ListView List1 
         Height          =   6648
         Left            =   132
         TabIndex        =   1
         Top             =   216
         Width           =   9696
         _ExtentX        =   17103
         _ExtentY        =   11726
         LabelEdit       =   1
         LabelWrap       =   -1  'True
         HideSelection   =   0   'False
         FullRowSelect   =   -1  'True
         GridLines       =   -1  'True
         _Version        =   393217
         ForeColor       =   -2147483640
         BackColor       =   -2147483643
         BorderStyle     =   1
         Appearance      =   1
         NumItems        =   0
      End
   End
End
Attribute VB_Name = "frmDaView"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private m_sSQL As String

Private Sub Form_Load()
    List1.SmallIcons = ImList1
    List1.View = lvwReport
    
    List1.ColumnHeaders.Add , , "分值", 3 * TextWidth("国")
    List1.ColumnHeaders.Add , , "难度", 4 * TextWidth("国")
    List1.ColumnHeaders.Add , , "题型", 8 * TextWidth("国")
    List1.ColumnHeaders.Add , , "题目内容", 30 * TextWidth("国")
    List1.ColumnHeaders.Add , , "答案", 10 * TextWidth("国")
    List1.ColumnHeaders.Add , , "", 0
End Sub

Private Sub Form_Resize()
    SetWindowPos Me
End Sub
Public Sub ShowData(ByVal LX As String, ByVal TX As String)
'    On Error Resume Next
    Dim sSQL As String
    sSQL = "select * from STK where TX='" & TX & "' and LX='" & LX & "'"
    ShowData2 sSQL
End Sub
Private Sub ShowData2(ByVal sSQL As String)

    Dim Rs As New ADODB.Recordset
    Dim tmp_item As ListItem
    
    Rs.Open sSQL, dbcon, adOpenKeyset, adLockOptimistic, adCmdText
    m_sSQL = sSQL

    
    List1.ColumnHeaders.Add , , "", 2
    
    Do While Not Rs.EOF
        Set tmp_item = List1.ListItems.Add(, , Rs("fz"), , 1)
        tmp_item.SubItems(1) = Rs("nd")
        tmp_item.SubItems(2) = Rs("tx")
        tmp_item.SubItems(3) = Rs("nz")
        tmp_item.SubItems(4) = Rs("da")
        tmp_item.SubItems(5) = Rs("id")
        Rs.MoveNext
    Loop
    Rs.Close
End Sub
Public Sub ClearList()
    List1.ListItems.Clear
End Sub

Private Sub List1_DblClick()
    Dim tmp_item As ListItem
    Dim id As String
    If List1.ListItems.Count = 0 Then Exit Sub
    Set tmp_item = List1.SelectedItem
    id = tmp_item.SubItems(5)
    
    ShowForm frmDA, SEDIT, id
    
End Sub
Private Sub RefeshData()
    If m_sSQL <> "" Then
        List1.ListItems.Clear
        ShowData2 m_sSQL
    End If
End Sub