管理信息系统 辽宁工业大学

辽 宁 工 业 大 学

管理信息系统设计课程设计报告（论文）

题目： 车辆系统的分析与设计

院（系）： 软件学院 专业班级： 软件工程122班 学 号： 121301035 学生姓名： 李其翰 指导教师： 谷宝华 教师职称： 副教授 起止时间：2013.6.17-2013.6.29

课程设计（论文）任务及评语

院（系）：软件学院 教研室：电子商务 学 号 课程设计（论文）题目 121301035 学生姓名 李其翰 专业班级 软件工程122班 车辆管理系统的分析与设计 管理信息系统课程设计作为独立的教学环节，是电子商务专业集中实践性环节系列之一，是学习完《管理信息系统》课程并进行完专业实习后进行的一次全面的综合练习。 任务：采用结构化的系统开发方法，前台采用VB和后台数据库采用SQL技术，按照软件工程的思想，开发一个实用的中小型管理信息系统，完成车辆管理系统的分析设计实施工作，实现该系统车辆的档案管理；驾驶员档案管理；车辆管理；车辆使用管理和交通事故管理等功能，结合分析设计过程，撰写系统设计说明书（课设报告）。 1．根据课程设计时间选择适当规模大小的设计课题。采用专业实习的调研内容作为课程设计选题。 2．根据合理的进度安排，按照系统开发的流程及方法，踏实地开展课程设计活动。 3．课程设计过程中，根据选题的具体需求，在开发各环节中撰写相关的技术文档，最后提交详细的课程设计报告。 4．开发出可以运行的管理信息系统，通过上机运行检查。 5．设计说明书要求文档齐备，步骤全整，流程正确，说明详细，具有可操作性。 成绩： 指导教师签字： 2012 年 6 月 12 日 课程设计（论文）任务 指导教师评语及成绩 辽 宁 工 业 大 学 课 程 设 计 说 明 书（论 文）

目 录

课程设计内容 ......................................................................... 错误！未定义书签。

1.1 项目简介 ........................................................................................ 错误！未定义书签。 1.2 系统分析 ........................................................................................ 错误！未定义书签。

1.1.1 可行性分析 ............................................................................................. 错误！未定义书签。 1.1.2 组织功能分析 ......................................................................................... 错误！未定义书签。 1.1.3 业务流程分析 ......................................................................................... 错误！未定义书签。 1.14 数据流程分析 .......................................................................................... 错误！未定义书签。 1.1.5 数据字典 ................................................................................................. 错误！未定义书签。 1.1.6新系统逻辑模型： .................................................................................. 错误！未定义书签。

2.3 系统设计 ........................................................................................ 错误！未定义书签。

2.3.1系统功能结构设计 .................................................................................. 错误！未定义书签。 2.3.2系统配置方案设计 .................................................................................. 错误！未定义书签。 2.3.3系统编码设计 .......................................................................................... 错误！未定义书签。 2.3.4数据库设计 .............................................................................................. 错误！未定义书签。 2.3.5输出输入界面设计 .................................................................................. 错误！未定义书签。 2.3.6功能模块设计 .......................................................................................... 错误！未定义书签。

2.4 系统实施 ........................................................................................ 错误！未定义书签。

2.4.1 系统的运行测试 ..................................................................................... 错误！未定义书签。 2.4.2 代码设计 ................................................................................................. 错误！未定义书签。

课程设计的考核 ..................................................................... 错误！未定义书签。

3.1 课程设计的考核要求 .................................................................... 错误！未定义书签。 3.2 课程性质与学分 ............................................................................ 错误！未定义书签。

参考文献 ................................................................... 错误！未定义书签。

辽 宁 工 业 大 学 课 程 设 计 说 明 书（论 文）

第1章 系统分析

1.1可行性分析

1.1.1可行性研究

现在随着企业规模的扩大以及车辆作为最为普通的交通工具，在企业中已经不是单一的存在，由于单位车辆数目的急剧增加，与之相对应的问题随之而生，比如车辆的使用权问题，车辆的费用问题等，不再是简单的少量的数据。为了解决这一系列的问题，我们必须借助于电脑的强大的数据处理能力和存储能力，如此可以减少人力财力来维护这些数据，可以用更少投入来换取更佳的数据管理。因此，在这样的情况下，开发单位车辆管理系统是可行的，是必要的。如今，计算机开发已经慢慢的趋向成熟，车辆管理系统也有部分开发，但是都还不是十分完善。现今已经开发的车辆管理系统都是针对以运营为主的具有盈利目的的单位，比如，公交管理、出租车管理、运输公司管理、汽车站点的管理，而这些管理最主要是针对盈利的管理，很少有针对各种汽车车辆费用、车辆调配等各种普通单位，不是以车辆运营为盈利手段的车辆管理，此系统就是适合如今大多数企业单位或者事业单位管理的车辆管理系统。

