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

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