'如果记录集为空，说明没有符合条件的记录存在，清空上一次查询结果集并提示，
'退出此次查询过程，否则在datagrid1控件里显示记录集
If adors.EOF Then
Call QingKong
MsgBox "对不起，没有符合您查询条件的车辆！", , "系统提示"
Else
Adodc1.RecordSource = sql
Adodc1.Refresh
End If
adors.Close
ckcp.Value = 0
cktime.Value = 0
ckyy.Value = 0
End Sub
Private Sub cmdExit_Click()
MDIForm1.StatusBar1.Panels(1).Text = ""
Unload Me
End Sub
Private Sub Form_Load()
frmcarBFcha.Height = 4155
frmcarBFcha.Width = 5730
Label1.Caption = "车辆报废列表"
Call Rebind
'将车辆报废表里的车牌号码加到cmcp控件里
Set adors = adoCon.Execute("select distinct 车牌号码,报废原因 from 车辆报废表")
On Error Resume Next
Do
cmcp.AddItem adors.Fields(0)
cmyy.AddItem adors.Fields(1)
adors.MoveNext
Loop Until adors.EOF
End Sub
Private Sub Rebind()
Label1.Caption = "车辆报废列表"
'进行与数据库的绑定及选择作为记录源的表
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\clgl.mdb " & ";Persist Security Info=False"
Adodc1.RecordSource = "select * from 车辆报废表"
Adodc1.Refresh
End Sub
Private Sub QingKong()
Label1.Caption = "您所要查询的报废车辆记录如下："
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\clgl.mdb " & ";Persist Security Info=False"
Adodc1.RecordSource = "select * from 车辆报废表 where 0=1"
Adodc1.Refresh
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
cmdExit_Click
End Sub
3.车辆档案查询:
代码分析:
Private Sub ckbf_Click()
If ckbf.Value Then
Combo6.Enabled = True
Else
Combo6.Enabled = False
End If
End Sub
Private Sub ckbx_Click()
If ckbx.Value Then
Combo4.Enabled = True
Else
Combo4.Enabled = False
End If
End Sub
Private Sub ckcp_Click()
If ckcp.Value Then
Combo1.Enabled = True
Else
Combo1.Enabled = False
End If
End Sub
Private Sub ckdw_Click()
If ckdw.Value Then
Combo3.Enabled = True
Else
Combo3.Enabled = False
End If
End Sub
Private Sub cklx_Click()
If cklx.Value Then
Combo2.Enabled = True
Else
Combo2.Enabled = False
End If
End Sub
Private Sub ckyd_Click()
If ckyd.Value Then
Combo5.Enabled = True
Else
Combo5.Enabled = False
End If
End Sub
Private Sub cmdAll_Click()
Frame1.Enabled = False
ckcp.Value = 0
cklx.Value = 0
ckdw.Value = 0
ckbx.Value = 0
ckyd.Value = 0
ckbf.Value = 0
Call Rebind
cmdCha.Visible = True
cmdAll.Visible = False
cm