'"
Else
sdw="车辆所在单位like'%'"
EndIf
DimsbxAsString
Ifckbx.ValueThen
sbx="保险否='"&Combo4.Text&"'"
Else
sbx="保险否like'%'"
EndIf
DimsydAsString
Ifckyd.ValueThen
syd="异动否='"&Combo5.Text&"'"
Else
syd="异动否like'%'"
EndIf
DimsbfAsString
Ifckbf.ValueThen
sbf="报废否='"&Combo6.Text&"'"
Else
sbf="报废否like'%'"
EndIf
sql="select*from车辆档案where"&scp&"and"&slx&"and"&sdw&"and"&sbx&"and"&syd&"and"&sbf
'MsgBoxsql
Ifsql="select*from车辆档案where车牌号码like'%'and车辆类型like'%'and车辆所在单位like'%'and保险否like'%'and异动否like'%'and报废否like'%'"Then
MsgBox"请选择查询条件",,"系统提示"
'清空上一次的查询记录
CallQingKong
ExitSub
EndIf
Setadors=adoCon.Execute(sql)
Ifadors.EOFThen
'清空上一次的查询记录
CallQingKong
'给出文本框提示
MsgBox"没有符合您查询车辆的条件!",,"系统提示"
Else
Adodc1.RecordSource=sql
Adodc1.Refresh
EndIf
adors.Close
ckcp.Value=0
cklx.Value=0
ckdw.Value=0
ckbx.Value=0
ckyd.Value=0
ckbf.Value=0
EndSub
PrivateSubForm_Load()
Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\clgl.mdb;PersistSecurityInfo=False"
CallRebind
cmdAll.Visible=False
cmdCha.Visible=True
cmdOk.Enabled=False
frmcardacha.Height=5070
frmcardacha.Width=7935
'将表里存在的所有车牌加到控件combo1里
ResumeNext
Adodc1.RecordSource="selectdistinct车牌号码from车辆档案"
Do
Combo1.AddItemAdodc1.Recordset.Fields(0)
Adodc1.Recordset.MoveNext
LoopUntilAdodc1.Recordset.EOF
Adodc1.Refresh
Adodc2.RecordSource="selectdistinct车辆类型from车辆档案"
Adodc2.Refresh
Do
Combo2.AddItemAdodc2.Recordset.Fields(0)
Adodc2.Recordset.MoveNext
LoopUntilAdodc2.Recordset.EOF
Adodc3.RecordSource="selectdistinct车辆所在单位from车辆档案"
Adodc3.Refresh
Do
Combo3.AddItemAdodc3.Recordset.Fields(0)
Adodc3.Recordset.MoveNext
LoopUntilAdodc3.Recordset.EOF
Adodc1.RecordSource="select*from车辆档案"
Adodc1.Refresh
EndSub
PrivateSubForm_QueryUnload(CancelAsInteger,UnloadModeAsInteger)
cmdExit_Click
EndSub
PrivateSubRebind()
Frame2.Caption="车辆档案列表"
'联接数据库及选表
Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\clgl.mdb"&";PersistSecurityInfo=False"
Adodc1.RecordSource="select*from车辆档案"
Adodc1.Refresh
EndSub
PrivateSubQingKong()
Frame2.Caption="您所要查询的车辆档案如下:"
'清空datagrid1控件里的记录
Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\clgl.mdb"&";PersistSecurityInfo=False"
Adodc1.RecordSource="select*from车辆档案where0=1"
Adodc1.Refresh
EndSub
4车辆事故查询界面:
代码分析:
PrivateSubckcp_Click()
Ifckcp.ValueThen
cmCP.Enabled=True
Else
cmCP.Enabled=False
EndIf
EndSub
PrivateSubcktime_Click()
Ifcktime.ValueThen
dtStart.Enabled=True
dtEnd.Enabled=True
Else
dtStart.Enabled=False
dtEnd.Enabled=False
EndIf
EndSub
PrivateSubcmdCha_Click()
'点击查询按纽后首先清空车辆档案列表
CallQingKong
'定义查询字符串
DimsqlAsString
DimscpAsString
Ifckcp.ValueThen
scp="车牌号码like'"&cmCP.Text&"%'"
Else
scp="车牌号码like'%'"
EndIf
DimstimeAsString
Ifcktime.ValueThen
stime="事故时间between#"&dtStart.Month&"/"&dtStart.Day&"/"&dtStart.Year&"#and#"&dtEnd.Month&"/"&dtEnd.Day&"/"&dtEnd.Year&"#"
Else
stime="事故时间like'%'"
EndIf
sql="select*from车辆事故表where"&scp&"and"&stime
'MsgBoxsql
Ifsql="select*from车辆事故表where车牌号码like'%'and事故时间like'%'"Then
CallQingKong
MsgBox"请选择查询条件",,"系统提示"
ExitSub
EndIf
Setadors=adoCon.Execute(sql)
Ifadors.EOFThen
CallQingKong
MsgBox"对不起,没有符合您查询条件的车辆事故记录!",,"系统提示"
Else
Adodc1.RecordSource=sql
Adodc1.Refresh
EndIf
adors.Close
ckcp.Value=0
cktime.Value=0
EndSub
PrivateSubcmdExit_Click()
MDIForm1.StatusBar1.Panels(1).Text=""
UnloadMe
EndSub
PrivateSubForm_Load()
frmcarSGcha.Width=6375
frmcarSGcha.Height=3885
CallRebind
Setadors=adoCon.Execute("selectdistinct车牌号码from车辆事故表")
ResumeNext
Do
cmCP.AddItemadors.Fields(0)
adors.MoveNext
LoopUntiladors.EOF
adors.Close
EndSub
PrivateSubRebind()
Frame2.Caption="车辆事故列表"
Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\clgl.mdb;PersistSecurityInfo=False"
Adodc1.RecordSource="select*from车辆事故表"
Adodc1.Refresh
EndSub
PrivateSubQingKong()
Frame2.Caption="您所要查询的车辆事故记录如下:"
Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\clgl.mdb;PersistSecurityInfo=False"
Adodc1.RecordSource="select*from车辆事故表where0=1"
Adodc1.Refresh
EndSub
PrivateSubForm_QueryUnload(CancelAsInteger,UnloadModeAsInteger)
cmdExit_Click
EndSub
5.车辆维修查询界面:
代码分析:
PrivateSubckcp_Click()
Ifckcp.ValueThen
cmcp.Enabled=True
Else
cmcp.Enabled=False
EndIf
EndSub
PrivateSubckfy_Click()
Ifckfy.ValueThen
Combo1.Enabled=True
Combo1.ListIndex=0
txtFY.Enabled=True
Else
txtFY.Enabled=False
Combo1.Enabled=False
EndIf
EndSub
PrivateSubcktime_Click()
Ifcktime.ValueThen
dtStart.Enabled=True
dtEnd.Enabled=True
Else
dtStart.Enabled=False
dtEnd.Enabled=False
EndIf
EndSub
PrivateSubcmdCha_Click()
CallQingKong
DimsqlAsString
DimscpAsString
Ifckcp.ValueThen
scp="车牌号码like'"&cmcp.Text&"%'"
Else
scp="车牌号码like'%'"
EndIf
DimstimeAsString
Ifcktime.ValueThen
stime="维修日期between#"&dtStart.Month&"/"&dtStart.Day&"/"&dtStart.Year&"#and#"&dtEnd.Month&"/"&dtEnd.Day&"/"&dtEnd.Year&"#"
Else
stime="维修日期like'%'"
EndIf
DimsfyAsString
Ifckfy.ValueThen
sfy="共计费用"&Combo1.Text&""&txtFY&""
Else
sfy="共计费用like'%'"
EndIf
sql="select*from车辆维修表where"&scp&"and"&stime&"and"&sfy
'MsgBoxsql
Ifsql="select*from车辆维修表where车牌号码like'%'and维修日期like'%'and共计费用like'%'"Then
CallQingKong
MsgBox"请选择查询条件",,"系统提示"
ExitSub
EndIf
Setadors=adoC
上一篇:
VB车辆管理系统+SQL(论文和程序)
下一篇:
中德大学生医保