基于DELPHI的车辆管理系统的设计与实现

1、课件之家精心整理资料-欢迎你的欣赏 课件之家精心整理资料-欢迎你的欣赏 毕毕 业业 论论 文（设文（设 计）计） 作作 者者:xxx 学学 号：号： xxx 系系 部部:信息科学与工程系 专专 业业:计算机科学与技术 题题 目目:基于 delphi 的车辆管理系统的 设计与实现 指指导导老老师师xxx讲师 提提交交日日期期2010 年 5 月 15 日 课件之家精心整理资料-欢迎你的欣赏 课件之家精心整理资料-欢迎你的欣赏 基于基于 delphidelphi 的车辆管理系统的设计与实现的车辆管理系统的设计与实现 摘摘 要要 随着经济的日益增长，车辆数量增长迅速，车辆的种类也在不断的 增加，由此

2、车辆管理所需要保管的车辆档案资料增加迅速。随着档案资 料的增加，工作人员劳动强度增大，档案资料的存储、查询等工作与办 公高效率的要求矛盾日渐突。为解决此矛盾，采用计算机对车辆进行管 理已成为必然趋势。 本文主要介绍了如何利用 delphi7 及 sql server2000 构筑车辆管理 系统，文中分析了该系统的主要组成情况，重点介绍了系统功能模块的 详细思路和实现方法。该系统能有效地协助单位进行车辆的管理，系统 使用起来方便、简单，使用该系统大大减少了管理人员作业量，减少出 错几率，提高了工作效率。 关键词：车辆管理，delphi7, sql server2000 课件之家精心整理资料-欢迎

3、你的欣赏 课件之家精心整理资料-欢迎你的欣赏 development of vehicle management system based on delphi abstract with the economy growing, the vehicle quantity increases rapidly and the kind of the vehicle is in constant increase too,which will cause that the vehicles reference material will increase. along with the refere

4、nce material increase, the staff work load increases, file storage, query, such as office work and high-efficiency requirements have become increasingly prominent contradictions. in order to resolve this contradiction, that using the computer to manage vehicle will become the inexorable trend. this

5、paper mainly introduces how to use delphi and sql server to structure the vehicle management system. the paper analyzes the main components of the system, focusing on the system functional modules detailed ideas and methods. the system can assist the unit to manage the vehicles effectively,which is

6、convenient and simple to be used , the system can reduce administrative staffs work load greatly, reduce the probability of making mistakes, improve working efficiency. keywords: traffic management, delphi7, sql server2000 课件之家精心整理资料-欢迎你的欣赏 课件之家精心整理资料-欢迎你的欣赏 目 录 摘 要.i abstract.ii 第一章 前言.- 1 - 1.1 背景

7、 .- 1 - 1.2 mis 系统的起源和作用 .- 1 - 1.3 单位车辆管理系统的功能和作用 .- 1 - 第二章 系统开发相关技术.- 3 - 2.1 编程工具的选择 .- 3 - 2.2 数据库的选择 .- 3 - 2.3 构筑单位车辆管理系统 .- 4 - 第三章 系统的分析和数据库设计.- 5 - 3.1 需求分析 .- 5 - 3.2 系统结构 .- 5 - 3.3 数据流程图 .- 8 - 3.4 数据库设计 .- 8 - 3.4.1 e-r 图.- 8 - 3.4.2 数据库表的设计 .- 10 - 第四章 系统设计.- 11 - 4.1 系统登录界面设计 .- 11 -

8、 4.2 系统主界面的设计 .- 12 - 4.3 车辆档案管理设计 .- 13 - 4.4 车辆档案查询设计 .- 14 - 4.5 数据库连接设计 .- 15 - 第五章 系统实现.- 17 - 课件之家精心整理资料-欢迎你的欣赏 课件之家精心整理资料-欢迎你的欣赏 5.1 系统环境 .- 17 - 5.2 系统运行情况 .- 17 - 5.2.1 用户登录界面 .- 17 - 5.2.2 系统主界面 .- 17 - 5.2.3 车辆档案管理界面 .- 18 - 5.2.4 车辆档案信息查询界面 .- 18 - 5.2.5 驾驶员信息管理和查询界面 .- 19 - 5.2.6 车辆类型管理

