frmfacx.frm

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

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form frmFACX 
   ClientHeight    =   5928
   ClientLeft      =   48
   ClientTop       =   48
   ClientWidth     =   8460
   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"
   LockControls    =   -1  'True
   ScaleHeight     =   5928
   ScaleWidth      =   8460
   StartUpPosition =   3  '窗口缺省
   Begin VB.Frame Frame1 
      Caption         =   "生成方案查询"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   5796
      Left            =   72
      TabIndex        =   0
      Top             =   96
      Width           =   8292
      Begin VB.CommandButton Command4 
         Caption         =   "确定"
         Height          =   396
         Left            =   5532
         TabIndex        =   6
         Top             =   5148
         Width           =   1128
      End
      Begin VB.ComboBox Combo1 
         Height          =   312
         ItemData        =   "frmFACX.frx":0000
         Left            =   348
         List            =   "frmFACX.frx":000A
         Style           =   2  'Dropdown List
         TabIndex        =   5
         Top             =   828
         Width           =   2580
      End
      Begin VB.TextBox Text1 
         Height          =   348
         Left            =   2964
         TabIndex        =   4
         Top             =   828
         Width           =   3108
      End
      Begin VB.CommandButton Command1 
         Caption         =   "列出全部"
         Height          =   396
         Left            =   324
         TabIndex        =   3
         Top             =   1212
         Width           =   1128
      End
      Begin VB.CommandButton Command2 
         Caption         =   "查询..."
         Height          =   384
         Left            =   6276
         TabIndex        =   2
         Top             =   816
         Width           =   1128
      End
      Begin VB.CommandButton Command3 
         Caption         =   "关闭"
         Height          =   396
         Left            =   6744
         TabIndex        =   1
         Top             =   5148
         Width           =   1128
      End
      Begin MSFlexGridLib.MSFlexGrid MFGrid1 
         Height          =   3384
         Left            =   276
         TabIndex        =   7
         Top             =   1656
         Width           =   7764
         _ExtentX        =   13695
         _ExtentY        =   5969
         _Version        =   393216
         FocusRect       =   0
         HighLight       =   2
         SelectionMode   =   1
         AllowUserResizing=   1
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "宋体"
            Size            =   10.8
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         Caption         =   "查询值:"
         Height          =   216
         Left            =   2988
         TabIndex        =   9
         Top             =   468
         Width           =   756
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "查询条件:"
         Height          =   216
         Left            =   360
         TabIndex        =   8
         Top             =   480
         Width           =   972
      End
   End
End
Attribute VB_Name = "frmFACX"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public m_Type As String
Private m_sql As String
Private m_page_count As Integer
Dim Rs As New ADODB.Recordset
Private m_ID As String

Private Sub Combo1_Click()
    Text1.Text = ""
End Sub

Private Sub Command1_Click()
    Call GetData("select * from scfa")
End Sub

Private Sub Command2_Click()
    On Error Resume Next
    Dim sfield As String
    Dim svalue As String
    Dim sql As String
    Dim svalue2 As String
    
    svalue = Trim(Text1.Text)
    If svalue = "" Then
        MsgMsg "查询值为空!"
        Text1.SetFocus
        Exit Sub
    End If
    svalue2 = svalue
    svalue = "" & svalue & ""
    Select Case Combo1.ListIndex
    Case 0
        sfield = "sjmc like '%" & svalue & "%'"
    Case 1
        sfield = "sjnd like '%" & svalue & "%'"
    End Select
    sql = "select * from scfa where " & sfield
    Call GetData(sql)
End Sub

Private Sub Command3_Click()
    Unload Me
End Sub

Private Sub Command4_Click()
    Call MFGrid1_DblClick
End Sub

Private Sub Command5_Click()
    m_page_count = m_page_count + 1
    ShowData
End Sub

Private Sub Command6_Click()
    m_page_count = m_page_count - 1
    ShowData
End Sub

Private Sub Form_Load()
    MFGrid1.Rows = 1
    MFGrid1.FormatString = "序号 |试卷名称                　 |考试类型   |试卷难度|"
    Combo1.ListIndex = 0
End Sub

Private Sub Form_Resize()
    SetWindowPos Me
End Sub
Private Sub GetData(ByVal sSQL As String)
    m_sql = sSQL
    If Rs.State <> adStateClosed Then
        Rs.Close
    End If
    Rs.Open sSQL, dbcon, adOpenKeyset, adLockOptimistic, adCmdText
    If Rs.EOF And Rs.BOF Then
        
        MFGrid1.Rows = 1
        MsgMsg "没有符合条件的记录!"
        Exit Sub
    End If
    
'    rs.PageSize = 12
'    m_page_count = 1
    ShowData
End Sub
Public Sub ShowData()
    On Error Resume Next
    Dim col As Long
    Dim row As Long
    
    col = 0
    row = 0
    Dim icount As Long
    With MFGrid1
        .Clear
        .Rows = 1
        .Cols = 6
        .FormatString = "序号 |试卷名称              　 |考试类型   |试卷难度||"
        For icount = 1 To Rs.RecordCount
            row = row + 1
            .Rows = row + 1
            .TextMatrix(row, 0) = row
            .TextMatrix(row, 1) = Rs("sjmc")
            .TextMatrix(row, 2) = Rs("kslx")
            .TextMatrix(row, 3) = Rs("sjnd")
            .TextMatrix(row, 4) = Rs("id")
            Rs.MoveNext
        Next
        
    End With
    

End Sub

Private Sub MFGrid1_DblClick()
    If MFGrid1.row <= 0 Then
        Exit Sub
    End If
    ShowForm frmSTSC, SEDIT, MFGrid1.TextMatrix(MFGrid1.row, 4)
End Sub
Public Sub RefData()
    GetData m_sql
End Sub