169.基于Delphi的車輛管理系統(tǒng)的設計與實現(xiàn)

1、畢畢 業(yè)業(yè) 論論 文（設文（設 計）計） 作作 者者:xxx 學學 號：號： xxx 系系 部部:信息科學與工程系 專專 業(yè)業(yè):計算機科學與技術 題題 目目:基于 delphi 的車輛管理系統(tǒng)的 設計與實現(xiàn) 指指導導老老師師xxx講師 提提交交日日期期2010 年 5 月 15 日 基于基于 delphidelphi 的車輛管理系統(tǒng)的設計與實現(xiàn)的車輛管理系統(tǒng)的設計與實現(xiàn) 摘摘 要要 隨著經(jīng)濟的日益增長，車輛數(shù)量增長迅速，車輛的種類也在不斷的 增加，由此車輛管理所需要保管的車輛檔案資料增加迅速。隨著檔案資 料的增加，工作人員勞動強度增大，檔案資料的存儲、查詢等工作與辦 公高效率的要求矛盾日漸突。

2、為解決此矛盾，采用計算機對車輛進行管 理已成為必然趨勢。 本文主要介紹了如何利用 delphi7 及 sql server2000 構筑車輛管理 系統(tǒng)，文中分析了該系統(tǒng)的主要組成情況，重點介紹了系統(tǒng)功能模塊的 詳細思路和實現(xiàn)方法。該系統(tǒng)能有效地協(xié)助單位進行車輛的管理，系統(tǒng) 使用起來方便、簡單，使用該系統(tǒng)大大減少了管理人員作業(yè)量，減少出 錯幾率，提高了工作效率。 關鍵詞：車輛管理，delphi7, sql server2000 development of vehicle management system based on delphi abstract with the economy gr

3、owing, 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 reference material increase, the staff work load increases, file storage, query, such as office work and high-effi

4、ciency 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 paper mainly introduces how to use delphi and sql server to structure the vehicle management system. the pap

5、er 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 convenient and simple to be used , the system can reduce administrative staffs work load greatly, reduce the

6、 probability of making mistakes, improve working efficiency. keywords: traffic management, delphi7, sql server2000 目 錄 摘 要.i abstract.ii 第一章 前言.- 1 - 1.1 背景 .- 1 - 1.2 mis 系統(tǒng)的起源和作用 .- 1 - 1.3 單位車輛管理系統(tǒng)的功能和作用 .- 1 - 第二章 系統(tǒng)開發(fā)相關技術.- 3 - 2.1 編程工具的選擇 .- 3 - 2.2 數(shù)據(jù)庫的選擇 .- 3 - 2.3 構筑單位車輛管理系統(tǒng) .- 4 - 第三章 系統(tǒng)的分

7、析和數(shù)據(jù)庫設計.- 5 - 3.1 需求分析 .- 5 - 3.2 系統(tǒng)結構 .- 5 - 3.3 數(shù)據(jù)流程圖 .- 8 - 3.4 數(shù)據(jù)庫設計 .- 8 - 3.4.1 e-r 圖.- 8 - 3.4.2 數(shù)據(jù)庫表的設計 .- 10 - 第四章 系統(tǒng)設計.- 11 - 4.1 系統(tǒng)登錄界面設計 .- 11 - 4.2 系統(tǒng)主界面的設計 .- 12 - 4.3 車輛檔案管理設計 .- 13 - 4.4 車輛檔案查詢設計 .- 14 - 4.5 數(shù)據(jù)庫連接設計 .- 15 - 第五章 系統(tǒng)實現(xiàn).- 17 - 5.1 系統(tǒng)環(huán)境 .- 17 - 5.2 系統(tǒng)運行情況 .- 17 - 5.2.1 用戶

8、登錄界面 .- 17 - 5.2.2 系統(tǒng)主界面 .- 17 - 5.2.3 車輛檔案管理界面 .- 18 - 5.2.4 車輛檔案信息查詢界面 .- 18 - 5.2.5 駕駛員信息管理和查詢界面 .- 19 - 5.2.6 車輛類型管理界面 .- 20 - 結束語.- 21 - 致謝.- 22 - 參考文獻.- 23 - 附錄 a-數(shù)據(jù)庫表 .- 24 - 附錄 b-部分代碼 .- 25 - 第一章第一章前言前言 1.11.1 背景背景 當前隨著信息時代的到來，信息高速公路的興起，全球信息化進入了一個新的發(fā) 展時期。人們越來越認識到計算機強大的信息處理功能，使之成為信息產(chǎn)業(yè)的基礎和 支柱。

