【導(dǎo)讀】檔資料進(jìn)行篩選和編輯，但是并不聲明或保證其內(nèi)容的合法性、正確性或可靠性。該文檔資料的版權(quán)屬于提供者。所有，有關(guān)版權(quán)的問題請直接與提供者聯(lián)系。隨著計(jì)算機(jī)技術(shù)的迅速發(fā)展，計(jì)算機(jī)已經(jīng)滲透到了各個(gè)應(yīng)用領(lǐng)域。本車輛管理系統(tǒng)的完成就是基于VB應(yīng)用程序和Access2021. 數(shù)據(jù)庫，能夠通過VB窗口對數(shù)據(jù)庫進(jìn)行操作。便實(shí)現(xiàn)車輛信息的查詢，而且也大大提高了程序的可維護(hù)性和重復(fù)利用性。關(guān)鍵詞：VB程序設(shè)計(jì),Access2021數(shù)據(jù)庫,車輛管理.已成為人們不可缺少的交通工具。特別是對于擁有大量車輛的機(jī)關(guān)企事業(yè)單位來說，車輛的管理。*由人工管理過渡到機(jī)械自動化，系統(tǒng)化，規(guī)范化管理。*違章車輛，事故車輛及車輛的維修費(fèi)用一目了然。*及時(shí)掌握車輛的運(yùn)營情況，提高車輛的利用效和經(jīng)濟(jì)益。管理，運(yùn)營管理，車輛管理，駕駛員管理，系統(tǒng)維護(hù)等功能。*車輛檔案錄入，車輛檔案查詢，車輛異動，車輛異動查詢，車輛報(bào)廢，車輛報(bào)廢查詢。*系統(tǒng)初始化，管理員設(shè)置，數(shù)據(jù)備份，數(shù)據(jù)恢復(fù)。

　　

