Else
Adodc1.RecordSource = sql
Adodc1.Refresh
End If
adors.Close
ckcp.Value = 0
cklx.Value = 0
ckdw.Value = 0
ckbx.Value = 0
ckyd.Value = 0
ckbf.Value = 0
End Sub
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\clgl.mdb;Persist Security Info=False"
Call Rebind
cmdAll.Visible = False
cmdCha.Visible = True
cmdOk.Enabled = False
frmcardacha.Height = 5070
frmcardacha.Width = 7935
'将表里存在的所有车牌加到控件combo1里
On Error Resume Next
Adodc1.RecordSource = "select distinct 车牌号码 from 车辆档案"
Do
Combo1.AddItem Adodc1.Recordset.Fields(0)
Adodc1.Recordset.MoveNext
Loop Until Adodc1.Recordset.EOF
Adodc1.Refresh
Adodc2.RecordSource = "select distinct 车辆类型 from 车辆档案"
Adodc2.Refresh
Do
Combo2.AddItem Adodc2.Recordset.Fields(0)
Adodc2.Recordset.MoveNext
Loop Until Adodc2.Recordset.EOF
Adodc3.RecordSource = "select distinct 车辆所在单位 from 车辆档案"
Adodc3.Refresh
Do
Combo3.AddItem Adodc3.Recordset.Fields(0)
Adodc3.Recordset.MoveNext
Loop Until Adodc3.Recordset.EOF
Adodc1.RecordSource = "select * from 车辆档案"
Adodc1.Refresh
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Exit Sub
End If
Set adors = adoCon.Execute(sql)
If adors.EOF Then
Call QingKong
MsgBox "对不起,没有符合您查询条件的车辆维修记录!", , "系统提示"
Else
Adodc1.RecordSource = sql
Adodc1.Refresh
End If
adors.Close
ckcp.Value = 0
cktime.Value = 0
ckfy.Value = 0
End Sub
Private Sub cmdExit_Click()
MDIForm1.StatusBar1.Panels(1).Text = ""
Unload Me
End Sub
Private Sub Form_Load()
frmcarWXcha.Width = 6345
frmcarWXcha.Height