技术可行性本系统采用Microsoft Visual Basic6.0和SQL Server 2000数据库编写程序，Visual Basic 6.0是Windows应用程序开发工具，具有直观的开发界面、先进的程序设计思想，是目前最为广泛的、易学易用的面向对象的开发工具。系统现阶段的发展过程中，利用现有人力和物力是完全具备的能力开发出来的，作为阶段性产品，日后的发展空间大，实现方法逐步简单容易，所以学生管理系统的技术上是完全可行的。

经济可行性分析是从经济的角度分析系统的规划方案有无实现的可能和开发的价值。分析系统所带来的经济效益是否超过开发和维护网站所需要的费用。经济上的可行性是企业行为的基础。由于车辆系统的开发设计是为了完成毕业设计任务而进行的，所以不存在盈利的问题。所以在此也就不讨论经济可行性的问题。

操作可行性系统采用的是前台Microsoft Visual Basic6.0VB程序设计，后台数据库是SQL Server 2000，操作起来方便简单。 1.1.2软件硬件配置结构

硬件配置：硬件环境：处理器2.4GHz ，内存在256M，硬盘容量应在80G 软件配置：软件环境：Windows XP，Office2003，VB6 .O、SQLServer2000 1.1.3设计方法

本系统是以Visual Basic作为前台开发工具，以SQL Server 2000作为后台数据库实现车辆信息管理的各种功能。采用C/S模式的设计，可以更加合理的利用企业资源，使得数据集中在一台服务器上，从来节省了数据库管理的人力资源。

1

辽 宁 工 业 大 学 课 程 设 计 说 明 书（论 文）

1.2需求分析

1.2.1需求分析的任务

需求分析阶段又称为需求确立阶段，其目的是澄清用户的需求。这个阶段的基本任务是用户软件人员双方一起来充分理解用户的需求，作为用户和软件人员之间的合同，为相互了解提供基础。反映出问题的结构，可以作为软件人员进行设计和编写的基础。该阶段的两大任务即“理解”和“表达”，“分析”就是理解问题，“规格说明”就是某种标准的方式把问题表达出来。在开发软件时，所谓“用户要求”是指软件系统必须满足的所有性质和限制。用户要求通常包括功能要求，性能要求，可靠性要求，安全保密要求以及开发费用，开发周期，可使用的资源等方面的限制，其中功能在职要求是最基本的，它又包括数据要求和加工要求两方面。本软件系统主要满足单位车辆的管理工作的需求，完成对通行车辆调度的管理，对车辆使用调度、车辆信息和相关人员的信息管理、使用记录、事故等信息统一管理，进一步提高车辆管理。 1.2.2系统流程图的创建

系统流程图是描述系统概貌的传统工具，系统流程图是操作的时候方便用户的。其基本思想是用图形符号黑盒方式描述系统每个部件。系统流程图表达的是系统各个部件间的流动情况，不是对信息进行加工处理的控制过程。

本系统数据流程图如图1.1所示：

车辆信息管理 司机信息管理 开始 维修信息管理 结束 事故信息管理 费用信息管理

2

辽 宁 工 业 大 学 课 程 设 计 说 明 书（论 文）

图1.1 流程图

1.2.3数据字典的创建

数据字典是关于数据信息的集合，也就是对数据流图中包含的所有元素定义的集合。任何字典最主要的用途都是供人查阅不了解的条目的解释，数据字典的作用也正是在软件分析和设计过程中给人提供关于数据的描述信息。数据流图和数据字典共同构成系统的逻辑模型，没有数据字典数据流图就不严格，然而没有数据流图数据字典也难于发挥作用。只有数据流图和对数据流图精确的定义放在一起，才能共同构成系统的规格说明。 由于元素太多我们只对其中主要的元素定义说明。

数据字典的主要用途是作为分子阶段的主要工具。在数据字典中建立一组严密一致的定义很有助于改进分析员和客户之间的通信，因此将消除很多可能的误解。数据字典包含的每个数据元素的控制信息是很有价值的。因为列出了使用一个给定的数据元素所有程序，很容易估计改变一个元素将产生的影响，并且能对所有受影响的程序或模块做出相应改变。

由于暂时还没有自动的数据字典处理程序，我们采用卡片形式书写数据字典，每张卡片上保存描述一个数据元素的信息。这种做法较好的实现了上述要求，特别是更新修改起来很方便，能够单独处理每个数据元素的信息。每张卡片上包含的信息有：名字，别名，描述，定义，位置。

以下是数据流图中主要元素的数据字典卡片：