9、1 隨著我國經(jīng)濟的快速發(fā)展，汽車已經(jīng)成為人們不可缺少的交通工具。對于擁有大 量車輛的企事業(yè)單位來說，車輛的管理已經(jīng)成為日常工作中重要的一項。在傳統(tǒng)管理 過程中，表單填寫與查詢管理都非常的耗費人力物力，同時由于采用手工操作，不可 避免造成一些的錯誤，這種管理方式還存在著許多缺點，如效率低、保密性差且較為 煩瑣。如何讓管理人員及時了解每一輛車的情況，提高車輛的使用效率減少費用支出， 就成為個單位需要解決的一個問題。 1.21.2 mismis 系統(tǒng)的起源和作用系統(tǒng)的起源和作用 管理信息系統(tǒng)（management information systems, mis)的概念起源比較早，在 20 世紀 5

10、0 年代就已經(jīng)有人提出管理依賴于信息和決策的思想。而管理信息系統(tǒng)一詞 最早出現(xiàn)在 1970 年，由瓦爾特肯尼萬(waltert.kenne-van)提出。而計算機首次進 入管理業(yè)務領域是 1954 年美國通用電氣公司在計算機上計算職工工資。 管理信息系統(tǒng)是研究管理領域中的信息活動及計算機的實現(xiàn)方法，為管理提供決 策支持。管理系統(tǒng)包括數(shù)據(jù)處理和管理兩部分功能。數(shù)據(jù)處理功能是把各種形式的原 始數(shù)據(jù)進行分類、整理和保存，以供查詢，進行各種系統(tǒng)分析和綜合工作，及時提供 各種統(tǒng)一格式的信息。管理功能用來管理義務過程的的具體決策活動，包括計劃、預 測、決策優(yōu)化等功能。 在管理活動中面對大量信息進行管理決策

11、，無疑會對管理者帶來一定影響，而管 理信息系統(tǒng)對大量信息進行一定處理，使之呈現(xiàn)一定的規(guī)律性，為管理者決策活動帶 來方便。2 1.31.3 單位車輛管理系統(tǒng)的功能和作用單位車輛管理系統(tǒng)的功能和作用 單位車輛管理系統(tǒng)能夠?qū)囕v的各種信息匯總，保存，以供管理人員使用。本系 統(tǒng)集中管理車輛的運營、維修、事故、違章等一系列信息，有效跟蹤和管理單位每臺 汽車的使用狀況，避免單位車輛管理的隨意性，節(jié)省人力、物力、財力，提高工作效 率，使得車輛管理程序化、規(guī)范化、系統(tǒng)化，使企業(yè)管理更加科學、更加規(guī)范，對于 提高勞動熱情和辦公效率，具有重要的現(xiàn)實意義。3 第二章第二章系統(tǒng)開發(fā)相關技術系統(tǒng)開發(fā)相關技術 2.12.

12、1 編程工具的選擇編程工具的選擇 本系統(tǒng)編譯工具為 delphi，具體編譯工具版本為 delphi7。 delphi 是美國 borland software corporation 公司的編程工具產(chǎn)品。它基于 pascal 語言，可視化程度高，代碼簡捷易讀執(zhí)行效率高，它功能強大而且容易學習。 delphi 的主要特點體現(xiàn)在以下幾個方面： 1)編譯器速度較快且已編譯代碼的效率執(zhí)行效率較高。delphi 的編譯器采用 pascal 編譯器，其特點就是速度快。 2)應用程序可通過在 delphi 中使用 borland 公司提供的數(shù)據(jù)引擎(bde)功能， 可以毫無障礙地使用多種數(shù)據(jù)庫，同時 del

13、phi 具有數(shù)據(jù)庫感知和數(shù)據(jù)庫瀏覽功能， 使用戶在開發(fā)應用程序時就可看到數(shù)據(jù)的變化。用戶可在 delphi 的集成開發(fā)環(huán)境中， 方便瀏覽、修改數(shù)據(jù)庫中的數(shù)據(jù)。 3）.適用范圍廣，易用易學。 delphi 的優(yōu)勢在于數(shù)據(jù)庫方面，主要體現(xiàn)在 delphi 與 bde 的無縫集成，以及 delphi 提供的一大堆數(shù)據(jù)庫操作控件。目前 delphi 支持 bde、ado、interbase 以及 dbexpress四種種數(shù)據(jù)庫訪問方式，所有方式都能拖到應用程序中實現(xiàn)可視化操作。4 2.22.2 數(shù)據(jù)庫的選擇數(shù)據(jù)庫的選擇 數(shù)據(jù)庫是數(shù)據(jù)的集合，其作用在于組織和表達信息。計算機的數(shù)據(jù)庫可以分為關 系數(shù)據(jù)庫（