【正文】 amp。 39。,39。 amp。 Text11 amp。 39。,39。 amp。 Text12 amp。 39。,39。 amp。 Text13 amp。 39。,39。 amp。 Text14 amp。 39。)) MsgBox 記錄添加成功！ , , 系統(tǒng)提示 Case 2 (update 車輛事故表 set 車牌號碼 =39。 amp。 amp。 39。,車輛類型 =39。 amp。 amp。 39。,事故時(shí)間 =39。 amp。 amp。 39。,事故概要 =39。 amp。 amp。 39。,事故確認(rèn)者 =39。 amp。 amp。 39。,公司負(fù)擔(dān)金 =39。 amp。 amp。 39。,保險(xiǎn)理賠金 =39。 amp。 amp。 39。,對方賠償金 =39。 amp。 amp。 39。,對方姓名 =39。 amp。 amp。 39。,對方住址 =39。 amp。 amp。 39。,對方所在單位 =39。 amp。 amp。 39。,對方損壞程度 =39。 amp。 amp。 39。,和解內(nèi)容 =39。 amp。 amp。 39。 where 事故編號 =39。 amp。 amp。 39。) MsgBox 記錄修改成功！ , , 系統(tǒng)提示 End Select Lockctl = False: = False = True: = True = True: = False = True: = True End Sub ? 在“取消” 按鈕的 Click事件下添加如下代碼： Private Sub cmdUpdate_Click() Unlockctl = True: = True = False: = False = True: = False = False: = False 免責(zé)聲明：文檔在線網(wǎng)（文檔中國）中所有的文檔資料均由 文檔在線網(wǎng)會員提供。文檔在線網(wǎng)會對會員提供的文檔資料進(jìn)行篩選和編輯，但是并不聲明或保證其內(nèi)容的合法性、正確性或可靠性。該文檔資料的版權(quán)屬于提供者所有，有關(guān)版權(quán)的問題請直接與提供者聯(lián)系。 i = 2 End Sub （ 5） 車輛違章列表 車輛違章列表記錄操作窗口用于添加，修改，刪除車輛違章信息 .報(bào)廢車輛和 異動車輛不允許記錄在車輛違章列表中。 1 窗口界面設(shè)計(jì) 車輛違章記錄窗口設(shè)計(jì)圖 2 程序代碼設(shè)計(jì) ? 設(shè)計(jì)一個(gè)過程 Lockctl,用來設(shè)置控件不可用，其代碼為： Private Sub Lockctl() = False: = False = False: = False = False End Sub ? 設(shè)計(jì)一個(gè)過程 Lockctl,用來設(shè)置控件可用，其代碼為 Private Sub Unlockctl() = True: = True = True: = True = True End Sub ? 在代碼窗口中定義數(shù)值型變量，作為保存或修改操作的開關(guān)變量： Dim i As Integer ? 在窗口 Load事件下添加如下代碼： Private Sub Form_Load() = 6720: = 2730 = select * from 車輛違章表 If 0 Then = (違章時(shí)間 ).Value End Sub ? 判斷報(bào)廢車輛和異動車輛不可以添加到違章列表中，在 Text1 和 LostFocus 事件下添加如下代碼： Private Sub Text1_LostFocus() If = Then Exit Sub 免責(zé)聲明：文檔在線網(wǎng)（文檔中國）中所有的文檔資料均由 文檔在線網(wǎng)會員提供。文檔在線網(wǎng)會對會員提供的文檔資料進(jìn)行篩選和編輯，但是并不聲明或保證其內(nèi)容的合法性、正確性或可靠性。該文檔資料的版權(quán)屬于提供者所有，有關(guān)版權(quán)的問題請直接與提供者聯(lián)系。 Dim rss As New Set rss = (select * from 車輛檔案 where 車牌號碼 =39。 amp。 amp。 39。) If Then MsgBox 這輛車不屬于本公司的！ , , 系統(tǒng)提示 = Exit Sub End If Dim rss1 As New Set rss1 = (select * from 車輛異動表 where 車牌號碼 =39。 amp。 amp。 39。) If Then Else MsgBox 該車為異動車輛！ , , 系統(tǒng)提示 = Exit Sub End If Dim rss2 As New Set rss2 = (select * from 車輛報(bào)廢表 where 車牌號碼 =39。 amp。 amp。 39。) If Then Else MsgBox 該車已經(jīng)報(bào)廢！ , , 系統(tǒng)提示 = Exit Sub End If End Sub ? 在“添加”按鈕的 Click事件下添加如下代碼： Private Sub cmdAdd_Click() Unlockctl Text1 = : Text2 = Text3 = : Text4 = = Format(Now, yyyymmdd) = True: = True 免責(zé)聲明：文檔在線網(wǎng)（文檔中國）中所有的文檔資料均由 文檔在線網(wǎng)會員提供。文檔在線網(wǎng)會對會員提供的文檔資料進(jìn)行篩選和編輯，但是并不聲明或保證其內(nèi)容的合法性、正確性或可靠性。該文檔資料的版權(quán)屬于提供者所有，有關(guān)版權(quán)的問題請直接與提供者聯(lián)系。 = False: = False i = 1 = False End Sub ? 在“修改” 按鈕的 Click事件下添加如下代碼： Private Sub cmdUpdate_Click() Unlockctl = False: = False = True: = True = False: = False i = 2 End Sub ? 在“刪除” 按鈕的 Click事件下添加如下代碼： Private Sub cmdDelete_Click() If MsgBox(您確實(shí)要?jiǎng)h除記錄嗎？ , vbOKCancel, 系統(tǒng)提示 ) = vbOK Then MsgBox 記錄已刪除！ , , 系統(tǒng)提示 = = = = End If End Sub ? 在“確定” 按鈕的 Click事件下添加如下代碼： Private Sub cmdOk_Click() Select Case i Case 1 If Text1 = Then MsgBox 車牌號碼不能為空 , , 系統(tǒng)提示 : Exit Sub End If If Text2 = Then MsgBox 違章原因不能為空 , , 系統(tǒng)提示 : Exit Sub End If If = Then MsgBox 違章時(shí)間不能為空 , , 系統(tǒng)提示 : Exit Sub End If 免責(zé)聲明：文檔在線網(wǎng)（文檔中國）中所有的文檔資料均由 文檔在線網(wǎng)會員提供。文檔在線網(wǎng)會對會員提供的文檔資料進(jìn)行篩選和編輯，但是并不聲明或保證其內(nèi)容的合法性、正確性或可靠性。該文檔資料的版權(quán)屬于提供者所有，有關(guān)版權(quán)的問題請直接與提供者聯(lián)系。 (0) = (1) = (2) = (3) = (4) = MsgBox 記錄添加成功！ , , 系統(tǒng)提示 Case 2 On Error Resume Next (0) = (1) = (2) = (3) = (4) = MsgBox 記錄修 改成功！ , , 系統(tǒng)提示 End Select Lockctl = False: = False = True: = True = True: = True Command1(0).Enabled = False: Command1(1).Enabled = False Command1(2).Enabled = False: Command1(3).Enabled = False End Sub ? 在“取消” 按鈕的 Click事件下添加如下代碼 Private Sub cmdCancel_Click() On Error Resume Next 39。當(dāng)沒有添加數(shù)據(jù)的時(shí)候 處理異常 Lockctl = False: = False = True: = True = True: = True End Sub (6) 車輛維修列表 車輛維修列表主要是用來管理車輛維修的基本信息，計(jì)算車輛維修使用零件的費(fèi)用。車輛維修的算法是 :零件數(shù)量 *零件價(jià)格 . 1 窗口界面設(shè)計(jì) 免責(zé)聲明：文檔在線網(wǎng)（文檔中國）中所有的文檔資料均由 文檔在線網(wǎng)會員提供。文檔在線網(wǎng)會對會員提供的文檔資料進(jìn)行篩選和編輯，但是并不聲明或保證其內(nèi)容的合法性、正確性或可靠性。該文檔資料的版權(quán)屬于提供者所有，有關(guān)版權(quán)的問題請直接與提供者聯(lián)系。 車 輛維修窗口設(shè)計(jì)圖 2 程序代碼設(shè)計(jì) ? 設(shè)計(jì)一個(gè)過程 Lockctl,用來鎖定控件，其代碼為； Private Sub Lockctl() = False: = False = False: = False = False: = False = False: = False = False: = False End Sub ? 設(shè)計(jì)一個(gè)過程 Unlockctl,用來解除鎖定控件，其代碼為： Private Sub Unlockctl() = True: = True = True: = True = True: = True = True: = True = True End Sub ? 在代碼窗口中定義數(shù)值型變量，控制保存數(shù)據(jù)或修改數(shù)據(jù)的一個(gè)開關(guān)變量： Dim As Integer ? 在該窗口 Load事件下添加如下代碼為： Private Sub Form_Load() = 8490 = 3150 = select * from 車輛維修表 If 0 Then = (維修日期 ).Value = select * from 零件表 For i = 0 To 1 (0).Value (0).Value 免責(zé)聲明：文檔在線網(wǎng)（文檔中國）中所有的文檔資料均由 文檔在線網(wǎng)會員提供。文檔在線網(wǎng)會對會員提供的文檔資料進(jìn)行篩選和編輯，但是并不聲明或保證其內(nèi)容的合法性、正確性或可靠性。該文檔資料