VB侯奕乐车辆管理系统

1、课程设计课题 车辆管理系统 班级 信管0802 学号 08300530230 姓名 侯奕乐 时间 2010.12.06 目录摘要1Abstract2 第一章引言411课题背景412系统简介5第2章 系统的分析621系统开发的目标和思想622系统的可行性分析8第3章 系统的设计1331系统的功能结构设计1532系统的数据库设计1833界面设计与代码设计19结束语23致谢23参考文献摘要 车辆管理系统用计算机管理机动车辆的档案,运营管理以及驾驶员信息的一 种计算机应用技术的创新,在计算机还未普及之前车辆管理都是由工作人员手工 抄写的方式来操作的.现在一般的车辆管理都是采用计算机作为工具的实用的计

2、算机智能化车辆管理程序来帮助工作人员进行更有效的机动车辆管理。车辆管理 系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以 及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、 数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。经过分析,我们使用 MICROSOFT 公司的 VISUAL BASIC 开发工具,利用其提供 的各种面向对象的开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的智 能化对象,首先在短时间内建立系统应用原型,然后,对初始原型系统进行需求迭 代,不断修正和改进,直到形成用户满意的可行系统。 关键字:评语管理,MI

3、S,visual basic ,数据库AbstractVehicle Management System Computer used motor vehicles archives management, operation and management of a driver information computer applications innovation, Management h before the vehicles are from the staff manual transcription to operate.Now the general management of

4、the vehicles are used as a tool for computer computer intelligent vehicle management procedures to help staff more effective management of motor vehicles. Vehicle management system is a typical management information system (MIS), including its main development background to the establishment and ma

5、intenance of the database and front-end application development 2. The request for the establishment of strong data consistency and integrity, good for the security of the data. For the latter request applications functions, such as easy to use features.After analysis, we use Microsoft visual basic

6、development tool companies, the use of its various object-oriented development tools, especially data that can be easily accessible and concise window manipulation database intelligent objects, the first prototype application system in a short time and then, computation of the initial prototype syst

7、em needs to constantly revise and improve until the formation of a viable system of user satisfaction.keyword : comments management MIS,visual basic database as not yet popular in the computer第一章 引言1.1 课题背景 车辆管理系统用计算机管理机动车辆的档案,运营管理以及驾驶员信息的一种计算机应用技术的创新,在计算机还未普及之前车辆管 理都是由工作人员手工抄写的方式来操作的.现在一般的车辆管理都是采用计

8、算机作为工具的实用的计算机智能化车辆管理程序来帮助工作人员进行更有效的机动车辆管理。车辆管理系统是典型的信息管 理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应 用程序的开发两个方面。对于前者要求建立起数据一致性和完整性 强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使 用等特点。1.2 系统简介 本系统主要服务于车管所工作人员管理辖区机动车辆,以及驾驶员相关信息,本系统由以下几大功能模块构成. 一:车辆档案管理(车辆档案建立,车辆档案查询,车辆档案删 除,车辆档案变更查询等.) 二:车辆运营管理(车辆运营表,车辆运营查询,清空车辆运营 表)三:车辆管理(车辆维修管

9、理,车辆报废管理等) 四:驾驶员管理(驾驶员档案管理,驾驶员档案查询等) 五:系统维护(系统备份,系统还原,系统检查)第二章 系统的分析2.1 系统开发的目标和思想 本系统主要服务于机动车管理人员的日常工作.利用本系统可以 方便的监控管理本区域的驾驶员信息.在此基础上力求软件界面人性 化以及操作简单,程序具有健壮性等。2.2系统的可行性析 技术上:本系统采用 visual basic 6.0 与微软的 access 作为数 据库,技术上开发难度一般. 经济上:本系统服务于车辆管理人员,提高了车管工作者办事效率,节省了开支.所以具有经济上的可行性.社会上:本系统同时也方便了广大驾驶员，所以具有社

