【正文】 的分析 本系統(tǒng)主要服務(wù)于機(jī)動車管理人員的日常工作 .利用本系統(tǒng)可以方便的監(jiān)控管理本區(qū)域的駕駛員信息 .在此基礎(chǔ)上力求軟件界面人性化以及操作簡單 ,程序具有健壯性等 . 系統(tǒng)的可行性分析 技術(shù)上 :本系統(tǒng)采用 visual basic 與微軟的 access 作為數(shù)據(jù)庫 ,技術(shù)上開發(fā)難度一般 . 經(jīng)濟(jì)上 :本系統(tǒng)服務(wù)于車輛管理人員 ,提高了車管工作者辦事效率 ,節(jié)省了開支 .所以具有經(jīng)濟(jì)上的可行性 . 社會上 :本系統(tǒng)同時也方便了廣大駕駛員 .所以具有社會可行性 . 第三章 系統(tǒng)的設(shè)計 3． 1 系統(tǒng)的功能結(jié)構(gòu)設(shè)計 3． 2 系統(tǒng)的數(shù)據(jù)庫設(shè)計 : 程序登陸 主界面 車輛檔案管理 車輛運盈 管理 車輛管理 駕駛員管理 系統(tǒng)維護(hù) : : 4:車輛違規(guī)表 : 5:車輛維修表 : 6:車輛變更表 : 7:車輛運營表 : 8:駕駛員檔案 9:獎懲表 : 10:零件表 : 11:用戶表 : 3． 3 界面設(shè)計與代碼設(shè)計 1:登陸界面設(shè)計 登陸界面代碼設(shè)計 : Private Sub Combo1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End If End Sub Private Sub Command1_Click() Set adors = (select * from 用戶表 where 用戶姓名 =ltrim(39。 Text1 amp。) and 密碼 =ltrim(39。 Text2 amp。) and 用戶類型 =ltrim(39。 amp。)) If Then MsgBox 您輸入的信息有誤，請重新輸入！ , , 系統(tǒng)提示 Text1 = Text2 = i = i + 1 If i = 3 Then MsgBox 對不起，您已無權(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。點擊查詢按紐后首先清空車輛報廢列表 Call QingKong 39。% amp。 %39。%39。 amp。 amp。 amp。 amp。 amp。 amp。%39。% amp。 %39。%39。 scp amp。 syy amp。 stime 39。%39。%39。%39。返回符合查詢條件的記錄集 Set adors = (sql) 39。退出此次查詢過程，否則在 datagrid1 控件里顯示記錄集 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() = 4155 = 5730 = 車輛報廢列表 Call Rebind 39。進(jìn)行與數(shù)據(jù)庫的綁定及選擇作為記錄源的表 = Provider=。 amp。 。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 ckbf_Click() If Then = True Else = False End If End Sub Private Sub ckbx_Click() If Then = True Else = False End If End Sub Private Sub ckcp_Click() If Then = True Else = False End If End Sub Private Sub ckdw_Click() If Then = True Else = False End If End Sub Private Sub cklx_Click() If Then = True Else = False End If End Sub Private Sub ckyd_Click() If Then = True Else = False End If End Sub Private Sub cmdAll_Click() = False = 0 = 0 = 0 = 0 = 0 = 0 Call Rebind = True = False = False End Sub Private Sub cmdExit_Click() (1).Text = Unload Me End Sub Private Sub cmdCha_Click() 39。 amp。 %39。%39。% amp。 %39。%39。% amp。 %39。%39。 amp。 39。%39。 amp。 39。%39。 amp。 39。%39。 scp amp。 slx amp。 sdw amp。 sbx amp。 syd amp。 sbf 39。%39。%39。%39。%39。%39。%39。清空上一次的查詢記錄 Call QingKong Exit Sub End If Set adors = (sql) If Then 39。給出文本框提示 MsgBox 沒有符合您查詢車輛的條件！ , , 系統(tǒng)提示 Else = sql End If = 0 = 0 = 0 = 0 = 0 = 0 End Sub Private Sub Form_Load() = Provider=。 amp。Persist Security Info=False Call Rebind = False = True = False = 5070 = 7935 39。聯(lián)接數(shù)據(jù)庫及選表 = Provider=。 amp。 。清空 datagrid1 控件里的記錄 = Provider=。 amp。 。點擊查詢按紐后首先清空車輛檔案列表 Call QingKong 39。 amp。 %39。%39。 amp。 amp。 amp。 amp。 amp。 amp。%39。 scp amp。 stime 39。%39。%39。Data Source= amp。 \。Data Source= amp。 \。 amp。 %39。%39。 amp。 amp。 amp。 amp。 amp。 amp。%39。 amp。 txtFY amp。%39。 scp amp。 stime amp。 sfy 39。%39。%39。%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=。 amp。Persist Security Info=False = select * from 車輛維修表 End Sub Private Sub QingKong() = 您 所要查詢的車輛維修記錄如下： = Provider=。 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īng)過大量的測試和試用，作者深信本軟件達(dá)到了方便和實用的設(shè)計目的，并在軟件界面和易用實用等方面有著獨到之處。真誠的希望你的參與。無論做什么事都要大膽的去想去做，這樣會有好的創(chuàng)意，才能更有作為。他們和我共同生活了四年，在生活和學(xué)習(xí)上給了我很大的幫助。實用軟件工程教程 高等教育出版社 2021 11 （英） Ian Sommerville 機(jī)械工業(yè)出版社 2021 12 美 Cantu,U. 王輝等譯 visual basic 從入門到精通 電子工業(yè)出版社 2021 13 李維 面向?qū)ο箝_發(fā)實踐之路（ 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è)計第二版 譚浩強(qiáng) 清華大學(xué)出版社 2021 17. visual 程序設(shè)計教程 . 胡同森 趙劍鋒等 . 浙江科學(xué)技術(shù)出版社 , (第二版 ) 周蘇 王文 著 科學(xué)出版社 2021 Basic 程序設(shè)計與開發(fā)技術(shù) 求是科技 人民郵電出版社 畢業(yè)設(shè)計 車輛管理系統(tǒng) 班級 姓名 專業(yè) 摘 要 ………………………………………………………………………… 1 Abstract………………………………………………………………………2 第一章 引言 ………………………………………………………………… 4 1． 1 課題背景 …………………………………………………………………… 4 1． 2 系統(tǒng)簡介………………………………………………………… ………… 5 第二 章 系統(tǒng)的分析……………