9、界面 .- 20 - 结束语.- 21 - 致谢.- 22 - 参考文献.- 23 - 附录 a-数据库表 .- 24 - 附录 b-部分代码 .- 25 - 课件之家精心整理资料-欢迎你的欣赏 课件之家精心整理资料-欢迎你的欣赏 第一章第一章前言前言 1.11.1 背景背景 当前随着信息时代的到来，信息高速公路的兴起，全球信息化进入了一个新的发 展时期。人们越来越认识到计算机强大的信息处理功能，使之成为信息产业的基础和 支柱。1 随着我国经济的快速发展，汽车已经成为人们不可缺少的交通工具。对于拥有大 量车辆的企事业单位来说，车辆的管理已经成为日常工作中重要的一项。在传统管理 过程中，表单填写

10、与查询管理都非常的耗费人力物力，同时由于采用手工操作，不可 避免造成一些的错误，这种管理方式还存在着许多缺点，如效率低、保密性差且较为 烦琐。如何让管理人员及时了解每一辆车的情况，提高车辆的使用效率减少费用支出， 就成为个单位需要解决的一个问题。 1.21.2 mismis 系统的起源和作用系统的起源和作用 管理信息系统（management information systems, mis)的概念起源比较早，在 20 世纪 50 年代就已经有人提出管理依赖于信息和决策的思想。而管理信息系统一词 最早出现在 1970 年，由瓦尔特肯尼万(waltert.kenne-van)提出。而计算机首次进

11、 入管理业务领域是 1954 年美国通用电气公司在计算机上计算职工工资。 管理信息系统是研究管理领域中的信息活动及计算机的实现方法，为管理提供决 策支持。管理系统包括数据处理和管理两部分功能。数据处理功能是把各种形式的原 始数据进行分类、整理和保存，以供查询，进行各种系统分析和综合工作，及时提供 各种统一格式的信息。管理功能用来管理义务过程的的具体决策活动，包括计划、预 测、决策优化等功能。 在管理活动中面对大量信息进行管理决策，无疑会对管理者带来一定影响，而管 理信息系统对大量信息进行一定处理，使之呈现一定的规律性，为管理者决策活动带 来方便。2 1.31.3 单位车辆管理系统的功能和作用单

12、位车辆管理系统的功能和作用 单位车辆管理系统能够对车辆的各种信息汇总，保存，以供管理人员使用。本系 课件之家精心整理资料-欢迎你的欣赏 课件之家精心整理资料-欢迎你的欣赏 统集中管理车辆的运营、维修、事故、违章等一系列信息，有效跟踪和管理单位每台 汽车的使用状况，避免单位车辆管理的随意性，节省人力、物力、财力，提高工作效 率，使得车辆管理程序化、规范化、系统化，使企业管理更加科学、更加规范，对于 提高劳动热情和办公效率，具有重要的现实意义。3 课件之家精心整理资料-欢迎你的欣赏 课件之家精心整理资料-欢迎你的欣赏 第二章第二章系统开发相关技术系统开发相关技术 2.12.1 编程工具的选择编程工

13、具的选择 本系统编译工具为 delphi，具体编译工具版本为 delphi7。 delphi 是美国 borland software corporation 公司的编程工具产品。它基于 pascal 语言，可视化程度高，代码简捷易读执行效率高，它功能强大而且容易学习。 delphi 的主要特点体现在以下几个方面： 1)编译器速度较快且已编译代码的效率执行效率较高。delphi 的编译器采用 pascal 编译器，其特点就是速度快。 2)应用程序可通过在 delphi 中使用 borland 公司提供的数据引擎(bde)功能， 可以毫无障碍地使用多种数据库，同时 delphi 具有数据库感知和

14、数据库浏览功能， 使用户在开发应用程序时就可看到数据的变化。用户可在 delphi 的集成开发环境中， 方便浏览、修改数据库中的数据。 3）.适用范围广，易用易学。 delphi 的优势在于数据库方面，主要体现在 delphi 与 bde 的无缝集成，以及 delphi 提供的一大堆数据库操作控件。目前 delphi 支持 bde、ado、interbase 以及 dbexpress四种种数据库访问方式，所有方式都能拖到应用程序中实现可视化操作。4 2.22.2 数据库的选择数据库的选择 数据库是数据的集合，其作用在于组织和表达信息。计算机的数据库可以分为关 系数据库（relational）和

15、非关系数据库(flat-file) 。关系数据库是当前应用主流， 关系数据模型的数据逻辑结构为二维表。5 本系统使用 sql server2000 数据库。sql server 是微软公司开发的一个关系数 据库管理系统，以 transact_sql 作为它的数据库查询和编程语言。tsql 是结构 化查询语言 sql 的一种，支持 ansi sql92 标准。sql server2000 的同一个数 据库引擎可以在不同的 windows 平台上使用 且具有分布式事务支持 功能，能充 分保护任何分布式数据更新的完整性。 sql server2000 还易于安装和使用，sql server 2000