10、会可行性.第三章 系统的设计31系统的功能结构设计车辆管理系统车辆调度管理车辆费用管理驾驶员档案管理车辆档案管理驾驶员信息录入驾驶员信息查询车辆信息查询车辆信息录入车辆费用录入车辆费用查询车辆出车回车车辆状态查询32系统的数据库设计1.车辆报废表：2. 车辆档案表:3.车辆事故表:4.车辆违规表:5.车辆维修表:6.车辆变更表:7.车辆运营表:8.驾驶员档案9.奖惩表:10.零件表:11.用户表:33界面设计与代码设计1.登陆界面设计：登陆界面代码设计:Private Sub Combo1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then

11、Command1.SetFocus End IfEnd SubPrivate Sub Command1_Click() Set adors = adoCon.Execute("select * from 用户表 where 用户姓 名=ltrim('" & Text1 & "') and 密码=ltrim('" & Text2 & "') and 用户类 型=ltrim('" & Combo1.Text & "')")I

12、f adors.EOF ThenMsgBox "您输入的信息有误，请重新输入！", , "系统提示" Text1 = ""Text2 = "" Text1.SetFocusi = i + 1 If i = 3 Then MsgBox "对不起，您已无权使用本系统！", , "系统提示 Unload Me End If Else Select Case adors!用户类型 Case "管理员" Case "普通用户" MDIForm1.mnuyy

13、delete.Enabled = FalseMDIForm1.mnusyscsh.Enabled = False MDIForm1.mnuglyset.Enabled = False End Select MDIForm1. Show adors.Close Unload MeEnd If End SubPrivate Sub Command2_Click()Unload Me'adoRs.CloseEnd SubPrivate Sub Form_Load() Combo1.ListIndex = 0End SubPrivate Sub Text1_KeyPress(KeyAscii

14、As Integer) If KeyAscii = 13 Then Text2.SetFocus End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Combo1.SetFocusEnd If End Sub2 . 车辆报废查询:代码分析:Private Sub ckcp_Click() If ckcp.Value Then cmcp.Enabled = True Elsecmcp.Enabled = Fals End If End SubPrivate Sub cktime_

15、Click() If cktime.Value ThendtStart.Enabled = True dtEnd.Enabled = TrueElsedtStart.Enabled = False dtEnd.Enabled = FalseEnd IfEnd SubPrivate Sub ckyy_Click() If ckyy.Value Thencmyy.Enabled = TrueElsecmyy.Enabled = FalseEnd IfEnd SubPrivate Sub cmdCha_Click()'点击查询按纽后首先清空车辆报废列表 Call QingKon'定义

16、查询条件的字符串Dim sql As String Dim scp As String If ckcp.Value Thenscp = "车牌号码 like '%" & cmcp.Text & "%'"Elsescp = "车牌号码 like '%'"End IfDim stime As StringIf cktime.Value Thenstime = " 报 废 日 期between #" & dtStart.Month & "/&quo

17、t; &dtStart.Day & "/" & dtStart.Year & "# and #" & dtEnd.Month & "/" &dtEnd.Day & "/" & dtEnd.Year & "#" Elsestime = "报废日期 like '%'"End IfDim sdd As StringIf ckyy.Value Thensyy = "报废原因 li

18、ke'%" & cmyy.Text & "%'" Else syy = "报废原因 like '%'"End Ifsql = "select * from 车辆报废表 where " & scp & "and " & syy & "and " & stime'如果没有选择查询条件，那么清空上一次查询结果并给出对话框提示，退出查询过程If sql = "select * from 车

19、辆报废表 where 车牌号码 like '%'and 报 废原因 like '%'and 报废日期 like '%'" ThenCall QingKongMsgBox "请选择查询条件", , "系统提示"Exit SubEnd If'返回符合查询条件的记录集Set adors = adoCon.Execute(sql)'如果记录集为空，说明没有符合条件的记录存在，清空上一次查 询结果集并提示， '退出此次查询过程，否则在 datagrid1 控件里显示记录集If ado

20、rs.EOF Then Call QingKongMsgBox "对不起，没有符合您查询条件的车辆！", , "系统提示" ElseAdodc1.RecordSource = sqlAdodc1.RefreshEnd If adors.Close ckcp.Value = 0 cktime.Value = 0 ckyy.Value = 0End SubPrivate Sub cmdExit_Click()MDIForm1.StatusBar1.Panels(1).Text = "" Unload MeEnd SubPrivate Su

