车辆管理系统+vb(一)毕业论文网(4)

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 （科教范文网http://fw.nseac.com）
    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