(論文)車輛管理系統(tǒng)設計(2013年優(yōu)秀畢業(yè)設計論文)

車輛管理系統(tǒng)目 錄摘要 .2關鍵詞2第一章 概述. 2第二章 系統(tǒng)分析2 2.1系統(tǒng)目標 3 2.2 功能分析 3 2.3系統(tǒng)流程3第三章 系統(tǒng)設計.2 3.1系統(tǒng)功能結構設計.2 3.2數(shù)據(jù)庫設計.3第四章 公用模塊設計.6第五章 系統(tǒng)登錄.6第六章 MDI主窗口設計 .7第七章 主要功能模塊詳細設計.9 7.1車輛檔案錄入.9 7.2車輛運營列表13 7.3車輛運營查詢16 7.4車輛事故列表18 7.5車輛違章列表22 7.6車輛維修列表26 7.7駕駛員獎罰30第八章 數(shù)據(jù)庫備份和恢復.33 8.1數(shù)據(jù)庫備份設計.33 8.2 數(shù)據(jù)庫恢復設計.34第九章 結束語.34參考文獻.36摘要：隨著計算機技術的迅速發(fā)展，計算機已經滲透到了各個應用領域。尤其是車輛的逐年增多和車輛的信息增加,車輛的管理不能夠由傳統(tǒng)的人工管理來進行管理,所以必須運用到計算機來進行管理。本車輛管理系統(tǒng)的完成就是基于VB應用程序和Access2000數(shù)據(jù)庫，能夠通過VB窗口對數(shù)據(jù)庫進行操作。系統(tǒng)采用服務器（Server）形式，既方便實現(xiàn)車輛信息的查詢，而且也大大提高了程序的可維護性和重復利用性。關鍵詞： VB程序設計,Access2000數(shù)據(jù)庫,車輛管理.第一章 概述隨著我國經濟的快速發(fā)展，人民生活水平的提高，以及人們的對物資的購買力提高，汽車已成為人們不可缺少的交通工具。特別是對于擁有大量車輛的機關企事業(yè)單位來說，車輛的管理已成為日常事務中的一項重要的工作，為了如何讓管理人員及時了解每一輛車的情況，提高車輛的使用效率，減少費用支出，成為各個單位需要解決的一個難題，為了規(guī)范企業(yè)內部的管理，提高企業(yè)管理質量，更好的服務于廣大的客戶的情況下，我們必須要開發(fā)一套專門用于車輛管理的系統(tǒng)，可以集中管理車輛的運營，維修，事故，違章等一系列的信息，使企業(yè)進入車輛管理信息化，科學化。同時也可以節(jié)省人力，物力，財力。第二章 系統(tǒng)分析 （1）系統(tǒng)目標 針對相關車輛管理的情況，車輛管理系統(tǒng)要達到的目標： *由人工管理過渡到機械自動化，系統(tǒng)化，規(guī)范化管理。 *違章車輛，事故車輛及車輛的維修費用一目了然。*及時掌握車輛的運營情況，提高車輛的利用效和經濟益。 （2）功能分析 系統(tǒng)功能分析是在系統(tǒng)開發(fā)總體任務的基礎下完成的。車輛管理系統(tǒng)功能主要包括：檔案管理，運營管理，車輛管理，駕駛員管理，系統(tǒng)維護等功能。 * 車輛檔案錄入，車輛檔案查詢，車輛異動，車輛異動查詢，車輛報廢，車輛報廢查詢。 * 車輛運營管理，車輛運營查詢，清空運營列表。 * 車輛維修管理，車輛維修查詢，添加零件，車輛違章管理，車輛違章查詢，車輛事故管理，車輛事故查詢。 * 駕駛員檔案，駕駛員檔案查詢，駕駛員獎罰。 * 系統(tǒng)初始化，管理員設置，數(shù)據(jù)備份，數(shù)據(jù)恢復。（3）系統(tǒng)流程 系統(tǒng)登陸管理員普通管理員系統(tǒng)初始化管理員設置清空運營表駕駛員檔案數(shù)據(jù)備份數(shù)據(jù)恢復車輛檔案車輛異動車輛運營車輛事故車輛違章車輛維修車輛報廢 系統(tǒng)流程圖第三章 系統(tǒng)設計 （1）系統(tǒng)功能結構設計 車 輛 管 理 系 統(tǒng) 檔案管理車輛檔案錄入車輛檔案查詢車輛異動列表車輛異動查詢車輛報廢車輛報廢查詢運營管理車輛運營列表車輛運營查詢清空運營列表車輛管理車輛維修列表車輛維修查詢添加零件車輛違章列表車輛違章查詢車輛事故列表車輛事故查詢駕駛員檔案查詢駕駛員檔案列表駕駛員獎罰系統(tǒng)初始化管理員設置數(shù)據(jù)恢復數(shù)據(jù)備份駕駛員管理系統(tǒng)維護 系統(tǒng)功能結構圖 （2）數(shù)據(jù)庫設計 數(shù)據(jù)庫的設計是根據(jù)用戶的需求和數(shù)據(jù)是流量的大小來設計,同時結合Access 2000數(shù)據(jù)庫操作方便,簡單易學,系統(tǒng)資源占有低,不用數(shù)據(jù)庫服務主持等優(yōu)點,本系統(tǒng)使用了Access 2000數(shù)據(jù)庫作為后臺數(shù)據(jù)庫. 車輛管理系統(tǒng)的數(shù)據(jù)表有以下表組成：用戶表，車輛檔案表，車輛報廢表，車輛類型表，車輛事故表，車輛違章表，車輛維修表，車輛異動表，車輛運營表，駕駛員檔案表，獎罰表，零件表。 1用戶表字段名稱數(shù)據(jù)類型字段大小必添字段允許空字符串用戶姓名文本20是否 密碼文本20否是用戶類型文本20是否 2車輛檔案表字段名稱數(shù)據(jù)類型字段大小必添字段允許空字符串車牌號碼文本10是否車輛類型文本10是否駕駛員編號文本10否是購置日期時間/日期是廠牌型號文本30否是使用人或單位文本30否是車輛所在單位文本30否是年檢審文本2否是保險否文本2否是異地否文本2否是報廢否文本2否是備注備注否是 3 .車輛報廢表字段名稱數(shù)據(jù)類型字段大小必添字段允許空字符串車牌號碼文本10是否報廢原因文本30否是報廢日期時間/日期是經手人文本8否是備注備注否是4. 車輛報廢表字段名稱數(shù)據(jù)類型字段大小必添字段允許空字符串 類型文本14否否5.車輛事故表字段名稱數(shù)據(jù)類型字段大小必添字段允許空字符串事故編號文本10是否車輛號碼文本10是否車輛類型事故文本14否是事故時間時間/日期是事故概要文本50是否事故確認者文本8是 否公司負擔金數(shù)字雙精度型否保險理賠金數(shù)字雙精度型否對方賠償金數(shù)字雙精度型是否對方姓名文本8是是對付住址文本30否是對方所在單位文本30否是對方損壞程度文本10否是和解內容備注否是6.車輛違章表字段名稱數(shù)據(jù)類型字段大小必添字段允許空字符串車牌號碼文本10是否原因文本10是否處罰文本30否是違章時間時間/日期是備注備注否是7.車輛維修表字段名稱數(shù)據(jù)類型字段大小必添字段允許空字符串車牌號碼文本10是否更換零件1文本20否是零件1數(shù)量數(shù)字整型否更換零件2文本20否是零件2數(shù)量數(shù)字整型否更換零件3文本20否是零件3數(shù)量數(shù)字整型否維修日期時間/日期是共計費用文本2否是備注備注否是8車輛異動表 字段名稱數(shù)據(jù)類型字段大小必添字段允許空字符串車牌號碼文本10是否異動時間時間/日期是異動地點文本30是否經手人文本8否是備注備注是是 9. 車輛運營表字段名稱數(shù)據(jù)類型字段大小必添字段允許空字符串車牌號碼文本10是否運營日期日期/時間是運營時間數(shù)字整型是否運營收入數(shù)字雙精度型是是備注數(shù)字否是 10. 駕駛員檔案表字段名稱數(shù)據(jù)類型字段大小必添字段允許空字符串駕駛員編號文本18是否姓名文本8是否性別文本2是否出生年月日期/時間是駕駛證號文本30是否領證明日期數(shù)字證件有效期文本15是否駕齡日期/時間雙精度型否準駕車型文本14否是何時參加工作日期/時間否聯(lián)系電話文本16否是年檢記錄文本20否是備注備注否是 11. 獎罰表字段名稱數(shù)據(jù)類型字段大小字段大小允許空字符串車牌號碼文本8是否姓名文本8是否運營收入數(shù)字雙精度型否運營次數(shù)數(shù)字整型否維修費用數(shù)字雙精度型否違章次數(shù)數(shù)字整型否事故次數(shù)數(shù)字整型否日期文本12是否每月得分數(shù)字雙精度型是每月獎金數(shù)字雙精度型否 12. 零件表字段名稱數(shù)據(jù)類型字段大小字段大小允許空字符串零件名文本30是否單價數(shù)字雙精度型否第四章 公用模塊設計 為了節(jié)省系統(tǒng)資源，必須要新建設一個模塊，該模塊用于連接各個模塊中的數(shù)據(jù)表，,從而不避免在程序中運用大量的ADO控件,給開發(fā)應用程序帶來諸多不便.該模塊中的程序代碼如下： Public adoCon As New ADODB.ConnectionPublic adors As New ADODB.RecordsetPublic Sub main() Set adoCon = New ADODB.Connection adoCon.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & clgl.mdb & ;Persist Security Info=False frmLogin.Show frmLogin.Text1.SetFocusEnd Sub第五章 系統(tǒng)登錄 系統(tǒng)登錄窗口是操作用戶進入系統(tǒng)的惟一入口，分為兩種權限：管理員權限和普通用戶權限.通過在”登錄”按鈕的Click事件下使用SQL語句判斷用戶名稱,密碼和用戶類型,進入系統(tǒng). 操作用戶的權限不同的功能模塊也不同,管理員可以維護整個系統(tǒng)和系統(tǒng)操縱身分,而普通用戶只能對系統(tǒng)各別功能進行操作.* 窗口界面設計 系統(tǒng)等錄窗口設計圖（1） 新建設又個窗口，設置該窗口的名稱為“ frrmlogin”,caption屬性為“系統(tǒng)登錄”，設置Borderstyle屬性為“1-fiexed single”, 在該窗口上依次添加控件。 （2） 在frrmlogin窗口上添加Label,ComboBox控件。 （3） 在窗口上添加Text控件。（4） 程序代碼是： Private Sub Command1_Click() If Text3.Text = Then MsgBox 您還沒有注冊系統(tǒng)用戶！, , 系統(tǒng)提示 MDIForm1.Show Unload Me Exit Sub End If Set adors = adoCon.Execute(select * from 用戶表 where 用戶姓名=ltrim( & Text1 & ) and 密碼=ltrim( & Text2 & ) and 用戶類型=ltrim( & Combo1.Text & ) If adors.EOF Then MsgBox 您輸入的信息有誤，請重新輸入！, , 系統(tǒng)提示 Text1 = Text2 = Text1.SetFocus i = i + 1 If i = 3 Then MsgBox 對不起，您已無權使用本系統(tǒng)！, , 系統(tǒng)提示 Unload Me End If Else Select Case adors!用戶類型 Case 管理員 Case 普通用戶 MDIForm1.mnuyydelete.Enabled = False MDIForm1.mnusyscsh.Enabled = False MDIForm1.mnuglyset.Enabled = False End Select MDIForm1.Show adors.Close Unload Me End IfEnd Sub Private Sub Command2_Click() Unload Me adoRs.CloseEnd Sub第六章 MDI主窗口設計 車輛管理系統(tǒng) 主窗口MID的設計采用了多文檔界面,即MDI技術.MDI窗口為程序提供了高效,多功能的良好平臺,它的應用很廣泛. MID主窗口主要是由車輛檔案管理，車輛運營管理，駕駛員管理，系統(tǒng)維護等幾個大模塊來組成的，也是退出系統(tǒng)的惟一出口。 MDI主窗口設計圖（1） 程序代碼設計*在主窗口菜單 “車輛運營管理”子菜單“清空運營表”的Click事件下添加如下代 碼 Private Sub mnuyydelete_Click() If MsgBox(真的要清空運營表嗎？, vbOKCancel, 系統(tǒng)提示) = vbOK Then adoCon.Execute (delete from 車輛運營表) Else Exit Sub End IfEnd Sub*在主窗口菜單“系統(tǒng)維護” 子菜單“系統(tǒng)初始化” 的Click事件下添加如下代碼： Private Sub mnusyscsh_Click() If MsgBox(執(zhí)行此命令會清空數(shù)據(jù)庫里所有記錄，確實要執(zhí)行嗎？, vbOKCancel, 系統(tǒng)提示) = vbOK Then adoCon.Execute (delete from 車輛檔案) adoCon.Execute (delete from 車輛報廢表) adoCon.Execute (delete from 車輛事故表) adoCon.Execute (delete from 車輛違章表) adoCon.Execute (delete from 車輛維修表) adoCon.Execute (delete from 車輛異動表) adoCon.Execute (delete from 車輛運營表) adoCon.Execute (delete from 駕駛員檔案) adoCon.Execute (delete from 零件表) adoCon.Execute (delete from 用戶表) adoCon.Execute (delete from 獎罰表) Else Exit Sub End IfEnd Sub*在 ToolBar控件的索引值調用子窗口，在ToolBar控件的ButtonClick事件下添加如下代碼：Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu) Select Case ButtonMenu.Index Case 1 Call mnucardacha_Click Case 2 Call mnujsycha_Click Case 3 Call mnucaryycha_Click Case 5 Call mnucarwxcha_Click Case 6 Call mnucarwzcha_Click Case 7 Call mnucarsgcha_Click End Select End Sub 第七章 主要功能模塊詳細設計（1）車輛檔案錄入 車輛檔案錄入操作窗口用于添加，修改，刪除車輛信息。車輛檔案的添加，修改，刪除可以通過ADO對象來實現(xiàn)，也可以通過ADO控件實現(xiàn)，要使用到AddNew,Updateh和 Delete方法。1 窗口界面設計 車輛檔案窗口設計圖2 程序代碼設計*設計一個Lockctl過程使控件不可用，該過程如下：Private Sub Lockctl() Text1.Enabled = False: Combo1.Enabled = False: Combo2.Enabled = False Text4.Enabled = False: Text5.Enabled = False: Text6.Enabled = False Text7.Enabled = False DTPicker1.Enabled = False cmnj.Enabled = False: cmbx.Enabled = False: cmyd.Enabled = False: cmbf.Enabled = FalseEnd SubPrivate Sub Unlockctl() Text1.Enabled = True: Combo1.Enabled = True: Combo2.Enabled = True Text4.Enabled = True: Text5.Enabled = True: Text6.Enabled = True Text7.Enabled = True DTPicker1.Enabled = True cmnj.Enabled = True: cmbx.Enabled = True: cmyd.Enabled = True: cmbf.Enabled = TrueEnd SubDim i As IntegerPrivate Sub Form_Load() frmcardalr.Height = 3075: frmcardalr.Width = 7410 Adodc1.RecordSource = select * from 車輛檔案 Adodc1.Refresh If Adodc1.Recordset.RecordCount 0 Then DTPicker1.Value = Adodc1.Recordset.Fields(購置日期) Adodc2.RecordSource = select * from 車輛類型表 Adodc2.Refresh If Adodc2.Recordset.RecordCount = 0 Then Exit Sub For i = 0 To Adodc2.Recordset.RecordCount - 1 Combo1.AddItem Adodc2.Recordset.Fields(0).Value Adodc2.Recordset.MoveNext Next Adodc3.RecordSource = select * from 駕駛員檔案 Adodc3.Refresh If Adodc3.Recordset.RecordCount = 0 Then Exit Sub For i = 0 To Adodc3.Recordset.RecordCount - 1 Combo2.AddItem Adodc3.Recordset.Fields(0).Value Adodc3.Recordset.MoveNext Next On Error Resume Next Combo1.Text = Adodc1.Recordset.Fields(1) Combo2.Text = Adodc1.Recordset.Fields(2)End Sub*在Text1控件的LostFocus事件下，用戶添加的“車牌號碼”是否與表中的數(shù)據(jù)重復，其代碼為：Private Sub Text1_LostFocus() Dim rs As New ADODB.Recordset Set rs = adoCon.Execute(select * from 車輛檔案 where 車牌號碼= & Text1.Text If rs.EOF = False Then MsgBox 此車牌號碼已經存在！, , 系統(tǒng)提示 Text1 = Text1.SetFocus End If rs.CloseEnd Sub*在“添加”按鈕的Click事件下添加代碼為：Private Sub cmdAdd_Click() Unlockctl DTPicker1.Value = Format(Now, yyyy-mm-dd) Text1 = : Text2 = : Combo2 = : Text4 = : Text5 = : Text6 = : Text7 = Combo1.Text = cmnj.Text = 是 cmbx.Text = 是 cmyd.Text = 是 cmbf.Text = 是 Text1.SetFocus cmdOk.Enabled = True: cmdCancel.Enabled = True cmdDelete.Enabled = False: Combo1.Visible = True Adodc1.Enabled = False: cmdUpdate.Enabled = False i = 1 End Sub*在“修改” 按鈕的Click事件下添加代碼為：Private Sub cmdUpdate_Click() Unlockctl i = 2 cmdOk.Enabled = True: cmdCancel.Enabled = True cmdAdd.Enabled = False: cmdDelete.Enabled = False Adodc1.Enabled = False: Text1.Enabled = False End Sub* 在“刪除”的按鈕的Click事件下添加代碼為：Private Sub cmdDelete_Click() If MsgBox(您確實要刪除記錄嗎？, vbOKCancel, 系統(tǒng)提示) = vbOK Then adoCon.Execute (delete from 車輛檔案 where 車牌號碼= & Text1 & ) MsgBox 記錄已刪除！, , 系統(tǒng)提示 Adodc1.Refresh End IfEnd Sub* 在“確定” 的按鈕的Click事件下添加代碼為：Private Sub cmdOk_Click() Select Case i Case 1 If Text1 = Then MsgBox 車牌號碼不能為空, , 系統(tǒng)提示 Text1.SetFocus Exit Sub End If If Combo1.Text = Then MsgBox 車輛類型不能為空, , 系統(tǒng)提示 Combo1.SetFocus Exit Sub End If If DTPicker1.Value = Then MsgBox 購置日期不能為空, , 系統(tǒng)提示 DTPicker1.SetFocus Exit Sub End If adoCon.Execute (insert into 車輛檔案 values ( & Text1 & , & Combo1 & , & Combo2 & , & DTPicker1.Value & , & Text7 & , & Text4 & , & Text5 & , & cmnj & , & cmbx & , & cmyd & , & cmbf & , & Text6 & ) MsgBox 記錄添加成功！, , 系統(tǒng)提示 Adodc1.Refresh Case 2 adoCon.Execute (update 車輛檔案 set 車輛類型= & Combo1 & ,駕駛員編號= & Combo2 & ,使用人或單位= & Text4 & ,車輛所在單位= & Text5 & ,備注= & Text6 & , 廠牌型號= & Text7 & ,購置日期= & DTPicker1.Value & ,年檢審= & cmnj.Text & ,保險否= & cmbx.Text & ,異動否= & cmyd.Text & ,報廢否= & cmbf.Text & where 車牌號碼= & Text1 & ) MsgBox 記錄修改成功！, , 系統(tǒng)提示 Adodc1.Refresh End Select Lockctl cmdOk.Enabled = False: cmdCancel.Enabled = False cmdAdd.Enabled = True: cmdUpdate.Enabled = True cmdDelete.Enabled = True: Adodc1.Enabled = TrueEnd Sub* 在“取消” 的按鈕的Click事件下添加代碼為：Private Sub cmdCancel_Click() On Error Resume Next 當沒有添加數(shù)據(jù)的時候 處理異常 Adodc1.Recordset.CancelUpdate Adodc1.Refresh Lockctl cmdOk.Enabled = False: cmdCancel.Enabled = False cmdAdd.Enabled = True: cmdUpdate.Enabled = True cmdDelete.Enabled = True: Adodc1.Enabled = TrueEnd Sub（2）車輛運營列表 車輛運營列表窗口用于添加，修改，刪除車輛運營信息，通過Adodc控件實現(xiàn)車輛檔案信息的添加，修改，刪除的過程。1 窗口界面設計 車輛運營列表窗口設計圖2 程序代碼設計l 設計一個Lockctl過程使控件不可用，該過程為：Private Sub Lockctl() Text1.Enabled = False: Text2.Enabled = False Text3.Enabled = False: Text4.Enabled = False DTPicker1.Enabled = FalseEnd Sub* 設計一個Lockctl過程使控件可用，該過程為：Private Sub Unlockctl() Text1.Enabled = True: Text2.Enabled = True Text3.Enabled = True: Text4.Enabled = True DTPicker1.Enabled = TrueEnd Sub* 在代碼窗口中定義數(shù)值型變量，作為保存或修改操作的開關變量Dim i As Integerl 在窗口Load事件下添加代碼：Private Sub Form_Load() frmcarYYlr.Height = 2070: frmcarYYlr.Width = 7755 Adodc1.RecordSource = select * from 車輛運營表 Adodc1.Refresh If Adodc1.Recordset.RecordCount 0 Then DTPicker1.Value = Adodc1.Recordset.Fields(運營日期).ValueEnd SubPrivate Sub Text1_LostFocus() If Text1.Text = Then Exit Sub Dim rss As New ADODB.Recordset Dim rss1 As New ADODB.Recordset Dim rss2 As New ADODB.Recordset 此車是否是本公司的 Set rss = adoCon.Execute(select * from 車輛檔案 where 車牌號碼= & Text1.Text & ) If rss.EOF Then MsgBox 這輛車不屬于本公司的！, , 系統(tǒng)提示 Text1.Text = Text1.SetFocus Exit Sub End If rss.Close 此車是否報廢了 Set rss1 = adoCon.Execute(select * from 車輛報廢表 where 車牌號碼= & Text1.Text & ) If rss1.EOF Then Else MsgBox 此車已經報廢，不能參加運營！, , 系統(tǒng)提示 Text1.Text = Text1.SetFocus Exit Sub End If rss1.Close 此車是否異動了 Set rss2 = adoCon.Execute(select * from 車輛異動表 where 車牌號碼= & Text1.Text & ) If rss2.EOF Then Else MsgBox 此車為“異動車輛”不能參加運營！, , 系統(tǒng)提示 Text1.Text = Text1.SetFocus Exit Sub End If rss2.CloseEnd Sub* 在“添加”按鈕的Click事件下，通過ADO控件的NDDNEW方法開辟存儲數(shù)據(jù)的空間，其代碼為：Private Sub cmdAdd_Click() Unlockctl Adodc1.Recordset.AddNew Text1 = : Text2 = Text3 = : Text4 = Text1.SetFocus cmdok.Enabled = True: cmdCancel.Enabled = True cmdUpdate.Enabled = False: cmdDelete.Enabled = False Adodc1.Enabled = False i = 1End Subl 在“修改” 按鈕的Click事件下，添加代碼為：Private Sub cmdUpdate_Click() Unlockctl Text1.Enabled = False i = 2 cmdok.Enabled = True: cmdCancel.Enabled = True cmdAdd.Enabled = False: cmdDelete.Enabled = False Adodc1.Enabled = FalseEnd Subl 在“刪除” 按鈕的Click事件下，通過ADO控件的NDDNEW方法刪除數(shù)據(jù)，其代碼為：Private Sub cmdDelete_Click() If MsgBox(您確實要刪除記錄嗎？, vbOKCancel, 系統(tǒng)提示) = vbOK Then Adodc1.Recordset.Delete MsgBox 記錄已刪除！, , 系統(tǒng)提示 Adodc1.Refresh End IfEnd Subl 在“確定” 按鈕的Click事件下，添加代碼為：Private Sub cmdOk_Click() Select Case i Case 1 If Text1.Text = Then MsgBox 車牌號碼不能為空！, , 系統(tǒng)提示 Text1.SetFocus Exit Sub End If If Text2.Text = Then MsgBox 運營時間不能為空！, , 系統(tǒng)提示 Text2.SetFocus Exit Sub Text3.SetFocus End If If Text3.Text = Then MsgBox 運營收入不能為空！, , 系統(tǒng)提示 Text3.SetFocus Exit Sub End If Adodc1.Recordset.Fields(1) = DTPicker1.Value Adodc1.Recordset.Update MsgBox 記錄添加成功！, , 系統(tǒng)提示 Case 2 Adodc1.Recordset.Update MsgBox 記錄修改成功！, , 系統(tǒng)提示 End Select Lockctl cmdok.Enabled = False: cmdCancel.Enabled = False cmdAdd.Enabled = True: cmdUpdate.Enabled = True cmdDelete.Enabled = True: Adodc1.Enabled = TrueEnd Subl 在“取消” 按鈕的Click事件下，通過ADO控件CancelUpdate方法撤消對當前記錄所作的任何更改或放棄新添加的記錄，其代碼為：Private Sub cmdCancel_Click() On Error Resume Next 當沒有添加數(shù)據(jù)的時候 處理異常 Adodc1.Recordset.CancelUpdate Adodc1.Refresh Lockctl cmdok.Enabled = False: cmdCancel.Enabled = False cmdAdd.Enabled = True: cmdUpdate.Enabled = True cmdDelete.Enabled = True: Adodc1.Enabled = TrueEnd Sub（3）車輛運營查詢車輛運營查詢窗口主要完成按長牌號碼，運營日期和運營時間來查詢車輛運營情況。運營日期段和運營時間段查詢功能的實現(xiàn)主要使用了SQL中的Between.And語句.1 窗口界面設計 車輛運營查詢窗口設計圖2 程序代碼設計l 設計一個Rebind過程，用于顯示表中所以數(shù)據(jù)：Private Sub Rebind() Frame2.Caption = 車輛運營列表 Adodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & clgl.mdb & ;Persist Security Info=False Adodc1.RecordSource = select * from 車輛運營表 Adodc1.RefreshEnd Subl 設計一個QingKong過程。用于顯示查詢結果數(shù)據(jù)：Private Sub QingKong() Frame2.Captio