车辆管理系统.docx

资源描述

车辆管理系统.docx

《车辆管理系统.docx》由会员分享，可在线阅读，更多相关《车辆管理系统.docx（34页珍藏版）》请在冰豆网上搜索。

车辆管理系统.docx

车辆管理系统

摘要…………………………………………………………………………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.车辆事故表:

车辆违规表:

车辆维修表:

车辆变更表:

车辆运营表:

驾驶员档案

奖惩表:

10:

零件表:

11:

用户表:

3．3界面设计与代码设计

登陆界面设计

登陆界面代码设计:

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

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=Fals

展开阅读全文