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