车辆管理系统

摘摘 要要 1 1 Abstract 2Abstract 2 第一章第一章 引言引言 4 4 1 1 课题背景 4 1 2 系统简介 5 第二章第二章 系统的分析系统的分析 6 6 2 1 系统开发的目标和思想 6 2 2 系统的可行性分析 8 第三章第三章 系统的设计系统的设计 18 18 3 1 系统的功能结构设计 18 3 2 系统的数据库设计 3 3 界面设计与代码设计 23 24 结束语结束语 46 46 致谢致谢 47 47 参考文献参考文献 摘摘 要要 车辆管理系统用计算机管理机动车辆的档案 运营管理以及驾驶员信息的一 种计算机应用技术的创新 在计算机还未普及之前车辆管理都是由工作人员手工 抄写的方式来操作的 现在一般的车辆管理都是采用计算机作为工具的实用的计 算机智能化车辆管理程序来帮助工作人员进行更有效的机动车辆管理 车辆管 理系统是典型的信息管理系统 MIS 其开发主要包括后台数据库的建立和维护 以及前端应用程序的开发两个方面 对于前者要求建立起数据一致性和完整性 强 数据安全性好的库 而对于后者则要求应用程序功能完备 易使用等特点 经过分析 我们使用 MICROSOFT 公司的 VISUAL BASIC 开发工具 利用其提 供的各种面向对象的开发工具 尤其是数据窗口这一能方便而简洁操纵数据库的 智能化对象 首先在短时间内建立系统应用原型 然后 对初始原型系统进行需求 迭代 不断修正和改进 直到形成用户满意的可行系统 关键字 评语管理 MIS visual basic 数据库 AbstractAbstract Vehicle Management System Computer used motor vehicles archives management operation and management of a driver information computer applications innovation Management has not yet popular in the computer before the vehicles are from the staff manual transcription to operate Now the general management of 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 maintenance 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 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 system needs to constantly revise and improve until the formation of a viable system of user satisfaction keywordkeyword comments management MIS visual basic database 第一章第一章引言引言 1 1 1 1课题背景课题背景 车辆管理系统用计算机管理机动车辆的档案 运营管理以及驾驶 员信息的一种计算机应用技术的创新 在计算机还未普及之前车辆管 理都是由工作人员手工抄写的方式来操作的 现在一般的车辆管理都 是采用计算机作为工具的实用的计算机智能化车辆管理程序来帮助 工作人员进行更有效的机动车辆管理 车辆管理系统是典型的信息 管理系统 MIS 其开发主要包括后台数据库的建立和维护以及前端 应用程序的开发两个方面 对于前者要求建立起数据一致性和完整 性强 数据安全性好的库 而对于后者则要求应用程序功能完备 易 使用等特点 1 1 2 2系统简介系统简介 本系统主要服务于车管所工作人员管理辖区机动车辆 以及驾驶员相关信息 本系统由以下几大功能模块构成 一 车辆档案管理 车辆档案建立 车辆档案查询 车辆档案删 除 车辆档案变更查询等 二 车辆运营管理 车辆运营表 车辆运营查询 清空车辆运营 表 三 车辆管理 车辆维修管理 车辆报废管理等 四 驾驶员管理 驾驶员档案管理 驾驶员档案查询等 五 系统维护 系统备份 系统还原 系统检查 第二章第二章系统的分析系统的分析 2 12 1 系统开发的目标和思想系统开发的目标和思想 本系统主要服务于机动车管理人员的日常工作 利用本系统可以 方便的监控管理本区域的驾驶员信息 在此基础上力求软件界面人性 化以及操作简单 程序具有健壮性等 2 22 2系统的可行性分析系统的可行性分析 技术上 本系统采用 visual basic 6 0 与微软的 access 作为数 据库 技术上开发难度一般 经济上 本系统服务于车辆管理人员 提高了车管工作者办事效 率 节省了开支 所以具有经济上的可行性 社会上 本系统同时也方便了广大驾驶员 所以具有社会可行性 第三章第三章系统的设计系统的设计 3 3 1 1 系统的功能结构设计系统的功能结构设计 程序登陆 主界面 车辆 档案 管理 车辆 运盈 管理 车辆 管理 驾驶 员管 理 系统 维护 3 3 2 2系统的数据库设计系统的数据库设计 1 车辆报废表车辆报废表 2 2 车辆档案表车辆档案表 3 车辆事故表车辆事故表 4 车辆违规表车辆违规表 5 车辆维修表车辆维修表 6 车辆变更表车辆变更表 7 车辆运营表车辆运营表 8 驾驶员档案驾驶员档案 9 奖惩表奖惩表 10 零件表零件表 11 用户表用户表 3 3 3 3 界面设计与代码设计界面设计与代码设计 1 登陆界面设计登陆界面设计 登陆界面代码设计登陆界面代码设计 Private Sub Combo1 KeyPress KeyAscii As Integer If KeyAscii 13 Then Command1 SetFocus End If End Sub Private Sub Command1 Click Set adors adoCon Execute select from 用户表 where 用户姓 名 ltrim Data Source Persist Security Info False Adodc1 RecordSource select from 车辆报废表 Adodc1 Refresh End Sub Private Sub QingKong Label1 Caption 您所要查询的报废车辆记录如下 Adodc1 ConnectionString Provider Microsoft Jet OLEDB 4 0 Data Source Persist Security Info False Adodc1 RecordSource select from 车辆报废表 where 0 1 Adodc1 Refresh End Sub Private Sub Form QueryUnload Cancel As Integer UnloadMode As Integer cmdExit Click End Sub 3 车辆档案查询 代码分析 Private Sub ckbf Click If ckbf Value Then Combo6 Enabled True Else Combo6 Enabled False End If End Sub Private Sub ckbx Click If ckbx Value Then Combo4 Enabled True Else Combo4 Enabled False End If End Sub Private Sub ckcp Click If ckcp Value Then Combo1 Enabled True Else Combo1 Enabled False End If End Sub Private Sub ckdw Click If ckdw Value Then Combo3 Enabled True Else Combo3 Enabled False End If End Sub Private Sub cklx Click If cklx Value Then Combo2 Enabled True Else Combo2 Enabled False End If End Sub Private Sub ckyd Click If ckyd Value Then Combo5 Enabled True Else Combo5 Enabled False End If End Sub Private Sub cmdAll Click Frame1 Enabled False ckcp Value 0 cklx Value 0 ckdw Value 0 ckbx Value 0 ckyd Value 0 ckbf Value 0 Call Rebind cmdCha Visible True cmdAll Visible False cmdOk Enabled False End Sub Private Sub cmdExit Click MDIForm1 StatusBar1 Panels 1 Text Unload Me End Sub Private Sub cmdCha Click 点击查询按纽后首先清空车辆档案列表 Call QingKong cmdCha Visible False cmdAll Visible True Frame1 Enabled True cmdOk Enabled True End Sub Private Sub cmdOk Click Dim sql As String Dim scp As String If ckcp Value Then scp 车牌号码 like Data Source Persist Security Info False Call Rebind cmdAll Visible False cmdCha Visible True cmdOk Enabled False frmcardacha Height 5070 frmcardacha Width 7935 将表里存在的所有车牌加到控件 combo1 里 On Error Resume Next Adodc1 RecordSource select distinct 车牌号码 from 车辆档案 Do Combo1 AddItem Adodc1 Recordset Fields 0 Adodc1 Recordset MoveNext Loop Until Adodc1 Recordset EOF Adodc1 Refresh Adodc2 RecordSource select distinct 车辆类型 from 车辆档案 Adodc2 Refresh Do Combo2 AddItem Adodc2 Recordset Fields 0 Adodc2 Recordset MoveNext Loop Until Adodc2 Recordset EOF Adodc3 RecordSource select distinct 车辆所在单位 from 车辆 档案 Adodc3 Refresh Do Combo3 AddItem Adodc3 Recordset Fields 0 Adodc3 Recordset MoveNext Loop Until Adodc3 Recordset EOF Adodc1 RecordSource select from 车辆档案 Adodc1 Refresh End Sub Private Sub Form QueryUnload Cancel As Integer UnloadMode As Integer cmdExit Click End Sub Private Sub Rebind Frame2 Caption 车辆档案列表 联接数据库及选表 Adodc1 ConnectionString Provider Microsoft Jet OLEDB 4 0 Data Source Persist Security Info False Adodc1 RecordSource select from 车辆档案 Adodc1 Refresh End Sub Private Sub QingKong Frame2 Caption 您所要查询的车辆档案如下 清空 datagrid1 控件里的记录 Adodc1 ConnectionString Provider Microsoft Jet OLEDB 4 0 Data Source Persist Security Info False Adodc1 RecordSource select from 车辆档案 where 0 1 Adodc1 Refresh End Sub 4车辆事故查询界面 代码分析 Private Sub ckcp Click If ckcp Value Then cmCP Enabled True Else cmCP Enabled False End If End Sub Private Sub cktime Click If cktime Value Then dtStart Enabled True dtEnd Enabled True Else dtStart Enabled False dtEnd Enabled False End If End Sub Private Sub cmdCha Click 点击查询按纽后首先清空车辆档案列表 Call QingKong 定义查询字符串 Dim sql As String Dim scp As String If ckcp Value Then scp 车牌号码 like Data Source Persist Security Info False Adodc1 RecordSource select from 车辆事故表 Adodc1 Refresh End Sub Private Sub QingKong Frame2 Caption 您所要查询的车辆事故记录如下 Adodc1 ConnectionString Provider Microsoft Jet OLEDB 4 0 Data Source Persist Security Info False Adodc1 RecordSource select from 车辆事故表 where 0 1 Adodc1 Refresh End Sub Private Sub Form QueryUnload Cancel As Integer UnloadMode As Integer cmdExit Click End Sub 5 车辆维修查询界面 代码分析 Private Sub ckcp Click If ckcp Value Then cmcp Enabled True Else cmcp Enabled False End If End Sub Private Sub ckfy Click If ckfy Value Then Combo1 Enabled True Combo1 ListIndex 0 txtFY Enabled True Else txtFY Enabled False Combo1 Enabled False End If End Sub Private Sub cktime Click If cktime Value Then dtStart Enabled True dtEnd Enabled True Else dtStart Enabled False dtEnd Enabled False End If End Sub Private Sub cmdCha Click Call QingKong Dim sql As String Dim scp As String If ckcp Value Then scp 车牌号码 like Data Source Persist Security Info False Adodc1 RecordSource select from 车辆维修表 Adodc1 Refresh End Sub Private Sub QingKong Frame2 Caption 您所要查询的车辆维修记录如下 Adodc1 ConnectionString Provider Microsoft Jet OLEDB 4 0 Data Source Persist Security Info False Adodc1 RecordSource select from 车辆维修表 where 1 0 Adodc1 Refresh End Sub Private Sub Form QueryUnload Cancel As Integer UnloadMode As Integer cmdExit Click End Sub 结束语结束语 本软件的设计目的是为车管人员方便管理机动车与驾驶员信息提供方便 通 过这几个月的毕业设计 我学到很多以前没有学到的 visual basic 开发技术 在软件工程学上更是取得了很大的进步 经过大量的测试和试用 作者深信本 软件达到了方便和实用的设计目的 并在软件界面和易用实用等方面有着独到 之处 虽然软件基本达到设计要求并且达到同行的先进水平 但由于作者水平有限 软件存在 bug 也是在所难免的 您的意见和建议将极大的帮助我改进并完善软 件 真诚的希望你的参与 致谢致谢 我首先感谢我的指导老师吕老师 在他严格的要求下我懂得了开发软件要 有一种极其认真负责的态度 无论做什么事都要大胆的去想去做 这样会有好 的创意 才能更有作为 在这里我还要感谢我们宿舍的其它 5 个同学 他们和我共同生活了四年 在生 活和学习上给了我很大的帮助 参参 考考 文文 献献 1 陈明 软件工程学教程 科技出版社 2002 2 萨师煊 王珊 数据库系统概论 第三版 高等教育出版社 2000 3 飞思