车辆管理系统的设计毕业论文

车辆管理系统的设计毕业论文
目录
第2章系统应用程序设计 (1)
2.1 数据库管理系统简介 (1)
2.2 开发工具Visual Basic 6.0 (1)
2.3 SQL Server 2000 简介 (2)
2.4 相近研究课题的特点及优缺点分析 (4)
2.5 现行研究存在的问题及解决办法 (4)
第3章系统的需求分析 (5)
3.1 可行性分析 (5)
3.1.1 技术可行性 (5)
3.1.2 经济可行性 (5)
3.1.3 运营可行性分析 (6)
3.2 开发环境 (6)
3.3 拟开展研究的几个主要方面 (6)
第4章系统总体设计 (7)
4.1 车辆管理系统设计实现的策略 (7)
4.2 系统流程图 (8)
4.3 数据字典的创建 (9)
4.4 概念系统设计 (11)
第5章系统数据库设计 (14)
5.1 数据库结构表 (14)
5.2程序模块实现 (17)
5.1.1 系统功能界面 (17)
5.1.2 车辆管理模块 (19)
5.1.3 驾驶员管理模块 (24)
5.1.4 系统维护模块 (27)
第6章系统运行与测试 (30)
6.1 调试 (30)
6.2 测试 (30)
6.2.1 白盒测试与黑盒测试 (30)
6.2.2 强度测试与性能测试 (31)
6.2.3 软件测试过程 (32)
第7章结论 (33)
参考文献 (34)
致 (35)
第1章系统应用程序设计
1.1数据库管理系统简介
数据管理指的是如何对数据进行分类、组织、存储、检索及维护。

要注意，这里所说的数据，不仅是指数字，还包括文字、图形、图像、声音等。

凡是计算机中用来描述事物的记灵，统称为数据。

数据库技术是计算机应用领域中非常重要的技术，随着计算机应用的不断深入，数据库的重要性日益被人们所认识，它已成为信息管理、办公自动、计算机辅助设计等方面的重要手段。

对一个特定的数据库来说，它是集中、统一地保存、管理着某一个单位或某一领域所有有用信息的系统，这个系统根据数据间的自然联系结构而成，数据较少冗余，且具有较高的数据独立性，能为多种应用服务。

因此可以看出，数据库系统是管理数据且为不同应用服务的工具。

它所管理的数据是大量的有关某一方面的信息，需要较长时间的保存；它所提供的数据应该是正确的、可靠的、高效率的。

数据库管理系统简称DBMS（database management system）是专门用于建立和管理数据库的一套软件，介于应用程序和操作系统之间。

DBMS不仅具有最基本的数据管理功能，还能保证数据的完整性、安全性，提供多用户的并发控制，当数据库出现故障时对系统进行恢复。

1.2开发工具Visual Basic 6.0
Visual Basic 是面向对象程序设计的有利工具，它不仅秉承了BASIC的特点，而且为人们揭开了开发Windows应用程序的神秘面纱，有了它您就能成为Windows环境下的编程高手。

何谓Visual Basic？其中，“Visual”中文意义为“可视化”，它提供了一种创建图形用户接口（GUI）的方法。

利用这种方法，用户不必书写复杂的描述接口元素外观和位置的程序代码，而只需将系统提供的对象放在屏幕上的适当位置，并通过属性窗口进行适当的设置，即可设计一个优秀的程序界面。

“Basic”指的是BASIC（Beginners A11-Purpose Symbolit Instruction Code）语方，一种在计算技术发展历史上应用得最为广泛的语言。

Visual Basic 在原有BASIC编程语言的功能，而初学者只要掌握几个关键词就可以建立实用的
应用程序。

Visual Basicmh 由于功能强大、简单易用而有着广泛的用户，尤其是在数据库、多媒体、商用系统的用户界面以及一般应用程序的设计等方面，Visual Basic 更是有其他开发环境所不能取代的优越之处。

升级到6.0之后，其功能和性能都得到了增强，汉化后的Visual Basic6.0中文版，由于有全新的中文界面，更是方便了用户的使用。

面向对象的程序设计Visual Basic6.0它提供了开发Microsoft Windows应用程序的最迅速、最简捷的方法。

不论是Microsoft Windows 应用程序的资深专业开发人员还是初学者，Visual Basic6.0都为他们提供了整套工具，以方便开发应用程序。

尽管Visual Basic以非常快的速度成熟起来，但它也只有这些年间才作为实用的软件开发工具得到应用。