16、 中包括一系列管理和开发工具，这些工具可改进在多个站点上安装、 课件之家精心整理资料-欢迎你的欣赏 课件之家精心整理资料-欢迎你的欣赏 部署、管理和使用 sql server 的过程使得安装和使用方便。 6 2.32.3 构筑单位车辆管理系统构筑单位车辆管理系统 利用 delphi7 在方便的可视化控件、优异的数据库连接功能等方面的优势结合中 小型数据库 sql server2000，可以很好地完成系统开发，实现车辆管理的电子化， 大大提高工作效率。7 课件之家精心整理资料-欢迎你的欣赏 课件之家精心整理资料-欢迎你的欣赏 第三章第三章系统的分析系统的分析和数据库设计和数据库设计 3.13.1

17、 需求分析需求分析 单位车辆管理系统的目标是对实现车辆相关信息的计算机管理，使得管理科学化、 规范化、自动化。针对一般的车辆管理，可总结出以下需求: 1.车辆档案管理 车辆档案不仅包括车辆信息档案，还包括报废车辆档案，异动车辆档案，车辆类 型档案。对车辆档案的管理就是实现对其录入，修改，删除，查询。 2.运营车辆管理 运营车辆是当前正在使用的车辆，其运营信息包括运营时长，收入，运营时间等。 运营车辆管理就是实现对运营信息的录入，修改，删除，查询。 3.车辆管理 车辆管理就是实现车辆维修管理、车辆违章管理、车辆事故管理。 4.驾驶员管理 实现对驾驶员档案信息的管理，包括信息录入、修改、删除、查询

18、。 3.23.2 系统结构系统结构 根据需求分析将车辆管理分四部分，现将系统功能分如图 3-1 所示六部分 车辆管理系统 档 案 管 理 运 营 管 理 车 辆 管 理 驾 驶 员 管 理 系 统 维 护 关 于 图 3-1 系统功能图 各部分又包括若干功能： 档案管理 车辆档案录入、车辆档案查询、车辆异动、车辆异动查询、车辆报废、车辆报废 课件之家精心整理资料-欢迎你的欣赏 课件之家精心整理资料-欢迎你的欣赏 查询、车辆类型 运营管理 车辆运营管理、车辆运营查询、清空运营表 车辆管理 车辆维修管理、车辆维修查询、车辆违章管理、车辆违章查询、车辆事故管理、 车辆事故查询 驾驶员管理 驾驶员档案

19、、驾驶员档案查询、驾驶员奖惩 系统维护 系统初始化、管理员设置、数据备份、数据恢复 关于 帮助、关于、注销 课件之家精心整理资料-欢迎你的欣赏 课件之家精心整理资料-欢迎你的欣赏 车辆管理系统 车辆管理驾驶员管理系统维护关于运营管理档案管理 车 辆 档 案 录 入 车 辆 异 动 车 辆 报 废 查 询 车 辆 异 动 查 询 车 辆 类 型 车 辆 报 废 车 辆 运 营 管 理 车 辆 运 营 查 询 清 空 运 营 表 车 辆 维 修 管 理 车 辆 维 修 查 询 车 辆 违 章 管 理 车 辆 违 章 查 询 车 辆 事 故 管 理 车 辆 事 故 查 询 驾 驶 员 档 案 驾 驶

20、 员 档 案 查 询 查 询 驾 驶 员 奖 惩 系 统 初 始 化 车 辆 档 案 查 询 管 理 员 设 置 数 据 备 份 帮 助 注 销 关 于 数 据 恢 复 图 3-2 系统详细功能图 课件之家精心整理资料-欢迎你的欣赏 课件之家精心整理资料-欢迎你的欣赏 3.33.3 数据流程图数据流程图 数据流程图是一种能够全面地描述车辆管理系统逻辑模型的主要工具，它用少数 几种符号综合反映出系统中数据、信息的流动、存储、处理和使用的情况。 驾驶员 档案管理奖罚管理 驾驶员档案记录 图 3-3 数据流程图 3.43.4 数据库设计数据库设计 3.4.1 e-r 图 e-r 模型是数据库设计的依

