车辆管理系统毕业设计范例

学院
专业
班级
学号
姓名
指导教师
教师职称
年
月
日
【摘要】
随着社会经济的发展，使用车辆的人越来越多，对于拥有各种类型车辆的机关企事业单位，车辆的管理成为日常事务中的一项重要工作。车辆管理部门如何进行有效管理，及时了解每一辆车的情况，提高车辆的使用效率，就成为各单位急需解决的一个问题。
针对这种状况，我们开发出一套专门进行车辆管理的软件，这套软件可以为您提供车辆管理、跟踪等方面的资料。它不仅能够掌握车辆的运营、异动、维修和报废等状况，而且还可以对车辆的违章和事故进行系统管理。所以本系统是协助各单位合理和优化管理车辆的最佳选择。
case button.index=5
do form form\frm车辆维修
case button.index=6
do form form\frm车辆违章
case button.index=7
do form form\frm车辆事故管理
case button.index=9
do menu\leftmnu.mpr
（2）在表单中添加Toolbar控件、Statusbar控件、Imagelist控件和Timer控件。
（3）重要控件属性如表1所示。
表1主程序界面重要控件属性列表
控件名
属性
值
Toolbar
Style
1-Transparent
Timer
Interval
1000
2
在表单的Init事件中添加以下代码：
do menu\mnuhand.mpr with this,.t. &&调用系统菜单
month(date())))+"月"+alltrim(str(day(date())))+"日"+space(110)+alltrim(time())
3.2
用户在进入系统前，必须通过系统登录进入主程序界面，通过系统登录界面主要实现确认用户的身份及使用权限、并且判断是否支持鼠标和键盘操作。系统登录表单运行结果如图3所示。
use DataBase\管理员表&&打开数据表
cname=alltrim(thisform.container3.label2.caption)&&获得输入信息
ppassword=alltrim(thisform.Container3.text1.value)&&获得输入信息
set order to管理员姓名&&指定控制索引文件
3
3.1
程序启动后，在系统登录界面验证操作员密码后，将进入程序主界面。通过程序主界面将会执行相应的权限操作，并且还可以通过主界面的菜单，来调用相应程序，再进行相应操作。主程序界面运行结果如图2所示。
图2主程序界面
1
（1）创建一个项目，名称为车辆管理系统，在该项目中添加一个表单，名称为Frmblack。
=this.toolbar.buttons.add(,'bar2','',3,1)
=this.toolbar.buttons.add(,'cx','',5,7)
=this.toolbar.buttons.add(,'bar3','',3,1)
=this.toolbar.buttons.add(,'bz','',,8)
本系统是一个协助各单位进行全面车辆管理的系统，包括了车辆档案管理；驾驶员档案管理；车辆管理（维修管理、违章管理、事故管理）；车辆运营管理等。是一套真正适合企事业单位的管理系统。
1
1.1
根据赛达车有限公司的具体情况，系统主要功能包括：
档案管理：“车辆档案录入”、“车辆档案查询”、“车辆异动”、“车辆异动查询”、“车辆报废”、“车辆报废查询”。
运营管理：“车辆运营管理”、“车辆运营查询”、“清空运营表”。
车辆管理：“车辆维修管理”、“车辆维修查询”、“添加零件”、“车辆违章管理”、“车辆违章查询”、“车辆事故管理”、“车辆事故查询”。
驾驶员管理：“驾驶员档案”、“驾驶员档案查询”、“驾驶员奖罚”。
系统维护：“系统初始化”、“管理员设置”、“数据备份”、“数据恢复”。
seek cname&&快速查询
set exact on&&设置字符精确比较
if alltrim(管理员表.管理员姓名)!=cname&&判断输入的操作员姓名是否存在于表中
cn=cn+1
cMessagetitle='系统登录'
cMessagetext='管理员表错误，请重新输入！'
nDialogtype=32
&&向ListItems集合中添加一个列表项。
thisform.container3.listview.listitems.add(,,管理员表.管理员姓名,管理员表.管理员头像)
skip&&记录指针向下移动一条记录
enddo
endif
use
单击“登录”按钮，首先判断用户名是否正确，然后根据用户名判断密码是否正确，如果正确，根据该操作员的权限级别赋于用户相应的使用权限；如果不正确，弹出系统警告对话框。在“登录”按钮的Click事件中添加以下代码：
cn=0
在系统登录时，判断“管理员”表中是否有记录，如果没有，则以系统管理员的身份直接进入，并弹出系统对话框。在表单的Init事件中添加以下代码：
use database\管理员表
if eof()=.t. and bof()=.t.
close all
thisform.visible=.f.&&隐藏表单
运营管理：车辆运营管理、车辆运营查询、清空运营表。
车辆管理
车辆管理：维修管理、违章管理、事故管理。
驾驶员管理
驾驶员管理：驾驶员管理、驾驶员奖惩。
系统维护
系统维护：系统初始化、管理员设置、数据备份、数据恢复、退出。
帮助
帮助：帮助和关于。
2.
本系统共分5大部分，23个完整的功能模块。系统结构图如图1所示.
【关键词】车辆管理系统
0
车辆的管理在各机关、企事业单位一直是一个难题，一方面使用成本居高不下，另一方面各部门却经常抱怨不能有效地使用车辆，车辆驾驶员更多的将车辆当作私家车在使用，对车辆的使用成本不加以控制，管理部门没有有效的手段对车辆的使用、费用进行控制，也无法对车辆的使用、费用情况进行统计、分析，制定合理的使用计划，大大降低了车辆的使用效率。
this.toolbar.imagelist=this.imagelist
=this.toolbar.buttons.add(,'clda','',,1)
=this.toolbar.buttons.add(,'glyda','',,2)
=this.toolbar.buttons.add(,'yygl','',,3)
290引言车辆的管理在各机关企事业单位一直是一个难题一方面使用成本居高不下另一方面各部门却经常抱怨不能有效地使用车辆车辆驾驶员更多的将车辆当作私家车在使用对车辆的使用成本不加以控制管理部门没有有效的手段对车辆的使用费用进行控制也无法对车辆的使用费用情况进行统计分析制定合理的使用计划大大降低了车辆的使用效率
图1车辆管理系统结构图
2.
本系统是根据中小企业的实际需求而开发的，完全能够实现企业对客户的自动化管理，通过本系统可以达到以下目标：
系统运行稳定，安全可靠。
界面美观、友好。
信息查询灵活、方便、快捷、准确，数据存储安全可靠。
采用多种方式查询数据。
操作员可以随时修改自己的口令。
数据保密性强，为每个用户设置相应的权限级别。
2
2.
本系统是一个协助各单位进行全面车辆管理的系统，系统由档案管理、运营管理、车辆管理、驾驶员管理、系统维护和帮助6个模块组成。本系统是协助各单位合理和优化管理车辆的最佳选择。规划系统功能模块如下：
档案管理
档案管理：车辆档案录入、车辆档案查询、车辆异动、车辆异动查询、车辆报废、车辆报废查询。
运营管理
在Toolbar控件的ButtonClick事件中添加以下代码：
do case
case button.index=1
do form form\frm车辆档案
case button.index=2
do form form\frm驾驶员档案
case button.inБайду номын сангаасex=3
do form form\frm车辆运营
this.toolbar.buttons(6).tooltiptext="违章管理"
this.toolbar.buttons(7).tooltiptext="事故档案"
this.toolbar.buttons(9).tooltiptext="查询"
this.toolbar.buttons(11).tooltiptext="帮助"
ShowWindow
.t.
0-无边框
2.作为顶层表单
Text1
PassWordChar
2
在表单的Unload事件中添加以下代码：
use&&关闭数据表
thisform.release&&释放表单
定义全局变量cn，用于记录用户输入密码的次数。
在表单的Load事件中添加以下代码：
public cn&&定义全局变量
this.toolbar.buttons(1).tooltiptext="车辆档案"
this.toolbar.buttons(2).tooltiptext="驾驶员档案"
this.toolbar.buttons(3).tooltiptext="运营管理"
this.toolbar.buttons(5).tooltiptext="维修管理"
if cn=3
thisform.release&&释放表单
endif
else
if alltrim(管理员表.密码)!=ppassword &&判断密码是否正确
cn=cn+1
cmessagetitle='系统登录'
cmessagetext='密码错误，请重新输入！'
ndialogtype=32
nanswer=messagebox(cmessagetext,ndialogtype,cmessagetitle)
图3“用户登录”表单运行结果
1
（1）添加一个表单，名称为Frmlogin。
（2）在表单中添加Label控件、Text控件、Command控件、Imagelist控件和Container控件。
（3）重要控件属性如表2所示。
表2“用户登录”表单重要控件属性列表
控件名
属性
值
Form1
AotoCenter
BorderStyle
TC=.f.
thisform.refresh
thisform.release
endif
endif
set exact off&&设置字符非精确比较
在“退出”按钮的Click事件中添加以下代码：
thisform.release&&释放表单
nanswer=messagebox(cmessagetext,ndialogtype,cmessagetitle)
thisform.Container3.text1.enabled=.f.&&设置控件无效
thisform.Container3.listview.setfocus&&Listview获得焦点
=this.toolbar.buttons.add(,'bar1','',3,1)
=this.toolbar.buttons.add(,'wxgl','',,4)
=this.toolbar.buttons.add(,'wzgl','',,5)
=this.toolbar.buttons.add(,'sggl','',,6)
else
do while eof()=.f.
thisform.container3.listview.view=0&&设置ListView控件的视图类型。
&&将ImageList控件图片赋予Listview控件
thisform.container3.listview.icons=thisform.imagelist.object
case button.index=11
do form form\frm帮助
endcase
在时间控件的Timer事件中添加以下代码用于在状态栏中实现显示系统时间。
thisform.statusbar.panels(1).text=alltrim(str(year(date())))+"年"+alltrim(str(;
thisform.Container3.text1.value=""
thisform.Container3.text1.setfocus
if cn=3
thisform.release
endif
else
if管理员表.管理员否=.t. then
GLY=.t.
else
GLY=.f.
endif
purview=0
do form form\frm管理员档案&&调入表单
messagebox("亲爱的朋友："+chr(10)+chr(13)+chr(10)+"欢迎使用明日车辆管理系统！";
+chr(10)+chr(13)+"这是您第一次登录系统！请首先添加一管理员！"+chr(10)+chr(13);
+chr(10)+ "具体操作请查阅[帮助]----初次登录！",0,"初次登录")