这主要是因为在很长一段时间忽略了数据访问这方面的功能，如果没有外部的数据库支持，不可能简单的拥有一个严格的开发工具。

这个情况甚至在Visual Basic3.0中增加了对Microsoft JET数据库引擎的支持之后也没有得到改善，因为这些功能还不足以使Visual Basic像C++一样有完全的数据库访问能力。

随后在发布支持ODBC和RDO数据库访问方法的产品后，Visual Basic才真正加入了严格的开发工具领域。

最新发布的Visual Basic在数据库访问方面带来了一些变化，它增加了Active 数据对像（ADO）访问方法。

ADO是DAO和RDO的继承者，它的目标是成为Windows开发上的唯一通用（ONE-SIZE-FITS-ALL）的数据访问方法。

Visual Basic6.0在很大方面对尚未成熟的ADO提供支持，大约提供了六个使用ADO数据库的专门优化过的控件。

在Visual Basic6.0中增加了数据环境，这是一种对利用ADO的层次数据库进行组织的方法。

增加数据报表实用程序，这是使用数据环境的结构生成报表的部工具。

1.3SQL Server 2000 简介
SQL SERVER 2000 是一个大型关系数据库管理系统，具有客户机/服务器体系结构，采用Transact-SQL语言在客户机和服务器之间传递客户机请求和服务器处理结果。

SQL SERVER 2000是一个优秀的数据库管理系统，拥有许多优秀的特点，如受到用户欢迎的易用性、适合分布式组织的可伸缩性、与许多其他服务器软件紧密关联的集成性、适于决策支持的数据仓库功能、卓越的性能价格比等。

客户机/服务器（C/S）体系结构：在客户机/服务器体系结构中，数据库所在的中心计算机称为服务器，该服务器由许多用户共享其中的数据，用户可以通过
运行客户应用程序访问服务器中的数据。

用户运行本地计算机上的某个应用程序通过网络连接到运行一下SQL Server实例的数据库服务器上，本地机器上的这个应用程序称为客户应用程序。

客户机上运行业务处理逻辑和显示由数据库服务器中返回的结果。

1. SQL SERVER 2000往往成为首选的理由：
(1). 上手容易
一方面由于SQL Server与Windows界面风格完全一致，且有许多“向导(Wizard)”帮助，因此易于安装和学习，有关SQL Server的资料、培训随处可得，并且目前国具有MCDBA认证的工程师不在少数。

另一个角度来讲，学习SQL Server 是掌握其他平台及大型数据，如Oracle、Sybase、DB/2的基础。

因为这些大型数据库对于设备、平台、人员知识的要求往往较高，而并不是每个人都具备这样的条件，且有机会去接触它们。

但有了SQL Server的基础，再去学习和使用它们就容易多了。

IT行业的实践经验充分证明了这一点。

(2). 兼容性良好
由于今天Windows操作系统占领着主导地的位，选择SQL Server一定会在兼容性方面取得一些优势。

另外，SQL Server 2000 除了具有扩展性，可靠性以外，还具有可以迅速开发新的因特网系统的功能。

尤其是它可以直接存贮 XML 数据，可以将搜索结果以 XML格式输出等特点，有利于构建了异构系统的互操作性，奠定了面向互联网的企业应用和服务的基石。

这些特点在.NET 战略中发挥着重要的作用。

2. 相对于7.0的忧越性
Microsoft SQL Server 2000是在SQL Server 7.0的基础上对性能、可靠性、质量以及易用性进行了扩展。

SQL Server 2000中包含许多新特性，这些特性使其成为针对电子商务、数据仓库和在线商务解决方案的卓越的数据库平台。

其增强的特性包括对丰富的扩展标记语言（XML）的支持、综合分析服务以及便捷的数据库管理。

3. 增强的在线商务
Microsoft SQL Server 2000简化了管理、优化工作，并且增强了迅速、成功的部署在线商务应用程序所需的可靠性和伸缩性。

其中，用以提高可靠性的特性包括日志传送、在线备份和故障切换群集。

在伸缩性方面的改进包括对多达32颗CPU和64 GB RAM的支持。

通过自动优化和改进后的管理特性--诸如数据文件尺寸的自动管理、基于向导的数据库拷贝、自动存管理和简化的故障切换群集安装与管理，在线商务应用程序能够被迅速部署并有效管理。