14、relational）和非關系數(shù)據(jù)庫(flat-file) 。關系數(shù)據(jù)庫是當前應用主流， 關系數(shù)據(jù)模型的數(shù)據(jù)邏輯結構為二維表。5 本系統(tǒng)使用 sql server2000 數(shù)據(jù)庫。sql server 是微軟公司開發(fā)的一個關系數(shù) 據(jù)庫管理系統(tǒng)，以 transact_sql 作為它的數(shù)據(jù)庫查詢和編程語言。tsql 是結構 化查詢語言 sql 的一種，支持 ansi sql92 標準。sql server2000 的同一個數(shù) 據(jù)庫引擎可以在不同的 windows 平臺上使用 且具有分布式事務支持 功能，能充 分保護任何分布式數(shù)據(jù)更新的完整性。 sql server2000 還易于安裝和使用，sql

15、 server 2000 中包括一系列管理和開發(fā)工具，這些工具可改進在多個站點上安裝、 部署、管理和使用 sql server 的過程使得安裝和使用方便。 6 2.32.3 構筑單位車輛管理系統(tǒng)構筑單位車輛管理系統(tǒng) 利用 delphi7 在方便的可視化控件、優(yōu)異的數(shù)據(jù)庫連接功能等方面的優(yōu)勢結合中 小型數(shù)據(jù)庫 sql server2000，可以很好地完成系統(tǒng)開發(fā)，實現(xiàn)車輛管理的電子化， 大大提高工作效率。7 第三章第三章系統(tǒng)的分析系統(tǒng)的分析和數(shù)據(jù)庫設計和數(shù)據(jù)庫設計 3.13.1 需求分析需求分析 單位車輛管理系統(tǒng)的目標是對實現(xiàn)車輛相關信息的計算機管理，使得管理科學化、 規(guī)范化、自動化。針對一般的

16、車輛管理，可總結出以下需求: 1.車輛檔案管理 車輛檔案不僅包括車輛信息檔案，還包括報廢車輛檔案，異動車輛檔案，車輛類 型檔案。對車輛檔案的管理就是實現(xiàn)對其錄入，修改，刪除，查詢。 2.運營車輛管理 運營車輛是當前正在使用的車輛，其運營信息包括運營時長，收入，運營時間等。 運營車輛管理就是實現(xiàn)對運營信息的錄入，修改，刪除，查詢。 3.車輛管理 車輛管理就是實現(xiàn)車輛維修管理、車輛違章管理、車輛事故管理。 4.駕駛員管理 實現(xiàn)對駕駛員檔案信息的管理，包括信息錄入、修改、刪除、查詢。 3.23.2 系統(tǒng)結構系統(tǒng)結構 根據(jù)需求分析將車輛管理分四部分，現(xiàn)將系統(tǒng)功能分如圖 3-1 所示六部分 車輛管理系統(tǒng)

17、 檔 案 管 理 運 營 管 理 車 輛 管 理 駕 駛 員 管 理 系 統(tǒng) 維 護 關 于 圖 3-1 系統(tǒng)功能圖 各部分又包括若干功能： 檔案管理 車輛檔案錄入、車輛檔案查詢、車輛異動、車輛異動查詢、車輛報廢、車輛報廢 查詢、車輛類型 運營管理 車輛運營管理、車輛運營查詢、清空運營表 車輛管理 車輛維修管理、車輛維修查詢、車輛違章管理、車輛違章查詢、車輛事故管理、 車輛事故查詢 駕駛員管理 駕駛員檔案、駕駛員檔案查詢、駕駛員獎懲 系統(tǒng)維護 系統(tǒng)初始化、管理員設置、數(shù)據(jù)備份、數(shù)據(jù)恢復 關于 幫助、關于、注銷 車輛管理系統(tǒng) 車輛管理駕駛員管理系統(tǒng)維護關于運營管理檔案管理 車 輛 檔 案 錄 入

