基于VB的车辆管理系统毕业论文.doc

《基于VB的车辆管理系统毕业论文.doc》由会员分享，可在线阅读，更多相关《基于VB的车辆管理系统毕业论文.doc（37页珍藏版）》请在三一办公上搜索。

1、基于VB的车辆管理系统摘要车辆管理系统用计算机管理机动车辆的档案，运营管理以及驾驶员信息的一种计算机应用技术的创新，在计算机还未普及之前车辆管理都是由工作人员手工抄写的方式来操作的。现在一般的车辆管理都是采用计算机作为工具的实用的计算机智能化车辆管理程序来帮助工作人员进行更有效的机动车辆管理。车辆管理系统是典型的信息管理系统(MIS)，其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备，易使用等特点。经过分析，我们使用 MICROSOFT公司的 VISUAL BASIC开发工具,利用其提

2、供的各种面向对象的开发工具，尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象，首先在短时间内建立系统应用原型，然后，对初始原型系统进行需求迭代，不断修正和改进，直到形成用户满意的可行车辆管理系统系统。关键词：车辆管理系统,数据库，信息管理系统，智能化Vehicle Management System Based on VBAbstractVehicle Management System Computer used motor vehicles archives management, operation and management of a driver information com

3、puter 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 effec

4、tive 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 cons

5、istency 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 easil

6、y 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. keywords : Vehic

7、le management system , database，information management system，intelligentize目 录摘要IABSTRACTII第一章 引言11.1 课题开发背景11.2 课题意义11.3 研究现状1第二章 开发工具简介32.1 开发工具的选择32.2 Visual Basic简介32.3 VB的发展史和特点32.3.1 VB的发展史32.3.2 VB的特点32.4 数据库的简介与优缺点42.4.1 Access的简介42.4.2 Access的优缺点5第三章 系统总体设计73.1 系统需求分析73.2 系统概要设计73.2.1 系统结构

8、设计73.2.2 数据库设计9第四章 系统应用程序设计154.1 程序主界面的设计154.1.1 MDI主窗体设计154.1.2 工具栏设计164.1.3 程序代码设计174.2 系统登录界面设计184.2.1 登录界面窗体设计184.2.2 代码设计194.3 车辆档案录入204.3.1 代码设计214.3.2 车辆档案录入234.4 车辆运营列表234.4.1 窗体界面设计234.4.2 程序代码设计244.4.3 车辆运营列表254.5 车辆违章列表264.5.1 窗体界面设计264.5.2 程序代码设计264.5.2 车辆违章记录274.6 车辆运营查询284.6.1 窗体界面设计28

9、4.6.2 程序代码设计294.6.3 车辆运营查询294.7 程序调试和错误处理30第五章 系统总结31结束语32参考文献33致 谢34 第一章 引言1.1 课题开发背景车辆的管理在各机关、企事业单位一直是一个难题，一方面使用成本居高不下，另一方面各部门却经常抱怨不能有效地使用车辆，车辆驾驶员更多的将车辆当作私家车在使用，对车辆的使用成本不加以控制，管理部门没有有效的手段对车辆的使用、费用进行控制，也无法对车辆的使用、费用情况进行统计、分析，制定合理的使用计划，大大降低了车辆的使用效率。1.2 课题意义随着经济的日益增长,各地区的车辆数量增长迅速，由此各地的车辆管理所需要保管的机动车档案资料

10、增加迅速。随着档案资料的增加，工作人员劳动强度增大，档案资料的存储、查询等工作与办公高效率的要求矛盾日渐突出。本论文所介绍的便是一个车辆管理系统，以规范对车辆信息的管理，提高管理效率。车辆作为最重要的交通工具,在企事业单位中得以普及,单位的车辆数目已经远远不止简单的几辆,与此同时就产生了车辆资源的合理分配使用问题。该问题涉及到车辆的档案管理；驾驶员档案管理；车辆（维修费用、洗车费用、养路费、燃料费用等）管理；车辆使用管理和交通事故管理等。如何对一个企事业单位的车辆进行合理分配使用，使其发挥最大的使用价值，所以该系统对于一个用车单位来说，不但可以对车辆的使用进行合理的管理，而且对车辆的使用情况进

