【正文】 系統(tǒng)分析 3． 1 基本情況分析 現(xiàn)在隨著企業(yè)規(guī)模的擴(kuò)大以及車輛作為最為普遍的交通工具，在企業(yè)中已經(jīng)不是單一的存在，由于單位車輛數(shù)目的急劇增加，與之相對(duì)應(yīng)的問題隨之而生，比如車輛的使用權(quán)問題，車輛的費(fèi)用問題等，不再是簡(jiǎn)單的少量的數(shù)據(jù)。因此，在這樣的情況下，開發(fā)單位車輛管理系統(tǒng)是可行的，是必要的?，F(xiàn)今已經(jīng)開發(fā)的車輛管理系統(tǒng)都是針對(duì)以運(yùn)營(yíng)為主的具有盈利目的的單位。 3． 2 系統(tǒng)功能分析 根據(jù)第 節(jié)分析，單位車輛管理系統(tǒng)，應(yīng)該具備以下功能： 1）車輛擋案管理 （ 1） 車輛檔案輸入 （ 2） 車輛檔案查詢 （ 3） 車輛異動(dòng)列表 （ 4） 車輛異動(dòng)查詢 （ 5） 車輛報(bào)廢 （ 6） 車輛報(bào)廢查詢 2）車輛運(yùn)營(yíng)管理 （ 1） 車輛運(yùn)營(yíng)列表 （ 2） 車輛運(yùn)營(yíng)查詢 （ 3） 清空運(yùn)營(yíng)表 3）車輛管理 （ 1） 維修管理 （ 2） 違章管理 （ 3） 事故管理 4）駕駛員管理 （ 1） 駕駛員檔案管理 （ 2） 駕駛員檔案查詢 （ 3） 駕駛員獎(jiǎng)罰 5）系統(tǒng)維護(hù) （ 1） 系統(tǒng)初始化 （ 2） 管理員設(shè)置 （ 3） 數(shù)據(jù)備份 （ 4） 數(shù)據(jù)恢復(fù) （ 5） 退出 系統(tǒng)功能模塊圖，如圖 第四章 數(shù)據(jù)庫設(shè)計(jì) 數(shù)據(jù)庫設(shè)計(jì)在一個(gè)信息管理系統(tǒng)中占有十分重要的地位，數(shù)據(jù)庫結(jié)構(gòu)設(shè)計(jì)的好壞直接對(duì)應(yīng)用系統(tǒng)的效 率以及實(shí)現(xiàn)的效果產(chǎn)生影響。 數(shù)據(jù)庫設(shè)計(jì)應(yīng)該充分考慮系統(tǒng)的需求，包括現(xiàn)在的需求，也要考慮將來的需求。數(shù)據(jù)庫技術(shù)能使 Inter 應(yīng)用超越具有 早期應(yīng)用特點(diǎn)的簡(jiǎn)單的發(fā)布。這些技術(shù)沒有脫離經(jīng)典數(shù)據(jù)庫技術(shù)的要求。 數(shù)據(jù)庫的設(shè)計(jì)和開發(fā)及包括藝術(shù)有包括工程。把設(shè)計(jì)轉(zhuǎn)變?yōu)閷?shí)際的數(shù)據(jù)庫，并且這些數(shù)據(jù)庫帶有功能完備、高效能的應(yīng)用，是一個(gè)工程過程。經(jīng)典的數(shù)據(jù)庫應(yīng)用涉及諸如訂單、顧客、工作、員工、學(xué)生、電話之類的項(xiàng)，或其它數(shù)據(jù)量較大、需要密切關(guān)注的事務(wù)。數(shù)據(jù)庫也被越來越多地應(yīng)用于生成和維護(hù)車輛管理 車輛擋案管理 車輛運(yùn)營(yíng)管理 車輛管理 駕駛員管理 系統(tǒng)維護(hù) 多媒體應(yīng)用程序上。存儲(chǔ)器的容量、存儲(chǔ)速率直接影響到數(shù)據(jù)管理技術(shù)的發(fā)展。 使用計(jì)算機(jī)以后，數(shù)據(jù)處理的速度和規(guī)模，無論是相對(duì)于手工方式，還是機(jī)械方式，都有無可比擬的優(yōu)勢(shì)。數(shù)據(jù)管理是指數(shù)據(jù)的收集、整理、組織、存儲(chǔ)、維護(hù)、檢索、傳送等操作，這部分操作是數(shù)據(jù)處理業(yè)務(wù)的基本環(huán)節(jié)，而且是任何數(shù)據(jù)處理業(yè)務(wù)中必不可少的共有部分。 數(shù)據(jù)庫在一個(gè)信息管理系統(tǒng)中占有非常重要的位置，數(shù)據(jù)庫結(jié)構(gòu)設(shè)計(jì)的好壞將直接對(duì)應(yīng)用系統(tǒng)的效果產(chǎn)生影響。同時(shí)合理的數(shù)據(jù)結(jié)構(gòu)也將有利于程序的實(shí)現(xiàn)。 （ 2）創(chuàng)建數(shù)據(jù)庫文 件 如果操作系統(tǒng)中安裝了 ACCESS2021的話，可以在開始菜單的程序菜單中可以找到。這些就新建了一個(gè)數(shù)據(jù)庫文件。點(diǎn)擊創(chuàng)建就完成。 在下面的對(duì)話框中選 ” 使用設(shè)計(jì)器創(chuàng)建表 ” ，上面還有三個(gè)按鈕，一個(gè)是打開，一個(gè)是設(shè)計(jì)，一個(gè)是新建，點(diǎn)擊設(shè)計(jì)，就可以開始設(shè)計(jì)數(shù)據(jù)表了。先看看 VB 是如何與 ACCESS2021 數(shù)據(jù)庫相連接的。連接數(shù)據(jù)庫 Set conn = CreateObject() 39。 \ amp。設(shè)置數(shù)據(jù)的路徑 Provider=。 DBpath 39。設(shè)置數(shù)據(jù)庫對(duì)像 End Sub 上面的一段代碼就是連接數(shù)據(jù)庫的。其中有兩個(gè)變量要定義為公用的變量，因?yàn)檫@段代碼是放在一個(gè)模塊中的，為了在每 一個(gè)窗體中能夠使用這個(gè)變量，所以必須要聲明為公用變量。如果聲明在下面，那就成了局部變量，那么作用范圍就會(huì)不同了，作用就更不同，而且在其它窗體中使用到了這個(gè)變量，程序會(huì)出錯(cuò)。經(jīng)過對(duì)企業(yè)車輛管理的過程得如下流程圖。根據(jù)上面的設(shè)計(jì)規(guī)劃出實(shí)體有：司機(jī)實(shí)體、車輛實(shí)體、運(yùn)營(yíng)信息實(shí)體、維修信息實(shí)體、事故信息實(shí)體、費(fèi)用信息實(shí)體。如圖 業(yè)務(wù)信息錄入 圖 駕駛員登記 車輛登記 駕駛員基本信息管理 車輛基本信息管理 基 本 信息 錄入 基 本 信息 錄入 業(yè)務(wù)信息管理 業(yè)務(wù)方向 運(yùn)營(yíng)信息管理 維修信息管理 事故信息管理 費(fèi)用信息管理 業(yè)務(wù)信息錄入 ?? 駕駛員實(shí)體 姓名 性別 執(zhí)照號(hào)碼 準(zhǔn)駕車型 圖 各實(shí)體之間關(guān)系的 ER圖，如圖 4． 3 數(shù)據(jù)庫邏輯結(jié)構(gòu)實(shí)現(xiàn) 經(jīng)過以上需求分析和概念 設(shè)計(jì)，現(xiàn)在將數(shù)據(jù)庫結(jié)構(gòu)模型轉(zhuǎn)化為 access 2021的數(shù)據(jù)庫系統(tǒng)支持的實(shí)際數(shù)據(jù)模型，即數(shù)據(jù)字典。 表結(jié)構(gòu)如下： 字段名 字段類型 字段長(zhǎng)度 字段說明 用戶姓名 文本 20 用戶名 密碼 文本 20 密碼 用戶類型 文本 10 用戶權(quán)限 2）零件表：該表主要包括零件名稱和零件單價(jià)。 表結(jié)構(gòu)如下表： 字段名 字段類型 字段長(zhǎng)度 字段說明 駕照 編號(hào) 數(shù)字 20 編號(hào) 姓名 數(shù)字 8 姓名 性別 文本 2 性別 出生年月 日期 /時(shí)間 20 出生年月 家庭住址 文本 15 家庭住址 準(zhǔn)駕車型 數(shù)字 11 準(zhǔn)駕車型 考取駕照的時(shí)間 日期 /時(shí)間 10 考取駕照的時(shí)間 5）車輛運(yùn)營(yíng)表：主要存放車輛的 車牌號(hào)碼 ， 運(yùn)營(yíng)日期 ， 運(yùn)營(yíng)時(shí)間 ， 運(yùn)營(yíng)收入 ， 備注 表結(jié)構(gòu)如下表： 字段名 字段類型 字段長(zhǎng)度 字段說明 車牌號(hào)碼 數(shù)字 20 車牌號(hào)碼 運(yùn)營(yíng)日期 日期 /時(shí)間 8 運(yùn)營(yíng)日期 運(yùn)營(yíng)收入 文本 10 運(yùn)營(yíng)收入 備注 文本 20 備注 6)車輛異動(dòng)表：表主要存放車輛的 車牌號(hào)碼 ， 異動(dòng)時(shí)間 ， 異動(dòng) 地點(diǎn)， 經(jīng)手人 ，備注， 表結(jié)構(gòu)如下表： 字段名 字段類型 字段長(zhǎng)度 字段說明 車牌號(hào)碼 數(shù)字 20 車牌號(hào)碼 異動(dòng)時(shí)間 日期 /時(shí)間 8 異動(dòng)時(shí)間 異動(dòng) 地點(diǎn) 文本 20 異動(dòng) 地點(diǎn) 經(jīng)手人 文本 20 經(jīng)手人 備注 文本 50 備注 7)車輛維修表：主要存放車輛的 車牌號(hào)碼 ， 更換零件 ， 零件數(shù)量 ， 維修日期 ， 共計(jì)費(fèi)用 ， 備注 ， 表結(jié)構(gòu)如下表： 字段名 字段類型 字段長(zhǎng)度 字段說明 車牌號(hào)碼 數(shù)字 20 車牌號(hào)碼 更換零件 數(shù)字 8 更換零件 零件數(shù)量 文本 10 零件數(shù)量 維修日期 日期 /時(shí)間 20 維修日期 共計(jì)費(fèi)用 數(shù)字 10 共計(jì)費(fèi)用 備注 文本 50 備注 8）車輛違章表：表主要存放車輛的 車牌號(hào)碼 ，原因， 處罰 ， 違章時(shí)間 ， 備注 表結(jié)構(gòu)如下表： 字段名 字段類型 字段長(zhǎng)度 字段說明 車牌號(hào)碼 數(shù)字 20 車牌號(hào)碼 原因 文本 8 原因 處罰 文本 50 處罰 違章時(shí)間 日期 /時(shí)間 20 違章時(shí)間 備注 文本 50 備注 9）車輛事故表：表主要存放車輛的 事故編號(hào) ， 車牌號(hào)碼 ， 車輛類型 ， 事故時(shí)間 ，公司負(fù)擔(dān)金 ， 對(duì)方賠償金 ， 對(duì)方損壞程度 ， 和解內(nèi)容 ， 表結(jié)構(gòu)如下表： 字段名 字段類型 字段長(zhǎng)度 字段說明 車牌號(hào)碼 數(shù)字 20 車牌號(hào)碼 事故編號(hào) 數(shù)字 8 事故編號(hào) 車輛類型 文本 10 車輛類型 事故時(shí)間 日期 /時(shí)間 20 事故時(shí)間 公司負(fù)擔(dān)金 數(shù)字 20 公司負(fù)擔(dān)金 對(duì)方賠償金 數(shù)字 20 對(duì)方賠償金 對(duì)方損壞程度 文本 50 對(duì)方損壞程度 和解內(nèi)容 文本 50 備注 10車輛類型表：主 要有 類型 字段名 字段類型 字段長(zhǎng)度 字段說明 類型 文本 20 類型 11）車輛檔案：表主要存放車輛的基本信息，主要包括車牌、車型、車主、發(fā)動(dòng)機(jī)號(hào)、車架號(hào)、廠家型號(hào)、車重、核定載客等信息。添加用戶是所有用戶都具有的功能，要求提供用戶名和密碼，以及密碼的確認(rèn)這里不做詳細(xì)展開。 對(duì)于用戶的刪除，充分考慮了系統(tǒng)安全問題，在數(shù)據(jù)庫建立的時(shí)候，初始化了一個(gè)超級(jí)管理員 Administrator，同時(shí)也有一個(gè)全局變量 username 與之對(duì)應(yīng)，用于用戶名的校對(duì)。用戶的刪除對(duì)于超 級(jí)管理員是完全透明的，當(dāng)用超級(jí)管理員登錄后，使用刪除用戶操作時(shí)，系統(tǒng)將從數(shù)據(jù)庫用戶表中讀取所有的用戶名，管理員之需選定即可刪除，所以說對(duì)于超級(jí)管理員是完全透明的，其中超級(jí)管理員不允許被刪除。 Dim i As Integer Private Sub Combo1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End If End Sub Private Sub Command1_Click() If = Then MsgBox 您還沒有注冊(cè)系統(tǒng)用戶！ , , 系統(tǒng)提示 Unload Me Exit Sub End If Set adors = (select * from 用戶表 where 用戶姓名 =ltrim(39。 Text1 amp。) and 密碼 =ltrim(39。 Text2 amp。) and 用戶類型 =ltrim(39。 amp。)) If Then MsgBox 您輸入的信息有誤，請(qǐng)重新輸入！ , , 系統(tǒng)提示 Text1 = Text2 = i = i + 1 If i = 3 Then MsgBox 對(duì)不起，您已無權(quán)使用本系統(tǒng)！ , , 系統(tǒng)提示 Unload Me End If Else Select Case adors!用戶類型 Case 管理員 Case 普通用戶 = False = False = False End Select Unload Me End If End Sub Private Sub Command2_Click() Unload Me 39。首先車輛牌照是唯一的，所以在寫入數(shù)據(jù)庫之前，先對(duì)數(shù)據(jù)庫進(jìn)行一次查詢，查詢是否存在這個(gè)即將被錄入的車輛牌照，如此即避免了車輛的重復(fù)登記。對(duì)車重和核定載客則可以為空，但當(dāng)判斷不為空是，就用 isnumeric（）進(jìn)行判斷，是否是數(shù)據(jù)類型，如果不是則提出警告。 提交數(shù)據(jù)的時(shí)候，判斷全局變量 gintvmode即當(dāng)前模式，如果是添加模式，則在調(diào)用這個(gè)功能的時(shí)候自動(dòng)將 gintvmode賦 1，則調(diào)用 .addnew，添加新記錄。 源代碼如下： Private Sub cmdAdd_Click() Unlockctl = Format(Now, yyyymmdd) Text1 = : Text2 = : Combo2 = : Text4 = : Text5 = : Text6 = : Text7 = = = 是 = 是 = 是 = 是 = True: = True = False: = True = False: = False i = 1 End Sub 車輛信息的修改 車輛信息的修改操作是在兩個(gè)窗體上面實(shí)現(xiàn)的。 Frmvehiclelist窗體最主要的功能是顯示數(shù)據(jù)、數(shù)據(jù)導(dǎo)出和產(chǎn)生報(bào)表三項(xiàng)功能。 在這個(gè)窗體里面有一個(gè)公共變量 txtsql,用于傳遞查詢操作的 SQL 語句 ,如果不是查詢操作 ,即 SQL語句傳入 ,則自動(dòng)賦以查詢所有數(shù)據(jù)命令。 2）數(shù)據(jù)導(dǎo)出備份功能 在窗體中還有一個(gè)導(dǎo)出數(shù)據(jù)按鈕，作用是將已經(jīng)在 MSFlexGrid控件顯示中的數(shù)據(jù)導(dǎo)入到 Excel數(shù)據(jù)表中，目的是為了實(shí)現(xiàn)數(shù)據(jù)的導(dǎo)出備份，其具體代碼如下： Private Sub Form_Load() = 3075: = 7410 = select * from 車輛檔案 If 0 Then = (購置日期 ) = select * from 車輛類型表 If = 0 Then Exit Sub For i = 0 To