18、 車 輛 異 動 車 輛 報 廢 查 詢 車 輛 異 動 查 詢 車 輛 類 型 車 輛 報 廢 車 輛 運 營 管 理 車 輛 運 營 查 詢 清 空 運 營 表 車 輛 維 修 管 理 車 輛 維 修 查 詢 車 輛 違 章 管 理 車 輛 違 章 查 詢 車 輛 事 故 管 理 車 輛 事 故 查 詢 駕 駛 員 檔 案 駕 駛 員 檔 案 查 詢 查 詢 駕 駛 員 獎 懲 系 統(tǒng) 初 始 化 車 輛 檔 案 查 詢 管 理 員 設 置 數(shù) 據(jù) 備 份 幫 助 注 銷 關 于 數(shù) 據(jù) 恢 復 圖 3-2 系統(tǒng)詳細功能圖 3.33.3 數(shù)據(jù)流程圖數(shù)據(jù)流程圖 數(shù)據(jù)流程圖是一種能夠全面地描述

19、車輛管理系統(tǒng)邏輯模型的主要工具，它用少數(shù) 幾種符號綜合反映出系統(tǒng)中數(shù)據(jù)、信息的流動、存儲、處理和使用的情況。 駕駛員 檔案管理獎罰管理 駕駛員檔案記錄 圖 3-3 數(shù)據(jù)流程圖 3.43.4 數(shù)據(jù)庫設計數(shù)據(jù)庫設計 3.4.1 e-r 圖 e-r 模型是數(shù)據(jù)庫設計的依據(jù)，實體、聯(lián)系、屬性是 e-r 圖的主要內(nèi)容。車輛管 理系統(tǒng)的實體為車輛、駕駛員，其聯(lián)系是駕駛，實體車輛的屬性包括車輛的基本信息 如車牌號、載重量、購買日期、發(fā)動機號等，見圖 3-4，還包括違章維修異動信息、 事故報廢信息，見圖 3-5；實體駕駛員的屬性包括姓名、出生日期、駕駛證號、獲證 車輛 添加零件報廢管理 維修管理 報廢記錄 事

20、故管理 事故記錄 維修記錄 零件記錄 違章管理 違章記錄 檔案管理 車輛信息記錄 異動管理 異動記錄車輛類型記錄 日期、駕齡，見圖 3-4。 車 輛 車牌號 車類型車架號 載重量發(fā)動機號 購置日 期 使用單 位 所在單位 駕 駛 駕駛員 姓 名 出生日期 駕駛證號 獲證日期 駕 齡 是否質(zhì)檢 維修違章信息事故報廢信息 圖 3-4 e-r 圖 事故報廢異 動信息 事故日期 承擔者 事故類型 保險理賠公司金額 對方金額 對方姓名 對方單位 報廢日期 報廢原因 維修違章信息 異動日期 異動原因 維修日期 維修部件 所需費用 違章日期 違章原因 違章原因 圖 3-5 車輛部分屬性 3.4.2 數(shù)據(jù)庫表

21、的設計 詳見附錄 a-數(shù)據(jù)庫表的設計 第四章第四章 系統(tǒng)系統(tǒng)設計設計 4.14.1 系統(tǒng)登錄界面設計系統(tǒng)登錄界面設計 用戶在進入系統(tǒng)前，必須通過系統(tǒng)登錄進入主程序界面，通過系統(tǒng)登錄界面主要 實現(xiàn)確認用戶的身份及使用權限。登錄界面設計如下： 圖 4-1 用戶登錄界面控件圖 新建 form，拖放控件 label1，label2，label3，button1，button2，edit1，edit2，adoquery，各控件屬 性如表 4-1，代碼見附錄 b-部分代碼。 表 4-1 控件屬性表 控件名屬性值 label1caption用戶登錄 label2caption用戶名 label3captio

22、n密碼 edit1nameedtuserid edit2nameedtpassword namebbtnok caption登錄 onclickbbtnokclick namebbtnok caption取消 button1 button2 onclickbbtncancelclick nameaqryuser adoquery connectiondatamodule1.connoracle 4.24.2 系統(tǒng)主界面的設計系統(tǒng)主界面的設計 設置 form1 其 caption 屬性為車輛管理系統(tǒng)，name 屬性為 frmmain1402， 系統(tǒng)主界面設計如圖 4-2。 圖 4-2 系統(tǒng)主界面

23、設計圖 在主界面拖放控件 mainmenu，并設置其菜單項分別為檔案管理，運營管理，車 輛管理，駕駛員管理，系統(tǒng)維護，關于。在菜單項檔案管理下設置其選項：車輛檔案 錄入，車輛檔案查詢，車輛異動，車輛異動查詢，車輛報廢，車輛報廢查詢，車輛類 型。在運營管理菜單設置其選項：車輛運營管理，車輛運營查詢，清空運營表。在車 輛管理菜單下設置其選項：車輛維修管理，車輛維修查詢，添加零件，車輛違章管理， 車輛違章查詢，車輛事故管理，車輛事故查詢。在駕駛員管理菜單下設置其選項：駕 駛員檔案，駕駛員檔案查詢，駕駛員獎懲。在系統(tǒng)維護菜單下設置其選項：系統(tǒng)初始 化，管理員設置，數(shù)據(jù)備份，數(shù)據(jù)恢復。在關于菜單下設置其