21、据，实体、联系、属性是 e-r 图的主要内容。车辆管 理系统的实体为车辆、驾驶员，其联系是驾驶，实体车辆的属性包括车辆的基本信息 如车牌号、载重量、购买日期、发动机号等，见图 3-4，还包括违章维修异动信息、 事故报废信息，见图 3-5；实体驾驶员的属性包括姓名、出生日期、驾驶证号、获证 车辆 添加零件报废管理 维修管理 报废记录 事故管理 事故记录 维修记录 零件记录 违章管理 违章记录 档案管理 车辆信息记录 异动管理 异动记录车辆类型记录 课件之家精心整理资料-欢迎你的欣赏 课件之家精心整理资料-欢迎你的欣赏 日期、驾龄，见图 3-4。 车 辆 车牌号 车类型车架号 载重量发动机号 购置

22、日 期 使用单 位 所在单位 驾 驶 驾驶员 姓 名 出生日期 驾驶证号 获证日期 驾 龄 是否质检 维修违章信息事故报废信息 图 3-4 e-r 图 课件之家精心整理资料-欢迎你的欣赏 课件之家精心整理资料-欢迎你的欣赏 事故报废异 动信息 事故日期 承担者 事故类型 保险理赔公司金额 对方金额 对方姓名 对方单位 报废日期 报废原因 维修违章信息 异动日期 异动原因 维修日期 维修部件 所需费用 违章日期 违章原因 违章原因 图 3-5 车辆部分属性 3.4.2 数据库表的设计 详见附录 a-数据库表的设计 课件之家精心整理资料-欢迎你的欣赏 课件之家精心整理资料-欢迎你的欣赏 第四章第四

23、章 系统系统设计设计 4.14.1 系统登录界面设计系统登录界面设计 用户在进入系统前，必须通过系统登录进入主程序界面，通过系统登录界面主要 实现确认用户的身份及使用权限。登录界面设计如下： 图 4-1 用户登录界面控件图 新建 form，拖放控件 label1，label2，label3，button1，button2，edit1，edit2，adoquery，各控件属 性如表 4-1，代码见附录 b-部分代码。 表 4-1 控件属性表 控件名属性值 label1caption用户登录 label2caption用户名 label3caption密码 edit1nameedtuserid e

24、dit2nameedtpassword namebbtnok caption登录 onclickbbtnokclick namebbtnok caption取消 button1 button2 onclickbbtncancelclick nameaqryuser adoquery connectiondatamodule1.connoracle 课件之家精心整理资料-欢迎你的欣赏 课件之家精心整理资料-欢迎你的欣赏 4.24.2 系统主界面的设计系统主界面的设计 设置 form1 其 caption 属性为车辆管理系统，name 属性为 frmmain1402， 系统主界面设计如图 4-2。

25、 图 4-2 系统主界面设计图 在主界面拖放控件 mainmenu，并设置其菜单项分别为档案管理，运营管理，车 辆管理，驾驶员管理，系统维护，关于。在菜单项档案管理下设置其选项：车辆档案 录入，车辆档案查询，车辆异动，车辆异动查询，车辆报废，车辆报废查询，车辆类 型。在运营管理菜单设置其选项：车辆运营管理，车辆运营查询，清空运营表。在车 辆管理菜单下设置其选项：车辆维修管理，车辆维修查询，添加零件，车辆违章管理， 车辆违章查询，车辆事故管理，车辆事故查询。在驾驶员管理菜单下设置其选项：驾 驶员档案，驾驶员档案查询，驾驶员奖惩。在系统维护菜单下设置其选项：系统初始 化，管理员设置，数据备份，数据

26、恢复。在关于菜单下设置其选项：帮助，关于，注 销。 添加 toolbar 控件和 lmagelist 控件，两者关联。在 toolbar 中添加 12 个按钮， 分别对应车辆档案录入，车辆档案查询，车辆异动查询，车辆报废查询，车辆运营查 询，车辆维修管理，添加零件，车辆违章查询，差了事故查询，驾驶员档案查询，注 销。在 lmagelist 中添加相应图标对应 toolbar 中的 12 个按钮。 toolbar 与 mainmenu 中选项的 onclick 事件都为 tbtnaddrecordclick 事件。 课件之家精心整理资料-欢迎你的欣赏 课件之家精心整理资料-欢迎你的欣赏 添加控件

27、 adoquery1，adoquery2,label1 各控件属性如表 4-2，代码见附录 b-部 分代码。 表 4-2 控件属性表 控件名属性值 pictrue 图片所在路径 alignalcient lmagelist autosizefalse nameaqryadoquery1 connectiondatamodule1.connoracle name qryoperation。 adoquery2connectiondatamodule1.connoracle label1caption 车辆管理系统 4.34.3 车辆档案管理设计车辆档案管理设计 在 form1 中添加控件 pan