名字：数据库文件 别名： 描述：是车辆管理系统的数据库。是软件的核心数据库，有软件主窗体的所涉及的数据库。 定义：数据库文件=车辆信息+用户信息表+司机信息表+运营信息表+维修信息表+事故信息表 位置：系统磁盘存储器 名称：司机信息 别名： 描述：记录司机详细信息。便于管理。 定义：司机信息=司机姓名+性别+出生年月+家庭住址+执照号码+准驾车型 位置：系统数据库 名称：运营信息 别名： 描述：记录运营信息状况。 定义：运营信息=车号+司机姓名+运营开始时间+结束时间+运营公里+耗油量 位置：系统数据库 3

名字：数据库备份文件 别名： 描述：是车辆管理系统数据库的备份文件。以防数据库崩溃或出现其他问题，可以进行数据库恢复。 定义： 位置：自定义的系统磁盘位置 名称：车辆信息 别名： 描述：记录所有车辆信息，便于管理 定义：车辆信息=车号+车主+类型+发动机号+车架号+厂家型号+登记时间+发证时间 位置：系统数据库 名称：维修信息 别名： 描述：记录车辆维修信息 定义：维修信息=车牌+维修时间+维修单位+维修内容+维修价格+配件+备注 位置：系统数据库 辽 宁 工 业 大 学 课 程 设 计 说 明 书（论 文）

图1.2 数据字典图

第2章 系统设计

2．1 总体设计

2.1.1系统功能设计

系统功能结构图主要从功能的角度描述了系统的结构，未表达各功能之间的数据传送关系。系统功能分解的过程就是一个由抽象到具体、由复杂到简单的过程。所谓功能结构图就是按功能从属关系画成的图表，图中每一个方框称为一个功能模块。把一个信息系统设计成若干模块的方法称为模块化设计方法。模块化是一种重要的设计思想，这种思想把一个复杂的系统分解为一些规模较小、功能较简单的更易于建立和修改的部分，各个模块具有相对独立性，可以分别加以设计实现，各模块在这些关系的约束下共同构成一个统一的整体，完成系统的功能。

系统总体功能模块图如下：

4

辽 宁 工 业 大 学 课 程 设 计 说 明 书（论 文）

车辆管理系统 司机信息管理 车辆信息管理 运营信息管理 维修信息管理 事故信息管理 系统管理 管理添加司机信息查询司机信息修改司机信息添加车辆信息查询车辆信息修改车辆信息添加运营信息查询运营信息修改运营信息添加维修信息查询维修信息修改维修信息添加事故信息查综询合事信故息信查息询 修改事故信息用户管理密码管理

图2.1系统功能图

2.1.2系统运行环境设计

车辆管理系统属于信息管理系统的一个具体实现，主要涉及的是几个核心模块，即司机、车辆、运营、维修和交通事故管理模块的实现，这里主要包括一些空间的使用和数据库查询等。还有另外的一个重要模块是用于实现数据库打开连接、数据更新修改和数据库关闭等，该模块是为简化系统中各个模块普遍访问数据库中各种数据，在此，产生一个公用数据函数，用于执行各种数据库操作。

（一）编程环境的选择

Visual Basic 6.0是Windows应用程序开发工具，具有直观的开发界面、先进的程序设计思想，是目前最为广泛的、易学易用的面向对象的开发工具。VB还提供了软件发布功能，使得开发、调试到发布可以一步完成。故而，实现本系统VB是一个相对较好的选择。

（二）关系型数据库的选择 SQL Server是一种功能强大的数据库开发工具，数据库汇集了信息以供查询、存储和检索。选择SQL数据库的最主要原因是，它支持网络数据库，现在企业规模的迅速扩

5

辽 宁 工 业 大 学 课 程 设 计 说 明 书（论 文）

大，车辆作为最主要的交通工具在企业中已经大量存在，为了合理控制这些信息，最佳的调配各部门的车辆使用，采用网络数据库是最理想的选择。SQL Server服务器提供了可靠的数据保障，可以自动数据备份和访问日志的记录，可以进行详细的数据分析等操作。采用C/S模式的设计，可以更加合理的利用企业资源，使得数据集中在一台服务器上，从来节省了数据库管理的人力资源，也使得由于非专业人士的误操作，或者别的各种电脑意外而导致数据丢失，或者别的不必要损失，所以在数据库选择上采用了SQL Server。

（三）系统与数据库的连接实现

采用ADO控件连接数据库和系统，ADO 是为 Microsoft最新和最强大的数据访问范例 OLE DB 而设计的，是一个便于使用的应用程序层接口。OLE DB 为任何数据源提供了高性能的访问，这些数据源包括关系和非关系数据库、电子邮件和文件系统、文本和图形、自定义业务对象等等。ADO 在关键的 Internet 方案中使用最少的网络流量，并且在前端和数据源之间使用最少的层数，所有这些都是为了提供轻量、高性能的接口。

