【正文】 正和改進 ， 直到形成用戶滿意的可行 車輛管理系統(tǒng) 系統(tǒng)。 1 第一 章 引言 課題開發(fā)背景 車輛的管理在各機關、企事業(yè)單位一直是一個難題，一方面使用成本居高不下，另一方面各部門卻經(jīng)常抱怨不能有效地使用車輛，車輛駕駛員更多的將車輛當作私家車在使用，對車輛的使用成本不加以控制，管理部門沒有有效的手段對車輛的使用、費用進行控制，也無法對車輛的使用、費用情況進行統(tǒng)計、分析，制定合理的使用計劃，大大降低了車輛的使用效率。隨著檔案資料的增加，工作人員勞動 強度增大，檔案資料的存儲、查詢等工作與辦公高效率的要求矛盾日漸突出。 車輛作為最重要的交通工具 ,在企事業(yè)單位中得以普及 ,單位的車輛數(shù)目已經(jīng)遠遠不止簡單的幾輛 ,與此同時就產(chǎn)生了車輛資源的合理分配使用問題。如何對一個企事業(yè)單位的車輛進行合理分配使用，使其發(fā)揮最大的使用價值，所以該系統(tǒng)對于一個用車單位來說，不但可以對 車輛的使用進行合理的管理，而且對車輛的使用情況進行跟蹤記錄，這對于單位車輛責任到人，費用清晰，避免責任混亂、費用虛假等一系列相應問題的解決。針對上述情況 , 一般可用慣性器件結合各種傳感器加以解決 , 但該方法在用于車輛事故分析、駕駛員的技術測評方面的確綽綽有余 , 但是在車輛管理方面則遇到許多問題。 整個系統(tǒng)由硬件和軟件兩部分組成。 軟件部分為車輛管理平臺 , 是整個系統(tǒng)的管理控制中心 , 擔負著系統(tǒng)數(shù)據(jù)的存儲、查詢、修改、維護及發(fā)布命令 , 對系統(tǒng)進行控制等功能 , 完成系統(tǒng)數(shù)據(jù)的采集、處理 , 數(shù)字地圖數(shù)據(jù)庫的管理和數(shù)字地圖顯示 , 車輛信息數(shù)據(jù)庫的管理和信息查詢等功能。也是進行應用系統(tǒng)開發(fā)最簡單的、易學易用的程序設計工具。它源自于 BASIC 編程語言，其開發(fā)的應用程序的運行采用事件驅動原理在 VB 代碼 窗口輸入代碼時，對 VB 中的 對象的屬性、方法、內(nèi)置的函數(shù)和已定義的自定義函數(shù)等。 VB的發(fā)展史和特點 VB 的發(fā)展史 1991 年 ，美國微軟公司推出了 Visual Basic (VB)， 目前的最新版本是 VB的 2021 中文版， Visual 意 即可視的、可見的，指的是開發(fā)像 windows 操作系統(tǒng)的圖形用戶界面的方法，它不需要編寫大量的代碼去描述界面元素的外觀和位置，只要把預先建立好的對象拖放到屏幕上相應的位置即可， Basic 是指Beginners all_purpose symbolic instruction code 初始者通用符號指令代碼語言。 VB 的特點 VB 是一個集成開發(fā)環(huán)境 ，能編程、調(diào)試和運行程序，也能生成可執(zhí)行程序。 VB 的 主要特點如下： ：系統(tǒng)提供了大量的“界面”元素，可以直觀動態(tài)地調(diào)整大小、位置，是面向對象的可視化程序設計，可以自動生成在屏幕上顯示界面的代碼。 ：把數(shù)據(jù)和處理數(shù)據(jù)的代碼封裝在 frm 程序中，形成一個個可視的圖形對象，用戶只需設計這些圖形對象。事件發(fā)生時，程序才執(zhí)行；沒有事件發(fā)生，則處于等待狀態(tài)。 ，利用數(shù)據(jù)庫控件可以訪問 Access、Server 等。 VB 能把其它 windows 應用 程序視為對象嵌入VB 應用程序中，便于更好的處理程序。在 VB 應用程序中能調(diào)用 C++、匯編程序編寫的函數(shù)和 API 函數(shù)。 數(shù)據(jù)庫的簡介與優(yōu)缺點 Access 的簡介 Access 是微軟公司推出的基于 Windows 的桌面關系數(shù)據(jù)庫管理系統(tǒng)（ RDBMS，即 Relational Database Management System），是 Office 系列應用軟件之一。 Access 能夠存取 Access/Jet、 Microsoft SQL Server、 Oracle(甲骨文軟件公司 )，或者任何 ODBC 兼容數(shù)據(jù)庫內(nèi)的資料。雖然它支援部份面向對象（ OO）技術， 但是未能成為一種完整的面向對象開發(fā)工具。 （ 2） 面向對象 Access 是一個面向對象的開發(fā)工具，利用面向對象的方式將數(shù)據(jù)庫系統(tǒng)中的各種功能對象化，將數(shù)據(jù)庫管理的各種功能 封裝在各類對象中。通過對象的方法、屬性完成數(shù)據(jù)庫的操作和管理，極大地簡化了用戶的開發(fā)工作。 （ 3）界面友好、易操作 Access 是一個可視化工具，是風格與 Windows 完全一樣，用戶想要生成對象并應用，只要使用鼠標進行拖放即可，非常直觀方便。 （ 4）集成環(huán)境、處理多種數(shù)據(jù)信息 Access 基于 Windows 操作系統(tǒng)下的集成開發(fā)環(huán)境，該環(huán)境集成了各種向導和生成器工具，極大地提高了開發(fā)人員的工作效率，使得建立數(shù)據(jù)庫、創(chuàng)建表、設計用戶界面、設計數(shù)據(jù)查詢、報表打印等可以方便有序地進行。 Access 還可以將程序應用于網(wǎng)絡，并與網(wǎng)絡上的動態(tài)數(shù)據(jù)相聯(lián)接。 缺點： ACCESS是小型數(shù)據(jù)庫，既然是小型就有他根本的局限性，以下幾種情況下數(shù)據(jù)庫基本上會吃不消： （ 1） 數(shù)據(jù)庫過大，一般 ACCESS數(shù)據(jù)庫 達到 50M左右的時候性能會急劇下降 。 （ 3） 記錄數(shù)過多，一般記錄數(shù)達到 10萬條左右的時候性能就會急劇下降 。如何讓管理人員及時了解每一輛車的情況，提高車輛的使用率，減少費用的支出，就成為各單位需要解決的一個難題。 本軟件需要具有集中管理車輛的運營、維修、事故、違章等一系列信息功能，有效跟蹤管理企業(yè)每臺汽車的使用狀況，帶動企業(yè)進入車輛管理信息化、科學化，同時也可以節(jié)省人力、物力、財力，提高工作效率，使企業(yè)車輛管理更加科學、更加規(guī)范。 系統(tǒng)概要設計 系統(tǒng)結構設計 車輛管理系統(tǒng)是一個非常有特點的管理軟件，系統(tǒng)由車輛檔案管理 、車輛運營列表、車 輛管理、駕駛員管理、系統(tǒng)設置、系統(tǒng)維護等幾個功能模塊組成。 車輛 運營管理：車輛運營管理、車輛運營查詢、清空運營表。 其中維修管理包括車輛維修列表 、 車輛維修查詢 、 添加零件。 系統(tǒng)設置：系統(tǒng)初始化、管理員設置、權限設置。 8 如圖 31 所示： 圖 31 系統(tǒng)結構圖 圖 32 系統(tǒng) 部分流程圖 9 數(shù)據(jù)庫 設計 在信息管理系統(tǒng)中，數(shù)據(jù)都保存在數(shù)據(jù)庫中，所以數(shù)據(jù)庫的設計在開發(fā)系統(tǒng)之前就應該確定，而且非常重要。一種是非編碼方式，主要通過 Data 等控件，可以不需要任何編程，只需要簡單設置控件的一些屬性并結合文本框等普通控件即可以方便地顯示和操作數(shù)據(jù)庫中的數(shù)據(jù)。本系統(tǒng)中運用了數(shù)據(jù)庫 Access2021 作為后臺數(shù)據(jù)庫。 圖 33車輛報廢表 ER圖 圖 34車輛報廢表 10 圖 35 車輛檔案表 ER圖 圖 36 車輛檔案表 11 圖 37 車輛違章表 ER圖 圖 38 車輛違章表 圖 39 車輛維修表 ER圖 12 圖 310 車輛維修表 圖 311 車輛運營表 ER圖 圖 312 車輛運營表 13 圖 313 零件表 ER圖 圖 314 零件表 圖 315 用戶表 ER圖 14 圖 316 用戶表 15 第四章 系統(tǒng)應用程序設計 程序主界面的 設計 程序啟動后，在系統(tǒng)登錄界面驗證操作員密碼后，將進入程序主界面。 如圖圖 41 所示。 （ 1）創(chuàng)建一個 MDI 窗體，設置其 Caption 屬性“為車輛管理系統(tǒng)”。 （ 3）重要控件屬性如表 41 所示。另外， Toolbar 控件的按鈕上顯示的所有圖像都是 ImageList 控件存儲和添加的，所以窗體上的工具欄是通過 Toolbar 控件和 ImageList 控件共同來實現(xiàn)的。 Toolbar 控件和 ImageList 控件都屬于 ActiveX 控件，使用時需要從“部件”對話框中添加。 17 圖 43部件 程序代碼設計 清空運營表 圖 44清空運營表 在主窗體菜單“車輛運營管理”子菜單“清空運營表”（屬管理員權限）的Click 事件下 ， 添加如下代碼： 18 If MsgBox(真的要清空運營表嗎？ , vbOKCancel, 車輛管理系統(tǒng) ) = vbOK Then (delete from 車輛運營表 ) 39。調(diào)用車輛檔案錄入窗體 Case 2 Call mnujsylist_Click 39。調(diào)用車輛運營列表窗體 Case 5 Call mnucarwxlist_Click 39。調(diào)用車輛違章列表窗體 Case 7 Call mnucarsglist_Click 39。 （ 2）在表單中添加 Label 控件、 Text 控件、 Image 控件。在“確定”按鈕的 Click 事件中添加以下代碼： = select * from 權限表 where 用戶名 =39。 If = 0 Then MsgBox 操作員輸入錯誤！ , , 車輛管理系統(tǒng) ElseIf 0 Then If And And = (密碼 ) Then Load MDIForm1 39。密碼輸錯 3 次，退出系統(tǒng) 20 myval = MsgBox(密碼輸入錯誤 ,請向系統(tǒng)管理員查詢 !, 0, 車輛管理系統(tǒng) ) If myval = vbOK Then End End If If = Then MsgBox (請輸入用戶名 !) Else If (用戶名 ) Then MsgBox (查無此用戶 ,請重新輸入用戶名 !) Else If = Then MsgBox (請輸入用戶密碼 !) Else If (密碼 ) Then MsgBox (密碼錯誤 ,請重新輸入密碼 !) TIM = TIM + 1 End If End If End If End If End If End If 車輛檔案錄入 車輛檔案錄入操作窗體用于添加、修改、刪除車輛檔案信息。 窗體界面設計 （ 1）新建一個窗體 ，名稱為 Frm 車輛檔案 錄入 。 圖 46車輛檔案錄入表 代碼設計 在 Test1 控件的 LostFocus 事件下，判斷用戶添加的“車牌號碼”是否與表中的數(shù)據(jù)重復，其代碼如下： Set rs = (select * from 車輛檔案 where 車牌號碼 =39。 amp。) If = False Then MsgBox 此車牌號碼已經(jīng)存在！ , 4, 車輛管理系統(tǒng) Text1 = 初始化處理，清空文本框空間中的內(nèi)容，為部分控件賦初始值，然后設置一些按鈕有效，為用戶添加新數(shù)據(jù)做 準備。在“刪除”按鈕的 Click 事件下添加代碼如下： If MsgBox(您確實要刪除記錄嗎？ , vbOKCancel, 車輛管理系統(tǒng) ) = vbOK Then (delete from 車輛檔案 where 車牌號碼 =39。 Text1 amp。) MsgBox 記錄已刪除！ , , 車輛管理系統(tǒng) Unload Me 在“取消”按鈕的 Click 事件下添加代碼如下： On Error Resume Next Lockctl = False: = False 23 = True: = True = True: = True 車輛檔案錄入 窗體運行結果，如圖 所示： 圖 47車輛檔案錄入 車輛運營列表 車輛運營列表窗體用于添加、 修改、刪除車輛運營信息。 在窗體上添加 Text、 Label、 CommandButton、 DTPicker 控件。此車是否是本公司的 Set rss = (select * from 車輛檔案 where 車牌號碼 =39。 amp。) If Then MsgBox 這輛車不屬于本公司的！ , , 車輛管理系統(tǒng) = Exit Sub End If 39。 amp。 39。此車是否異動了 Set rss2 = (select * from 車輛異動表 where 車牌號碼=39。 amp。) If Then Else 25 MsgBox 此車為“異動車輛”不能參加運營！ , , 車輛管理系統(tǒng) = Exit Sub End If 在“添加”按鈕的 Click 事件下，通過 ADO 對象創(chuàng)建“車輛運營表”的記錄集， 通過對記錄集中記錄數(shù)的判斷對“營運編號”進行自動編號，其代碼如下：