28、el，panel2，toolbar1，再在各控件中添加相应控件， 位置如图 4-3，控件属性见表 4-3，代码见附录 b-部分代码。 图 4-3 车辆档案管理设计图 表 4-3 控件属性表 控件名属性值 nameatbvehicle nameatbtype nameatbdriver adoquery1 adoquery2 adoquery3 connectiondatamodule1.connoracle 课件之家精心整理资料-欢迎你的欣赏 课件之家精心整理资料-欢迎你的欣赏 datasetdsvehicledatasource1 nameatbvehicle datasetdstypeda

29、tasource2 nameatbtype datasetatbdriverdatasource3 nameatbdriver dbedit1datafieldplateno dbloolupcombobox1datafieldtypeno dbloolupcombobox1datafielddriverno dbedit2datafieldcapacity dbedit3datafieldusingdept dbedit4datafieldbelongdept dbedit5datafieldenginemodel dbedit6datafieldframeno dbedit7datafie

30、ldfactoryplateno dbedit8datafieldreview dbedit9datafieldinsure datafieldacquisitiondate dbedit10 共有属性 datasourcedsvehicle 4.44.4 车辆档案查询设计车辆档案查询设计 设置 form 属性 caption 为车辆档案查询，name 为 frmvehiclerecord。 添加控件 panel，dbgrid，adoquery，datasource 到 frmvehiclerecord 中，控 件位置如图 4-4，控件属性见表 4-4，代码见附录 b-部分代码。 图 4-4

31、控件位置图 表 4-4 控件属性表 课件之家精心整理资料-欢迎你的欣赏 课件之家精心整理资料-欢迎你的欣赏 控件名属性值 panel1caption车辆档案查询 caption按车牌号radiobutton1 tag1 caption按驾驶员radiobutton2 tag2 caption按车辆类型radiobutton3 tag3 caption异动车辆radiobutton4 tag4 caption以报废车辆radiobutton5 tag5 caption没有年检车辆radiobutton6 tag6 caption没有保险车辆radiobutton7 tag7 radiobutto

32、n 共有onclickradiobutton1click combobox1onclickcombobox1change combobox2onclickcombobox2change combobox3onclickcombobox3change adoquery1nameaqryquery adoquery2nameaqryvehicle adoquery3nameaqrydctype adoquery4nameaqrydriver adoquery 共有connectiondatamodule1.connoracle namedsquery datasource1 datasetaqry

33、query 4.54.5 数据库连接数据库连接设计设计 本系统使用的数据库为 sql server2000，程序使用 ado 控件的 connectionstring 属性连接数据库。程序中连接数据库的控件较多，因此采用在 datamodule 中放置一个 adoconnection 控件供多个 aodquery 控件连接数据库的方法， 如图 4-5 所示。 课件之家精心整理资料-欢迎你的欣赏 课件之家精心整理资料-欢迎你的欣赏 图 4-5 数据库连接设计图 各控件属性图如表 4-5 所示 表 4-5 控件属性表 控件名属性值 nameconnoracle loginpromptfalse a

34、doconnection connectionstring provider=sqloledb.1; password=; persist security info=true; user id=sa; initial catalog=student; data source=jk 课件之家精心整理资料-欢迎你的欣赏 课件之家精心整理资料-欢迎你的欣赏 第五章第五章 系统实现系统实现 5.15.1 系统环境系统环境 cpu intel pentium ii / 233 mhz 以上 内 存 至少 128m 硬盘空间 至少 950m 操作系统 windows98/2000/xp 5.25.2 系

35、统运行情况系统运行情况 5.2.1 用户登录界面 图 5-1 用户登录界面 此界面用于登录系统，用户分管理员与普通用户，普通用户的操作受到限制，管 理员则拥有所有操作权限，而管理员账户 123（密码也为 123）为初始管理员，当管 理员进行系统初始化时，除初始管理员 123 外的其余所有账户，都被清除。 5.2.2 系统主界面 图 5-2 车辆管理系统主界面 课件之家精心整理资料-欢迎你的欣赏 课件之家精心整理资料-欢迎你的欣赏 在系统主界面中有六个菜单为档案管理、运营管理、车辆管理、驾驶员管理、系 统维护、关于。各个菜单下又有若干选项，单击可进行相应操作。同时主界面中还设 置了一些快捷图标，

