车辆管理系统+vb_论文天下网

dOk.Enabled = False
End Sub

Private Sub cmdExit_Click()
MDIForm1.StatusBar1.Panels(1).Text = ""
Unload Me
End Sub

Private Sub cmdCha_Click()
'点击查询按纽后首先清空车辆档案列表
Call QingKong
cmdCha.Visible = False
cmdAll.Visible = True
Frame1.Enabled = True
cmdOk.Enabled = True
End Sub

Private Sub cmdOk_Click()
    Dim sql As String
    Dim scp As String
    If ckcp.Value Then
       scp = "车牌号码 like '" & Combo1.Text & "%'"
    Else
       scp = "车牌号码 like '%'"
    End If
    Dim slx As String
    If cklx.Value Then
        slx = "车辆类型 like'%" & Combo2.Text & "%'"
        Else
        slx = "车辆类型 like '%'"
    End If

    Dim sdw As String
    If ckdw.Value Then
        sdw = "车辆所在单位 like'%" & Combo3.Text & "%'"
        Else
        sdw = "车辆所在单位 like '%'"
    End If

    Dim sbx As String
    If ckbx.Value Then
        sbx = "保险否='" & Combo4.Text & "'"
        Else
        sbx = "保险否 like '%'"
    End If

    Dim syd As String
    If ckyd.Value Then
       syd = "异动否='" & Combo5.Text & "'"
       Else
        syd = "异动否 like '%'"
    End If

    Dim sbf As String
    If ckbf.Value Then
        sbf = " 报废否='" & Combo6.Text & "'"
        Else
        sbf = "报废否 like '%'"
    End If

    sql = "select * from 车辆档案 where " & scp & "and " & slx & "and " & sdw & "and " & sbx & "and " & syd & "and " & sbf
    'MsgBox sql

    If sql = "select * from 车辆档案 where 车牌号码 like '%'and 车辆类型 like '%'and 车辆所在单位 like '%'and 保险否 like '%'and 异动否 like '%'and 报废否 like '%'" Then
        MsgBox "请选择查询条件", , "系统提示"

        '清空上一次的查询记录
        Call QingKong
        Exit Sub
    End If
    Set adors = adoCon.Execute(sql)
    If adors.EOF Then
       '清空上一次的查询记录
        Call QingKong
       '给出文本框提示
&nbs

首页上一页 1 2 3 4 5 6 下一页尾页 4/6/6

车辆管理系统+vb(四)