2.2详细设计

2.2.1功能模块设计

系统模块结构设计的任务是划分子系统，然后确定子系统的模块结构，并画出模块结构图。本系统的模块如下：

1.用户信息管理：包括用户管理、用户的添加、用户密码修改、用户的删除。 2.司机信息管理：包括司机信息添加、司机信息修改、司机信息删除、司机信息的查询。

3.车辆信息管理：包括车辆信息添加、车辆信息修改、车辆信息删除、车辆信息的查询。

4.运营信息管理：包括运营信息添加、运营信息修改、运营信息删除、运营信息的查询。

5.维修信息管理：包括维修信息添加、维修信息修改、维修信息删除、维修信息的查询。

6.事故信息管理：包括事故信息添加、事故信息修改、事故信息删除、事故信息的查询。

7.费用信息管理：包括费用信息添加、费用信息修改、费用信息删除、费用信息的查询。

（一）用户管理模块设计

用户管理模块主要功能是用户的添加修改密码和删除。添加用户是所有用户都具有的功能。要求提供用户名和密码，以及密码的确认这里不做详细展开。

密码的修改，考虑到用户的安全性，在修改密码的同时，要求对原密码的确认，对于确认密码是用户在登录时候，在与数据库用户密码审核的时候将密码读入到全局变量password，在用户进行密码修改的时候将输入的原密码框与password进行比较，通过在核定两次密码输入是否一致，这样就实现了用户密码的安全修改。

对于用户的删除，充分考虑了系统安全问题，在数据库建立的时候，初始化了一个超级管理员Administrator，同时也有一个全局变量username与之对应，用于用户名的校对。只有用户名为Administrator的时候才允许对用户进行删除。用户的删除对于超级管理员是完全透明的，当用超级管理员登录后，使用删除用户操作时，系统将从数据库用户表中读取所有的用户名，管理员之需选定即可删除，所以说对于超级管理员是完

6

辽 宁 工 业 大 学 课 程 设 计 说 明 书（论 文）

全透明的，其中超级管理员不允许被删除。如图7.2所示，其中用户admin是允许被删除的。

图2.2删除用户界面

（二）车辆管理模块设计 1、车辆信息的添加

车辆基本信息主要包括车辆牌照、车型、发动机号等一系列信息，在信息输入完毕后，对各项信息进行确认。首先车辆牌照是唯一的，所以在写入数据库之前，先对数据库进行一次查询，查询是否存在这个即将被录入的车辆牌照，如此即避免了车辆的重复登记。车型、车主、牌照和发动机号则不允许被省略，目的是为了别的模块的连接和本身的查询。对车重和核定载客则可以为空，但当判断不为空是，就用isnumeric（）进行判断，是否是数据类型，如果不是则提出警告。这就是对输入数据合理性进行了审核。提交数据的时候，判断全局变量gintvmode即当前模式，如果是添加模式，则在调用这个功能的时候自动将gintvmode赋1，则调用.addnew，添加新记录。gintvmode此变量主要用于标志当前处于添加状态还是修改状态，当然在form_load的时候，如果是添加则初始化控件数组txtitem(i)为空。

车辆信息的添加如下图：

7

辽 宁 工 业 大 学 课 程 设 计 说 明 书（论 文）

图2.3车辆信息添加图

2、车辆信息的查询

此模块的查询操作允许对任何字段进行查询，具体查询界面如图7.4所示：

图2.4车辆信息查询图

查询结果的实现也是通过前面介绍的frmvehiclelist来实现的，在查询模块中，通过用户对查询关键字的选择，系统生成一个sql命令，传递给frmvehiclelist窗体的公共变量txtsql，进行查询，然后就在frmvehiclelist的MSFlexGrid控件中显示出来，这样便实现了数据的查询。

（三）司机、运营信息管理模块设计

司机信息管理模块主要由三个窗体组成，分别是frmdriver、frmdriverlist、

8

辽 宁 工 业 大 学 课 程 设 计 说 明 书（论 文）

frmdriverfind。其中frmdriver窗体为司机信息的添加和修改窗体，它类似于以上详细介绍的车辆信息窗体，它也是有一个全局变量gintdmode来控制是处于添加状态还是修改状态，用另外一个全局变量flagdedit来标志当前是否已经进行了数据修改，如果已经修改将值置1，在显示数据的时候，如果已经修改则重新显示数据，保证显示数据与数据库的统一。数据显示窗体与车辆信息管理模块基本一致，不再做详细的介绍。查询窗体，是允许对三个关键字进行查询，如图5.4所示，只允许对其中一个关键字进行查询，实现思想是，根据用户对关键字的选择和填写，自动生成一个sql语句，赋值给显示窗体frmdriverlist的公共变量txtsql，然后进行查询最后将用户的查询结果在在窗体中显示出来，这样便实现了数据的查询。查询界面如下图所示：