1.4相近研究课题的特点及优缺点分析
随着我国经济的发展，车辆的数量在不断的增加，车辆管理系统也随之出现了许多。

这些车辆系统有用多种开发软件开发的，有用ASP＋SQL开发的；有用JSP＋SQL开发的；有用VC＋SQL开发的；有用PB开发的；还有用VFP开发的等等很多很多。

其中不乏优秀之作。

这些车辆管理系统的特点是，都实现了包括车辆档案管理；驾驶员档案管理；车辆运营信息管理；车辆事故信息管理；车辆维修信息管理；车辆费用管理等几个功能模块。

各模块之间的部分数据必须统一，如车辆事故信息管理模块中的驾驶员，事故车辆必然来自司机模块和车辆信息模块，为了可以灵活的处理数据，系统应该提供一个数据接口，允许对数据进行导出处理，系统目标设计是用Excel 数据表导出数据，可以方便用户灵活的处理数据。

同时也提供强大数据报表功能。

和普通系统一样，该系统也具有一个对系统用户进行管理的，用户管理模块，包括用户添加，用户密码的修改，用户的删除（只限Administrator）。

有的车辆系统操作复杂，有的车辆管理系统操作简单。

总之，现在的车辆管理系统产品很多，质量有好有坏，参差不齐。

1.5现行研究存在的问题及解决办法
现在要实现在车辆管理存在着这样一些问题，采取什么开发工具和利用哪种数据库做为后台与之相配合使用？采用什么开发语言？以及在何种开发环境中进行开发？
解决的方法是：开发工具采用VB，数据库采用SQL2000，开发语言采用Vbscript，SQL语句。

第2章系统的需求分析
2.1可行性分析
可行性研究是以相对短的时间和相对低的成本来确定给定的问题是否有解。

在这个阶段，必须就时间、人力、财力、效益、技术等要素来评估是否有足够的资源支持使用单位的需求。

要从如技术可行性、经济可行性、运营可行性三个方面分析本系统的可行性。

2.1.1技术可行性
技术可行性对现有技术进行评价，以明确能否利用现有技术进行系统开发及系统实施。

计算机网络技术的发展和计算机硬件性价比的不断提升，使计算机全面应用于车辆管理的各个环节成为可能。

本采用SQL2000进行后台数据库的管理、操作和维护，用VB进行前台界面设计、与后台数据库的接口、数据的录入、查询、浏览等功能。

采用计算机网络技术，可以使部的车辆管理更加方便。

企业采用网络管理的主要好处是一方面可以对企业的众多车辆信息进行动态的管理，查询、修改、添加、删除都非常方便，减少了工作出错的可能性。

另一方面是采用计算机技术对车辆进行管理的，具有准确、安全、简易、方便的特点。

系统要具有较强的通用性，良好的扩展性。

以上这些充分说明本在技术方面可行。

2.1.2经济可行性
本系统的开发费用很低，配置并安装软硬件及有关设备的费用也不是很高，本系统的安装与维护简单易于操作，员工学习和使用本系统也很简单易行。

由于本系统具备完善的车辆管理功能，车辆运营、统计、档案管理，驾驶员信息管理查询及系统维护等重要的工作。

不但会提高工作效率，减少不必要的中间环节以及不必要的开支，而且会给各企业单位带来更大的利润，经济上的可行性是企业行为的基础。

由于车辆系统的开发设计是为完成毕业设计任务而进行的，所以不存在赢利问题。

所在此也就不讨论经济可行性问题。

2.1.3运营可行性分析
运营可行性是指系统对组织机构的影响，对现有车辆和驾驶员、设施和环境的适应性以及进行车辆统计、驾驶员信息、事故记录与查询等方面计划的可行性。

还有就是操作人员的培训也是一方面。

所以，企业的车辆管理能够正常运营是需要计算机信息管理人才、计算机硬件设备、操作员的计算机应用能力共同为该系统的运行过程提供了可靠保证。

2.2开发环境
车辆管理系统开发环境如下：
（1）硬件配置环境：CPU：P4 1.8A、存：256MDDR、硬盘：60G
（2）操作系统:：Microsoft Windows 98
（3）数据库：开发过程中数据库工具采用了SOL2000。

（4）编码工具：采用VB，同时也用它来设计网页前台的框架。

2.3拟开展研究的几个主要方面
本系统秉承着以方便快捷，并且完备和系统的为企业服务的宗旨。

对企业部的车辆，驾驶员的信息进行管理。