36、可直接进行相应操作。 5.2.3 车辆档案管理界面 图 5-3 车辆档案信息管理界面 此界面对车辆档案信息进行管理如增加、删除、修改，同时可查看档案信息，但 要完整填写档案信息首先要完成车辆类型信息与驾驶员档案信息的录入。 5.2.4 车辆档案信息查询界面 图 5-4 车辆档案查询 课件之家精心整理资料-欢迎你的欣赏 课件之家精心整理资料-欢迎你的欣赏 5.2.5 驾驶员信息管理和查询界面 图 5-5 驾驶员管理界面 图 5-6 驾驶员档案查询界面 可以对驾驶员信息进行管理和查询，但要完整填写驾驶员的信息需要首先完成车 辆类型信息的录入。 课件之家精心整理资料-欢迎你的欣赏 课件之家精心整理资

37、料-欢迎你的欣赏 5.2.6 车辆类型管理界面 图 5-7 车辆类型管理界面 车辆类型管理是完整录入驾驶员信息与车辆档案信息的基础。在此界面可以对车 辆类型进行录入、删除、作废三项操作。 课件之家精心整理资料-欢迎你的欣赏 课件之家精心整理资料-欢迎你的欣赏 结束语结束语 经过两个多月的设计和开发，该车辆管理系统基本开发完毕。其功能比较全面， 能有效地协助单位进行车辆的管理，管理方便，简单，大大减少了管理人员作业量， 减少出错几率，提高了工作效率。 但是由于设计时间较短，在系统设计方面还有待改进的地方，比如对录入不完整 的时间数据的处理界面不够友好，录入时间数据的正确性不加判别，今后会在此方面

38、 予以改进，也请各位老师多提宝贵意见。 课件之家精心整理资料-欢迎你的欣赏 课件之家精心整理资料-欢迎你的欣赏 致谢致谢 在毕业设计即将结束之际,首先衷心感谢我的指导老师 xxx 老师。这次毕业设计 是在曹老师的悉心指导和帮助下完成的。在整个毕业设计中，曹老师一直非常关心我 的毕业设计的完成情况，每个星期都会和我进行交流，并针对我的设计提出非常宝贵 的建议。每一次交给老师的报告，老师都及时认真的审阅，并耐心的指导我。曹老师 认真负责的态度，是我学习的榜样。 此外，向支持我的其他各位老师表示衷心的感谢。因为，在设计过程中，由于所 学知识有限及应用不灵活等原因经常会出现一些疑难问题，在解决设计中的

39、各种问题 时，他们给予我很大的帮助。 最后，在这里对以上帮助我的老师再次表示感谢，正是由于他们的帮助使我充实 了平时所学的知识，掌握了实际的工作技能，真正的将理论与实际相结合，使我获益 匪浅，在此表达我最真挚的谢意！ 课件之家精心整理资料-欢迎你的欣赏 课件之家精心整理资料-欢迎你的欣赏 参考文献参考文献 1 车辆管理系统论文. http:/ 2 雍殿书. 管理信息技术与系统. 南京：南京大学出版社，2009.7 3 车辆管理系统. http:/ 4 何鹏飞. delphi 7 程序设计教程. 北京：清华大学出版社，2003,.7 5 封玲等. 现代数据库系统实用教程. 北京：人民邮电出版社，

40、2006.10 6 王晶. sql server 2000 管理与应用开发教程. 北京：人民邮电出版社， 2009.1 7 宋一兵等. delphi17 基础教程. 北京：机械工业出版社，2005.1 课件之家精心整理资料-欢迎你的欣赏 课件之家精心整理资料-欢迎你的欣赏 附录 a-数据库表 表 1 用户表 字段名类型长度是否空含义 useridnvarchar50否登陆名 passwordnvarchar50否登陆密码 statusreal4否是否为管理员 表 2 车辆记录表 字段名类型长度是否空含义 platenonvarchar50否车牌号 drivernonvarchar50否司机号

41、typeno nvarchar50否车类型号 ifreviewint4否是否年检 ifinsureint4否是否参保 acquisitiondatedatatime8否购置日期 capacitreal4否载重 usingdepynvarchar50否使用单位 belongdeptnvarchar50否所在单位 enginemodelnvarchar50否发动机号 framenonnvarchar50否车架号 factoryplatenonvarchar50否车牌型号 reviewint4否已年检 insureint4否已参保 表 3 运营管理表 字段名类型长度是否空含义 platenonvar