24、選項：幫助，關于，注 銷。 添加 toolbar 控件和 lmagelist 控件，兩者關聯(lián)。在 toolbar 中添加 12 個按鈕， 分別對應車輛檔案錄入，車輛檔案查詢，車輛異動查詢，車輛報廢查詢，車輛運營查 詢，車輛維修管理，添加零件，車輛違章查詢，差了事故查詢，駕駛員檔案查詢，注 銷。在 lmagelist 中添加相應圖標對應 toolbar 中的 12 個按鈕。 toolbar 與 mainmenu 中選項的 onclick 事件都為 tbtnaddrecordclick 事件。 添加控件 adoquery1，adoquery2,label1 各控件屬性如表 4-2，代碼見附錄 b-

25、部 分代碼。 表 4-2 控件屬性表 控件名屬性值 pictrue 圖片所在路徑 alignalcient lmagelist autosizefalse nameaqryadoquery1 connectiondatamodule1.connoracle name qryoperation。 adoquery2connectiondatamodule1.connoracle label1caption 車輛管理系統(tǒng) 4.34.3 車輛檔案管理設計車輛檔案管理設計 在 form1 中添加控件 panel，panel2，toolbar1，再在各控件中添加相應控件， 位置如圖 4-3，控件屬性見表

26、 4-3，代碼見附錄 b-部分代碼。 圖 4-3 車輛檔案管理設計圖 表 4-3 控件屬性表 控件名屬性值 nameatbvehicle nameatbtype nameatbdriver adoquery1 adoquery2 adoquery3 connectiondatamodule1.connoracle datasetdsvehicledatasource1 nameatbvehicle datasetdstypedatasource2 nameatbtype datasetatbdriverdatasource3 nameatbdriver dbedit1datafieldplat

27、eno dbloolupcombobox1datafieldtypeno dbloolupcombobox1datafielddriverno dbedit2datafieldcapacity dbedit3datafieldusingdept dbedit4datafieldbelongdept dbedit5datafieldenginemodel dbedit6datafieldframeno dbedit7datafieldfactoryplateno dbedit8datafieldreview dbedit9datafieldinsure datafieldacquisitiond

28、ate dbedit10 共有屬性 datasourcedsvehicle 4.44.4 車輛檔案查詢設計車輛檔案查詢設計 設置 form 屬性 caption 為車輛檔案查詢，name 為 frmvehiclerecord。 添加控件 panel，dbgrid，adoquery，datasource 到 frmvehiclerecord 中，控 件位置如圖 4-4，控件屬性見表 4-4，代碼見附錄 b-部分代碼。 圖 4-4 控件位置圖 表 4-4 控件屬性表 控件名屬性值 panel1caption車輛檔案查詢 caption按車牌號radiobutton1 tag1 caption按駕駛

29、員radiobutton2 tag2 caption按車輛類型radiobutton3 tag3 caption異動車輛radiobutton4 tag4 caption以報廢車輛radiobutton5 tag5 caption沒有年檢車輛radiobutton6 tag6 caption沒有保險車輛radiobutton7 tag7 radiobutton 共有onclickradiobutton1click combobox1onclickcombobox1change combobox2onclickcombobox2change combobox3onclickcombobox3ch

30、ange adoquery1nameaqryquery adoquery2nameaqryvehicle adoquery3nameaqrydctype adoquery4nameaqrydriver adoquery 共有connectiondatamodule1.connoracle namedsquery datasource1 datasetaqryquery 4.54.5 數(shù)據(jù)庫連接數(shù)據(jù)庫連接設計設計 本系統(tǒng)使用的數(shù)據(jù)庫為 sql server2000，程序使用 ado 控件的 connectionstring 屬性連接數(shù)據(jù)庫。程序中連接數(shù)據(jù)庫的控件較多，因此采用在 datamodu

31、le 中放置一個 adoconnection 控件供多個 aodquery 控件連接數(shù)據(jù)庫的方法， 如圖 4-5 所示。 圖 4-5 數(shù)據(jù)庫連接設計圖 各控件屬性圖如表 4-5 所示 表 4-5 控件屬性表 控件名屬性值 nameconnoracle loginpromptfalse adoconnection connectionstring provider=sqloledb.1; password=; persist security info=true; user id=sa; initial catalog=student; data source=jk 第五章第五章 系統(tǒng)實現(xiàn)系統(tǒng)實