并且有着完善的系统维护，可以更方便管理员对个项信息进行快捷的管理，在第一时间对系统出现的问题加以修复。

确保企业的利益不受损失。

在系统部分包括车辆管理，驾驶员管理以及系统维护三个体系，车辆管理可以实现对车辆的维修管理，车辆的维修查询，添加零件，车辆违章管理，车辆违章查询，车辆事故管理，车辆事故查询。

驾驶员管理部分能够对驾驶员档案，驾驶员档案查询，驾驶员奖励进行管理。

系统维护是针对管理员进行操作的功能。

主要包括系统初始化，管理员设置，数据备份以及数据修复。

第3章系统总体设计
3.1车辆管理系统设计实现的策略
在车辆管理系统的设计和实现过程中，为了使系统便于管理和安全，车辆管理系统用计算机管理机动车辆的档案,运营管理以及驾驶员信息的一种计算机应用技术的创新,现在一般的车辆管理都是采用计算机作为工具的实用的计算机智能化车辆管理程序来帮助工作人员进行更有效的机动车辆管理。

车辆管理系统是典型的信息管理系统(MIS)，其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。

对于前者要求建立起数据一致性和完整性强、数据安全性好的库。

而对于后者则要求应用程序功能完备，易使用等特点。

车辆管理系统的设计思想把整个系统包括车辆档案管理；车辆运营信息管理；车辆统计管理；驾驶员信息管理；车辆管理和系统维护以及帮助几个功能模块。

具体分别如图4.1所示：
图4.1 系统模块图
在这里可以明显的看出，我开发的三个模块都有什么功能。

车辆管理模块包括车辆事故记录查询、车辆事故列表、车辆添加零件、车辆违章查询、车辆违章记录、车辆维修查询、车辆维修列表。

驾驶员信息管理包括驾驶员档案查询、驾驶员奖罚、驾驶员车辆事故记录查询。

系统维护包括管理员设置、数据备份、数据恢复。

3.2系统流程图
图4.2 系统流程图
管理员登录输入密码，如果密码正确进入相应的管理模块，比如车辆档案管理，车辆运营信息管理，车辆统计管理，驾驶员信息管理，车辆管理，系统维护，帮助等，之后进行相应的查询，修改，管理等。

如果输入不正确，重新输入。

直到用户名与密码正确进入相应的管理模块，进行抄作管理。

3.3数据字典的创建
数字典是关于数据信息的集合，也就是对数据流图中包含的所有元素定义的集合。

任何字典最主要的用途都是供人查阅不理解的条目的解释，数据字典的作用也正是在软件分析和设计过程中给人提供关于数据的描述信息。

数据流图和数据字典共同构成系统的逻辑模型，没有数据字典数据流图就不严格，然而没有数据流图数据指点也难与发挥作用。

有数据流图和对数据流图精确的定义放在一起，才能共同构成系统的规格说明。

由于元素太多我们只对其中主要的元素定义说明。

数据字典是各类数据描述的集合，他通常包括以下5个方面：
1.数据项：数据项是数据的最小组成单位。

2.数据结构：是若干数据项有意义的集合。

它反映了数据之间的组合关系。

3.数据流：可以是数据项，也可以是数据结构。

表示处理过程的输入和输出。

4.数据存储：处理过程存储的数据。

5.处理过程。

以下是数据流图中主要元素的数据字典卡片：
3.4概念系统设计
将需求分析得到的用户需求抽象为信息结构即概念模型的过程就是概念结构设计。

它是整个数据库设计的关键，其任务是根据用户的需求设计数据库的概念模型。

系统本质上是信息的处理系统，在本阶段既要分析用户的数据要求，又要分析用户的处理要求。

为了把用户的数据要求明确的表达出来，这就要用到概念性数据模型。

最常用的表示概念性数据模型的方法是用E-R图来描述。

