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

　　

【正文】 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。,事故時間 =39。 amp。 amp。 39。,事故概要 =39。 amp。 amp。 39。,事故確認者 =39。 amp。 amp。 39。,公司負擔金 =39。 amp。 amp。 39。,保險理賠金 =39。 amp。 amp。 39。,對方賠償金 =39。 amp。 amp。 39。,對方姓名 =39。 amp。 amp。 39。,對方住址 =39。 amp。 amp。 39。,對方所在單位 =39。 amp。 amp。 39。,對方損壞程度 =39。 amp。 amp。 39。,和解內容 =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 免責聲明：文檔在線網（文檔中國）中所有的文檔資料均由 文檔在線網會員提供。文檔在線網會對會員提供的文檔資料進行篩選和編輯，但是并不聲明或保證其內容的合法性、正確性或可靠性。該文檔資料的版權屬于提供者所有，有關版權的問題請直接與提供者聯(lián)系。 i = 2 End Sub （ 5） 車輛違章列表 車輛違章列表記錄操作窗口用于添加，修改，刪除車輛違章信息 .報廢車輛和 異動車輛不允許記錄在車輛違章列表中。 1 窗口界面設計 車輛違章記錄窗口設計圖 2 程序代碼設計 ? 設計一個過程 Lockctl,用來設置控件不可用，其代碼為： Private Sub Lockctl() = False: = False = False: = False = False End Sub ? 設計一個過程 Lockctl,用來設置控件可用，其代碼為 Private Sub Unlockctl() = True: = True = True: = True = True End Sub ? 在代碼窗口中定義數(shù)值型變量，作為保存或修改操作的開關變量： Dim i As Integer ? 在窗口 Load事件下添加如下代碼： Private Sub Form_Load() = 6720: = 2730 = select * from 車輛違章表 If 0 Then = (違章時間 ).Value End Sub ? 判斷報廢車輛和異動車輛不可以添加到違章列表中，在 Text1 和 LostFocus 事件下添加如下代碼： Private Sub Text1_LostFocus() If = Then Exit Sub 免責聲明：文檔在線網（文檔中國）中所有的文檔資料均由 文檔在線網會員提供。文檔在線網會對會員提供的文檔資料進行篩選和編輯，但是并不聲明或保證其內容的合法性、正確性或可靠性。該文檔資料的版權屬于提供者所有，有關版權的問題請直接與提供者聯(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 車輛報廢表 where 車牌號碼 =39。 amp。 amp。 39。) If Then Else MsgBox 該車已經報廢！ , , 系統(tǒng)提示 = Exit Sub End If End Sub ? 在“添加”按鈕的 Click事件下添加如下代碼： Private Sub cmdAdd_Click() Unlockctl Text1 = : Text2 = Text3 = : Text4 = = Format(Now, yyyymmdd) = True: = True 免責聲明：文檔在線網（文檔中國）中所有的文檔資料均由 文檔在線網會員提供。文檔在線網會對會員提供的文檔資料進行篩選和編輯，但是并不聲明或保證其內容的合法性、正確性或可靠性。該文檔資料的版權屬于提供者所有，有關版權的問題請直接與提供者聯(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(您確實要刪除記錄嗎？ , 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 違章時間不能為空 , , 系統(tǒng)提示 : Exit Sub End If 免責聲明：文檔在線網（文檔中國）中所有的文檔資料均由 文檔在線網會員提供。文檔在線網會對會員提供的文檔資料進行篩選和編輯，但是并不聲明或保證其內容的合法性、正確性或可靠性。該文檔資料的版權屬于提供者所有，有關版權的問題請直接與提供者聯(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。當沒有添加數(shù)據的時候 處理異常 Lockctl = False: = False = True: = True = True: = True End Sub (6) 車輛維修列表 車輛維修列表主要是用來管理車輛維修的基本信息，計算車輛維修使用零件的費用。車輛維修的算法是 :零件數(shù)量 *零件價格 . 1 窗口界面設計 免責聲明：文檔在線網（文檔中國）中所有的文檔資料均由 文檔在線網會員提供。文檔在線網會對會員提供的文檔資料進行篩選和編輯，但是并不聲明或保證其內容的合法性、正確性或可靠性。該文檔資料的版權屬于提供者所有，有關版權的問題請直接與提供者聯(lián)系。 車 輛維修窗口設計圖 2 程序代碼設計 ? 設計一個過程 Lockctl,用來鎖定控件，其代碼為； Private Sub Lockctl() = False: = False = False: = False = False: = False = False: = False = False: = False End Sub ? 設計一個過程 Unlockctl,用來解除鎖定控件，其代碼為： Private Sub Unlockctl() = True: = True = True: = True = True: = True = True: = True = True End Sub ? 在代碼窗口中定義數(shù)值型變量，控制保存數(shù)據或修改數(shù)據的一個開關變量： 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 免責聲明：文檔在線網（文檔中國）中所有的文檔資料均由 文檔在線網會員提供。文檔在線網會對會員提供的文檔資料進行篩選和編輯，但是并不聲明或保證其內容的合法性、正確性或可靠性。該文檔資料