11、行跟踪记录，这对于单位车辆责任到人，费用清晰，避免责任混乱、费用虚假等一系列相应问题的解决。 1.3 研究现状在当前的车辆管理中, 主要存在下列四种主要问题: 单位车辆难控制、首长专车难管理、运营车辆难抓和事故车辆难判。针对上述情况, 一般可用惯性器件结合各种传感器加以解决, 但该方法在用于车辆事故分析、驾驶员的技术测评方面的确绰绰有余, 但是在车辆管理方面则遇到许多问题。如果利用GPS 这种高科技手段, 再辅以上层管理平台, 就能将车辆管理提高到一个新的层次, 实现对车辆的智能化、科学化以及规范化的管理, 提高车辆使用效率, 降低损耗, 减少违章、违纪现象, 确保安全, 做到出入车辆有记录、

12、单位派车有检查、单位司机有考核, 通过技术手段使严格管理落到实处, 使管理和考核更加客观、公正, 减少人为干扰。整个系统由硬件和软件两部分组成。硬件部分主要是安装在受管车辆上的车载终端, 其完成GPS 数据的采集; 软件部分为车辆管理平台, 是整个系统的管理控制中心, 担负着系统数据的存储、查询、修改、维护及发布命令, 对系统进行控制等功能, 完成系统数据的采集、处理, 数字地图数据库的管理和数字地图显示, 车辆信息数据库的管理和信息查询等功能。第二章 开发工具简介2.1 开发工具的选择系统开发平台：Visual Basic 6.0数据库管理系统软件：Microsoft Access 2000

13、运行平台：Windows XP/Windows 2003/Windows 2000/Windows 98分辨率：最佳效果 1024*7682.2 Visual Basic简介Visual Basic (VB) 是在windows 的环境下运行的，支持可视化编程的、面向对象的、采用事件驱动方式的结构化程序设计语言。也是进行应用系统开发最简单的、易学易用的程序设计工具。从任何标准来说，VB是世界上使用人数最多的语言。它源自于BASIC编程语言，其开发的应用程序的运行采用事件驱动原理在VB代码窗口输入代码时，对VB中的对象的属性、方法、内置的函数和已定义的自定义函数等。能自动给出拼写提示，这样可大大

14、编程人员的记忆量，程序员可以轻松的使用VB提供的组件快速建立一个应用程序。2.3 VB的发展史和特点2.3.1 VB的发展史1991年，美国微软公司推出了Visual Basic (VB)，目前的最新版本是VB的2005中文版，Visual意即可视的、可见的，指的是开发像windows操作系统的图形用户界面的方法，它不需要编写大量的代码去描述界面元素的外观和位置，只要把预先建立好的对象拖放到屏幕上相应的位置即可，Basic是指Beginners all_purpose symbolic instruction code 初始者通用符号指令代码语言。Visual Basic有学习版、专业版和企业

15、版三种版本，以满足不同的开发需要。2.3.2 VB的特点VB是一个集成开发环境，能编程、调试和运行程序，也能生成可执行程序。用VB可以方便的开发出应用于数学计算、字符处理、数据库管理、图形图像处理及Internet等各种类型的应用软件。VB的主要特点如下：1.可视界面：系统提供了大量的“界面”元素，可以直观动态地调整大小、位置，是面向对象的可视化程序设计，可以自动生成在屏幕上显示界面的代码。用户只需编写少量的程序代码，就可以快速的开发标准的windows应用程序。2.面向对象：把数据和处理数据的代码封装在frm程序中，形成一个个可视的图形对象，用户只需设计这些图形对象。3.事件驱动:单击鼠标、

16、双击鼠标、移动鼠标、改变时间、改变大小等都称为事件。事件发生时，程序才执行；没有事件发生，则处于等待状态。4.它是一种结构化程序设计语言，具有高级程序设计语言的语句结构和数据结构。5.它可以对多种数据库系统进行访问，利用数据库控件可以访问Access、Server等。6.支持对象的链接与嵌入。VB能把其它windows应用程序视为对象嵌入VB应用程序中，便于更好的处理程序。7.支持动态链接库。在VB应用程序中能调用C+、汇编程序编写的函数和API函数。8.支持建立用户自己的ActiveX控件，可以创建新控件，增加控件属性。2.4 数据库的简介与优缺点2.4.1 Access的简介Access