图2.5司机信息查询图

图2.6运营信息查询图

2.2.2代码设计

代码是代表事物名称、属性、状态等的符号，一般用数字、字母或它们的组合来表

9

辽 宁 工 业 大 学 课 程 设 计 说 明 书（论 文）

示。代码设计是科学管理的体现。编码的目的有如下三点：

1）唯一化，为事物提供一个概要而不含糊的认定，便于数据的存储和检索。 2）规范化，即编码要有规律，符合某一类事物的聚集，提高处理的效率和精度。 3）系统化，也即标准化，符合国家或行业标准，提高数据全局一致性。 1）车辆编号：车辆编号采用“车辆类型+车牌号+车主”的方式产生。

×× ××× ××××（不带校验位）

车辆类型

车牌号 车主 图2. 7车辆编号结构图

2）司机编号：司机编号采用“司机姓名 + 身份证号”的方式产生。

××× ××××（不带校验位） 图2.8司机编号结构图

司机姓名 身份证号 2.3数据库设计

2.3.1概念设计

数据库设计在一个信息管理系统中占有十分重要的地位，数据库结构设计的好坏直接对应用系统的效率以及实现的效果产生影响。合理的数据库设计可以提高数据库存储的效率，保证数据的完整好一致性，保障系统不会因为数据混乱而引起运行出错，同时，合理的数据库可以减轻系统开发的工作量，提高工作效率。

数据库设计应该充分考虑系统的需求，包括现在的需求，也要考虑将来的需求。 实体-联系图(Entity-Relation Diagram)用来建立数据模型,在数据库系统概论中属于概念设计阶段，形成一个独立于机器，独立于DBMS的ER图模型。 通常将它简称为ER图，相应地可把用ER图描绘的数据模型称为ER模型。ER图提供了表示实体（即数据对象）、属性和联系的方法，用来描述现实世界的概念模型。E-R图主要是由实体、属性和联系三个要素构成的。

10

辽 宁 工 业 大 学 课 程 设 计 说 明 书（论 文）

车辆基本信息 车号 类型 车主 发动机号 车架号

图2.9车辆基本信息E-R图

车辆维修基本信息 车牌 配件 维修时间 维修单位 维修价格 图2.10车辆维修基本信息E-R图

各实体之间关系的E-R图，如图4.7所示：

11

辽 宁 工 业 大 学 课 程 设 计 说 明 书（论 文）

姓名 性别 车号 车主 n 司机 n 驾驶 m 车辆 n 1 管理 管理员 1 管理 姓名 管理员ID

图2.11实体关系E-R图

2.3.2逻辑设计

逻辑结构设计。根据已经建立的概念数据模型，以及所采用的某个数据库管理系统软件的数据模型特性，按照一定的转换规则，把概念模型转换为这个数据库管理系统所能够接受的逻辑数据模型。不同的数据库管理系统提供了不同的逻辑数据模型，如层次模型、网状模型、关系模型等。

逻辑结构设计的任务，就是把概念结构设计阶段建立的基本E-R图，按选定的管理系统软件支持的数据模型（层次、网状、关系），转换成相应的逻辑模型。

表2.1 用户信息表

字段名称 user_id user_pwd user_des 数据类型 char char char 字段长度 15 15 15 可否为空 否 说明 用户名 密码 用户描述 表2.2 车辆信息表

字段名称

数据类型 字段长度 12

可否为空 说明

辽 宁 工 业 大 学 课 程 设 计 说 明 书（论 文）

cl_id cl_kind cl_owner cl_code1 cl_code2 cl_code3 cl_total cl_passenger cl_regdate cl_cardate cl_color cl_driver char char char char char char numeric numeric datetime datetime char char 20 20 20 10 10 20 9(18,0) 9(18,0) 8 8 4 10 表2.3 运营信息表

否 否 否 否 车辆牌照 车型 车主 发动机号 车架号 厂家型号 车重 核定载客 车辆注册日期 发证日期 车辆颜色 主要司机 字段名称 yy_id yy_driver yy_bdate yy_edate yy_distance yy_waste 数据类型 char char datetime datetime numeric numeric 字段长度 15 20 8 8 9(18,0) 9(18,0) 可否为空 否 否 否 否 说明 运营车辆牌照 运营的司机姓名 运营开始时间 运营结束时间 运营行程 运营费用 2.3.3物理设计

数据库物理设计是将一个给定逻辑结构实施到具体的环境中时，逻辑数据模型要选取一个具体的工作环境，这个工作环境提供了数据存储结构与存取方法，这个过程就是数据库的物理设计。物理结构依赖于给定的DBMS和和硬件系统，因此设计人员必须充分了解所用RDBMS的内部特征、存储结构、存取方法。