21、b Form_Load() frmcarBFcha.Height = 4155 frmcarBFcha.Width = 5730Label1.Caption = "车辆报废列表"Call Rebind'将车辆报废表里的车牌号码加到 cmcp 控件里Set adors = adoCon.Execute("select distinct 车牌号码, 报废原因from 车辆报废表")On Error Resume NextDocmcp.AddItem adors.Fields(0) cmyy.AddItem adors.Fields(1) adors.

22、MoveNextLoop Until adors.EOF End SubPrivate Sub Rebind()Label1.Caption = "车辆报废列表"'进行与数据库的绑定及选择作为记录源的表Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;DataSource=" & App.Path & "clgl.mdb " & "Persist Security Info=False" Adodc1.Record

23、Source = "select * from 车辆报废表" Adodc1.RefreshEnd SubPrivate Sub QingKong()Label1.Caption = "您所要查询的报废车辆记录如下：" Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path& "clgl.mdb " & "Persist Security Info=False"Adodc

24、1.RecordSource = "select * from 车辆报废表 where 0=1"Adodc1.RefreshEnd SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode AsInteger)cmdExit_ClickEnd Sub3.车辆档案查询:代码分析:Private Sub ckbf_Click()If ckbf.Value ThenCombo6.Enabled = True ElseCombo6.Enabled = FalseEnd IfEnd SubPrivate Sub ckb

25、x_Click() If ckbx.Value ThenCombo4.Enabled = TrueElseCombo4.Enabled = FalseEnd IfEnd SubPrivate Sub ckcp_Click() If ckcp.Value ThenCombo1.Enabled = True ElseCombo1.Enabled = False End IfEnd SubPrivate Sub ckdw_Click() If ckdw.Value ThenCombo3.Enabled = True Else Combo3.Enabled = False End IfEnd SubP

26、rivate Sub cklx_Click() If cklx.Value ThenCombo2.Enabled = TrueElseCombo2.Enabled = FalseEnd IfEnd SubPrivate Sub ckyd_Click() If ckyd.Value ThenCombo5.Enabled = TrueElseCombo5.Enabled = FalseEnd IfEnd SubPrivate Sub cmdAll_Click() Frame1.Enabled = False ckcp.Value = 0cklx.Value = 0 ckdw.Value = 0 c

27、kbx.Value = 0 ckyd.Value = 0 ckbf.Value = 0Call Rebind cmdCha.Visible = True cmdAll.Visible = False cmdOk.Enabled = FalseEnd SubPrivate Sub cmdExit_Click() MDIForm1.StatusBar1.Panels(1).Text = "" Unload MeEnd SubPrivate Sub cmdCha_Click()'点击查询按纽后首先清空车辆档案列表Call QingKong cmdCha.Visible =

28、 False cmdAll.Visible = True Frame1.Enabled = True cmdOk.Enabled = TrueEnd SubPrivate Sub cmdOk_Click() Dim sql As StringDim scp As StringIf ckcp.Value Thenscp = "车牌号码 like '" & Combo1.Text & "%'" Elsescp = "车牌号码 like '%'"End IfDim slx As StringI

29、f cklx.Value Thenslx = "车辆类型 like'%" & Combo2.Text & "%'" Elseslx = "车辆类型 like '%'"End IfDim sdw As StringIf ckdw.Value Thensdw = "车辆所在单位 like'%" & Combo3.Text & "%'" Elsesdw = "车辆所在单位 like '%'&quo

30、t;End IfDim sbx As StringIf ckbx.Value Thensbx = "保险否='" & Combo4.Text & "'"Elsesbx = "保险否 like '%'" End IfDim syd As StringIf ckyd.Value Thensyd = "异动否='" & Combo5.Text & "'" Elsesyd = "异动否 like '%

31、9;"End IfDim sbf As StringIf ckbf.Value Thensbf = " 报废否='" & Combo6.Text & "'" Elsesbf = "报废否 like '%'"End Ifsql = "select * from 车辆档案 where " & scp & "and " & slx & "and " & sdw & "

32、and " & sbx & "and " & syd & "and " & sbf'MsgBox sqlIf sql = "select * from 车辆档案 where 车牌号码 like '%'and 车辆类型 like '%'and 车辆所在单位 like '%'and 保险否 like '%'and 异 动否 like '%'and 报废否 like '%'" ThenMs