17、是微软公司推出的基于Windows的桌面关系数据库管理系统（RDBMS，即Relational Database Management System），是Office系列应用软件之一。它提供了表、查询、窗体、报表、页、宏、模块7种用来建立数据库系统的对象；提供了多种向导、生成器、模板，把数据存储、数据查询、界面设计、报表生成等操作规范化；为建立功能完善的数据库管理系统提供了方便，也使得普通用户不必编写代码，就可以完成大部分数据管理的任务。Access能够存取 Access/Jet、Microsoft SQL Server、Oracle(甲骨文软件公司)，或者任何 ODBC 兼容数据库内的资料。

18、熟练的软件设计师和资料分析师利用它来开发应用软件，而一些不熟练的程序员和非程序员的进阶用户则能使用它来开发简单的应用软件。虽然它支援部份面向对象（OO）技术，但是未能成为一种完整的面向对象开发工具。 2.4.2 Access的优缺点优点：（1）存储方式单一 Access管理的对象有表、查询、窗体、报表、页、宏和模块，以上对象都存放在后缀为（.mdb）的数据库文件中，便于用户的操作和管理。 （2）面向对象 Access是一个面向对象的开发工具，利用面向对象的方式将数据库系统中的各种功能对象化，将数据库管理的各种功能封装在各类对象中。它将一个应用系统当作是由一系列对象组成的，对每个对象它都定义一组

19、方法和属性，以定义该对象的行为和外国，用户还可以按需要给对象扩展方法和属性。通过对象的方法、属性完成数据库的操作和管理，极大地简化了用户的开发工作。同时，这种基于面向对象的开发方式，使得开发应用程序更为简便。 （3）界面友好、易操作 Access是一个可视化工具，是风格与Windows完全一样，用户想要生成对象并应用，只要使用鼠标进行拖放即可，非常直观方便。系统还提供了表生成器、查询生成器、报表设计器以及数据库向导、表向导、查询向导、窗体向导、报表向导等工具，使得操作简便，容易使用和掌握。 （4）集成环境、处理多种数据信息 Access基于Windows操作系统下的集成开发环境，该环境集成了各

20、种向导和生成器工具，极大地提高了开发人员的工作效率，使得建立数据库、创建表、设计用户界面、设计数据查询、报表打印等可以方便有序地进行。 （5）Access支持ODBC（开发数据库互连，Open Data Base Connectivity），利用Access强大的DDE（动态数据交换）和OLE（对象的联接和嵌入）特性，可以在一个数据表中嵌入位图、声音、Excel表格、Word文档，还可以建立动态的数据库报表和窗体等。Access还可以将程序应用于网络，并与网络上的动态数据相联接。利用数据库访问页对象生成HTML文件，轻松构建Internet/Intranet的应用。缺点：ACCESS是小型数据

21、库，既然是小型就有他根本的局限性，以下几种情况下数据库基本上会吃不消：（1） 数据库过大，一般ACCESS数据库达到50M左右的时候性能会急剧下降。（2） 网站访问频繁，经常达到100人左右的在线。（3） 记录数过多，一般记录数达到10万条左右的时候性能就会急剧下降。第三章 系统总体设计3.1 系统需求分析对于拥有大量车辆的机关企事业单位来说，车辆的管理成为日常事务中的一项重要工作。如何让管理人员及时了解每一辆车的情况，提高车辆的使用率，减少费用的支出，就成为各单位需要解决的一个难题。为规范企业内部管理，提高企业管理质量，更好的服务于广大的客户，需要开发出一套专门用于车辆管理的软件。本软件需要

22、具有集中管理车辆的运营、维修、事故、违章等一系列信息功能，有效跟踪管理企业每台汽车的使用状况，带动企业进入车辆管理信息化、科学化，同时也可以节省人力、物力、财力，提高工作效率，使企业车辆管理更加科学、更加规范。本系统主要服务于机动车管理人员的日常工作，利用本系统可以方便的监控管理本区域的驾驶员信息，在此基础上力求软件界面人性化以及操作简单,程序具有健壮性等。3.2 系统概要设计 3.2.1 系统结构设计车辆管理系统是一个非常有特点的管理软件，系统由车辆档案管理、车辆运营列表、车辆管理、驾驶员管理、系统设置、系统维护等几个功能模块组成。规划系统功能模块如下：车辆档案管理：车辆档案录入、车辆档案查