可以直接在数据库中建立数据表，也可以将自由表添加到数据库中，但不能将另一个数据库中的表拉到当前数据库中来。可以在同一个数据库中建立多个表

图2.10用户信息

13

辽 宁 工 业 大 学 课 程 设 计 说 明 书（论 文）

第3章 系统实施

3.1开发工具介绍

前台使用Visual Basic 6.0，它是Windows应用程序开发工具，具有直观的开发界面、先进的程序设计思想，是目前最为广泛的、易学易用的面向对象的开发工具。VB还提供了软件发布功能，使得开发、调试到发布可以一步完成。故而，实现本系统VB是一个相对较好的选择。

关系型数据库应用数学方法来处理数据库中的数据。关系型数据库最大的特点在于它将每个具有相向属性的数据独立地存储在一个表中。对任何一个表来而言，用户可以新增、删除、修改表中的任何数据，而不会影响表中的其它数据。本系统使用的后端数据库是SQL Server2000。SQL Server数据库就是关系型数据库。在SQL Server 2000中的查询分析器里面输入建表语句，之后执行查询，保存，就可以得到所需要的表格了。

SQL Server，它是一种功能强大的数据库开发工具，数据库汇集了信息以供查询、存储和检索。选择SQL数据库的最主要原因是，它支持网络数据库，现在企业规模的迅速扩大，车辆作为最主要的交通工具在企业中已经大量存在，为了合理控制这些信息，最佳的调配各部门的车辆使用，采用网络数据库是最理想的选择。

3.2系统测试

采用ADO控件连接数据库和系统，ADO 是为 Microsoft最新和最强大的数据访问范例 OLE DB 而设计的，是一个便于使用的应用程序层接口。OLE DB 为任何数据源提供了高性能的访问，这些数据源包括关系和非关系数据库、电子邮件和文件系统、文本和图形、自定义业务对象等。

通过系统自带ODBC的文件DSN，进行连接数据库，其中定义的时候DSN文件名为myconnection.dsn（自定义），具体数据库连接的代码如下：

Public Function ConnectString() As String ConnectString = \End Function

其中的ConnectString的调用如下，这样就成功的连接了数据库 Set cnn = New ADODB.Connection cnn.Open ConnectString

3.3系统设计的特点

系统充分考虑了当前的市场需求，根据实际能力进行了调整，操作方便、界面友好直观，易用性、实用性很强；系统采用了网络数据库，使得用户可以分布式对数据进行处理，同时数据安全性得到提高，也使得数据在一个较大规模的企业中实现了透明；系统提供方便快捷的字典功能，用户只需输入一次数据，以后对字典实行增加、修改就可以满足要求了，大大地减少了输入的工作量。系统是根据当前市场的普遍需求设计的，所以适用范围很广，最适用于各种非运营单位的车辆管理，同时也可以作为运营单位车辆管理。提供了强大的数据报表功能，可行手工进行报表的设计调整，也可以系统自动生成，这样可以满足不同的用户的不同需求。

14

辽 宁 工 业 大 学 课 程 设 计 说 明 书（论 文）

附录：主要代码

司机信息查询代码如下： Private Sub cmdok_Click() Dim txtsql As String

If Check1.Value = vbChecked Then ' Call hidecheck

If Trim(Text1.Text) = \

MsgBox \查询内容不能为空\警告\ Else

txtsql = \ End If

' Check2.Enabled = False ' Check3.Enabled = False End If

If Check2.Value = vbChecked Then 'Call hidecheck

If Trim(Text2.Text) = \

MsgBox \查询内容不能为空\警告\ Else

txtsql = \ End If

'Check1.Enabled = False 'Check3.Enabled = False End If

If Check3.Value = vbChecked Then ' Call hidecheck

If Trim(Text3.Text) = \

MsgBox \查询内容不能为空\警告\ Else

txtsql = \ End If

'Check1.Enabled = False ' Check2.Enabled = False End If

If Trim(txtsql) = \

MsgBox \请设置查询方式！\提示\ Exit Sub Else

'If flagdEdit Then

Unload frmdriverfind 'End If

frmdriverlist.txtsql = \

15

辽 宁 工 业 大 学 课 程 设 计 说 明 书（论 文）

frmdriverlist.Show End If End Sub

车辆信息添加代码:

Private Sub Cmdsave_Click() Dim txtcount As Integer Dim tmsg As String Dim msgtext As String For txtcount = 0 To 3

