【正文】 導(dǎo)、窗體向?qū)?、?bào)表向?qū)У裙ぞ?，使得操作簡便，容易使用和掌握。第三?系統(tǒng)總體設(shè)計(jì) 系統(tǒng)需求分析對于擁有大量車輛的機(jī)關(guān)企事業(yè)單位來說，車輛的管理成為日常事務(wù)中的一項(xiàng)重要工作。車輛管理：維修管理、違章管理、事故管理 3 大部分。二是通過編寫代碼，即利用數(shù)據(jù)訪問對象（DAO）來實(shí)現(xiàn)。（2）在表單中添加 Toolbar 控件、Statusbar 控件、Imagelist 控件和 Timer控件。清空車輛運(yùn)營表ElseExit SubEnd If在 Toolbar 控件的 ButtonClick 事件中添加以下代碼：Select Case Case 1 Call mnucardaadd_Click 39。圖 45 “用戶登錄”表單運(yùn)行結(jié)果 代碼設(shè)計(jì)如果在登錄過程中連續(xù) 3 次輸入錯(cuò)誤信息，將自動(dòng)退出系統(tǒng)。（2）在表單中添加 Label 控件、Text 控件、Combo 控件、MonthView 控件（Microsoft MonthView Control, version ） 、Check 控件、Edit 控件、Commandgroup 控件、Command 控件和 Container 控件。 amp。 amp。) If Then Else MsgBox 此車已經(jīng)報(bào)廢，不能參加運(yùn)營！, , 車輛管理系統(tǒng) = Exit Sub End If 39。 amp。 amp。 = 車輛運(yùn)營列表 = Provider=。 amp。（3） 在設(shè)計(jì)其中幾項(xiàng)功能的時(shí)候，出現(xiàn)了一些問題，使其功能無法實(shí)現(xiàn)。車輛管理系統(tǒng)的功能基本能夠符合用戶的需求，能夠完成用戶提出的信息管理要求，并提供部分系統(tǒng)維護(hù)功能，使用戶方便進(jìn)行數(shù)據(jù)備份、恢復(fù)、數(shù)據(jù)刪除。這些都是需要完善的地方，該系統(tǒng)離實(shí)際使用也還有相當(dāng)?shù)木嚯x，需要我進(jìn)行不斷地補(bǔ)充和完善。如圖 414 所示：圖 414 車輛違章查詢單擊“確定”按鈕后，執(zhí)行的代碼如下：If Then Call QingKong MsgBox 對不起，沒有符合您查詢條件的車輛違章記錄！, , 車輛管理系統(tǒng) Else = sql End If第五章 系統(tǒng)總結(jié)經(jīng)過幾個(gè)月的設(shè)計(jì)和開發(fā)，車輛運(yùn)輸管理系統(tǒng)基本開發(fā)完畢。 。圖 411 車輛違章記錄運(yùn)行結(jié)果圖 車輛運(yùn)營查詢車輛運(yùn)營查詢窗體主要完成按車牌號碼、運(yùn)營日期和運(yùn)營時(shí)間段查詢車輛運(yùn)營情況。 amp。 39。此車是否報(bào)廢了 Set rss1 = (select * from 車輛報(bào)廢表 where 車牌號碼=39。 窗體界面設(shè)計(jì)新建一個(gè)窗體，Caption 屬性為“車輛運(yùn)營列表” ，BorderStyle 屬性為 1Fixed Single。 39。顯示主窗體op = (用戶名)Unload MeElseIf TIM = 3 Then 39。調(diào)用車輛維修列表窗體Case 6 Call mnucarwzlist_Click 39。添加 Toolbar 控件和 ImageList 控件到工具箱。通過程序主界面將會執(zhí)行相應(yīng)的權(quán)限操作，并且還可以通過主界面的菜單，來調(diào)用相應(yīng)程序，再進(jìn)行相應(yīng)操作。系統(tǒng)維護(hù)：數(shù)據(jù)備份、數(shù)據(jù)恢復(fù) 2 個(gè)部分。本系統(tǒng)主要服務(wù)于機(jī)動(dòng)車管理人員的日常工作，利用本系統(tǒng)可以方便的監(jiān)控管理本區(qū)域的駕駛員信息，在此基礎(chǔ)上力求軟件界面人性化以及操作簡單,程序具有健壯性等。利用數(shù)據(jù)庫訪問頁對象生成 HTML 文件，輕松構(gòu)建Inter/Intra 的應(yīng)用。它將一個(gè)應(yīng)用系統(tǒng)當(dāng)作是由一系列對象組成的，對每個(gè)對象它都定義一組方法和屬性，以定義該對象的行為和外國，用戶還可以按需要給對象擴(kuò)展方法和屬性。 控件，可以創(chuàng)建新控件，增加控件屬性。:單擊鼠標(biāo)、雙擊鼠標(biāo)、移動(dòng)鼠標(biāo)、改變時(shí)間、改變大小等都稱為事件。能自動(dòng)給出拼寫提示，這樣可大大編程人員的記憶量，程序員可以輕松的使用 VB 提供的組件快速建立一個(gè)應(yīng)用程序。如果利用 GPS 這種高科技手段, 再輔以上層管理平臺, 就能將車輛管理提高到一個(gè)新的層次, 實(shí)現(xiàn)對車輛的智能化、科學(xué)化以及規(guī)范化的管理, 提高車輛使用效率, 降低損耗, 減少違章、違紀(jì)現(xiàn)象, 確保安全, 做到出入車輛有記錄、單位派車有檢查、單位司機(jī)有考核, 通過技術(shù)手段使嚴(yán)格管理落到實(shí)處, 使管理和考核更加客觀、公正, 減少人為干擾。 課題意義隨著經(jīng)濟(jì)的日益增長,各地區(qū)的車輛數(shù)量增長迅速，由此各地的車輛管理所需要保管的機(jī)動(dòng)車檔案資料增加迅速。基于VB的車輛管理系統(tǒng)摘要車輛管理系統(tǒng)用計(jì)算機(jī)管理機(jī)動(dòng)車輛的檔案，運(yùn)營管理以及駕駛員信息的一種計(jì)算機(jī)應(yīng)用技術(shù)的創(chuàng)新，在計(jì)算機(jī)還未普及之前車輛管理都是由工作人員手工抄寫的方式來操作的。隨著檔案資料的增加，工作人員勞動(dòng)強(qiáng)度增大，檔案資料的存儲、查詢等工作與辦公高效率的要求矛盾日漸突出。整個(gè)系統(tǒng)由硬件和軟件兩部分組成。 VB的發(fā)展史和特點(diǎn) VB 的發(fā)展史1991 年，美國微軟公司推出了 Visual Basic (VB)，目前的最新版本是 VB的 2022 中文版，Visual 意即可視的、可見的，指的是開發(fā)像 windows 操作系統(tǒng)的圖形用戶界面的方法，它不需要編寫大量的代碼去描述界面元素的外觀和位置，只要把預(yù)先建立好的對象拖放到屏幕上相應(yīng)的位置即可，Basic 是指Beginners all_purpose symbolic instruction code 初始者通用符號指令代碼語言。事件發(fā)生時(shí)，程序才執(zhí)行；沒有事件發(fā)生，則處于等待狀態(tài)。 數(shù)據(jù)庫的簡介與優(yōu)缺點(diǎn) Access 的簡介Access 是微軟公司推出的基于 Windows 的桌面關(guān)系數(shù)據(jù)庫管理系統(tǒng)（RDBMS，即 Relational Database Management System） ，是 Office 系列應(yīng)用軟件之一。通過對象的方法、屬性完成數(shù)據(jù)庫的操作和管理，極大地簡化了用戶的開發(fā)工作。缺點(diǎn)：ACCESS是小型數(shù)據(jù)庫，既然是小型就有他根本的局限性，以下幾種情況下數(shù)據(jù)庫基本上會吃不消：　　（1） 數(shù)據(jù)庫過大，一般 ACCESS數(shù)據(jù)庫達(dá)到50M左右的時(shí)候性能會急劇下降。 系統(tǒng)概要設(shè)計(jì) 系統(tǒng)結(jié)構(gòu)設(shè)計(jì)車輛管理系統(tǒng)是一個(gè)非常有特點(diǎn)的管理軟件，系統(tǒng)由車輛檔案管理、車輛運(yùn)營列表、車輛管理、駕駛員管理、系統(tǒng)設(shè)置、系統(tǒng)維護(hù)等幾個(gè)功能模塊組成。如圖 31 所示：圖 31 系統(tǒng)結(jié)構(gòu)圖圖 32 系統(tǒng)部分流程圖 數(shù)據(jù)庫設(shè)計(jì)在信息管理系統(tǒng)中，數(shù)據(jù)都保存在數(shù)據(jù)庫中，所以數(shù)據(jù)庫的設(shè)計(jì)在開發(fā)系統(tǒng)之前就應(yīng)該確定，而且非常重要。如圖圖 41 所示。Toolbar 控件和 ImageList 控件都屬于 ActiveX 控件，使用時(shí)需要從“部件”對話框中添加。調(diào)用車輛違章列表窗體Case 7 Call mnucarsglist_Click 39。密碼輸錯(cuò) 3 次，退出系統(tǒng)myval = MsgBox(密碼輸入錯(cuò)誤,請向系統(tǒng)管理員查詢!, 0, 車輛管理系統(tǒng))If myval = vbOK Then End End IfIf = Then MsgBox (請輸入用戶名!) Else If (用戶名) Then MsgBox (查無此用戶,請重新輸入用戶名!) Else If = Then MsgBox (請輸入用戶密碼!) Else If (密碼) Then MsgBox (密碼錯(cuò)誤,請重新輸入密碼!) TIM = TIM + 1 End IfEnd If End If End If End IfEnd If 車輛檔案錄入車輛檔案錄入操作窗體用于添加、修改、刪除車輛檔案信息。) If = False Then MsgBox 此車牌號碼已經(jīng)存在！, 4, 車輛管理系統(tǒng) Text1 = 初始化處理，清空文本框空間中的內(nèi)容，為部分控件賦初始值，然后設(shè)置一些按鈕有效，為用戶添加新數(shù)據(jù)做準(zhǔn)備。在窗體上添加 Text、Label、CommandButton、DTPicker 控件。 amp。) If Then Else MsgBox 此車為“異動(dòng)車輛”不能參加運(yùn)營！, , 車輛管理系統(tǒng) = Exit Sub End If 在“添加”按鈕的 Click 事件下，通過 ADO 對象創(chuàng)建“車輛運(yùn)營表”的記錄集，通過對記錄集中記錄數(shù)的判斷對“營運(yùn)編號”進(jìn)行自動(dòng)編號，其代碼如下： Dim rs As New select * from 車輛運(yùn)營表, n, adOpenKeyset, adLockOptimistic If 0 Then aa = (0) = YY + Format(Val(Right((運(yùn)營編號), 3)) + 1, 000) Else