42、char50否车牌号 perationdatedatatime8否运营日期 operationincommoney8是收入 operationontimedatatime8否运营时间 表 4 车辆维修记录表 字段名类型长度是否空含义 platenonvarchar50否车牌号 partsnamenvarchar50否维修部件 maintenancedatedatatime8否维修日期 neednumbermoney8否所需费用 表 5 事故表 字段名类型长度是否空含义 platenonvarchar50否车牌号 accidentdatedatatime 8否事故日期 accidentunder

43、takernvarchar 50否承担者 companysummoney8否公司负责金额 insurancesummoney8否保险理赔金额 oppositesummoney8否对方理赔金额 oppositenamenvarchar50否对方姓名 课件之家精心整理资料-欢迎你的欣赏 课件之家精心整理资料-欢迎你的欣赏 opposiredamagenvarchar50否对方损坏程度 oppositedeptnvarchar50否对方单位 accidentgeneralnvarchar50是事故概要 表 6 违章车辆表 字段名类型长度是否空含义 platenonvarchar50否车牌号 nfri

44、ngedatedatatime8否违章日期 infringereasonnvarchar50否违章原因 punishmentnvarchar50否是否处罚 infringeremarknvarchar50是备注 表 7 驾驶员记录表 字段名类型长度是否空含义 driverno nvarchar50否司机编号 drivernamenvarchar50否司机姓名 birthdaydatatime8是出生日期 licensendnvarchar50否驾驶证号 dateexpiresdatatime8否获证日期 drivedyard nvarchar50否驾龄 表 8 车辆类型表 字段名类型长度是否空

45、含义 ifvoidint4否是否作废 typeno nvarchar50否类型号 typename nvarchar50否类型名 表 9 车辆异动表 字段名类型长度是否空含义 platenonvarchar50否车牌号 transactiondatedatatime8否异动时间 transactionttypenvarchar50否异动类型 specifynvarchar50是详细说明 表 10 报废车辆表 字段名类型长度是否空含义 platenonvarchar50否车牌号 scrapdatedatatime8否报废时间 scrapreasonnvarchar50是报废原因 表 11 零件表

46、 字段名类型长度是否空否含义 partsno nvarchar50是零件编号 partnamenvarchar50否零件名 stockqtyint4否库存量 unitpricemoney8否零件单价 附录 b-部分代码 课件之家精心整理资料-欢迎你的欣赏 课件之家精心整理资料-欢迎你的欣赏 主界面 4.2，具体代码 unit main0061402; uses datamodual; procedure tfrmmain1402.formcreate(sender: tobject); var suserid:string; begin gfunopenlogin(suserid);/通过登录

47、表单的接口调用登录界面 statusbar1.panels1.text:=用户：+suserid end; procedure tfrmmain1402.formclosequery(sender: tobject; var canclose: boolean); begin if application.messagebox(是否确定退出,提示,mb_yesno)=id_no then canclose:=false; end; /主界面关闭时，断开数据库连接 procedure tfrmmain1402.formclose(sender: tobject; var action: tclo

48、seaction); begin if datamodule1.connoracle.connected then datamodule1.connoracle.close; if qryoperation.active then qryoperation.close; end; /本系统主要事件，通过此事件调用各事件处理窗口 procedure tfrmmain1402.tbtnaddrecordclick(sender: tobject); begin case(sender as tcomponent).tag) of 11:begin /调用车辆档案录入 gfunopenaddvehi

49、cle(); end; 12:begin/ 调用车辆档案查询 gfunopenvehiclerecord(); end; 13:begin /调用车辆异动管理 gfunopenaddtransaction(); end; 14:begin/调用车辆异动查询 gfunopentransaction(); end; 15:begin /车辆报废管理 gfunopenaddscrap(); end; 16:begin/车辆报废查询 课件之家精心整理资料-欢迎你的欣赏 课件之家精心整理资料-欢迎你的欣赏 gfunopenvehiclescrap(); end; 17:begin /车辆类型 gfuno

50、pendctype(); end; 21:begin /车辆运营管理 gfunopenaddoperation(); end; 22:begin /车辆运营查询 gfunopenvehicleoper(); end; 23:begin /清空运营表 if application.messagebox(此功能会清空运营表所有数据,您确定要清空运 营表吗？,提示,mb_yesno ) =id_yes then begin try if qryoperation.active then qryoperation.close; qryoperation.execsql; except applicat