23、询、车辆异动列表、车辆异动查询、车辆报废、车辆报废查询。车辆运营管理：车辆运营管理、车辆运营查询、清空运营表。车辆管理：维修管理、违章管理、事故管理3大部分。其中维修管理包括车辆维修列表、车辆维修查询、添加零件。违章管理包括车辆违章列表、车辆违章查询；事故管理包括车辆事故列表、车辆事故查询。系统设置：系统初始化、管理员设置、权限设置。系统维护：数据备份、数据恢复2个部分。如图 3-1所示：图 3-1 系统结构图图 3-2 系统部分流程图3.2.2 数据库设计在信息管理系统中，数据都保存在数据库中，所以数据库的设计在开发系统之前就应该确定，而且非常重要。在VB中，访问数据库一般有两种方式。一种是

24、非编码方式，主要通过Data等控件，可以不需要任何编程，只需要简单设置控件的一些属性并结合文本框等普通控件即可以方便地显示和操作数据库中的数据。二是通过编写代码，即利用数据访问对象（DAO）来实现。本系统中运用了数据库Access2000作为后台数据库。在系统中主要运用了ADO控件来访问数据库的方法，从而节省了大量的工作量。图3-3车辆报废表E-R图图3-4车辆报废表图3-5 车辆档案表E-R图图3-6 车辆档案表图3-7 车辆违章表E-R图图3-8 车辆违章表图3-9 车辆维修表E-R图图3-10 车辆维修表图3-11 车辆运营表E-R图图3-12 车辆运营表图3-13 零件表E-R图图3-

25、14 零件表图3-15 用户表E-R图图3-16 用户表第四章 系统应用程序设计4.1 程序主界面的设计程序启动后，在系统登录界面验证操作员密码后，将进入程序主界面。通过程序主界面将会执行相应的权限操作，并且还可以通过主界面的菜单，来调用相应程序，再进行相应操作。如图图4-1所示。图4-1 主界面窗体4.1.1 MDI主窗体设计MDI主窗体通过工具栏按钮操作车辆档案管理、车辆运营管理、车辆管理、驾驶员管理、系统设置等几大模块，也是退出系统的唯一出口。（1）创建一个MDI窗体，设置其Caption属性“为车辆管理系统”。（2）在表单中添加Toolbar控件、Statusbar控件、Imageli

26、st控件和Timer控件。（3）重要控件属性如表4-1所示。表4-1 主程序界面重要控件属性列表控件名属性值ToolbarStyle1-TransparentTimerInterval10004.1.2 工具栏设计Toolbar控件按钮与应用程序中菜单按钮箱对应，为了给用户提供常用菜单命令的快捷访问方法，在车辆管理系统中设计了工具栏。另外，Toolbar控件的按钮上显示的所有图像都是ImageList控件存储和添加的，所以窗体上的工具栏是通过Toolbar控件和ImageList控件共同来实现的。添加Toolbar控件和ImageList控件到工具箱。Toolbar控件和ImageList控件

27、都属于ActiveX控件，使用时需要从“部件”对话框中添加。添加Toolbar控件和ImageList控件的过程：在“工程”菜单中选择“部件”子菜单，在弹出的“部件”窗口中“控件”选项卡内选择“Microsoft Windows Common Controls 6.0”，然后单击“确定”按钮，此时将Toolbar控件和ImageList控件添加到工具箱当中。图4-3部件4.1.3 程序代码设计清空运营表图4-4清空运营表在主窗体菜单“车辆运营管理”子菜单“清空运营表”（属管理员权限）的Click事件下，添加如下代码：If MsgBox(真的要清空运营表吗？, vbOKCancel, 车辆管理系

28、统) = vbOK Thencnn.Execute (delete from 车辆运营表) 清空车辆运营表Elsers1.CloseExit SubEnd If在Toolbar 控件的ButtonClick 事件中添加以下代码：Select Case Button.IndexCase 1 Call mnucardaadd_Click 调用车辆档案录入窗体Case 2 Call mnujsylist_Click 调用驾驶员档案列表窗体Case 3 Call mnuyylist_Click 调用车辆运营列表窗体Case 5 Call mnucarwxlist_Click 调用车辆维修列表窗体Cas

