【文章內(nèi)容簡介】 amp。 / amp。 amp。 Else stime = 事故時間 like 39。%39。 End If sql = select * from 車輛事故表 where amp。 scp amp。 and amp。 stime 39。MsgBox sql If sql = select * from 車輛事故表 where 車牌號碼 like 39。%39。and 事故時間 like 39。%39。 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=。Data Source= amp。 amp。 \。Persist Security Info=False = select * from 車輛事故表 End Sub Private Sub QingKong() = 您所要查詢的車輛事故記錄如下： = Provider=。Data Source= amp。 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。 amp。 %39。 Else scp = 車牌號碼 like 39。%39。 End If Dim stime As String If Then stime = 維修日期 between amp。 amp。 / amp。 amp。 / amp。 amp。 and amp。 amp。 / amp。 amp。 / amp。 amp。 Else stime = 維修日期 like 39。%39。 End If Dim sfy As String If Then sfy = 共計(jì)費(fèi)用 amp。 amp。 amp。 txtFY amp。 Else sfy = 共計(jì)費(fèi)用 like 39。%39。 End If sql = select * from 車輛維修表 where amp。 scp amp。 and amp。 stime amp。 and amp。 sfy 39。MsgBox sql If sql = select * from 車輛維修表 where 車牌號碼 like 39。%39。and 維修日期 like 39。%39。and 共計(jì)費(fèi)用 like 39。%39。 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。add all cp in the table carWX Set adors = (select distinct 車牌號碼 from 車輛維修表 ) On Error Resume Next Do (0) Loop Until End Sub Private Sub Rebind() = 車輛維修列 表 = Provider=。Data Source= amp。 amp。 \。Persist Security Info=False = select * from 車輛維修表 End Sub Private Sub QingKong() = 您 所要查詢的車輛維修記錄如下： = Provider=。Data Source= amp。 amp。 \。Persist Security Info=False = select * from 車輛維修表 where 1=0 End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) cmdExit_Click End Sub 結(jié)束語 本軟件的設(shè)計(jì)目的是為車管人員方便管理機(jī)動車與駕駛員信息提供方便。通過這幾個月的畢業(yè)設(shè)計(jì)，我學(xué)到很多以前沒有學(xué)到的 visual basic 開發(fā)技術(shù)，在軟件工程學(xué)上更是取得了很大的進(jìn)步。經(jīng)過大量的測試和試用，作者深信本軟件達(dá)到了方便和實(shí)用的設(shè)計(jì)目的，并在軟件界面和易用實(shí)用等方面有著獨(dú)到之處。 雖然軟件基本達(dá)到設(shè)計(jì)要求并且達(dá)到同行的先進(jìn) 水平，但由于作者水平有限，軟件存在 bug 也是在所難免的 ，您的意見和建議將極大的幫助我改進(jìn)并完善軟件。真誠的希望你的參與。 致謝 我首先感謝我的指導(dǎo)老師呂老師，在他嚴(yán)格的要求下我懂得了開發(fā)軟件要有一種極其認(rèn)真負(fù)責(zé)的態(tài)度。無論做什么事都要大膽的去想去做，這樣會有好的創(chuàng)意，才能更有作為。 在這里我還要感謝我們宿舍的其它 5 個同學(xué)。他們和我共同生活了四年，在生活和學(xué)習(xí)上給了我很大的幫助。 參 考 文 獻(xiàn) 1 陳明 . 軟件 工程學(xué)教程 .科技出版社， 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 高手突破 . 清華大學(xué)出版社， 2021， 302 6 Steve Teixeira， Xaviver Pacheco 著，龍勁松，王瑜，謝尚書 譯 . visual basic 開發(fā)人員指南 . 機(jī)械工業(yè)出版社 .2021 7 喬林 .參透 Delphi／ Kylix . 中國鐵道出版社 .2021 8 李維 .Inside 深入核心 VCL 架構(gòu)剖析 . 電子工業(yè)出版社 .2021 9 張立科編寫組 .Windows API 函數(shù)參考手冊 .人民郵電出版社 .2021 嚴(yán)蔚敏，吳偉民 .數(shù)據(jù)結(jié)構(gòu) .第二版 .清華大學(xué)出版社 .2021 10 王珍 玲 。實(shí)用軟件工程教程 高等教育出版社 2021 11 （英） Ian Sommerville 機(jī)械工業(yè)出版社 2021 12 美 Cantu,U. 王輝等譯 visual basic 從入門到精通 電子工業(yè)出版社 2021 13 李維 面向?qū)ο箝_發(fā)實(shí)踐之路（ visual basic 版） (BORLAND 資深顧問著名 visual basic 專家李維最新力作 ) 電子工業(yè)出版社 14 秦斌 等 visual basic 數(shù)據(jù)庫系統(tǒng)開發(fā)與應(yīng)用 中國水利水電出版社 2021 .1 15 劉藝 visual basic 面向?qū)ο缶?程思想 機(jī)械工業(yè)出版社 2021 basic 程序設(shè)計(jì)第二版 譚浩強(qiáng) 清華大學(xué)出版社 2021 17. visual 程序設(shè)計(jì)教程 . 胡同森 趙劍鋒等 . 浙江科學(xué)技術(shù)出版社 , (第二版 ) 周蘇 王文 著 科學(xué)出版社 2021 Basic 程序設(shè)計(jì)與開發(fā)技術(shù) 求是科技 人民郵電出版社 畢業(yè)設(shè)計(jì) 車輛管理系統(tǒng) 班級 姓名 專業(yè) 摘 要 ………………………………………………………………………… 1 Abstract………………………………………………………………………2 第一章 引言 ………………………………………………………………… 4 1． 1 課題背景 …………………………………………………………………… 4 1． 2 系統(tǒng)簡介………………………………………………………… ………… 5 第二 章 系統(tǒng)的分析…………………………………………………… ……… 6 2． 1 系統(tǒng)開發(fā)的目標(biāo)和思想……………………………………………… …… 6 2． 2 系統(tǒng)的可行性分析…………………………………………………… …… 8 第三章 系統(tǒng)的設(shè)計(jì) ……………………………………