《毕业设计（论文）车辆信息管理系统.doc》由会员分享，可在线阅读，更多相关《毕业设计（论文）车辆信息管理系统.doc（32页珍藏版）》请在三一办公上搜索。
1、第1章 引言1.1 课题开发背景车辆的管理在各机关、企事业单位一直是一个难题，一方面使用成本居高不下，另一方面各部门却经常抱怨不能有效地使用车辆，车辆驾驶员更多的将车辆当作私家车在使用，对车辆的使用成本不加以控制，管理部门没有有效的手段对车辆的使用、费用进行控制，也无法对车辆的使用、费用情况进行统计、分析，制定合理的使用计划，大大降低了车辆的使用效率。1.2 课题意义随着经济的日益增长,各地区的车辆数量增长迅速，由此各地的车辆管理所需要保管的机动车档案资料增加迅速。随着档案资料的增加，工作人员劳动强度增大，档案资料的存储、查询等工作与办公高效率的要求矛盾日渐突出。本论文所介绍的便是一个车辆管理
2、系统，以规范对车辆信息的管理，提高管理效率。车辆作为最重要的交通工具,在企事业单位中得以普及,单位的车辆数目已经远远不止简单的几辆,与此同时就产生了车辆资源的合理分配使用问题。该问题涉及到车辆的档案管理；驾驶员档案管理；车辆（维修费用、洗车费用、养路费、燃料费用等）管理；车辆使用管理和交通事故管理等。如何对一个企事业单位的车辆进行合理分配使用，使其发挥最大的使用价值，所以该系统对于一个用车单位来说，不但可以对车辆的使用进行合理的管理，而且对车辆的使用情况进行跟踪记录，这对于单位车辆责任到人，费用清晰，避免责任混乱、费用虚假等一系列相应问题的解决。 1.3 研究现状在当前的车辆管理中, 主要存在
3、下列四种主要问题: 单位车辆难控制、首长专车难管理、运营车辆难抓和事故车辆难判。针对上述情况, 一般可用惯性器件结合各种传感器加以解决, 但该方法在用于车辆事故分析、驾驶员的技术测评方面的确绰绰有余, 但是在车辆管理方面则遇到许多问题。如果利用GPS 这种高科技手段, 再辅以上层管理平台, 就能将车辆管理提高到一个新的层次, 实现对车辆的智能化、科学化以及规范化的管理, 提高车辆使用效率, 降低损耗, 减少违章、违纪现象, 确保安全, 做到出入车辆有记录、单位派车有检查、单位司机有考核, 通过技术手段使严格管理落到实处, 使管理和考核更加客观、公正, 减少人为干扰。整个系统由硬件和软件两部分组
4、成。硬件部分主要是安装在受管车辆上的车载终端, 其完成GPS 数据的采集; 软件部分为车辆管理平台, 是整个系统的管理控制中心, 担负着系统数据的存储、查询、修改、维护及发布命令, 对系统进行控制等功能, 完成系统数据的采集、处理, 数字地图数据库的管理和数字地图显示, 车辆信息数据库的管理和信息查询等功能。第2章 开发工具简介2.1 开发工具的选择系统开发平台：Visual Basic 6.0数据库管理系统软件：Microsoft Access 2000运行平台：Windows XP/Windows 2003/Windows 2000/Win7分辨率：最佳效果 1024*7682.2 Vis
5、ual Basic简介Visual Basic (VB) 是在windows 的环境下运行的，支持可视化编程的、面向对象的、采用事件驱动方式的结构化程序设计语言。也是进行应用系统开发最简单的、易学易用的程序设计工具。从任何标准来说，VB是世界上使用人数最多的语言。它源自于BASIC编程语言，其开发的应用程序的运行采用事件驱动原理在VB代码窗口输入代码时，对VB中的对象的属性、方法、内置的函数和已定义的自定义函数等。能自动给出拼写提示，这样可大大编程人员的记忆量，程序员可以轻松的使用VB提供的组件快速建立一个应用程序。2.3 VB的发展史和特点2.3.1 VB的发展史1991年，美国微软公司推出
6、了Visual Basic (VB)，目前的最新版本是VB的2005中文版，Visual意即可视的、可见的，指的是开发像windows操作系统的图形用户界面的方法，它不需要编写大量的代码去描述界面元素的外观和位置，只要把预先建立好的对象拖放到屏幕上相应的位置即可，Basic是指Beginners all_purpose symbolic instruction code 初始者通用符号指令代码语言。Visual Basic有学习版、专业版和企业版三种版本，以满足不同的开发需要。2.3.2 VB的特点VB是一个集成开发环境，能编程、调试和运行程序，也能生成可执行程序。用VB可以方便的开发出应用于
7、数学计算、字符处理、数据库管理、图形图像处理及Internet等各种类型的应用软件。VB的主要特点如下：1.可视界面：系统提供了大量的“界面”元素，可以直观动态地调整大小、位置，是面向对象的可视化程序设计，可以自动生成在屏幕上显示界面的代码。用户只需编写少量的程序代码，就可以快速的开发标准的windows应用程序。2.面向对象：把数据和处理数据的代码封装在frm程序中，形成一个个可视的图形对象，用户只需设计这些图形对象。3.事件驱动:单击鼠标、双击鼠标、移动鼠标、改变时间、改变大小等都称为事件。事件发生时，程序才执行；没有事件发生，则处于等待状态。4.它是一种结构化程序设计语言，具有高级程序设
8、计语言的语句结构和数据结构。5.它可以对多种数据库系统进行访问，利用数据库控件可以访问Access、Server等。6.支持对象的链接与嵌入。VB能把其它windows应用程序视为对象嵌入VB应用程序中，便于更好的处理程序。7.支持动态链接库。在VB应用程序中能调用C+、汇编程序编写的函数和API函数。8.支持建立用户自己的ActiveX控件，可以创建新控件，增加控件属性。2.4 数据库的简介与优缺点2.4.1 Access的简介Access 是微软公司推出的基于Windows的桌面关系数据库管理系统（RDBMS，即Relational Database Management System），
9、是Office系列应用软件之一。它提供了表、查询、窗体、报表、页、宏、模块7种用来建立数据库系统的对象；提供了多种向导、生成器、模板，把数据存储、数据查询、界面设计、报表生成等操作规范化；为建立功能完善的数据库管理系统提供了方便，也使得普通用户不必编写代码，就可以完成大部分数据管理的任务。Access能够存取 Access/Jet、Microsoft SQL Server、Oracle(甲骨文软件公司)，或者任何 ODBC 兼容数据库内的资料。熟练的软件设计师和资料分析师利用它来开发应用软件，而一些不熟练的程序员和非程序员的进阶用户则能使用它来开发简单的应用软件。虽然它支援部份面向对象（OO）
10、技术，但是未能成为一种完整的面向对象开发工具。 2.4.2 Access的优缺点优点：（1）存储方式单一 Access管理的对象有表、查询、窗体、报表、页、宏和模块，以上对象都存放在后缀为（.mdb）的数据库文件中，便于用户的操作和管理。 （2）面向对象 Access是一个面向对象的开发工具，利用面向对象的方式将数据库系统中的各种功能对象化，将数据库管理的各种功能封装在各类对象中。它将一个应用系统当作是由一系列对象组成的，对每个对象它都定义一组方法和属性，以定义该对象的行为和外国，用户还可以按需要给对象扩展方法和属性。通过对象的方法、属性完成数据库的操作和管理，极大地简化了用户的开发工作。同时
11、，这种基于面向对象的开发方式，使得开发应用程序更为简便。 （3）界面友好、易操作 Access是一个可视化工具，是风格与Windows完全一样，用户想要生成对象并应用，只要使用鼠标进行拖放即可，非常直观方便。系统还提供了表生成器、查询生成器、报表设计器以及数据库向导、表向导、查询向导、窗体向导、报表向导等工具，使得操作简便，容易使用和掌握。 （4）集成环境、处理多种数据信息 Access基于Windows操作系统下的集成开发环境，该环境集成了各种向导和生成器工具，极大地提高了开发人员的工作效率，使得建立数据库、创建表、设计用户界面、设计数据查询、报表打印等可以方便有序地进行。 （5）Acces
12、s支持ODBC（开发数据库互连，Open Data Base Connectivity），利用Access强大的DDE（动态数据交换）和OLE（对象的联接和嵌入）特性，可以在一个数据表中嵌入位图、声音、Excel表格、Word文档，还可以建立动态的数据库报表和窗体等。Access还可以将程序应用于网络，并与网络上的动态数据相联接。利用数据库访问页对象生成HTML文件，轻松构建Internet/Intranet的应用。缺点：ACCESS是小型数据库，既然是小型就有他根本的局限性，以下几种情况下数据库基本上会吃不消：（1） 数据库过大，一般ACCESS数据库达到50M左右的时候性能会急剧下降。（2
13、） 网站访问频繁，经常达到100人左右的在线。（3） 记录数过多，一般记录数达到10万条左右的时候性能就会急剧下降。第3章 系统总体设计3.1 系统需求分析对于拥有大量车辆的机关企事业单位来说，车辆的管理成为日常事务中的一项重要工作。如何让管理人员及时了解每一辆车的情况，提高车辆的使用率，减少费用的支出，就成为各单位需要解决的一个难题。为规范企业内部管理，提高企业管理质量，更好的服务于广大的客户，需要开发出一套专门用于车辆管理的软件。本软件需要具有集中管理车辆的运营、维修、事故、违章等一系列信息功能，有效跟踪管理企业每台汽车的使用状况，带动企业进入车辆管理信息化、科学化，同时也可以节省人力、物
14、力、财力，提高工作效率，使企业车辆管理更加科学、更加规范。本系统主要服务于机动车管理人员的日常工作，利用本系统可以方便的监控管理本区域的驾驶员信息，在此基础上力求软件界面人性化以及操作简单,程序具有健壮性等。3.2 系统概要设计 3.2.1 系统结构设计车辆管理系统是一个非常有特点的管理软件，系统由车辆档案管理、车辆运营列表、车辆管理、驾驶员管理、系统设置、系统维护等几个功能模块组成。规划系统功能模块如下：车辆档案管理：车辆档案录入、车辆档案查询、车辆异动列表、车辆异动查询、车辆报废、车辆报废查询。车辆运营管理：车辆运营管理、车辆运营查询、清空运营表。车辆管理：维修管理、违章管理、事故管理3大
15、部分。其中维修管理包括车辆维修列表、车辆维修查询、添加零件。违章管理包括车辆违章列表、车辆违章查询；事故管理包括车辆事故列表、车辆事故查询。系统设置：系统初始化、管理员设置、权限设置。系统维护：数据备份、数据恢复2个部分。如图3.1和3.2所示：图 3.1 系统部分流程图图 3.2 系统结构图3.2.2 数据库设计在信息管理系统中，数据都保存在数据库中，所以数据库的设计在开发系统之前就应该确定，而且非常重要。在VB中，访问数据库一般有两种方式。一种是非编码方式，主要通过Data等控件，可以不需要任何编程，只需要简单设置控件的一些属性并结合文本框等普通控件即可以方便地显示和操作数据库中的数据。二
16、是通过编写代码，即利用数据访问对象（DAO）来实现。本系统中运用了数据库Access2000作为后台数据库。在系统中主要运用了ADO控件来访问数据库的方法，从而节省了大量的工作量。（1）如图3.3所示：图3.3车辆报废表E-R图如表3.1所示：表3.1车辆报废表字段名称数据类型车牌号码文本报废原因文本报废日期日期/时间经手人文本备注备注（2）如图3.4所示：图3.4 车辆档案表E-R图如表3.2所示：表3.2 车辆档案表字段名称数据类型车牌号码文本车牌类型文本驾驶员编号文本购置日期日期/时间厂牌编号文本使用人或单位文本年险否文本异动否文本报废否文本异动否文本（3）如图3.5所示：图3.5 车辆
17、违章表E-R图如表3.3所示：表3.3 车辆违章表字段名称数据类型车牌号码文本原因文本处罚 文本违章时间文本备注备注（4）如图3.6所示：图3.6 车辆维修表E-R图如表3.4所示：表3.4 车辆维修表字段名称数据类型车牌号码文本更换零件1文本零件1数量文本更换零件2日期/时间零件2数量文本更换零件3文本零件3数量文本 维修日期日期/时间共计费用文本备注备注（5）如图3.7所示：图3.7 车辆运营表E-R图如表3.5所示：表3.5 车辆运营表字段名称数据类型运营编号文本车牌号码文本运营日期日期/时间运营收入文本备注备注（6）如图3.8所示：图3.8 零件表E-R图如表3.6所示：表3.6 零件
18、表字段名称数据类型零件名文本单价文本（7）如图3.9所示：图3.15 用户表E-R图如表3.7所示：表3.7 用户表字段名称数据类型用户姓名文本密码文本用户类型文本第4章 系统应用程序设计4.1 程序主界面的设计程序启动后，在系统登录界面验证操作员密码后，将进入程序主界面。通过程序主界面将会执行相应的权限操作，并且还可以通过主界面的菜单，来调用相应程序，再进行相应操作。如图图4.1所示：图4.1 主界面窗体4.1.1 MDI主窗体设计MDI主窗体通过工具栏按钮操作车辆档案管理、车辆运营管理、车辆管理、驾驶员管理、系统设置等几大模块，也是退出系统的唯一出口。（1）创建一个MDI窗体，设置其Cap
19、tion属性“为车辆管理系统”。（2）在表单中添加Toolbar控件、Statusbar控件、Imagelist控件和Timer控件。（3）重要控件属性如表4.1所示：表4.1 主程序界面重要控件属性列表控件名属性值ToolbarStyle1.TransparentTimerInterval10004.1.2 工具栏设计Toolbar控件按钮与应用程序中菜单按钮箱对应，为了给用户提供常用菜单命令的快捷访问方法，在车辆管理系统中设计了工具栏。另外，Toolbar控件的按钮上显示的所有图像都是ImageList控件存储和添加的，所以窗体上的工具栏是通过Toolbar控件和ImageList控件共同
20、来实现的。添加Toolbar控件和ImageList控件到工具箱。Toolbar控件和ImageList控件都属于ActiveX控件，使用时需要从“部件”对话框中添加。添加Toolbar控件和ImageList控件的过程：在“工程”菜单中选择“部件”子菜单，在弹出的“部件”窗口中“控件”选项卡内选择“Microsoft Windows Common Controls 6.0”，然后单击“确定”按钮，此时将Toolbar控件和ImageList控件添加到工具箱当中。图4.3部件4.1.3 程序代码设计清空运营表如图4.4所示：图4.4清空运营表在主窗体菜单“车辆运营管理”子菜单“清空运营表”（属
21、管理员权限）的Click事件下，添加如下代码：If MsgBox(真的要清空运营表吗？, vbOKCancel, 车辆管理系统) = 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 mnuyylis
22、t_Click 调用车辆运营列表窗体Case 5 Call mnucarwxlist_Click 调用车辆维修列表窗体Case 6 Call mnucarwzlist_Click 调用车辆违章列表窗体Case 7 Call mnucarsglist_Click 调用车辆事故列表窗体End Select4.2 系统登录界面设计4.2.1 登录界面窗体设计（1）添加一个表单，名称为frmlogin。（2）在表单中添加Label控件、Text控件、Image控件。登录界面如图4.5所示：图4.5 “用户登录”表单运行结果4.2.2 代码设计如果在登录过程中连续3次输入错误信息，将自动退出系统。在“确
23、定”按钮的Click 事件中添加以下代码：Private Sub mnuglyset_Click() frmManager.Show StatusBar1.Panels(1).Text = 管理员设置窗体End SubPrivate Sub mnuhf_Click() frmDataHF.Show StatusBar1.Panels(1).Text = 数据恢复窗体End SubPrivate Sub mnujsycha_Click() frmDrivercha.Show StatusBar1.Panels(1).Text = 驾驶员档案查询窗体End SubPrivate Sub mnujs
24、yjc_Click() frmDrJC.Show StatusBar1.Panels(1).Text = 奖金评定窗体End SubPrivate Sub mnujsylist_Click() frmDriverlr.Show StatusBar1.Panels(1).Text = 驾驶员档案录入窗体End SubPrivate Sub mnusyscsh_Click() If MsgBox(执行此命令会清空数据库里所有记录，确实要执行吗？, vbOKCancel, 系统提示) = vbOK Then adoCon.Execute (delete from 车辆档案) adoCon.Execu
25、te (delete from 车辆报废表) adoCon.Execute (delete from 车辆事故表) adoCon.Execute (delete from 车辆违章表) adoCon.Execute (delete from 车辆维修表) adoCon.Execute (delete from 车辆异动表) adoCon.Execute (delete from 车辆运营表) adoCon.Execute (delete from 驾驶员档案) adoCon.Execute (delete from 零件表) adoCon.Execute (delete from 用户表) a
26、doCon.Execute (delete from 奖罚表) Else Exit Sub End IfEnd SubPrivate Sub mnuyydelete_Click() If MsgBox(真的要清空运营表吗？, vbOKCancel, 系统提示) = vbOK Then adoCon.Execute (delete from 车辆运营表) Else Exit Sub End IfEnd SubPrivate Sub mnuyylist_Click() frmcarYYlr.Show StatusBar1.Panels(1).Text = 车辆运营录入窗体End SubPrivat
27、e Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Index Case 1 Call mnucardaadd_Click Case 2 Call mnujsylist_Click Case 3 Call mnuyylist_Click Case 5 Call mnucarwxlist_Click Case 6 Call mnucarwzlist_Click Case 7 Call mnucarsglist_Click End Select End SubPrivate Sub To
28、olbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu) Select Case ButtonMenu.Index Case 1 Call mnucardacha_Click Case 2 Call mnujsycha_Click Case 3 Call mnucaryycha_Click Case 5 Call mnucarwxcha_Click Case 6 Call mnucarwzcha_Click Case 7 Call mnucarsgcha_Click End SelectEnd Sub4.3 车辆档案录
29、入车辆档案录入操作窗体用于添加、修改、删除车辆档案信息。车辆档案的添加、修改、删除可以通过ADO控件实现，其中使用了AddNew、Update和Delete方法。4.3.1 窗体界面设计（1）新建一个窗体，名称为Frm车辆档案录入。（2）在表单中添加Label控件、Text控件、Combo控件、MonthView控件（Microsoft MonthView Control, version 6.0）、Check控件、Edit控件、Commandgroup控件、Command控件和Container控件。车辆档案录入界面如图4.6所示：图4.6车辆档案录入表4.3.2 代码设计在Test1控件的
30、LostFocus事件下，判断用户添加的“车牌号码”是否与表中的数据重复，其代码如下： Set rs = adoCon.Execute(select * from 车辆档案 where 车牌号码= & Text1.Text & ) If rs.EOF = False Then MsgBox 此车牌号码已经存在！, 4, 车辆管理系统 Text1 = 初始化处理，清空文本框空间中的内容，为部分控件赋初始值，然后设置一些按钮有效，为用户添加新数据做准备。在“增加”按钮的Click事件下添加代码如下：Unlockctl DTPicker1.Value = Format(Now, yyyy.mm.dd
31、) Text1 = : Text2 = : Combo2 = : Text4 = : Text5 = : Text6 = : Text7 = Combo1.Text = cmnj.Text = 是 cmbx.Text = 是 cmyd.Text = 是 cmbf.Text = 是 Text1.SetFocus Imgok.Enabled = True: Imgcancel.Enabled = True Imgdelete.Enabled = False: Combo1.Visible = True Adodc1.Enabled = False: Imgupdate.Enabled = Fals
32、e i = 1使用Delete语句删除车辆信息。在“删除”按钮的Click事件下添加代码如下：If MsgBox(您确实要删除记录吗？, vbOKCancel, 车辆管理系统) = vbOK Then adoCon.Execute (delete from 车辆档案 where 车牌号码= & Text1 & ) MsgBox 记录已删除！, , 车辆管理系统 Unload Me在“取消”按钮的Click事件下添加代码如下：On Error Resume Next Adodc1.Recordset.CancelUpdate Adodc1.Refresh Lockctl Imgok.Enable
33、d = False: Imgcancel.Enabled = False Imgadd.Enabled = True: Imgupdate.Enabled = True Imgdelete.Enabled = True: Adodc1.Enabled = True4.4 车辆运营列表车辆运营列表窗体用于添加、修改、删除车辆运营信息。4.4.1 窗体界面设计新建一个窗体，Caption属性为“车辆运营列表”，BorderStyle属性为1.Fixed Single。在窗体上添加Text、Label、CommandButton、DTPicker控件。图4.8车辆运营列表4.4.2 程序代码设计在T
34、ext1控件的LostFocus事件下判断某个车辆是否属于公司车辆，由于报废车辆和异动车辆不能参加运营，所以这里也需要判断，其核心代码如下： 此车是否是本公司的 Set rss = adoCon.Execute(select * from 车辆档案 where 车牌号码= & Text1.Text & ) If rss.EOF Then MsgBox 这辆车不属于本公司的！, , 车辆管理系统 Text1.Text = Text1.SetFocus Exit Sub End If rss.Close 此车是否报废了 Set rss1 = adoCon.Execute(select * from
35、 车辆报废表 where 车牌号码= & Text1.Text & ) If rss1.EOF Then Else MsgBox 此车已经报废，不能参加运营！, , 车辆管理系统 Text1.Text = Text1.SetFocus Exit Sub End If rss1.Close 此车是否异动了 Set rss2 = adoCon.Execute(select * from 车辆异动表 where 车牌号码= & Text1.Text & ) If rss2.EOF Then Else MsgBox 此车为“异动车辆”不能参加运营！, , 车辆管理系统 Text1.Text = Tex
36、t1.SetFocus Exit Sub End If rss2.Close在“添加”按钮的Click事件下，通过ADO对象创建“车辆运营表”的记录集，通过对记录集中记录数的判断对“营运编号”进行自动编号，其代码如下： Dim rs As New ADODB.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.Fi
37、elds(运营编号), 3) + 1, #000) Else Text5.Text = YY001 End If在“删除”按钮的Click事件下，通过ADO控件的Delete方法删除数据，代码如下： If MsgBox(您确实要删除记录吗？, vbOKCancel, 车辆管理系统) = vbOK Then Adodc1.Recordset.Delete MsgBox 记录已删除！, , 车辆管理系统 Adodc1.Refresh End If4.5 车辆违章列表4.5.1 窗体界面设计（1）新建一个窗体，Caption属性为“车辆违章记录”。（2）在窗体上添加Test、Label、Comman
38、dButton、DTPicker控件。如图4.10所示：图4.10车辆违章记录图4.5.2 程序代码设计判断报废车辆和异动车辆不可以添加到违章列表中，在Text1控件LostFocus事件下，添加如下核心代码：Private Sub Command1_Click(Index As Integer) On Error Resume Next Select Case Index Case 0 Adodc1.Recordset.MoveFirst Case 1 If Adodc1.Recordset.BOF = False Then Adodc1.Recordset.MovePrevious End
39、 If Case 2 If Adodc1.Recordset.EOF = False Then Adodc1.Recordset.MoveNext End If Case 3 Adodc1.Recordset.MoveLast End Select Text1.Text = Adodc1.Recordset.Fields(0) Text2.Text = Adodc1.Recordset.Fields(1) Text3.Text = Adodc1.Recordset.Fields(2) DTPicker1.Value = Adodc1.Recordset.Fields(3) Text4.Text
40、 = Adodc1.Recordset.Fields(4)End SubPrivate Sub Form_Load() frmcarWZlr.Width = 6720: frmcarWZlr.Height = 2730 Adodc1.RecordSource = select * from 车辆违章表 Adodc1.Refresh If Adodc1.Recordset.RecordCount 0 Then DTPicker1.Value = Adodc1.Recordset.Fields(违章时间).ValueEnd SubPrivate Sub Form_QueryUnload(Cance
41、l As Integer, UnloadMode As Integer) cmdExit_ClickEnd SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Text2.SetFocusEnd SubPrivate Sub Text1_LostFocus() If Text1.Text = Then Exit Sub Dim rss As New ADODB.Recordset Set rss = adoCon.Execute(select * fro
42、m 车辆档案 where 车牌号码= & Text1.Text & ) If rss.EOF Then MsgBox 这辆车不属于本公司的！, , 系统提示 Text1.Text = Text1.SetFocus Exit Sub End If rss.Close Dim rss1 As New ADODB.Recordset Set rss1 = adoCon.Execute(select * from 车辆异动表 where 车牌号码= & Text1.Text & ) If rss1.EOF Then Else MsgBox 该车为异动车辆！, , 系统提示 Text1.Text = Text1.SetFocus Exit Sub End If rss1.Close Dim rss2 As New ADODB.Recordset Set rss2 = adoCon.Execute(select * from 车辆报废表 where 车牌号码= & Text1.Text & ) If rss2.EOF Then Else Ms