33、gBox "请选择查询条件", , "系统提示"'清空上一次的查询记录Call QingKongExit SubEnd IfSet adors = adoCon.Execute(sql) If adors.EOF Then'清空上一次的查询记录Call QingKong'给出文本框提示MsgBox "没有符合您查询车辆的条件！", , "系统提示" ElseAdodc1.RecordSource = sqlAdodc1.RefreshEnd If adors.Close ckcp.Value

34、 = 0cklx.Value = 0 ckdw.Value = 0 ckbx.Value = 0 ckyd.Value = 0 ckbf.Value = 0End SubPrivate Sub Form_Load()Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path& "clgl.mdb;Persist Security Info=False"Call Rebind cmdAll.Visible = False cmdCha.V

35、isible = True cmdOk.Enabled = False frmcardacha.Height = 5070 frmcardacha.Width = 7935'将表里存在的所有车牌加到控件 combo1 里On Error Resume NextAdodc1.RecordSource = "select distinct 车牌号码 from 车辆档案" DoCombo1.AddItem Adodc1.Recordset.Fields(0) Adodc1.Recordset.MoveNextLoop Until Adodc1.Recordset.EOF

36、Adodc1.RefreshAdodc2.RecordSource = "select distinct 车辆类型 from 车辆档案"Adodc2.RefreshDoCombo2.AddItem Adodc2.Recordset.Fields(0) Adodc2.Recordset.MoveNextLoop Until Adodc2.Recordset.EOFAdodc3.RecordSource = "select distinct 车辆所在单位 from 车辆 档案"Adodc3.RefreshDoCombo3.AddItem Adodc3.Rec

37、ordset.Fields(0) Adodc3.Recordset.MoveNextLoop Until Adodc3.Recordset.EOF Adodc1.RecordSource = "select * from 车辆档案" Adodc1.RefreshEnd SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode AsInteger)cmdExit_ClickEnd SubPrivate Sub Rebind()Frame2.Caption = "车辆档案列表"'联接数

38、据库及选表Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path& "clgl.mdb " & "Persist Security Info=False"Adodc1.RecordSource = "select * from 车辆档案"Adodc1.RefreshEnd SubPrivate Sub QingKong()Frame2.Caption = "您所要查询的车辆档

39、案如下："'清空 datagrid1 控件里的记录Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path& "clgl.mdb " & "Persist Security Info=False"Adodc1.RecordSource = "select * from 车辆档案 where 0=1"Adodc1.RefreshEnd Sub4.车辆事故查询界面:代码分析

40、:Private Sub ckcp_Click() If ckcp.Value ThencmCP.Enabled = TrueElsecmCP.Enabled = FalseEnd IfEnd SubPrivate Sub cktime_Click() If cktime.Value ThendtStart.Enabled = TruedtEnd.Enabled = TrueElsedtStart.Enabled = False dtEnd.Enabled = FalseEnd IfEnd SubPrivate Sub cmdCha_Click()'点击查询按纽后首先清空车辆档案列表C

41、all QingKong'定义查询字符串Dim sql As StringDim scp As StringIf ckcp.Value Thenscp = "车牌号码 like '" & cmCP.Text & "%'" Elsescp = "车牌号码 like '%'"End IfDim stime As StringIf cktime.Value Thenstime = "事故时间 between #" & dtStart.Month &

42、"/" &dtStart.Day & "/" & dtStart.Year & "# and #" & dtEnd.Month & "/" &dtEnd.Day & "/" & dtEnd.Year & "#" Elsestime = "事故时间 like '%'"End Ifsql = "select * from 车辆事故表 where "

43、; & scp & "and " & stime'MsgBox sqlIf sql = "select * from 车辆事故表 where 车牌号码 like '%'and事故时间 like '%'" ThenCall QingKongMsgBox "请选择查询条件", , "系统提示" Exit SubEnd IfSet adors = adoCon.Execute(sql)If adors.EOF ThenCall QingKongMsgBox

