车辆管理调度系统论文.docx
《车辆管理调度系统论文.docx》由会员分享，可在线阅读，更多相关《车辆管理调度系统论文.docx（50页珍藏版）》请在冰豆网上搜索。
车辆管理调度系统论文
车辆管理系统
目录
摘要…………………………………………………………………………….2
关键词……………………………………………………………………………2
第一章概述…………………………………………………………………….2
第二章系统分析………………………………………………………………2
2.1系统目标……………………………………………………………………3
2.2功能分析……………………………………………………………………3
2.3系统流程………………………………………………………………………3
第三章系统设计………………………………………………………………..2
3.1系统功能结构设计…………………………………………………………….2
3.2数据库设计…………………………………………………………………….3
第四章公用模块设计………………………………………………….………6
第五章系统登录…………………………………………………………..……6
第六章MDI主窗口设计……………………………………………………….7
第七章主要功能模块详细设计……………………………..……………….9
7.1车辆档案录入………………………………………………………………….9
7.2车辆运营列表…………………………………………………………………13
7.3车辆运营查询…………………………………………………………………16
7.4车辆事故列表…………………………………………………………………18
7.5车辆违章列表…………………………………………………………………22
7.6车辆维修列表…………………………………………………………………26
7.7驾驶员奖罚……………………………………………………………………30
第八章数据库备份和恢复……………………………………………………..33
8.1数据库备份设计……………………………………………………………..33
8.2数据库恢复设计………………………………………………………..….34
第九章结束语……………………………………………………………….…..34
参考文献………………………………………………………………..36
摘要：
随着计算机技术的迅速发展，计算机已经渗透到了各个应用领域。
尤其是车辆的逐年增多和车辆的信息增加,车辆的管理不能够由传统的人工管理来进行管理,所以必须运用到计算机来进行管理。
本车辆管理系统的完成就是基于VB应用程序和Access2000数据库，能够通过VB窗口对数据库进行操作。
系统采用服务器（Server）形式，既方便实现车辆信息的查询，而且也大大提高了程序的可维护性和重复利用性。
关键词：
VB程序设计,Access2000数据库,车辆管理.
第一章概述
随着我国经济的快速发展，人民生活水平的提高，以及人们的对物资的购买力提高，汽车已成为人们不可缺少的交通工具。
特别是对于拥有大量车辆的机关企事业单位来说，车辆的管理已成为日常事务中的一项重要的工作，为了如何让管理人员及时了解每一辆车的情况，提高车辆的使用效率，减少费用支出，成为各个单位需要解决的一个难题，为了规范企业内部的管理，提高企业管理质量，更好的服务于广大的客户的情况下，我们必须要开发一套专门用于车辆管理的系统，可以集中管理车辆的运营，维修，事故，违章等一系列的信息，使企业进入车辆管理信息化，科学化。
同时也可以节省人力，物力，财力。
第二章系统分析
（1）系统目标
针对相关车辆管理的情况，车辆管理系统要达到的目标：
*由人工管理过渡到机械自动化，系统化，规范化管理。
*违章车辆，事故车辆及车辆的维修费用一目了然。
*及时掌握车辆的运营情况，提高车辆的利用效和经济益。
（2）功能分析
系统功能分析是在系统开发总体任务的基础下完成的。
车辆管理系统功能主要包括：
档案管理，运营管理，车辆管理，驾驶员管理，系统维护等功能。
*车辆档案录入，车辆档案查询，车辆异动，车辆异动查询，车辆报废，车辆报废查询。
*车辆运营管理，车辆运营查询，清空运营列表。
*车辆维修管理，车辆维修查询，添加零件，车辆违章管理，车辆违章查询，车辆事故管理，车辆事故查询。
*驾驶员档案，驾驶员档案查询，驾驶员奖罚。
*系统初始化，管理员设置，数据备份，数据恢复。
（3）系统流程
系统流程图
第三章系统设计
（1）系统功能结构设计
系统功能结构图
（2）数据库设计
数据库的设计是根据用户的需求和数据是流量的大小来设计,同时结合Access2000数据库操作方便,简单易学,系统资源占有低,不用数据库服务主持等优点,本系统使用了Access2000数据库作为后台数据库.
车辆管理系统的数据表有以下表组成：
用户表，车辆档案表，车辆报废表，车辆类型表，车辆事故表，车辆违章表，车辆维修表，车辆异动表，车辆运营表，驾驶员档案表，奖罚表，零件表。
1．用户表
字段名称
数据类型
字段大小
必添字段
允许空字符串
用户姓名
文本
20
是
否
密码
文本
20
否
是
用户类型
文本
20
是
否
2．车辆档案表
字段名称
数据类型
字段大小
必添字段
允许空字符串
车牌号码
文本
10
是
否
车辆类型
文本
10
是
否
驾驶员编号
文本
10
否
是
购置日期
时间/日期
是
厂牌型号
文本
30
否
是
使用人或单位
文本
30
否
是
车辆所在单位
文本
30
否
是
年检审
文本
2
否
是
保险否
文本
2
否
是
异地否
文本
2
否
是
报废否
文本
2
否
是
备注
备注
否
是
3.车辆报废表
字段名称
数据类型
字段大小
必添字段
允许空字符串
车牌号码
文本
10
是
否
报废原因
文本
30
否
是
报废日期
时间/日期
是
经手人
文本
8
否
是
备注
备注
否
是
4.车辆报废表
字段名称
数据类型
字段大小
必添字段
允许空字符串
类型
文本
14
否
否
5.车辆事故表
字段名称
数据类型
字段大小
必添字段
允许空字符串
事故编号
文本
10
是
否
车辆号码
文本
10
是
否
车辆类型事故
文本
14
否
是
事故时间
时间/日期
是
事故概要
文本
50
是
否
事故确认者
文本
8
是
否
公司负担金
数字
双精度型
否
保险理赔金
数字
双精度型
否
对方赔偿金
数字
双精度型
是
否
对方姓名
文本
8
是
是
对付住址
文本
30
否
是
对方所在单位
文本
30
否
是
对方损坏程度
文本
10
否
是
和解内容
备注
否
是
6.车辆违章表
字段名称
数据类型
字段大小
必添字段
允许空字符串
车牌号码
文本
10
是
否
原因
文本
10
是
否
处罚
文本
30
否
是
违章时间
时间/日期
是
备注
备注
否
是
7.车辆维修表
字段名称
数据类型
字段大小
必添字段
允许空字符串
车牌号码
文本
10
是
否
更换零件1
文本
20
否
是
零件1数量
数字
整型
否
更换零件2
文本
20
否
是
零件2数量
数字
整型
否
更换零件3
文本
20
否
是
零件3数量
数字
整型
否
维修日期
时间/日期
是
共计费用
文本
2
否
是
备注
备注
否
是
8．车辆异动表
字段名称
数据类型
字段大小
必添字段
允许空字符串
车牌号码
文本
10
是
否
异动时间
时间/日期
是
异动地点
文本
30
是
否
经手人
文本
8
否
是
备注
备注
是
是
9.车辆运营表
字段名称
数据类型
字段大小
必添字段
允许空字符串
车牌号码
文本
10
是
否
运营日期
日期/时间
是
运营时间
数字
整型
是
否
运营收入
数字
双精度型
是
是
备注
数字
否
是
10.驾驶员档案表
字段名称
数据类型
字段大小
必添字段
允许空字符串
驾驶员编号
文本
18
是
否
姓名
文本
8
是
否
性别
文本
2
是
否
出生年月
日期/时间
是
驾驶证号
文本
30
是
否
领证明日期
数字
证件有效期
文本
15
是
否
驾龄
日期/时间
双精度型
否
准驾车型
文本
14
否
是
何时参加工作
日期/时间
否
联系电话
文本
16
否
是
年检记录
文本
20
否
是
备注
备注
否
是
11.奖罚表
字段名称
数据类型
字段大小
字段大小
允许空字符串
车牌号码
文本
8
是
否
姓名
文本
8
是
否
运营收入
数字
双精度型
否
运营次数
数字
整型
否
维修费用
数字
双精度型
否
违章次数
数字
整型
否
事故次数
数字
整型
否
日期
文本
12
是
否
每月得分
数字
双精度型
是
每月奖金
数字
双精度型
否
12.零件表
字段名称
数据类型
字段大小
字段大小
允许空字符串
零件名
文本
30
是
否
单价
数字
双精度型
否
第四章公用模块设计
为了节省系统资源，必须要新建设一个模块，该模块用于连接各个模块中的数据表，,从而不避免在程序中运用大量的ADO控件,给开发应用程序带来诸多不便.该模块中的程序代码如下：
PublicadoConAsNewADODB.Connection
PublicadorsAsNewADODB.Recordset
PublicSubmain（）
SetadoCon=NewADODB.Connection
adoCon.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\clgl.mdb"&";PersistSecurityInfo=False"
frmLogin.Show
frmLogin.Text1.SetFocus
EndSub
第五章系统登录
系统登录窗口是操作用户进入系统的惟一入口，分为两种权限：
管理员权限和普通用户权限.通过在”登录”按钮的Click事件下使用SQL语句判断用户名称,密码和用户类型,进入系统.
操作用户的权限不同的功能模块也不同,管理员可以维护整个系统和系统操纵身分,而普通用户只能对系统各别功能进行操作.
*窗口界面设计
系统等录窗口设计图
（1）新建设又个窗口，设置该窗口的名称为“frrmlogin”,caption属性为“系统登录”，设置Borderstyle属性为“1-fiexedsingle”,在该窗口上依次添加控件。
（2）在frrmlogin窗口上添加Label,ComboBox控件。
（3）在窗口上添加Text控件。
（4）程序代码是：
PrivateSubCommand1_Click（）
IfText3.Text=""Then
MsgBox"您还没有注册系统用户！
",,"系统提示"
MDIForm1.Show
UnloadMe
ExitSub
EndIf
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
]
第六章MDI主窗口设计
车辆管理系统主窗口MID的设计采用了多文档界面,即MDI技术.MDI窗口为程序提供了高效,多功能的良好平台,它的应用很广泛.
MID主窗口主要是由车辆档案管理，车辆运营管理，驾驶员管理，系统维护等几个大模块来组成的，也是退出系统的惟一出口。
MDI主窗口设计图
（1）程序代码设计
*在主窗口菜单“车辆运营管理”子菜单“清空运营表”的Click事件下添加如下代码
PrivateSubmnuyydelete_Click（）
IfMsgBox（"真的要清空运营表吗？
",vbOKCancel,"系统提示"）=vbOKThen
adoCon.Execute（"deletefrom车辆运营表"）
Else
ExitSub
EndIf
EndSub
*在主窗口菜单“系统维护”子菜单“系统初始化”的Click事件下添加如下代码：
PrivateSubmnusyscsh_Click（）
IfMsgBox（"执行此命令会清空数据库里所有记录，确实要执行吗？
",vbOKCancel,"系统提示"）=vbOKThen
adoCon.Execute（"deletefrom车辆档案"）
adoCon.Execute（"deletefrom车辆报废表"）
adoCon.Execute（"deletefrom车辆事故表"）
adoCon.Execute（"deletefrom车辆违章表"）
adoCon.Execute（"deletefrom车辆维修表"）
adoCon.Execute（"deletefrom车辆异动表"）
adoCon.Execute（"deletefrom车辆运营表"）
adoCon.Execute（"deletefrom驾驶员档案"）
adoCon.Execute（"deletefrom零件表"）
adoCon.Execute（"deletefrom用户表"）
adoCon.Execute（"deletefrom奖罚表"）
Else
ExitSub
EndIf
EndSub
*在ToolBar控件的索引值调用子窗口，在ToolBar控件的ButtonClick事件下添加如下代码：
PrivateSubToolbar1_ButtonMenuClick（ByValButtonMenuAsMSComctlLib.ButtonMenu）
SelectCaseButtonMenu.Index
Case1
Callmnucardacha_Click
Case2
Callmnujsycha_Click
Case3
Callmnucaryycha_Click
Case5
Callmnucarwxcha_Click
Case6
Callmnucarwzcha_Click
Case7
Callmnucarsgcha_Click
EndSelect
EndSub
第七章主要功能模块详细设计
（1）车辆档案录入
车辆档案录入操作窗口用于添加，修改，删除车辆信息。
车辆档案的添加，修改，删除可以通过ADO对象来实现，也可以通过ADO控件实现，要使用到AddNew,Updateh和Delete方法。
1窗口界面设计
车辆档案窗口设计图
2程序代码设计
*设计一个Lockctl过程使控件不可用，该过程如下：
PrivateSubLockctl（）
Text1.Enabled=False:
Combo1.Enabled=False:
Combo2.Enabled=False
Text4.Enabled=False:
Text5.Enabled=False:
Text6.Enabled=False
Text7.Enabled=False
DTPicker1.Enabled=False
cmnj.Enabled=False:
cmbx.Enabled=False:
cmyd.Enabled=False:
cmbf.Enabled=False
EndSub
PrivateSubUnlockctl（）
Text1.Enabled=True:
Combo1.Enabled=True:
Combo2.Enabled=True
Text4.Enabled=True:
Text5.Enabled=True:
Text6.Enabled=True
Text7.Enabled=True
DTPicker1.Enabled=True
cmnj.Enabled=True:
cmbx.Enabled=True:
cmyd.Enabled=True:
cmbf.Enabled=True
EndSub
DimiAsInteger
PrivateSubForm_Load（）
frmcardalr.Height=3075:
frmcardalr.Width=7410
Adodc1.RecordSource="select*from车辆档案"
Adodc1.Refresh
IfAdodc1.Recordset.RecordCount>0ThenDTPicker1.Value=Adodc1.Recordset.Fields（"购置日期"）
Adodc2.RecordSource="select*from车辆类型表"
Adodc2.Refresh
IfAdodc2.Recordset.RecordCount=0ThenExitSub
Fori=0ToAdodc2.Recordset.RecordCount-1
Combo1.AddItemAdodc2.Recordset.Fields（0）.Value
Adodc2.Recordset.MoveNext
Next
Adodc3.RecordSource="select*from驾驶员档案"
Adodc3.Refresh
IfAdodc3.Recordset.RecordCount=0ThenExitSub
Fori=0ToAdodc3.Recordset.RecordCount-1
Combo2.AddItemAdodc3.Recordset.Fields（0）.Value
Adodc3.Recordset.MoveNext
Next
OnErrorResumeNext
Combo1.Text=Adodc1.Recordset.Fields
（1）
Combo2.Text=Adodc1.Recordset.Fields
（2）
EndSub
*在Text1控件的LostFocus事件下，用户添加的“车牌号码”是否与表中的数据重复，其代码为：
PrivateSubText1_LostFocus（）
DimrsAsNewADODB.Recordset
Setrs=adoCon.Execute（"select*from车辆档案where车牌号码='"&Text1.Text
Ifrs.EOF=FalseThen
MsgBox"此车牌号码已经存在！
",,"系统提示"
Text1=""
Text1.SetFocus
EndIf
rs.Close
EndSub
*在“添加”按钮的Click事件下添加代码为：
PrivateSubcmdAdd_Click（）
Unlockctl
DTPicker1.Value=Format（Now,"yyyy-mm-dd"）
Text1="":
Text2="":
Combo2="":
Text4="":
Text5="":
Text6="":
Text7=""
Combo1.Text=""
cmnj.Text="是"
cmbx.Text="是"
cmyd.Text="是"
cmbf.Text="是"
Text1.SetFocus
cmdOk.Enabled=True:
cmdCancel.Enabled=True
cmdDelete.Enabled=False:
Combo1.Visible=True
Adodc1.Enabled=False:
cmdUpdate.Enabled=False
i=1
EndSub
*在“修改”按钮的Click事件下添加代码为：
PrivateSubcmdUpdate_Click（）
Unlockctl
i=2
cmdOk.Enabled=Tr
升级会员 