32、現(xiàn) 5.15.1 系統(tǒng)環(huán)境系統(tǒng)環(huán)境 cpu intel pentium ii / 233 mhz 以上 內(nèi) 存 至少 128m 硬盤空間 至少 950m 操作系統(tǒng) windows98/2000/xp 5.25.2 系統(tǒng)運行情況系統(tǒng)運行情況 5.2.1 用戶登錄界面 圖 5-1 用戶登錄界面 此界面用于登錄系統(tǒng)，用戶分管理員與普通用戶，普通用戶的操作受到限制，管 理員則擁有所有操作權限，而管理員賬戶 123（密碼也為 123）為初始管理員，當管 理員進行系統(tǒng)初始化時，除初始管理員 123 外的其余所有賬戶，都被清除。 5.2.2 系統(tǒng)主界面 圖 5-2 車輛管理系統(tǒng)主界面 在系統(tǒng)主界面中有六個菜

33、單為檔案管理、運營管理、車輛管理、駕駛員管理、系 統(tǒng)維護、關于。各個菜單下又有若干選項，單擊可進行相應操作。同時主界面中還設 置了一些快捷圖標，可直接進行相應操作。 5.2.3 車輛檔案管理界面 圖 5-3 車輛檔案信息管理界面 此界面對車輛檔案信息進行管理如增加、刪除、修改，同時可查看檔案信息，但 要完整填寫檔案信息首先要完成車輛類型信息與駕駛員檔案信息的錄入。 5.2.4 車輛檔案信息查詢界面 圖 5-4 車輛檔案查詢 5.2.5 駕駛員信息管理和查詢界面 圖 5-5 駕駛員管理界面 圖 5-6 駕駛員檔案查詢界面 可以對駕駛員信息進行管理和查詢，但要完整填寫駕駛員的信息需要首先完成車 輛

34、類型信息的錄入。 5.2.6 車輛類型管理界面 圖 5-7 車輛類型管理界面 車輛類型管理是完整錄入駕駛員信息與車輛檔案信息的基礎。在此界面可以對車 輛類型進行錄入、刪除、作廢三項操作。 結束語結束語 經(jīng)過兩個多月的設計和開發(fā)，該車輛管理系統(tǒng)基本開發(fā)完畢。其功能比較全面， 能有效地協(xié)助單位進行車輛的管理，管理方便，簡單，大大減少了管理人員作業(yè)量， 減少出錯幾率，提高了工作效率。 但是由于設計時間較短，在系統(tǒng)設計方面還有待改進的地方，比如對錄入不完整 的時間數(shù)據(jù)的處理界面不夠友好，錄入時間數(shù)據(jù)的正確性不加判別，今后會在此方面 予以改進，也請各位老師多提寶貴意見。 致謝致謝 在畢業(yè)設計即將結束之際

35、,首先衷心感謝我的指導老師 xxx 老師。這次畢業(yè)設計 是在曹老師的悉心指導和幫助下完成的。在整個畢業(yè)設計中，曹老師一直非常關心我 的畢業(yè)設計的完成情況，每個星期都會和我進行交流，并針對我的設計提出非常寶貴 的建議。每一次交給老師的報告，老師都及時認真的審閱，并耐心的指導我。曹老師 認真負責的態(tài)度，是我學習的榜樣。 此外，向支持我的其他各位老師表示衷心的感謝。因為，在設計過程中，由于所 學知識有限及應用不靈活等原因經(jīng)常會出現(xiàn)一些疑難問題，在解決設計中的各種問題 時，他們給予我很大的幫助。 最后，在這里對以上幫助我的老師再次表示感謝，正是由于他們的幫助使我充實 了平時所學的知識，掌握了實際的工作

36、技能，真正的將理論與實際相結合，使我獲益 匪淺，在此表達我最真摯的謝意！ 參考文獻參考文獻 1 車輛管理系統(tǒng)論文. http:/ 2 雍殿書. 管理信息技術與系統(tǒng). 南京：南京大學出版社，2009.7 3 車輛管理系統(tǒng). http:/ 4 何鵬飛. delphi 7 程序設計教程. 北京：清華大學出版社，2003,.7 5 封玲等. 現(xiàn)代數(shù)據(jù)庫系統(tǒng)實用教程. 北京：人民郵電出版社，2006.10 6 王晶. sql server 2000 管理與應用開發(fā)教程. 北京：人民郵電出版社， 2009.1 7 宋一兵等. delphi17 基礎教程. 北京：機械工業(yè)出版社，2005.1 附錄 a-數(shù)據(jù)