44、"对不起，没有符合您查询条件的车辆事故记录！", , "系统提示"ElseAdodc1.RecordSource = sqlAdodc1.RefreshEnd If adors.Closeckcp.Value = 0 cktime.Value = 0End SubPrivate Sub cmdExit_Click() MDIForm1.StatusBar1.Panels(1).Text = "" Unload MeEnd SubPrivate Sub Form_Load() frmcarSGcha.Width = 6375 frmca

45、rSGcha.Height = 3885Call RebindSet adors = adoCon.Execute("select distinct 车牌号码 from 车辆事 故表")On Error Resume NextDocmCP.AddItem adors.Fields(0)adors.MoveNext Loop Until adors.EOF adors.CloseEnd SubPrivate Sub Rebind()Frame2.Caption = "车辆事故列表"Adodc1.ConnectionString = "Provid

46、er=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path& "clgl.mdb;Persist Security Info=False"Adodc1.RecordSource = "select * from 车辆事故表"Adodc1.RefreshEnd SubPrivate Sub QingKong()Frame2.Caption = "您所要查询的车辆事故记录如下：" Adodc1.ConnectionString="Provider=Microsoft

47、.Jet.OLEDB.4.0;DataSource="&App.Path& "clgl.mdb;Persist Security Info=False"Adodc1.RecordSource = "select * from 车辆事故表 where 0=1"Adodc1.RefreshEnd SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode AsInteger)cmdExit_ClickEnd Sub5.车辆维修查询界面:代码分析:Private Sub

48、ckcp_Click() If ckcp.Value Thencmcp.Enabled = TrueElsecmcp.Enabled = FalseEnd IfEnd SubPrivate Sub ckfy_Click() If ckfy.Value ThenCombo1.Enabled = True Combo1.ListIndex = 0 txtFY.Enabled = TrueElsetxtFY.Enabled = FalseCombo1.Enabled = FalseEnd IfEnd SubPrivate Sub cktime_Click() If cktime.Value Then

49、dtStart.Enabled = True dtEnd.Enabled = TrueElsedtStart.Enabled = False dtEnd.Enabled = FalseEnd IfEnd SubPrivate Sub cmdCha_Click() Call QingKongDim sql As StringDim scp As StringIf ckcp.Value Thenscp = "车牌号码 like '" & cmcp.Text & "%'" Elsescp = "车牌号码 like &#

50、39;%'"End IfDim stime As StringIf cktime.Value Thenstime = "维修日期 between #" & dtStart.Month & "/" &dtStart.Day & "/" & dtStart.Year & "# and #" & dtEnd.Month & "/" &dtEnd.Day & "/" & dtEn

51、d.Year & "#" Elsestime = "维修日期 like '%'"End IfDim sfy As StringIf ckfy.Value Thensfy = "共计费用 " & Combo1.Text & "" & txtFY & ""Elsesfy = "共计费用 like '%'"End Ifsql = "select * from 车辆维修表 where " &a

52、mp; scp & "and " & stime& "and " & sfy'MsgBox sqlIf sql = "select * from 车辆维修表 where 车牌号码 like '%'and维修日期 like '%'and 共计费用 like '%'" ThenCall QingKongMsgBox "请选择查询条件", , "系统提示" Exit SubEnd IfSet adors = ado

53、Con.Execute(sql) If adors.EOF ThenCall QingKongMsgBox "对不起，没有符合您查询条件的车辆维修记录！", ,"系统提示" ElseAdodc1.RecordSource = sqlAdodc1.RefreshEnd If adors.Closeckcp.Value = 0 cktime.Value = 0 ckfy.Value = 0End SubPrivate Sub cmdExit_Click() MDIForm1.StatusBar1.Panels(1).Text = "" U

54、nload MeEnd SubPrivate Sub Form_Load() frmcarWXcha.Width = 6345 frmcarWXcha.Height = 4395Call Rebind'add all cp in the table carWXSet adors = adoCon.Execute("select distinct 车牌号码 from 车辆 维修表")On Error Resume NextDocmcp.AddItem adors.Fields(0)adors.MoveNext Loop Until adors.EOF adors.CloseEnd SubPrivate Sub Rebind()Frame2.Caption = "车辆维修列表"Adodc1.ConnectionString =