51、ion.messagebox(清空运营表错误,错误); end; end; end; 31:begin /车辆维修管理 gfunopenaddmaintenance(); end; 32:begin /车辆维修查询 gfunopenmaintenace(); end; 33:begin/添加零件 gfunopenaddparts(); end; 34:begin /车辆违章管理 gfunopenaddinfringe(); end; 35:begin/车辆违章查询 gfunopeninfringe(); end; 36:begin /车辆事故管理 gfunopenaddaccident();

52、end; 37:begin/车辆事故查询 gfunopenaccident(); end; 41:begin/驾驶员档案管理 gfunopenadddriver(); 课件之家精心整理资料-欢迎你的欣赏 课件之家精心整理资料-欢迎你的欣赏 end; 42:begin /驾驶员档案查询 gfunopendriver(); end; 43:begin/驾驶员奖罚 gfunopendriveraward(); end; 51:begin /系统初始化 if application.messagebox(您正要执行系统初始化命令，您确定要进行系 统初始化吗？,提示,mb_yesno ) =id_yes

53、 then begin try aqry.close; aqry.sql.clear; aqry.sql.add(delete from users where userid:user); /删除用户只 剩下一个管理员 aqry.parameters.parambyname(user).value:=123 ; aqry.execsql; /使用这个才有用，不能用 aqry.open aqry.close; aqry.sql.clear; aqry.sql.add(delete from vehiclemaintenance); /删除车辆维修记录 aqry.execsql; aqry.clo

54、se; aqry.sql.clear; aqry.sql.add(delete from vehicleinfringe ); /删除车辆违章记录 aqry.execsql; aqry.close; aqry.sql.clear; aqry.sql.add(delete from vehicleoperation); /删除车辆运营记录 aqry.execsql; aqry.close; aqry.sql.clear; aqry.sql.add(delete from vehicleaccident); /删除车辆事故记录 aqry.execsql; aqry.close; aqry.sql.

55、clear; aqry.sql.add(delete from vehicletransaction); /删除车辆异动记录 aqry.execsql; aqry.close; aqry.sql.clear; aqry.sql.add(delete from vehiclescrap); 课件之家精心整理资料-欢迎你的欣赏 课件之家精心整理资料-欢迎你的欣赏 /删除车辆报废记录 aqry.execsql; aqry.close; aqry.sql.clear; aqry.sql.add(delete from parts); /删除零件记录 aqry.execsql; aqry.close;

56、aqry.sql.clear; aqry.sql.add(delete from vehiclerecord); /删除车辆档案 aqry.execsql; aqry.close; aqry.sql.clear; aqry.sql.add(delete from driverother); /删除驾驶员附加表记录 aqry.execsql; aqry.close; aqry.sql.clear; aqry.sql.add(delete from driverrecord); /删除驾驶员基本表记录 aqry.execsql; aqry.close; aqry.sql.clear; aqry.s

57、ql.add(delete from dctype); /删除车辆类型记录 aqry.execsql; except application.messagebox(系统错误,错误); end; end; end; 52:begin /管理员设置 gfunopenuser(); end; 53:begin /数据库备份 gfunopendatabase(); end; 54:begin /数据恢复 gfunopenrestore(); end; 61:begin /帮助 gfunopenhelp(); end; 62:begin/关于 gfunopenabout(); end; 课件之家精心整理

58、资料-欢迎你的欣赏 课件之家精心整理资料-欢迎你的欣赏 63:begin /注销 close; end; end; end; end. 车辆档案录入 4.3 具体代码 unit vehiclerecord; uses datamodual; /由主程序调用 function gfunopenaddvehicle():integer; begin frmaddvehicle:=tfrmaddvehicle.create(nil); frmaddvehicle.showmodal; result:=0; frmaddvehicle.free; end; /关闭表单，关闭所有表 procedure

59、tfrmaddvehicle.formclose(sender: tobject; var action: tcloseaction); begin inherited; if atbvehicle.active then close; if atbdriver.active then close; if atbtype.active then close; end; /显示表单，打开所有表 procedure tfrmaddvehicle.formshow(sender: tobject); begin inherited; if atbvehicle.active then atbvehi

60、cle.close; try atbvehicle.open; except application.messagebox(打开车辆档案表错误,提示); close; end; if atbdriver.active then atbdriver.close; try atbdriver.open; except application.messagebox(打开驾驶员档案表错误,提示); close; end; 课件之家精心整理资料-欢迎你的欣赏 课件之家精心整理资料-欢迎你的欣赏 if atbtype.active then atbtype.close; try atbtype.open;