根据调研所得系统详细流程，对车辆管理方式进行分析，规划系统：
车辆信息实体E-R图：如图4.3
图4.3 车辆实体E-R图
车辆零件实体E-R图：如图4.4
图4.4 车辆零件实体E-R图
管理员信息实体E-R图：如图4.5
图4.5 管理员实体E-R图车辆事故信息实体E-R图，如图4.6
图4.6 车辆事故实体E-R图驾驶员信息实体E-R图:如图4.7
图4.7驾驶员实体E-R图车辆违章信息实体E-R图，如图4.8
图4.8 车辆违章实体E-R图
第4章系统数据库设计
4.1数据库结构表
利用SQL2000 创建数据库,我是所完成的三个模块的部分数据库包含如下几个表文件：
（1）车辆事故表
表5.1 车辆事故表
（2）车辆零件表
表5.2 车辆零件表
（3）车辆违章表
表5.3 车辆违章表
（4）车辆维修表
（5）驾驶员档案表
表5.5 驾驶员档案表
（6）驾驶员奖罚表
表5.6 驾驶员奖罚表
（7）管理员设置表
续表 5.7
用户类型文本20
5.2程序模块实现
4.1.1系统功能界面
本系统一共七个模块，分别是车辆档案管理；车辆运营信息管理；车辆统计管理；驾驶员信息管理；车辆管理和系统维护以及帮助，我主要负责后三个模块的编写工作，既驾驶员信息管理；车辆管理和系统维护模块。

下面就介绍一下这三个模块。

系统功能界面如图5.1所示：
图5.1 系统功能界面
主要代码：
Private Sub mnuabout_Click()
frmabout.Show
StatusBar1.Panels(1).Text = "关于窗体"
End Sub
Private Sub mnubf_Click()
frmDataCopy.Show
StatusBar1.Panels(1).Text = "数据备份窗体"
End Sub
Private Sub mnusyscsh_Click()
If MsgBox("执行此命令会清空数据库里所有记录，确实要执行吗？", vbOKCancel, "系统提示") = vbOK Then
adoCon.Execute ("delete from 车辆档案")
adoCon.Execute ("delete from 车辆运营表")
adoCon.Execute ("delete from 驾驶员档案")
adoCon.Execute ("delete from 零件表")
adoCon.Execute ("delete from 用户表")
Else
Exit Sub
End If
End Sub
Private Sub mnuyydelete_Click()
If MsgBox("真的要清空运营表吗？", vbOKCancel, "系统提示") = vbOK Then
adoCon.Execute ("delete from 车辆运营表")
Else
Exit Sub
End If
End Sub
Private Sub mnuyylist_Click()
frmcarYYlr.Show
StatusBar1.Panels(1).Text = "车辆运营录入窗体"
End Sub
Private 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 Sub
4.1.2车辆管理模块
车辆管理分七个部分，分别是车辆事故记录查询、车辆事故列表、车辆添加零件、车辆违章查询、车辆违章记录、车辆维修查询、车辆维修列表。

下面我们就简单介绍一下这些列表。

（1）车辆事故记录查询
可以按照车辆的牌号查询特定时间的事故次数，时间精确到日，查询完毕可按退出，回到主界面。

具体实现如图5.2所示:
图5.2 车辆事故记录查询
（2）车辆事故列表
可以对事故编号、公司负担金、车牌、保险理赔金、车辆类型、对方赔偿金、事故时间、对方、事故概要、对方住址、事故确认者，对方所住单位、对方破坏程度、和解容等信息进行添加、修改和删除，以及浏览事故记录。

具体实现如图5.3所示：
图5.3 车辆事故列表
主要代码：
Private Sub cmdDelete_Click()
If MsgBox("您确实要删除记录吗？", vbOKCancel, "系统提示") = vbOK Then
adoCon.Execute ("delete from 车辆事故表 where 事故编号='" & Text1 & "'")
MsgBox " 记录已删除！", , "系统提示"
Adodc1.Refresh
End If
End Sub
End If
Text2.SetFocus
End If
End Sub
Private Sub DTPicker1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Text5.SetFocus
End Sub
Private Sub Text2_LostFocus()
If Text2.Text = "" Then Exit Sub
Dim rss As New ADODB.Recordset
Set rss = adoCon.Execute("select * from 车辆档案 where 车牌='" & Text2.Text & "'")
If rss.EOF Then
MsgBox "这辆车不属于本公司的！", , "系统提示"
Text2.Text = ""
Text2.SetFocus
Exit Sub
Else
Text3.Text = rss.Fields(1).Value
End If
rss.Close
Private Sub Text5_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then
If Text5.Text = "" Then
MsgBox "事故概要不能为空！", , "系统提示"
Text5.SetFocus
Exit Sub
End If
Text6.SetFocus
End If
End Sub
Private Sub Text6_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then
If Text6.Text = "" Then
MsgBox "事故确认者不能为空！！", , "系统提示"
Text6.SetFocus
Exit Sub
End If
Text7.SetFocus
End If
End Sub
（3）车辆添加零件
本窗体可以对零件的名称和单价进行添加、修改和删除。

