【正文】 是采用計算機作為工具的實用的計算機智 能化車輛管理程序來幫助工作人員進行更有效的機動車輛管理。而對于后者則要求應(yīng)用程序功能完備 ,易使用等特點。 車輛管理系統(tǒng) 是典型的信息管理系統(tǒng) (MIS),其開發(fā)主要包括后臺數(shù)據(jù)庫的建立和維護以及前端應(yīng)用程序的開發(fā)兩個方面。 參 考 文 獻 1 陳明 . 軟件 工程學教程 .科技出版社， 2021 2 薩師煊，王珊 . 數(shù)據(jù)庫系統(tǒng)概論 . 第三版 . 高等教育出版社， 2021 3 飛思科技產(chǎn)品研發(fā)中心 . visual basic 數(shù)據(jù)庫應(yīng)用開發(fā) .電子工業(yè)出版社， 2021 4 飛思科技產(chǎn)品研發(fā)中心 . visual basic 開發(fā)者手冊 . 電子工業(yè)出版社 , 2021 5 申 旻 . visual basic 高手突破 . 清華大學出版社， 2021， 302 6 Steve Teixeira， Xaviver Pacheco 著，龍勁松，王瑜，謝尚書 譯 . visual basic 開發(fā)人員指南 . 機械工業(yè)出版社 .2021 7 喬林 .參透 Delphi／ Kylix . 中國鐵道出版社 .2021 8 李維 .Inside 深入核心 VCL 架構(gòu)剖析 . 電子工業(yè)出版社 .2021 9 張立科編寫組 .Windows API 函數(shù)參考手冊 .人民郵電出版社 .2021 嚴蔚敏，吳偉民 .數(shù)據(jù)結(jié)構(gòu) .第二版 .清華大學出版社 .2021 10 王珍 玲 。 在這里我還要感謝我們宿舍的其它 5 個同學。 致謝 我首先感謝我的指導老師呂老師，在他嚴格的要求下我懂得了開發(fā)軟件要有一種極其認真負責的態(tài)度。 雖然軟件基本達到設(shè)計要求并且達到同行的先進 水平，但由于作者水平有限，軟件存在 bug 也是在所難免的 ，您的意見和建議將極大的幫助我改進并完善軟件。通過這幾個月的畢業(yè)設(shè)計，我學到很多以前沒有學到的 visual basic 開發(fā)技術(shù)，在軟件工程學上更是取得了很大的進步。 \。Data Source= amp。 \。Data Source= amp。 Then Call QingKong MsgBox 請選擇查詢條件 , , 系統(tǒng)提示 Exit Sub End If Set adors = (sql) If Then Call QingKong MsgBox 對不起，沒有符合您查詢條件的車輛維修記錄！ , , 系統(tǒng)提示 Else = sql End If = 0 = 0 = 0 End Sub Private Sub cmdExit_Click() (1).Text = Unload Me End Sub Private Sub Form_Load() = 6345 = 4395 Call Rebind 39。and 共計費用 like 39。and 維修日期 like 39。MsgBox sql If sql = select * from 車輛維修表 where 車牌號碼 like 39。 and amp。 and amp。 End If sql = select * from 車輛維修表 where amp。 Else sfy = 共計費用 like 39。 amp。 End If Dim sfy As String If Then sfy = 共計費用 amp。 Else stime = 維修日期 like 39。 / amp。 / amp。 and amp。 / amp。 / amp。 End If Dim stime As String If Then stime = 維修日期 between amp。 Else scp = 車牌號碼 like 39。 amp。Persist Security Info=False = select * from 車輛事故表 where 0=1 End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) cmdExit_Click End Sub : 代碼分析 : Private Sub ckcp_Click() If Then = True Else = False End If End Sub Private Sub ckfy_Click() If Then = True = 0 = True Else = False = False End If End Sub Private Sub cktime_Click() If Then = True = True Else = False = False End If End Sub Private Sub cmdCha_Click() Call QingKong Dim sql As String Dim scp As String If Then scp = 車牌號碼 like 39。 amp。Persist Security Info=False = select * from 車輛事故表 End Sub Private Sub QingKong() = 您所要查詢的車輛事故記錄如下： = Provider=。 amp。 Then Call QingKong MsgBox 請選擇查詢條件 , , 系統(tǒng)提示 Exit Sub End If Set adors = (sql) If Then Call QingKong MsgBox 對不起，沒有符合您查詢條件的車輛事故記錄！ , , 系統(tǒng)提示 Else = sql End If = 0 = 0 End Sub Private Sub cmdExit_Click() (1).Text = Unload Me End Sub Private Sub Form_Load() = 6375 = 3885 Call Rebind Set adors = (select distinct 車牌號碼 from 車輛事故表 ) On Error Resume Next Do (0) Loop Until End Sub Private Sub Rebind() = 車輛事故列表 = Provider=。and 事故時間 like 39。MsgBox sql If sql = select * from 車輛事故表 where 車牌號碼 like 39。 and amp。 End If sql = select * from 車輛事故表 where amp。 Else stime = 事故時間 like 39。 / amp。 / amp。 and amp。 / amp。 / amp。 End If Dim stime As String If Then stime = 事故時間 between amp。 Else scp = 車牌號碼 like 39。 amp。定義查詢字符串 Dim sql As String Dim scp As String If Then scp = 車牌號碼 like 39。Persist Security Info=False = select * from 車輛檔案 where 0=1 End Sub 4 車輛事故查詢界面 : 代碼分析 : Private Sub ckcp_Click() If Then = True Else = False End If End Sub Private Sub cktime_Click() If Then = True = True Else = False = False End If End Sub Private Sub cmdCha_Click() 39。 \ amp。Data Source= amp。Persist Security Info=False = select * from 車輛檔案 End Sub Private Sub QingKong() = 您所要查詢的車輛檔案如下： 39。 \ amp。Data Source= amp。將表里存在的所有車牌加到控件 bo1 里 On Error Resume Next = select distinct 車牌號碼 from 車輛檔案 Do (0) Loop Until = select distinct 車輛類型 from 車輛檔案 Do (0) Loop Until = select distinct 車輛所在單位 from 車輛檔案 Do (0) Loop Until = select * from 車輛檔案 End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) cmdExit_Click End Sub Private Sub Rebind() = 車輛檔案列表 39。 \。Data Source= amp。清空上一次的查詢記錄 Call QingKong 39。 Then MsgBox 請選擇查詢條件 , , 系統(tǒng)提示 39。and 報廢否 like 39。and 異動否 like 39。and 保險否 like 39。and 車輛所在單位 like 39。and 車輛類型 like 39。MsgBox sql If sql = select * from 車輛檔案 where 車牌號碼 like 39。 and amp。 and amp。 and amp。 and amp。 and amp。 End If sql = select * from 車輛檔案 where amp。 Else sbf = 報廢否 like 39。 amp。 End