29、e 6 Call mnucarwzlist_Click 调用车辆违章列表窗体Case 7 Call mnucarsglist_Click 调用车辆事故列表窗体End Select4.2 系统登录界面设计4.2.1 登录界面窗体设计（1）添加一个表单，名称为frmlogin。（2）在表单中添加Label控件、Text控件、Image控件。图4-5 “用户登录”表单运行结果4.2.2 代码设计如果在登录过程中连续3次输入错误信息，将自动退出系统。在“确定”按钮的Click 事件中添加以下代码： Adodc1.RecordSource = select * from 权限表 where 用户名= +

30、 Text1.Text + Adodc1.Refresh If Adodc1.Recordset.RecordCount = 0 Then MsgBox 操作员输入错误！, , 车辆管理系统 ElseIf Adodc1.Recordset.RecordCount 0 ThenIf Text1.Text And Text2.Text And Text2.Text = Adodc1.Recordset.Fields(密码) ThenLoad MDIForm1 显示主窗体MDIForm1.Showop = Adodc1.Recordset.Fields(用户名)Unload MeElseIf TIM

31、 = 3 Then 密码输错3次，退出系统myval = MsgBox(密码输入错误,请向系统管理员查询!, 0, 车辆管理系统)If myval = vbOK Then End End IfIf Text1.Text = Then MsgBox (请输入用户名!) Text1.SetFocusElse If Text1.Text Adodc1.Recordset.Fields(用户名) Then MsgBox (查无此用户,请重新输入用户名!) Text1.SetFocus Else If Text2.Text = Then MsgBox (请输入用户密码!) Text2.SetFocus

32、Else If Text2.Text Adodc1.Recordset.Fields(密码) Then MsgBox (密码错误,请重新输入密码!) TIM = TIM + 1 Text2.SetFocus End IfEnd If End If End If End IfEnd If4.3 车辆档案录入车辆档案录入操作窗体用于添加、修改、删除车辆档案信息。车辆档案的添加、修改、删除可以通过ADO控件实现，其中使用了AddNew、Update和Delete方法。4.3.1 窗体界面设计（1）新建一个窗体，名称为Frm车辆档案录入。（2）在表单中添加Label控件、Text控件、Combo控件、

33、MonthView控件（Microsoft MonthView Control, version 6.0）、Check控件、Edit控件、Commandgroup控件、Command控件和Container控件。图4-6车辆档案录入表4.3.1 代码设计在Test1控件的LostFocus事件下，判断用户添加的“车牌号码”是否与表中的数据重复，其代码如下： Set rs = adoCon.Execute(select * from 车辆档案 where 车牌号码= & Text1.Text & ) If rs.EOF = False Then MsgBox 此车牌号码已经存在！, 4, 车辆管

34、理系统 Text1 = 初始化处理，清空文本框空间中的内容，为部分控件赋初始值，然后设置一些按钮有效，为用户添加新数据做准备。在“增加”按钮的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 Imgok.En

35、abled = True: Imgcancel.Enabled = True Imgdelete.Enabled = False: Combo1.Visible = True Adodc1.Enabled = False: Imgupdate.Enabled = False i = 1使用Delete语句删除车辆信息。在“删除”按钮的Click事件下添加代码如下：If MsgBox(您确实要删除记录吗？, vbOKCancel, 车辆管理系统) = vbOK Then adoCon.Execute (delete from 车辆档案 where 车牌号码= & Text1 & ) MsgBox

36、 记录已删除！, , 车辆管理系统 Unload Me在“取消”按钮的Click事件下添加代码如下：On Error Resume Next Adodc1.Recordset.CancelUpdate Adodc1.Refresh Lockctl Imgok.Enabled = False: Imgcancel.Enabled = False Imgadd.Enabled = True: Imgupdate.Enabled = True Imgdelete.Enabled = True: Adodc1.Enabled = True4.3.2 车辆档案录入窗体运行结果，如图4.7所示：图4-7车