If Trim(txtitem(txtcount) & \ Select Case txtcount Case 0

tmsg = \车牌\ Case 1

tmsg = \车型\ Case 2

tmsg = \车主\ Case 3

tmsg = \发动机号\ End Select

tmsg = tmsg & \不能为空！\

MsgBox tmsg, vbOKOnly + vbExclamation, \警告\ txtitem(txtcount).SetFocus Exit Sub End If Next txtcount

If Not IsNumeric(txtitem(6)) Then

MsgBox \输入错误，请输入数字\警告\ txtitem(6).SetFocus Exit Sub End If

If Not IsNumeric(txtitem(7)) Then

MsgBox \输入错误，请输入数字\警告\ ' Exit Sub

txtitem(7).SetFocus Exit Sub End If

If Trim(txtitem(8) & \ If Not IsDate(txtitem(8)) Then

MsgBox \请输入时间，格式yyyy-mm-dd！\vbOKOnly + vbExclamation, \警告\

txtitem(8).SetFocus Exit Sub Else

16

辽 宁 工 业 大 学 课 程 设 计 说 明 书（论 文）

txtitem(8) = Format(txtitem(8), \ End If End If

If Trim(txtitem(9) & \ If Not IsDate(txtitem(9)) Then

MsgBox \请输入时间，格式yyyy-mm-dd！\vbOKOnly + vbExclamation, \警告\

txtitem(9).SetFocus Exit Sub Else

txtitem(9) = Format(txtitem(9), \ End If End If

If gintvMode = 1 Then

txtsql = \\

Set mrc = ExecuteSQL(txtsql, msgtext) If mrc.EOF = False Then

MsgBox \此车辆信息已经存在\警告\ txtitem(0).SetFocus Exit Sub Else

mrc.AddNew

For txtcount = 0 To 11

mrc.Fields(txtcount) = Trim(txtitem(txtcount)) Next txtcount mrc.Update End If mrc.Close

MsgBox \添加信息成功\添加信息\ End If

If gintvMode = 2 Then

txtsql = \from vehicle where cl_id='\& Trim(txtitem(0)) & \ ExecuteSQL txtsql, msgtext

txtsql = \

Set mrc = ExecuteSQL(txtsql, msgtext) mrc.AddNew

For txtcount = 0 To 11

mrc.Fields(txtcount) = Trim(txtitem(txtcount)) Next txtcount mrc.Update mrc.Close

flagvEdit = True

17

辽 宁 工 业 大 学 课 程 设 计 说 明 书（论 文）

MsgBox \信息修改成功\修改信息\ End If

If gintvMode = 1 Then

For txtcount = 0 To 11 txtitem(txtcount) = \ Next txtcount txtchange = False End If

If gintvMode = 2 Then Unload Me

If flagvEdit = True Then Unload frmvehiclelist End If

frmvehiclelist.txtsql = \ frmvehiclelist.Show End If End Sub

18

辽 宁 工 业 大 学 课 程 设 计 说 明 书（论 文）

第4章 课设总结

经过一个多月的设计和开发，单位车辆管理系统基本开发完毕。在老师耐心细致的指导下，以及同学们的帮助，同时翻阅了大量的资料不论是在网上的还是书上的，经过了一个月的努力终于完成了单位车辆管理系统。

本系统采用Visual Basic 6.0，和SQL Server数据库设计，操作方便简单，系统界面美观，易于使用者操作。本系统具有较强的直观性，设计完整等优点。但也有设计不足的地方，还需进一步分析改进，完善单位车辆管理系统。

单位车辆管理系统功能基本符合用户需求，能够完成用户提出的信息管理要求。并提供部分系统维护功能,使用户方便进行数据备份和恢复、数据删除。对于数据的一致性的问题也通过程序进行了有效的解决。但是由于毕业设计时间较短，所以该系统还有许多不尽如人意的地方，将在日后的时间继续完善。

19

辽 宁 工 业 大 学 课 程 设 计 说 明 书（论 文）

参考文献

[1] 薛华成，《管理信息系统》，北京：清华大学出版社，2002 [2] 姜旭平，《信息系统开发方法，策略，技术，工具》，北京：清华大学出版社，2008 [3] 张玉红，《管理信息系统程序设计技术》，北京：清华大学出版社，2007 [4] 姚巍．《Visual Basic数据库开发及工程实例》，北京：清华大学出版社，2009 [5] 胡小兵．《Visual Basic数据库项目案例导航》，北京：清华大学出版社，2005 [6] 胡胜利．《数据库原理与应用》，上海：机械工业出版社，2008 [7] 刘铭徽．《信息系统开发实例精选》，北京：北京电子科技大学出版社，2007 [8] 郝平．《数据库开发与应用》，上海：人民邮电出版社，2006 [9] 乔美娥．《数据库系统原理与设计》，北京：清华大学出版社，2008 [10] 周治平．《数据库开发学习教程》，上海：电子工业出版社，2009 [11] 杨艳．《Visual Basic 6.0程序设计教程》，北京：北京大学出版社，2008 [12] 刘永雷．《管理细小系统案例》，北京：北方交通大学出版社，2006 [13] 刘炳文．《Visual Basic数据库编程宝典》，上海：电子工业出版社，2009 [14] 刘新民．《SQL Server数据库开发经典案例解析》，上海：机械工业出版社，2007 [15] 高春艳．《信息时代的管理信息系统》，上海：人民邮电出版社，2006

20

辽 宁 工 业 大 学 课 程 设 计 说 明 书（论 文）

附录：主要代码

司机信息查询代码如下： Private Sub cmdok_Click() Dim txtsql As String

If Check1.Value = vbChecked Then ' Call hidecheck

If Trim(Text1.Text) = \

MsgBox \查询内容不能为空\警告\ Else

txtsql = \ End If

' Check2.Enabled = False ' Check3.Enabled = False End If

If Check2.Value = vbChecked Then 'Call hidecheck

If Trim(Text2.Text) = \

MsgBox \查询内容不能为空\警告\ Else

txtsql = \ End If

'Check1.Enabled = False 'Check3.Enabled = False End If

If Check3.Value = vbChecked Then ' Call hidecheck

If Trim(Text3.Text) = \

MsgBox \查询内容不能为空\警告\ Else

txtsql = \ End If

'Check1.Enabled = False ' Check2.Enabled = False End If

If Trim(txtsql) = \

MsgBox \请设置查询方式！\提示\ Exit Sub Else

'If flagdEdit Then

Unload frmdriverfind 'End If

frmdriverlist.txtsql = \

21

辽 宁 工 业 大 学 课 程 设 计 说 明 书（论 文）

frmdriverlist.Show End If End Sub

车辆信息添加代码:

Private Sub Cmdsave_Click() Dim txtcount As Integer Dim tmsg As String Dim msgtext As String For txtcount = 0 To 3

If Trim(txtitem(txtcount) & \ Select Case txtcount Case 0

tmsg = \车牌\ Case 1

tmsg = \车型\ Case 2

tmsg = \车主\ Case 3

tmsg = \发动机号\ End Select

tmsg = tmsg & \不能为空！\

MsgBox tmsg, vbOKOnly + vbExclamation, \警告\ txtitem(txtcount).SetFocus Exit Sub End If Next txtcount

If Not IsNumeric(txtitem(6)) Then

MsgBox \输入错误，请输入数字\警告\ txtitem(6).SetFocus Exit Sub End If

If Not IsNumeric(txtitem(7)) Then

MsgBox \输入错误，请输入数字\警告\ ' Exit Sub

txtitem(7).SetFocus Exit Sub End If

If Trim(txtitem(8) & \ If Not IsDate(txtitem(8)) Then

MsgBox \请输入时间，格式yyyy-mm-dd！\vbOKOnly + vbExclamation, \警告\

txtitem(8).SetFocus Exit Sub Else

22

辽 宁 工 业 大 学 课 程 设 计 说 明 书（论 文）

txtitem(8) = Format(txtitem(8), \ End If End If

If Trim(txtitem(9) & \ If Not IsDate(txtitem(9)) Then

MsgBox \请输入时间，格式yyyy-mm-dd！\vbOKOnly + vbExclamation, \警告\

txtitem(9).SetFocus Exit Sub Else

txtitem(9) = Format(txtitem(9), \ End If End If

If gintvMode = 1 Then

txtsql = \\

Set mrc = ExecuteSQL(txtsql, msgtext) If mrc.EOF = False Then

MsgBox \此车辆信息已经存在\警告\ txtitem(0).SetFocus Exit Sub Else

mrc.AddNew

For txtcount = 0 To 11

mrc.Fields(txtcount) = Trim(txtitem(txtcount)) Next txtcount mrc.Update End If mrc.Close

MsgBox \添加信息成功\添加信息\ End If

If gintvMode = 2 Then

txtsql = \from vehicle where cl_id='\& Trim(txtitem(0)) & \ ExecuteSQL txtsql, msgtext

txtsql = \

Set mrc = ExecuteSQL(txtsql, msgtext) mrc.AddNew

For txtcount = 0 To 11

mrc.Fields(txtcount) = Trim(txtitem(txtcount)) Next txtcount mrc.Update mrc.Close

flagvEdit = True

23

辽 宁 工 业 大 学 课 程 设 计 说 明 书（论 文）

MsgBox \信息修改成功\修改信息\ End If

If gintvMode = 1 Then

For txtcount = 0 To 11 txtitem(txtcount) = \ Next txtcount txtchange = False End If

If gintvMode = 2 Then Unload Me

If flagvEdit = True Then Unload frmvehiclelist End If

frmvehiclelist.txtsql = \ frmvehiclelist.Show End If End Sub

24

本文来源：https://www.bwwdw.com/article/375g.html