具体实现如图 5.4所示：
图5.4 车辆添加零件
（4）车辆违章查询
可以对违章车辆处罚结果在特定的是时间按照车牌进行查询，查询结束后，按退出返回主界面。

具体实现如图5.5所示：
图5.5 车辆违章查询
（5）车辆违章记录
本窗体的功能就是将违章车辆的车牌，违章原因、处罚、违章时间、以及备注等信息输入到数据库里，并可对其进行添加、删除和修改的功能。

具体实现如图5.6所示：
图5.6 车辆违章记录
（6）车辆维修查询
可以对维修车辆的维修费用在特定的是时间按照车牌进行查询，查询结束后，按退出返回主界面。

具体实现如图5.7所示：
图5.7 车辆维修查询
（7）车辆维修列表
本窗体的功能就是将维修车辆的车牌，更换零件及数量、维修日期、费用、以及备注等信息输入到数据库里，并可对其进行添加、删除、修改和统计所花费用的功能。

操作完成后，按退出返回主界面。

具体实现如图5.8所示：
图5.8 车辆维修列表
4.1.3驾驶员管理模块
驾驶员管理分三个部分，分别是驾驶员档案查询、驾驶员奖罚、驾驶员事故记录查询。

下面我们就介绍一下：
（1）驾驶员档案查询。

可以按照、驾龄、性别、证件有效期以及出生日期等信息。

从数据库中查询需要的驾驶员档案信息。

查询完毕后，按退出返回主界面。

具体实现如图5.9所示：
图5.9 驾驶员档案查询
主要代码：
Private Sub ckYX_Click()
If ckYX.Value Then
dtYX.Enabled = True
Else
dtYX.Enabled = False
End If
End Sub
Private Sub cmdExit_Click()
MDIForm1.StatusBar1.Panels(1).Text = ""
Unload Me
End Sub
Dim sjl As String
If ckJL.Value Then
sjl = "驾龄>=" & txtJL & ""
Else
sjl = "驾龄 like '%'"
End If
Dim syx As String
If ckYX.Value Then
syx = "证件有效期 =#" & dtYX.Month & "/" & dtYX.Day & "/" & dtYX.Year & "#"
Else
syx = "证件有效期 like '%'"
End If
sql = "select * from 驾驶员档案 where " & sname & "and " & ssex & "and " & sborn & "and " & sjl & "and " & syx
If sql = "select * from 驾驶员档案 where like '%'and 性别 like '%'and 出生年月 like '%'and 驾龄 like '%'and 证件有效期 like '%'" Then '清空上一次的查询记录
Call QingKong
MsgBox "请选择查询条件", , "系统提示"
Exit Sub
End If
Set adors = adoCon.Execute(sql)
If adors.EOF Then
Call QingKong
MsgBox "对不起，没有符合您查询的条件！", , "系统提示"
Else
Adodc1.RecordSource = sql
Adodc1.Refresh
End If
adors.Close
ckName.Value = 0
ckSex.Value = 0
ckBorn.Value = 0
ckYX.Value = 0
ckJL.Value = 0
End Sub
（2）驾驶员奖罚
本窗体是按照本月驾驶员的当月表现对其进行奖罚，将记录记录进行保存，并打印。

具体实现如图5.10所示：
图5.10 驾驶员奖罚
（3）驾驶员车辆事故记录查询
可以按照车牌和事故时间对驾驶员开车发生的事故进行查询，操作完毕后，按退出返回主界面。

具体实现如图5.11所示：
图5.11 驾驶员车辆事故记录查询
4.1.4系统维护模块
系统维护分三个部分，分别是管理员设置、数据备份、数据恢复。

下面我们就详细介绍一下：
（1）管理员设置。

可以对用户、密码和用户类型进行设置，包括添加、修改、删除。

具体实现如图5.12所示：
图5.12 管理员设置
主要代码：
Dim i As Integer
Dim adoRs1 As New ADODB.Recordset
Private Sub cmdAdd_Click()
Unlockctl
Text1 = ""
Text2 = ""
Text3 = ""
Combo1.Text = ""
Text1.SetFocus
cmdOk.Enabled = True
cmdCancel.Enabled = True
cmdUpdate.Enabled = False
cmdDelete.Enabled = False
cmdAdd.Enabled = False
i = 1。