37、辆档案录入4.4 车辆运营列表车辆运营列表窗体用于添加、修改、删除车辆运营信息。4.4.1 窗体界面设计新建一个窗体，Caption属性为“车辆运营列表”，BorderStyle属性为1-Fixed Single。在窗体上添加Text、Label、CommandButton、DTPicker控件。图4-8车辆运营列表4.4.2 程序代码设计在Text1控件的LostFocus事件下判断某个车辆是否属于公司车辆，由于报废车辆和异动车辆不能参加运营，所以这里也需要判断，其核心代码如下： 此车是否是本公司的 Set rss = adoCon.Execute(select * from 车辆档案 wh

38、ere 车牌号码= & Text1.Text & ) If rss.EOF Then MsgBox 这辆车不属于本公司的！, , 车辆管理系统 Text1.Text = Text1.SetFocus Exit Sub End If rss.Close 此车是否报废了 Set rss1 = adoCon.Execute(select * from 车辆报废表 where 车牌号码= & Text1.Text & ) If rss1.EOF Then Else MsgBox 此车已经报废，不能参加运营！, , 车辆管理系统 Text1.Text = Text1.SetFocus Exit Sub

39、End If rss1.Close 此车是否异动了 Set rss2 = adoCon.Execute(select * from 车辆异动表 where 车牌号码= & Text1.Text & ) If rss2.EOF Then Else MsgBox 此车为“异动车辆”不能参加运营！, , 车辆管理系统 Text1.Text = Text1.SetFocus Exit Sub End If rss2.Close在“添加”按钮的Click事件下，通过ADO对象创建“车辆运营表”的记录集，通过对记录集中记录数的判断对“营运编号”进行自动编号，其代码如下： Dim rs As New ADO

40、DB.Recordset rs.Open select * from 车辆运营表, cnn, adOpenKeyset, adLockOptimistic If rs.RecordCount 0 Then rs.MoveLast aa = rs.Fields(0) Text5.Text = YY + Format(Val(Right(rs.Fields(运营编号), 3) + 1, #000) Else Text5.Text = YY001 End If在“删除”按钮的Click事件下，通过ADO控件的Delete方法删除数据，代码如下： If MsgBox(您确实要删除记录吗？, vbOKC

41、ancel, 车辆管理系统) = vbOK Then Adodc1.Recordset.Delete MsgBox 记录已删除！, , 车辆管理系统 Adodc1.Refresh End If4.4.3 车辆运营列表运行结果，如图4-9所示：图4-9车辆运营列表结果图4.5 车辆违章列表4.5.1 窗体界面设计（1）新建一个窗体，Caption属性为“车辆违章记录”。（2）在窗体上添加Test、Label、CommandButton、DTPicker控件。如图4-10所示：图4-10车辆违章记录图4.5.2 程序代码设计判断报废车辆和异动车辆不可以添加到违章列表中，在Text1控件LostFo

42、cus事件下，添加如下核心代码： Set rss = adoCon.Execute(select * from 车辆档案 where 车牌号码= & Text1.Text & ) If rss.EOF Then MsgBox 这辆车不属于本公司的！, , 车辆管理系统 Text1.Text = Text1.SetFocus Exit Sub End If Set rss1 = adoCon.Execute(select * from 车辆异动表 where 车牌号码= & Text1.Text & ) If rss1.EOF Then Else MsgBox 该车为异动车辆！, , 车辆管理系

43、统 Text1.Text = Text1.SetFocus Exit Sub End If Set rss2 = adoCon.Execute(select * from 车辆报废表 where 车牌号码= & Text1.Text & ) If rss2.EOF Then Else MsgBox 该车已经报废！, , 车辆管理系统 Text1.Text = Text1.SetFocus Exit Sub End If4.5.2 车辆违章记录窗体运行结果，如图4-11所示。图4-11车辆违章记录运行结果图4.6 车辆运营查询车辆运营查询窗体主要完成按车牌号码、运营日期和运营时间段查询车辆运营情

44、况。4.6.1 窗体界面设计（1）新建一个窗体，Caption属性为“车辆运营查询窗体”，在改窗体上一次添加控件。（2）在窗体上添加DataGrid控件，用来显示查询车辆运营的结果。（3）在窗体中添加Text、Label、Image、DTPicker控件，如图4-12所示：图4-12车辆运营查询图4.6.2 程序代码设计设计一个Rebind过程，用于显示表中所有数据。Frame2.Caption = 车辆运营列表 Adodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & clgl.mdb & ;Persist Security Info=False Adodc1.RecordSource = select * from 车辆运营表 Adodc1.Refresh