37、庫表 表 1 用戶表 字段名類型長度是否空含義 useridnvarchar50否登陸名 passwordnvarchar50否登陸密碼 statusreal4否是否為管理員 表 2 車輛記錄表 字段名類型長度是否空含義 platenonvarchar50否車牌號 drivernonvarchar50否司機號 typeno nvarchar50否車類型號 ifreviewint4否是否年檢 ifinsureint4否是否參保 acquisitiondatedatatime8否購置日期 capacitreal4否載重 usingdepynvarchar50否使用單位 belongdeptnvar

38、char50否所在單位 enginemodelnvarchar50否發(fā)動機號 framenonnvarchar50否車架號 factoryplatenonvarchar50否車牌型號 reviewint4否已年檢 insureint4否已參保 表 3 運營管理表 字段名類型長度是否空含義 platenonvarchar50否車牌號 perationdatedatatime8否運營日期 operationincommoney8是收入 operationontimedatatime8否運營時間 表 4 車輛維修記錄表 字段名類型長度是否空含義 platenonvarchar50否車牌號 parts

39、namenvarchar50否維修部件 maintenancedatedatatime8否維修日期 neednumbermoney8否所需費用 表 5 事故表 字段名類型長度是否空含義 platenonvarchar50否車牌號 accidentdatedatatime 8否事故日期 accidentundertakernvarchar 50否承擔者 companysummoney8否公司負責金額 insurancesummoney8否保險理賠金額 oppositesummoney8否對方理賠金額 oppositenamenvarchar50否對方姓名 opposiredamagenvarch

40、ar50否對方損壞程度 oppositedeptnvarchar50否對方單位 accidentgeneralnvarchar50是事故概要 表 6 違章車輛表 字段名類型長度是否空含義 platenonvarchar50否車牌號 nfringedatedatatime8否違章日期 infringereasonnvarchar50否違章原因 punishmentnvarchar50否是否處罰 infringeremarknvarchar50是備注 表 7 駕駛員記錄表 字段名類型長度是否空含義 driverno nvarchar50否司機編號 drivernamenvarchar50否司機姓名

41、 birthdaydatatime8是出生日期 licensendnvarchar50否駕駛證號 dateexpiresdatatime8否獲證日期 drivedyard nvarchar50否駕齡 表 8 車輛類型表 字段名類型長度是否空含義 ifvoidint4否是否作廢 typeno nvarchar50否類型號 typename nvarchar50否類型名 表 9 車輛異動表 字段名類型長度是否空含義 platenonvarchar50否車牌號 transactiondatedatatime8否異動時間 transactionttypenvarchar50否異動類型 specifyn

42、varchar50是詳細說明 表 10 報廢車輛表 字段名類型長度是否空含義 platenonvarchar50否車牌號 scrapdatedatatime8否報廢時間 scrapreasonnvarchar50是報廢原因 表 11 零件表 字段名類型長度是否空否含義 partsno nvarchar50是零件編號 partnamenvarchar50否零件名 stockqtyint4否庫存量 unitpricemoney8否零件單價 附錄 b-部分代碼 主界面 4.2，具體代碼 unit main0061402; uses datamodual; procedure tfrmmain1402

43、.formcreate(sender: tobject); var suserid:string; begin gfunopenlogin(suserid);/通過登錄表單的接口調(diào)用登錄界面 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

44、; /主界面關閉時，斷開數(shù)據(jù)庫連接 procedure tfrmmain1402.formclose(sender: tobject; var action: tcloseaction); begin if datamodule1.connoracle.connected then datamodule1.connoracle.close; if qryoperation.active then qryoperation.close; end; /本系統(tǒng)主要事件，通過此事件調(diào)用各事件處理窗口 procedure tfrmmain1402.tbtnaddrecordclick(sender: t

45、object); begin case(sender as tcomponent).tag) of 11:begin /調(diào)用車輛檔案錄入 gfunopenaddvehicle(); end; 12:begin/ 調(diào)用車輛檔案查詢 gfunopenvehiclerecord(); end; 13:begin /調(diào)用車輛異動管理 gfunopenaddtransaction(); end; 14:begin/調(diào)用車輛異動查詢 gfunopentransaction(); end; 15:begin /車輛報廢管理 gfunopenaddscrap(); end; 16:begin/車輛報廢查詢 g

