【正文】 9。 amp。 amp。 39。) If Then Else MsgBox 此車已經(jīng)報廢，不能參加運營！, , 車輛管理系統(tǒng) = Exit Sub End If 39。此車是否異動了 Set rss2 = (select * from 車輛異動表 where 車牌號碼=39。 amp。 amp。 39。) If Then Else MsgBox 此車為“異動車輛”不能參加運營！, , 車輛管理系統(tǒng) = Exit Sub End If 在“添加”按鈕的 Click 事件下，通過 ADO 對象創(chuàng)建“車輛運營表”的記錄集，通過對記錄集中記錄數(shù)的判斷對“營運編號”進行自動編號，其代碼如下： Dim rs As New select * from 車輛運營表, n, adOpenKeyset, adLockOptimistic If 0 Then aa = (0) = YY + Format(Val(Right((運營編號), 3)) + 1, 000) Else = YY001 End If在“刪除”按鈕的 Click 事件下，通過 ADO 控件的 Delete 方法刪除數(shù)據(jù)，代碼如下： If MsgBox(您確實要刪除記錄嗎？ , vbOKCancel, 車輛管理系統(tǒng)) = vbOK Then MsgBox 記錄已刪除！, , 車輛管理系統(tǒng) End If 車輛運營列表運行結(jié)果，如圖 49 所示：圖 49 車輛運營列表結(jié)果圖 車輛違章列表 窗體界面設(shè)計（1）新建一個窗體，Caption 屬性為“車輛違章記錄” 。（2）在窗體上添加 Test、Label、CommandButton、DTPicker 控件。如圖410 所示：圖 410 車輛違章記錄圖 程序代碼設(shè)計判斷報廢車輛和異動車輛不可以添加到違章列表中，在 Text1 控件LostFocus 事件下，添加如下核心代碼： Set rss = (select * from 車輛檔案 where 車牌號碼=39。 amp。 amp。 39。) If Then MsgBox 這輛車不屬于本公司的！, , 車輛管理系統(tǒng) = Exit Sub End If Set rss1 = (select * from 車輛異動表 where 車牌號碼=39。 amp。 amp。 39。) If Then Else MsgBox 該車為異動車輛！, , 車輛管理系統(tǒng) = Exit Sub End If Set rss2 = (select * from 車輛報廢表 where 車牌號碼=39。 amp。 amp。 39。) If Then Else MsgBox 該車已經(jīng)報廢！, , 車輛管理系統(tǒng) = Exit Sub End If 車輛違章記錄窗體運行結(jié)果，如圖 411 所示。圖 411 車輛違章記錄運行結(jié)果圖 車輛運營查詢車輛運營查詢窗體主要完成按車牌號碼、運營日期和運營時間段查詢車輛運營情況。 窗體界面設(shè)計（1）新建一個窗體，Caption 屬性為“車輛運營查詢窗體” ，在改窗體上一次添加控件。（2）在窗體上添加 DataGrid 控件，用來顯示查詢車輛運營的結(jié)果。（3）在窗體中添加 Text、 Label、Image、DTPicker 控件，如圖 412 所示：圖 412 車輛運營查詢圖 程序代碼設(shè)計設(shè)計一個 Rebind 過程，用于顯示表中所有數(shù)據(jù)。 = 車輛運營列表 = Provider=。Data Source= amp。 amp。 \ amp。 。Persist Security Info=False = select * from 車輛運營表 設(shè)計一個清空過程，用于顯示查詢結(jié)果數(shù)據(jù)。 = 您所要查詢的車輛運營記錄如下： = Provider=。Data Source= amp。 amp。 \ amp。 。Persist Security Info=False = select * from 車輛運營表 where 1=0 車輛運營查詢窗體運營結(jié)果，如圖 413 所示：圖 413 車輛運營查詢結(jié)果圖 程序調(diào)試和錯誤處理運行“車輛違章查詢”模塊，查詢車輛違章信息時出現(xiàn)“FROM 子句語法錯誤”的錯誤提示。如圖 414 所示：圖 414 車輛違章查詢單擊“確定”按鈕后，執(zhí)行的代碼如下：If Then Call QingKong MsgBox 對不起，沒有符合您查詢條件的車輛違章記錄！, , 車輛管理系統(tǒng) Else = sql End If第五章 系統(tǒng)總結(jié)經(jīng)過幾個月的設(shè)計和開發(fā)，車輛運輸管理系統(tǒng)基本開發(fā)完畢。其功能基本符合用戶需求，能夠完成信息錄入，信息查詢和統(tǒng)計，并提供一定的系統(tǒng)維護功能，使用戶方便的對數(shù)據(jù)進行錄入，修改，刪除，備份等操作，并且對于數(shù)據(jù)的一致性的問題也通過程序進行了一定的解決。但是由于畢業(yè)設(shè)計時間較短，但還存在如下問題：（1） 界面做得不是很協(xié)調(diào)，過于簡單。（2） 在登陸頁面，對密碼沒有限制，可以使其數(shù)字和字符混合并控制其長度。（3） 在設(shè)計其中幾項功能的時候，出現(xiàn)了一些問題，使其功能無法實現(xiàn)。（4） 在設(shè)置的登錄界面，比較簡單，我們可以直接按 Enter 鍵就可以登錄。（5）在數(shù)據(jù)庫的選擇存在不足，我們可以選用 SQL，因為我們 Access 存在一個缺點就是他可以再數(shù)據(jù)量小的時候使用，而 SQL 可以再數(shù)據(jù)量大的情況下使用，而且 SQL 的高負(fù)載時的穩(wěn)定性較好。（6） 在編寫軟件部分的時候，會遇到很多意想不到的問題，自己可能會認(rèn)為代碼沒有錯，但是當(dāng)你細(xì)心一點查找的時候，你會發(fā)現(xiàn)你的代碼還是有問題的，而且在編寫的過程中，要不斷地調(diào)試，才可以保證你的代碼是沒有錯誤的。這些都是需要完善的地方，該系統(tǒng)離實際使用也還有相當(dāng)?shù)木嚯x，需要我進行不斷地補充和完善。結(jié)束語本軟件的設(shè)計目的是為車管人員方便管理機動車與駕駛員信息提供方便。通過這幾個月的畢業(yè)設(shè)計，我學(xué)到很多以前沒有學(xué)到的 visual basic 開發(fā)技術(shù)，在軟件工程學(xué)上更是取得了很大的進步。經(jīng)過大量的測試和試用，我深信本軟件達到了方便和實用的設(shè)計目的，并在軟件界面和易用實用等方面有著獨到之處。車輛管理系統(tǒng)的功能基本能夠符合用戶的需求，能夠完成用戶提出的信息管理要求，并提供部分系統(tǒng)維護功能，使用戶方便進行數(shù)據(jù)備份、恢復(fù)、數(shù)據(jù)刪除。但是由于畢業(yè)設(shè)計時間較短，所以該系統(tǒng)還有許多不盡如人意的地方，將在日后繼續(xù)完善。參考文獻[1] 劉彬彬、高春艷、孫秀梅 等著，Visual Basic 從入門到精通[M]. 北京:清華大學(xué)出版社，[2] 明日科技、安劍、孫秀梅編著，Visual Basic 數(shù)據(jù)庫系統(tǒng)開發(fā)自學(xué)手冊[M]. 北京:人民郵電大學(xué)大學(xué)出版社，[3] 許慶芳、翁婉真編著，Visual Basic 6 程序設(shè)計與應(yīng)用教程[M].北京:清華大學(xué)出版社，[4] 張桂元、 開發(fā)入門與項目實踐[M].北京:人民郵電出版社，[5] 薩師煊、[M].北京:高等教育出版社，[6] 龍姚淑、[M].北京:電子工業(yè)出版社，[7] [M].重慶:重慶大學(xué)出版社，[8] [M].北京:清華大學(xué)出版社，[9] 張健沛、[M].北京:中國鐵路出版社，[10] [M].北京:科學(xué)出版社，[11] 張翼英 等著，Visual Basic 課程設(shè)計[M]. 北京:清華大學(xué)出版社，[12] 胡同森 趙劍鋒 等著， visual 程序設(shè)計教程 [M]. 浙江科學(xué)技術(shù)出版社，[13] basic 程序設(shè)計第二版[M]. 清華大學(xué)出版社，2022[14] 史嘉權(quán). 數(shù)據(jù)庫系統(tǒng)概論[M].北京：清華大學(xué)出版社，2022[15] 秦斌 等. visual basic 數(shù)據(jù)庫系統(tǒng)開發(fā)與應(yīng)用 [M]. 中國水利水電出版社，2022 .1[16] 求是科技. Visual Basic 程序設(shè)計與開發(fā)技術(shù)[M]. 人民郵電出版社，[17] 陳明. 軟件工程學(xué)教程[M]. 科技出版社，2022[18] 美 Cantu,U. 王輝等譯. visual basic 從入門到精通 [M]. 電子工業(yè)出版社，2022[19] 飛思科技產(chǎn)品研發(fā)中心. visual basic 數(shù)據(jù)庫應(yīng)用開發(fā) [M]. 電子工業(yè)出版社，2022[20] 飛思科技產(chǎn)品研發(fā)中心. visual basic 開發(fā)者手冊[M]. 電子工業(yè)出版社, 2022