车辆管理系统.docx
《车辆管理系统.docx》由会员分享,可在线阅读,更多相关《车辆管理系统.docx(28页珍藏版)》请在冰豆网上搜索。
车辆管理系统
摘要…………………………………………………………………………1
Abstract………………………………………………………………………2
第一章引言…………………………………………………………………4
1.1课题背景……………………………………………………………………4
1.2系统简介……………………………………………………………………5
第二章系统的分析……………………………………………………………6
2.1系统开发的目标和思想……………………………………………………6
2.2系统的可行性分析…………………………………………………………8
第三章系统的设计……………………………………………………………18
3.1系统的功能结构设计………………………………………………………18
3.2系统的数据库设计
3.3界面设计与代码设计……………………………………………………………………23
…………………………………………………………24
结束语………………………………………………………………………………46
致谢…………………………………………………………………………………47
参考文献…………………………………………………
摘要
车辆管理系统用计算机管理机动车辆的档案,运营管理以及驾驶员信息的一种计算机应用技术的创新,在计算机还未普及之前车辆管理都是由工作人员手工抄写的方式来操作的.现在一般的车辆管理都是采用计算机作为工具的实用的计算机智能化车辆管理程序来帮助工作人员进行更有效的机动车辆管理。
车辆管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。
对于前者要求建立起数据一致性和完整性强、数据安全性好的库。
而对于后者则要求应用程序功能完备,易使用等特点。
经过分析,我们使用MICROSOFT公司的VISUALBASIC开发工具,利用其提供的各种面向对象的开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象,首先在短时间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,直到形成用户满意的可行系统。
关键字:
评语管理,MIS,visualbasic,数据库
Abstract
VehicleManagementSystemComputerusedmotorvehiclesarchivesmanagement,operationandmanagementofadriverinformationcomputerapplicationsinnovation,Managementhasnotyetpopularinthecomputerbeforethevehiclesarefromthestaffmanualtranscriptiontooperate.Nowthegeneralmanagementofthevehiclesareusedasatoolforcomputercomputerintelligentvehiclemanagementprocedurestohelpstaffmoreeffectivemanagementofmotorvehicles.Vehiclemanagementsystemisatypicalmanagementinformationsystem(MIS),includingitsmaindevelopmentbackgroundtotheestablishmentandmaintenanceofthedatabaseandfront-endapplicationdevelopment2.Therequestfortheestablishmentofstrongdataconsistencyandintegrity,goodforthesecurityofthedata.Forthelatterrequestapplicationsfunctions,suchaseasytousefeatures.
Afteranalysis,weuseMicrosoftvisualbasicdevelopmenttoolcompanies,theuseofitsvariousobject-orienteddevelopmenttools,especiallydatathatcanbeeasilyaccessibleandconcisewindowmanipulationdatabaseintelligentobjects,thefirstprototypeapplicationsysteminashorttimeandthen,computationoftheinitialprototypesystemneedstoconstantlyreviseandimproveuntiltheformationofaviablesystemofusersatisfaction.
keyword:
commentsmanagementMIS,visualbasicdatabase
第一章引言
1.1课题背景
车辆管理系统用计算机管理机动车辆的档案,运营管理以及驾驶员信息的一种计算机应用技术的创新,在计算机还未普及之前车辆管理都是由工作人员手工抄写的方式来操作的.现在一般的车辆管理都是采用计算机作为工具的实用的计算机智能化车辆管理程序来帮助工作人员进行更有效的机动车辆管理。
车辆管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。
对于前者要求建立起数据一致性和完整性强、数据安全性好的库。
而对于后者则要求应用程序功能完备,易使用等特点。
1.2系统简介
本系统主要服务于车管所工作人员管理辖区机动车辆,以及驾驶员相关信息,本系统由以下几大功能模块构成.
一:
车辆档案管理(车辆档案建立,车辆档案查询,车辆档案删除,车辆档案变更查询等.)
二:
车辆运营管理(车辆运营表,车辆运营查询,清空车辆运营表)
三:
车辆管理(车辆维修管理,车辆报废管理等)
四:
驾驶员管理(驾驶员档案管理,驾驶员档案查询等)
五:
系统维护(系统备份,系统还原,系统检查)
第二章系统的分析
2.1系统开发的目标和思想
本系统主要服务于机动车管理人员的日常工作.利用本系统可以方便的监控管理本区域的驾驶员信息.在此基础上力求软件界面人性化以及操作简单,程序具有健壮性等.
2.2系统的可行性分析
技术上:
本系统采用visualbasic6.0与微软的access作为数据库,技术上开发难度一般.
经济上:
本系统服务于车辆管理人员,提高了车管工作者办事效率,节省了开支.所以具有经济上的可行性.
社会上:
本系统同时也方便了广大驾驶员.所以具有社会可行性.
第三章系统的设计
3.1系统的功能结构设计
3.2系统的数据库设计
1.车辆报废表:
2.车辆档案表:
3.车辆事故表:
4:
车辆违规表:
5:
车辆维修表:
6:
车辆变更表:
7:
车辆运营表:
8:
驾驶员档案
9:
奖惩表:
10:
零件表:
11:
用户表:
3.3界面设计与代码设计
1:
登陆界面设计
登陆界面代码设计:
PrivateSubCombo1_KeyPress(KeyAsciiAsInteger)
IfKeyAscii=13Then
Command1.SetFocus
EndIf
EndSub
PrivateSubCommand1_Click()
Setadors=adoCon.Execute("select*from用户表where用户姓名=ltrim('"&Text1&"')and密码=ltrim('"&Text2&"')and用户类型=ltrim('"&Combo1.Text&"')")
Ifadors.EOFThen
MsgBox"您输入的信息有误,请重新输入!
",,"系统提示"
Text1=""
Text2=""
Text1.SetFocus
i=i+1
Ifi=3Then
MsgBox"对不起,您已无权使用本系统!
",,"系统提示"
UnloadMe
EndIf
Else
SelectCaseadors!
用户类型
Case"管理员"
Case"普通用户"
MDIForm1.mnuyydelete.Enabled=False
MDIForm1.mnusyscsh.Enabled=False
MDIForm1.mnuglyset.Enabled=False
EndSelect
MDIForm1.Show
adors.Close
UnloadMe
EndIf
EndSub
PrivateSubCommand2_Click()
UnloadMe
'adoRs.Close
EndSub
PrivateSubForm_Load()
Combo1.ListIndex=0
EndSub
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
IfKeyAscii=13Then
Text2.SetFocus
EndIf
EndSub
PrivateSubText2_KeyPress(KeyAsciiAsInteger)
IfKeyAscii=13Then
Combo1.SetFocus
EndIf
EndSub
2车辆报废查询:
代码分析:
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
PrivateSubckyy_Click()
Ifckyy.ValueThen
cmyy.Enabled=True
Else
cmyy.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
DimsddAsString
Ifckyy.ValueThen
syy="报废原因like'%"&cmyy.Text&"%'"
Else
syy="报废原因like'%'"
EndIf
sql="select*from车辆报废表where"&scp&"and"&syy&"and"&stime
'如果没有选择查询条件,那么清空上一次查询结果并给出对话框提示,退出查询过程
Ifsql="select*from车辆报废表where车牌号码like'%'and报废原因like'%'and报废日期like'%'"Then
CallQingKong
MsgBox"请选择查询条件",,"系统提示"
ExitSub
EndIf
'返回符合查询条件的记录集
Setadors=adoCon.Execute(sql)
'如果记录集为空,说明没有符合条件的记录存在,清空上一次查询结果集并提示,
'退出此次查询过程,否则在datagrid1控件里显示记录集
Ifadors.EOFThen
CallQingKong
MsgBox"对不起,没有符合您查询条件的车辆!
",,"系统提示"
Else
Adodc1.RecordSource=sql
Adodc1.Refresh
EndIf
adors.Close
ckcp.Value=0
cktime.Value=0
ckyy.Value=0
EndSub
PrivateSubcmdExit_Click()
MDIForm1.StatusBar1.Panels
(1).Text=""
UnloadMe
EndSub
PrivateSubForm_Load()
frmcarBFcha.Height=4155
frmcarBFcha.Width=5730
Label1.Caption="车辆报废列表"
CallRebind
'将车辆报废表里的车牌号码加到cmcp控件里
Setadors=adoCon.Execute("selectdistinct车牌号码,报废原因from车辆报废表")
OnErrorResumeNext
Do
cmcp.AddItemadors.Fields(0)
cmyy.AddItemadors.Fields
(1)
adors.MoveNext
LoopUntiladors.EOF
EndSub
PrivateSubRebind()
Label1.Caption="车辆报废列表"
'进行与数据库的绑定及选择作为记录源的表
Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\clgl.mdb"&";PersistSecurityInfo=False"
Adodc1.RecordSource="select*from车辆报废表"
Adodc1.Refresh
EndSub
PrivateSubQingKong()
Label1.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
3.车辆档案查询:
代码分析:
PrivateSubckbf_Click()
Ifckbf.ValueThen
Combo6.Enabled=True
Else
Combo6.Enabled=False
EndIf
EndSub
PrivateSubckbx_Click()
Ifckbx.ValueThen
Combo4.Enabled=True
Else
Combo4.Enabled=False
EndIf
EndSub
PrivateSubckcp_Click()
Ifckcp.ValueThen
Combo1.Enabled=True
Else
Combo1.Enabled=False
EndIf
EndSub
PrivateSubckdw_Click()
Ifckdw.ValueThen
Combo3.Enabled=True
Else
Combo3.Enabled=False
EndIf
EndSub
PrivateSubcklx_Click()
Ifcklx.ValueThen
Combo2.Enabled=True
Else
Combo2.Enabled=False
EndIf
EndSub
PrivateSubckyd_Click()
Ifckyd.ValueThen
Combo5.Enabled=True
Else
Combo5.Enabled=False
EndIf
EndSub
PrivateSubcmdAll_Click()
Frame1.Enabled=False
ckcp.Value=0
cklx.Value=0
ckdw.Value=0
ckbx.Value=0
ckyd.Value=0
ckbf.Value=0
CallRebind
cmdCha.Visible=True
cmdAll.Visible=False
cmdOk.Enabled=False
EndSub
PrivateSubcmdExit_Click()
MDIForm1.StatusBar1.Panels
(1).Text=""
UnloadMe
EndSub
PrivateSubcmdCha_Click()
'点击查询按纽后首先清空车辆档案列表
CallQingKong
cmdCha.Visible=False
cmdAll.Visible=True
Frame1.Enabled=True
cmdOk.Enabled=True
EndSub
PrivateSubcmdOk_Click()
DimsqlAsString
DimscpAsString
Ifckcp.ValueThen
scp="车牌号码like'"&Combo1.Text&"%'"
Else
scp="车牌号码like'%'"
EndIf
DimslxAsString
Ifcklx.ValueThen
slx="车辆类型like'%"&Combo2.Text&"%'"
Else
slx="车辆类型like'%'"
EndIf
DimsdwAsString
Ifckdw.ValueThen
sdw="车辆所在单位like'%"&Combo3.Text&"%'"
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
frmcardach