【正文】 數(shù)據(jù)庫(kù)訪問(wèn)以及計(jì)算機(jī)輔助軟件工程工具。 業(yè)務(wù)管理模塊：用于實(shí)現(xiàn)運(yùn)營(yíng)業(yè)務(wù)、維修記錄、事故記錄等日常業(yè)務(wù)的管理功能。當(dāng)用戶在 車 輛 管 理 系 統(tǒng) 司 機(jī) 檔案 管 理模塊 車 輛 檔案 管 理模塊 添加司機(jī)檔案 修改司機(jī)檔案 刪除司機(jī)檔案 查詢司機(jī)檔案 案 案 案 案 添加車輛檔案 修改車輛檔案 刪除車輛檔案 查詢車輛檔案 案 案 案 案 檔 案 管理模塊 業(yè) 務(wù) 管 理模塊 運(yùn) 營(yíng) 管理模塊 維 修 管理模塊 事 故 管理模塊 用 戶 管理模塊 添 加 用戶 修改密碼 添加、修改、刪除、查詢車輛運(yùn)營(yíng)信息 添加、修改、刪除、查詢車輛維修信息 添加、修改、刪除、 查詢車輛 事故信息 登錄窗體模塊 本科畢業(yè)論文 13 該窗口輸入正確的用戶名和密碼后，將進(jìn)入車輛管理系統(tǒng)的住窗體中。添加司機(jī)檔案需要用戶輸入詳細(xì)的信息，包括：司機(jī)的姓名，性別，住址，駕駛執(zhí)照號(hào)，準(zhǔn)駕車型，有效期等等。 車輛檔案管理模塊 用戶通過(guò)此模塊可以對(duì)車輛檔案進(jìn)行添加、修改、刪除、查詢。完成查詢操作后，有關(guān)車輛的信息將顯示在相應(yīng)的數(shù)據(jù)綁定控件中。保存后，這些信息將添加到對(duì)應(yīng)的后臺(tái)數(shù)據(jù)表中。車輛檔案建立完成后才能對(duì)車輛維修管理進(jìn)行添加、修改、刪除、查詢。完成查詢操作后，有關(guān)車輛的信息將顯示在相應(yīng)的數(shù)據(jù)綁定控件中。保存后，這些信息將添加到對(duì)應(yīng)的后臺(tái)數(shù)據(jù)表中。后臺(tái)數(shù)據(jù)庫(kù)的合理設(shè)計(jì)在車輛管理系統(tǒng)這樣的數(shù)據(jù)信息管理系統(tǒng)中占有十分重要的地位，數(shù)據(jù)庫(kù)設(shè)計(jì)的優(yōu)劣將直接影響系統(tǒng)的準(zhǔn)確性、效率及實(shí)現(xiàn)效果，合理的設(shè)計(jì)能提高數(shù)據(jù)存儲(chǔ)效率，保證數(shù)據(jù)的完整和一致。根據(jù)系統(tǒng)的設(shè)計(jì)思想，系統(tǒng)具體需求如下： 用戶可維護(hù)司機(jī)檔案，進(jìn)行添加、修改和刪除操作，并能通過(guò)司機(jī)姓名和準(zhǔn)駕車型對(duì)司機(jī)檔案進(jìn)行查詢。 用 戶可對(duì)車輛運(yùn)營(yíng)管理進(jìn)行添加、修改和刪除操作，并能通過(guò)車號(hào)和司機(jī)姓名對(duì)車輛運(yùn)營(yíng)管理進(jìn)行查詢。 上述數(shù)據(jù)中，車輛運(yùn)營(yíng)管理、車輛維修管理和車輛事故管理中的司機(jī) ID 和車輛 ID 必須與司機(jī)檔案中的司機(jī) ID、車輛檔案中車輛 ID想關(guān)聯(lián)。車輛檔案實(shí)體 關(guān)系模型如圖 42 所示。其實(shí)體 關(guān)系模型如圖 44 所示。其實(shí)體 關(guān)系模型如圖 46 所示。每個(gè)表格表示數(shù)據(jù)庫(kù)中的一個(gè)表?？晒┯脩籼砑?、修改、刪除和查詢。包括車號(hào)、司機(jī)、開(kāi)始時(shí)間、結(jié)束時(shí)間、運(yùn)行公里、油耗等信息。包括車號(hào)、司機(jī)、時(shí)間、地點(diǎn)、原因、對(duì)方車號(hào)、對(duì)方單位、處理方式、處理金額、備注等信息。 開(kāi)發(fā) C/S（客戶 /服務(wù)器）結(jié)構(gòu)的應(yīng)用程序時(shí)，前臺(tái)開(kāi)發(fā)語(yǔ)言通常可以選擇 VB、 V C++、 DELPHI 和 POWER BUILDER 等，如果開(kāi)發(fā)網(wǎng)絡(luò)應(yīng)用程序，則需要選擇一個(gè)網(wǎng)絡(luò)數(shù)據(jù)庫(kù)系統(tǒng)，例如 SQL SERVER、ORACLE 和 IBM DB2 等；如果開(kāi)發(fā)單機(jī)應(yīng)用程序，則只要選擇一個(gè)小型數(shù)據(jù)庫(kù)系統(tǒng)就可以了，例如 ACEESS。當(dāng)前較為流行且功能強(qiáng)大的 ADO 成為了數(shù)據(jù)庫(kù)連接的理想選擇，而且實(shí)現(xiàn)又簡(jiǎn)單 ,同時(shí)支持本地和遠(yuǎn)程數(shù)據(jù)庫(kù)。打開(kāi)后，新建表，根據(jù)上述數(shù)據(jù)庫(kù)的邏輯結(jié)構(gòu)分別把每個(gè)的內(nèi)容輸入新建表中，例如司機(jī)檔案數(shù)據(jù)表 driver 中的， sjid,sjname 等項(xiàng)輸入新建表的列中，數(shù)據(jù)類型，長(zhǎng)度，是否允許空分別按上述邏輯結(jié)構(gòu)輸入。建成數(shù)據(jù)庫(kù)以后，然后生成 SQL 腳本。 本科畢業(yè)論文 24 第五章 系統(tǒng)的詳細(xì)設(shè)計(jì) 5． 1 公用模塊的編寫 5． VISUAL BASIC 微軟公司的 Visual Basic 是 Windows 應(yīng)用程序開(kāi)發(fā)工具，具有直觀的開(kāi)發(fā)界面、先進(jìn)的程序設(shè)計(jì)思想，是目前最為廣泛的、易學(xué)易用的面向?qū)ο蟮拈_(kāi)發(fā)工具。故而，實(shí)現(xiàn)本系統(tǒng) VB 是一個(gè)相對(duì)較好的選擇。 公用模塊的編寫 啟動(dòng) V B 后 ,建立一個(gè)標(biāo)準(zhǔn) EXE 工程。 在全局變量的定義代碼中，將定義用于存儲(chǔ)系統(tǒng)中的涉及的信息的全局變量，如存儲(chǔ)的登錄用戶名、當(dāng)前窗體句柄和數(shù)據(jù)庫(kù)連 接字符串的全局變量。PWD= End Function 窗體加載過(guò)程是車輛管理系統(tǒng)啟動(dòng)時(shí)，首先執(zhí)行的過(guò)程，在該過(guò)程中將顯示系統(tǒng)登錄窗體，并根據(jù)輸入的用戶名和密碼是否正確來(lái)決定是否加載和顯示車輛管理系統(tǒng)的主窗體。圖 52 為系統(tǒng)登錄程圖。 選擇菜單命令“工程”中的“添加 MDI 窗體“，在工程中添加一個(gè) MDI 窗體，并命名為 FRMMAIN。如果是刪除的話還會(huì)提示用戶是不是確定要?jiǎng)h除某條信息。 39。 圖 55 新 增司機(jī)流程圖 本科畢業(yè)論文 29 圖 54 添加司機(jī)信息的操作界面 圖 55 添加司機(jī)流程圖 單擊保存按鈕，程序會(huì)檢驗(yàn)各字段內(nèi)容填寫是否正確，然后將新記錄添加到司機(jī)檔案數(shù)據(jù)表中。 不能為空！ MsgBox sMeg, vbOKOnly + vbExclamation, 警告 輸入司機(jī)姓名 存在 ? 增加相應(yīng)記錄 新增司機(jī) 完否 ? 提示錯(cuò)誤信息 否 是 結(jié)束 否 是 本科畢業(yè)論文 30 txtItem(intCount).SetFocus Exit Sub End If Next intCount If Trim(txtItem(6) amp。如例程 56 例程 56 保存過(guò)程的實(shí)現(xiàn)代碼 txtSQL = select * from driver Set mrc = ExecuteSQL(txtSQL, MsgText) (0) = Trim(txtItem(0)) 在工程中再添加一個(gè)窗體，命名為 FRMDRIVER。個(gè)控件主要是顯示數(shù)據(jù)表中的內(nèi)容，顯示在控件中數(shù)據(jù)應(yīng)該與表頭一一對(duì)應(yīng)，實(shí)現(xiàn)代碼如例程 57。所以要修改表頭，使表本科畢業(yè)論文 32 頭顯示自己定義的中文字段，便于用戶查看。 5． 2． 3 司機(jī)信息 的查詢 在工程中添加一個(gè)窗體，命名為 FRMDRIVER2。 圖 57 FRMDRIVER2 窗體的界面 本科畢業(yè)論文 33 圖 58 查詢流程圖 程 59 FRMDRIVER2 窗體的實(shí)現(xiàn)代碼 Private Sub cmdOK_Click() Dim txtSQL As String If chkItem(0).Value = vbChecked Then txtSQL = sjname =39。 39。 Trim(txtItem(1) amp。 and sjtype =39。 39。具體控件屬性和實(shí)現(xiàn)代碼請(qǐng)參考設(shè)計(jì)程序。不然程序就會(huì)提示用戶先建立司機(jī)或車輛檔案。 添加 txtSQL = select DISTINCT clid from vehicle Set mrc = ExecuteSQL(txtSQL, MsgText) If Not Then Do While Not cboItem(0).AddItem Trim(mrc!clid) Loop cboItem(0).ListIndex = 0 Else MsgBox 請(qǐng)先建立車輛檔案！ , vbOKOnly + vbExclamation, 警告 = False 本科畢業(yè)論文 36 Exit Sub End If 39。原密碼核對(duì) If yhPwd Then MsgBox 原密碼錯(cuò)誤！ Exit Sub End If 39。 amp。修改數(shù)據(jù)庫(kù)中的密碼 On Error Resume Next sqlstr = Update yh set yhpwd=39。圖 512 為用戶修改密碼流程圖 本科畢業(yè)論文 37 圖 511 FORM2 的操作界面 否 是 是 圖 512 用戶修改密碼流程圖 程 511 FORM2 的操作界面的實(shí)現(xiàn)代碼 Private Sub Command2_Click() Unload Me 更改登錄密碼 輸入原密碼 正確？ 新密碼 新新同？ 修改成功 原密碼錯(cuò)誤 密碼不一致 本科畢業(yè)論文 38 End Sub Private Sub Command1_Click() 39。部分實(shí)現(xiàn)代碼如例程 510。而這三個(gè)管理模塊的界面和司機(jī)車輛管理界面和代碼又很相似，所以這里就不在敘述了。 txtSQL End If End Sub 5． 3 車輛信息管理模塊 車輛信息管理模塊的界面設(shè)計(jì)和實(shí)現(xiàn)代碼與司機(jī)信息管理模塊完全類似，主要 功能為添加、修改、刪除和查詢車輛信息。 Trim(txtItem(1) amp。 39。 ) = Then txtSQL = sjtype =39。 Trim(txtItem(0) amp。用戶要查詢司機(jī)信息時(shí)候，先要選擇查詢類型，填寫查詢內(nèi)容后，單擊確定后，程序就會(huì)執(zhí)行查詢命令，并把查詢到的內(nèi)容顯示在 GRID 控件中，部分實(shí)現(xiàn)代碼如程 59。 例程 58 修改表頭的部分實(shí)現(xiàn)代碼 With msgList .Cols = 10 .TextMatrix(0, 1) = 執(zhí)照號(hào)碼 .TextMatrix(0, 2) = 姓名 .TextMatrix(0, 3) = 性別 .TextMatrix(0, 4) = 出生年月 .TextMatrix(0, 5) = 住址 .TextMatrix(0, 6) = 初次領(lǐng)證時(shí)間 .TextMatrix(0, 7) = 準(zhǔn)駕車型 .TextMatrix(0, 8) = 有效期起始日期 .TextMatrix(0, 9) = 有效期結(jié)束日期 5． 2． 2 司機(jī)信息的修改和刪除 這兩個(gè)功能已經(jīng)在系統(tǒng)主界面上已經(jīng)完成了其修改和刪除的功能，代碼也在主界面的代碼里。 , yyyymmdd) Case Else .TextMatrix(.Rows 1, i) = (i 1) amp。這個(gè)需要從部件庫(kù)中添加。如果存在的話，程序會(huì)提示已經(jīng)存在該 ID。如例程 55 例程 55 For intCount = 0 To 1 If Trim(txtItem(intCount) amp。 5． 2． 1 添加司機(jī)信息 在工程中新建一個(gè)窗體，命名為 體中添加控件。 amp。用菜單編輯器設(shè)計(jì)主界面上的菜單 ，得到如圖 53 的系統(tǒng)主界面 圖 53 系統(tǒng)的主界面 接下來(lái)為每個(gè)菜單添加響應(yīng)函數(shù)，實(shí)現(xiàn)系統(tǒng)主窗體 的各項(xiàng)功能，這里主要是激活各相應(yīng)的子窗口。ToDo: create test for correct password 39。登錄界面如圖 51 所示。returns a DB ConnectString ConnectString = FileDSN=。然后將該工程保存，選擇保存路徑，并命名為“ ” 選擇菜單命令“工程”中的“添加模塊”，在工程中添加一個(gè)模塊，命名為“ Module1”并保存。開(kāi)發(fā)人員可以最有效利用所創(chuàng)建的每一個(gè)對(duì)象。 VB 同時(shí)提供的一套完善的編譯和調(diào)試系統(tǒng)，使得在開(kāi)發(fā)過(guò)程中可以很好的解決開(kāi)發(fā)過(guò)程中出現(xiàn)的一系列問(wèn)題。打開(kāi) SQL 查詢分析器，執(zhí)行查詢分析，查詢分析完 成后就會(huì)生成系統(tǒng)數(shù)據(jù)庫(kù)。分別是DRIVER， VEHICLE， statistic， repair， accident 和