【VB开源代码栏目提醒】：以下是网学会员为您推荐的VB开源代码-frm_ZZRK_CLGL_CXXG.frm，希望本篇文章对您学习有所帮助。

    VERSION 5.00
    Begin VB.Form frm_ZZRK_CLGL_CXXG 
       BorderStyle     =   3  'Fixed Dialog
       ClientHeight    =   1755
       ClientLeft      =   45
       ClientTop       =   330
       ClientWidth     =   5610
       LinkTopic       =   "Form1"
       MaxButton       =   0   'False
       MinButton       =   0   'False
       ScaleHeight     =   1755
       ScaleWidth      =   5610
       ShowInTaskbar   =   0   'False
       StartUpPosition =   3  '窗口缺省
       Begin VB.Frame Frame1 
          Height          =   1215
          Left            =   120
          TabIndex        =   2
          Top             =   0
          Width           =   5415
          Begin VB.ComboBox Combo1 
             Height          =   300
             ItemData        =   "frm_ZZRK_CLGL_CXXG.frx":0000
             Left            =   120
             List            =   "frm_ZZRK_CLGL_CXXG.frx":001F
             Style           =   2  'Dropdown List
             TabIndex        =   5
             Top             =   720
             Width           =   1575
          End
          Begin VB.ComboBox Combo2 
             Height          =   300
             ItemData        =   "frm_ZZRK_CLGL_CXXG.frx":007B
             Left            =   1800
             List            =   "frm_ZZRK_CLGL_CXXG.frx":0091
             Style           =   2  'Dropdown List
             TabIndex        =   4
             Top             =   720
             Width           =   975
          End
          Begin VB.TextBox Text1 
             Height          =   300
             Left            =   2880
             TabIndex        =   3
             Top             =   720
             Width           =   2295
          End
          Begin VB.Label Label1 
             Caption         =   "查询名称"
             BeginProperty Font 
                Name            =   "宋体"
                Size            =   10.5
                Charset         =   134
                Weight          =   400
                Underline       =   0   'False
                Italic          =   0   'False
                Strikethrough   =   0   'False
             EndProperty
             ForeColor       =   &H00C000C0&
             Height          =   375
             Left            =   520
             TabIndex        =   8
             Top             =   360
             Width           =   855
          End
          Begin VB.Label Label2 
             Caption         =   "关系"
             BeginProperty Font 
                Name            =   "宋体"
                Size            =   10.5
                Charset         =   134
                Weight          =   400
                Underline       =   0   'False
                Italic          =   0   'False
                Strikethrough   =   0   'False
             EndProperty
             ForeColor       =   &H00C000C0&
             Height          =   255
             Left            =   2085
             TabIndex        =   7
             Top             =   360
             Width           =   615
          End
          Begin VB.Label Label3 
             Caption         =   "查询内容"
             BeginProperty Font 
                Name            =   "宋体"
                Size            =   10.5
                Charset         =   134
                Weight          =   400
                Underline       =   0   'False
                Italic          =   0   'False
                Strikethrough   =   0   'False
             EndProperty
             ForeColor       =   &H00C000C0&
             Height          =   255
             Left            =   3600
             TabIndex        =   6
             Top             =   360
             Width           =   975
          End
       End
       Begin VB.CommandButton Command1 
          Caption         =   "确定"
          Height          =   375
          Left            =   3360
          TabIndex        =   1
          Top             =   1320
          Width           =   975
       End
       Begin VB.CommandButton Command2 
          Caption         =   "取消"
          Height          =   375
          Left            =   4440
          TabIndex        =   0
          Top             =   1320
          Width           =   975
       End
    End
    Attribute VB_Name = "frm_ZZRK_CLGL_CXXG"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    Dim i, a
    Private Sub Combo2_Click()
    If Combo2.Text = " =" Then
    i = 0
    ElseIf Combo2.Text = " <" Then
    i = 1
    ElseIf Combo2.Text = " <=" Then
    i = 2
    ElseIf Combo2.Text = " >" Then
    i = 3
    ElseIf Combo2.Text = " >=" Then
    i = 4
    ElseIf Combo2.Text = " Like" Then
    i = 5
    Else
    End If
    Text1.SetFocus
    End Sub
    
    Private Sub Command1_Click()
    If Combo1.Text = "" Or Combo2.Text = "" Or Text1.Text = "" Then
    MsgBox "输入或选择信息不能为空", 32, "人口信息管理系统"
    Else
    If Me.Caption = "车辆信息修改" Then
        a = Text1.Text
        If i = 0 Then
        frm_ZZRK_CLXXXG.Adodc1.RecordSource = "select * from Table_ZZRK_CLXX where " + Combo1.Text + "='" + a + "'"
        frm_ZZRK_CLXXXG.Adodc1.Refresh
        ElseIf i = 1 Then
        frm_ZZRK_CLXXXG.Adodc1.RecordSource = "select * from Table_ZZRK_CLXX where " + Combo1.Text + "<'" + a + "'"
        frm_ZZRK_CLXXXG.Adodc1.Refresh
        ElseIf i = 2 Then
        frm_ZZRK_CLXXXG.Adodc1.RecordSource = "select * from Table_ZZRK_CLXX where " + Combo1.Text + "<='" + a + "'"
        frm_ZZRK_CLXXXG.Adodc1.Refresh
        ElseIf i = 3 Then
        frm_ZZRK_CLXXXG.Adodc1.RecordSource = "select * from Table_ZZRK_CLXX where " + Combo1.Text + ">'" + a + "'"
        frm_ZZRK_CLXXXG.Adodc1.Refresh
        ElseIf i = 4 Then
        frm_ZZRK_CLXXXG.Adodc1.RecordSource = "select * from Table_ZZRK_CLXX where " + Combo1.Text + ">='" + a + "'"
        frm_ZZRK_CLXXXG.Adodc1.Refresh
        ElseIf i = 5 Then
        frm_ZZRK_CLXXXG.Adodc1.RecordSource = "select * from Table_ZZRK_CLXX where " + Combo1.Text + " like '%" + a + "%'"
        frm_ZZRK_CLXXXG.Adodc1.Refresh
        Else
        End If
        Unload Me
        frm_ZZRK_CLXXXG.Show
    ElseIf Me.Caption = "车辆信息查询" Then
        a = Text1.Text
        If i = 0 Then
        frm_ZZRK_CZFCLGL.Adodc1.RecordSource = "select * from Table_ZZRK_CLXX where " + Combo1.Text + "='" + a + "'"
        frm_ZZRK_CZFCLGL.Adodc1.Refresh
        ElseIf i = 1 Then
        frm_ZZRK_CZFCLGL.Adodc1.RecordSource = "select * from Table_ZZRK_CLXX where " + Combo1.Text + "<'" + a + "'"
        frm_ZZRK_CZFCLGL.Adodc1.Refresh
        ElseIf i = 2 Then
        frm_ZZRK_CZFCLGL.Adodc1.RecordSource = "select * from Table_ZZRK_CLXX where " + Combo1.Text + "<='" + a + "'"
        frm_ZZRK_CZFCLGL.Adodc1.Refresh
        ElseIf i = 3 Then
        frm_ZZRK_CZFCLGL.Adodc1.RecordSource = "select * from Table_ZZRK_CLXX where " + Combo1.Text + ">'" + a + "'"
        frm_ZZRK_CZFCLGL.Adodc1.Refresh
        ElseIf i = 4 Then
        frm_ZZRK_CZFCLGL.Adodc1.RecordSource = "select * from Table_ZZRK_CLXX where " + Combo1.Text + ">='" + a + "'"
        frm_ZZRK_CZFCLGL.Adodc1.Refresh
        ElseIf i = 5 Then
        frm_ZZRK_CZFCLGL.Adodc1.RecordSource = "select * from Table_ZZRK_CLXX where " + Combo1.Text + " like '%" + a + "%'"
        frm_ZZRK_CZFCLGL.Adodc1.Refresh
        Else
        End If
        Unload Me
    End If
    End If
    End Sub
    
    Private Sub Command2_Click()
    Unload Me
    End Sub
    
    Pr