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

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