46、funopenvehiclescrap(); end; 17:begin /車輛類型 gfunopendctype(); end; 21:begin /車輛運營管理 gfunopenaddoperation(); end; 22:begin /車輛運營查詢 gfunopenvehicleoper(); end; 23:begin /清空運營表 if application.messagebox(此功能會清空運營表所有數(shù)據(jù),您確定要清空運 營表嗎？,提示,mb_yesno ) =id_yes then begin try if qryoperation.active then qryoperat

47、ion.close; qryoperation.execsql; except application.messagebox(清空運營表錯誤,錯誤); end; end; end; 31:begin /車輛維修管理 gfunopenaddmaintenance(); end; 32:begin /車輛維修查詢 gfunopenmaintenace(); end; 33:begin/添加零件 gfunopenaddparts(); end; 34:begin /車輛違章管理 gfunopenaddinfringe(); end; 35:begin/車輛違章查詢 gfunopeninfringe(

48、); end; 36:begin /車輛事故管理 gfunopenaddaccident(); end; 37:begin/車輛事故查詢 gfunopenaccident(); end; 41:begin/駕駛員檔案管理 gfunopenadddriver(); end; 42:begin /駕駛員檔案查詢 gfunopendriver(); end; 43:begin/駕駛員獎罰 gfunopendriveraward(); end; 51:begin /系統(tǒng)初始化 if application.messagebox(您正要執(zhí)行系統(tǒng)初始化命令，您確定要進行系 統(tǒng)初始化嗎？,提示,mb_yes

49、no ) =id_yes 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.execs

50、ql; aqry.close; 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.clos

51、e; aqry.sql.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; aqry.sql.clear; aqry.sql

52、.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.sql.add(delete from dctyp

53、e); /刪除車輛類型記錄 aqry.execsql; except application.messagebox(系統(tǒng)錯誤,錯誤); end; end; end; 52:begin /管理員設置 gfunopenuser(); end; 53:begin /數(shù)據(jù)庫備份 gfunopendatabase(); end; 54:begin /數(shù)據(jù)恢復 gfunopenrestore(); end; 61:begin /幫助 gfunopenhelp(); end; 62:begin/關于 gfunopenabout(); end; 63:begin /注銷 close; end; end; en

54、d; end. 車輛檔案錄入 4.3 具體代碼 unit vehiclerecord; uses datamodual; /由主程序調(diào)用 function gfunopenaddvehicle():integer; begin frmaddvehicle:=tfrmaddvehicle.create(nil); frmaddvehicle.showmodal; result:=0; frmaddvehicle.free; end; /關閉表單，關閉所有表 procedure tfrmaddvehicle.formclose(sender: tobject; var action: tclose

55、action); 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 atbvehicle.close; try atbvehicle.open; except application.messagebo

56、x(打開車輛檔案表錯誤,提示); 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; except application.messagebox(打開駕駛員檔案表錯誤,提示); close; end; end; /首記錄按鈕 procedure tfrmaddvehicle.

57、tbtnfirstclick(sender: tobject); begin inherited; if not atbvehicle.bof then atbvehicle.first else application.messagebox(已經(jīng)是首記錄了,提示); end; /上一條按鈕 procedure tfrmaddvehicle.tbtnpriorclick(sender: tobject); begin inherited; if not atbvehicle.bof then atbvehicle.prior else application.messagebox(您已經(jīng)在首記

58、錄了！,提示); end; /下一條按鈕 procedure tfrmaddvehicle.tbtnnextclick(sender: tobject); begin inherited; if not atbvehicle.eof then atbvehicle.next else application.messagebox(這已經(jīng)是最后一條記錄,提示); end; /末記錄按鈕 procedure tfrmaddvehicle.tbtnlastclick(sender: tobject); begin inherited; if not atbvehicle.eof then atbve

59、hicle.last else application.messagebox(已經(jīng)是末記錄了！,提示); end; /新建按鈕 procedure tfrmaddvehicle.tbtnnewclick(sender: tobject); begin inherited; if not atbvehicle.active then exit; atbvehicle.append; /數(shù)據(jù)控件發(fā)生變化 dbedit1.readonly:=false; dbedit2.readonly:=false; dbedit3.readonly:=false; dbedit4.readonly:=false

60、; dbedit5.readonly:=false; dbedit6.readonly:=false; dbedit7.readonly :=false; dbedit8.readonly:=false; dbedit9.readonly:=false; dbedit10.readonly:=false; dblookupcombobox1.readonly:=false; dblookupcombobox2.readonly:=false; /使按鈕發(fā)生變化 tbtnsave.enabled:=true; tbtndelete.enabled:=false; tbtnchange.enabl