計(jì)算機(jī)車輛管理系統(tǒng)

1、 PAGE III上海交通大學(xué)MBA學(xué)位論文 新經(jīng)濟(jì)時(shí)代的企業(yè)績效評價(jià)與報(bào)告 PAGE 1計(jì)算機(jī)車輛管理系統(tǒng)摘 要本課題針對當(dāng)前我國車輛管理多數(shù)采用人工管理的現(xiàn)狀以及即使采用了計(jì)算機(jī)車輛管理系統(tǒng)卻不能完全滿足車輛管理的實(shí)際發(fā)展需要,對車輛管理業(yè)務(wù)經(jīng)過詳細(xì)的系統(tǒng)調(diào)查，開發(fā)出的操作簡單而且方便實(shí)用的一個(gè)車輛管理系統(tǒng)。本系統(tǒng)使用Visual Basic6.0開發(fā)工具，結(jié)合Access數(shù)據(jù)庫、通過MIS控件來實(shí)現(xiàn)數(shù)據(jù)庫的操作。車輛管理系統(tǒng)主要對車輛管理日常工作中遇到的實(shí)際問題，例如檔案管理、運(yùn)營管理、車輛管理、駕駛員管理、系統(tǒng)維護(hù)等.本系統(tǒng)經(jīng)過測試，運(yùn)行穩(wěn)定，可投入使用。關(guān)鍵詞：車輛管理，Visual

2、 Basic，AccessAbstractThis topic aims at a current our country the vehicle management most an adoption artificial a management of present condition and even adopted the calculator vehicle a management system but cant satisfy the actual development demand of with the vehicle management completely， man

3、age detailed system of the business process inquisition to the vehicle， develop the operation of in brief and the convenience is practical of a vehicle management system. This system usage Visual Basic6。0 development tools, combine an Access database and control a piece through an MIS to carry out t

4、he operation of the database. The vehicle management system mainly manages to the vehicle to meet in the daily pursuit of actual problem, for example the file management， the luck camp management， vehicle management， pilot management， system maintenance etc. This system circulates a stability throug

5、h test, can throw in an usage.Keywords: The vehicle management， the Visual Basic, Access目 錄 引 言如今的社會，時(shí)間就是金錢。以車代步便成了我們節(jié)省時(shí)間的必須，而我們的現(xiàn)狀是不可能每人都擁有私家車來滿足這個(gè)社會。所以，公交車便成了最好的折衷的辦法。面對海量的車客和交錯(cuò)繁雜的交通線路。公交調(diào)度問題是當(dāng)前我國許多大城市交通發(fā)展過程中的共同難題，公交車擁擠、運(yùn)行緩慢已經(jīng)帶來了巨大的社會經(jīng)濟(jì)、福利損失，因此做好公交車的調(diào)度具有重要意義。車輛管理是對車輛及駕駛員的技術(shù)監(jiān)督和安全管理.管理范圍包括：登記檢驗(yàn)車輛，考核

6、審驗(yàn)駕駛員，核發(fā)車輛號牌、行車證和駕駛證，監(jiān)督車輛的制造、保養(yǎng)、維修和駕駛員的培訓(xùn)工作，管理非機(jī)動車.目的在于提高運(yùn)輸效率,保證交通安全，在預(yù)防犯罪分子用車輛進(jìn)行犯罪活動,維護(hù)社會治安秩序。隨著信息時(shí)代的來臨，電腦的日益普及,車輛調(diào)度慢慢朝向由計(jì)算機(jī)來控制的趨勢發(fā)展。以前全用人力來調(diào)度的歷史將被取代。車輛管理系統(tǒng)主要是為單位管理本單位的車輛二開發(fā)的系統(tǒng)，它主要包括車輛管理子模塊、駕駛員管理子模塊、事故管理子模塊、查詢統(tǒng)計(jì)子模塊以及系統(tǒng)維護(hù)子模塊，其中以車輛管理子模塊為主要模塊。在車輛管理子模塊中包括車輛登記、購車信息錄入、車輛外修記錄、車輛保險(xiǎn)等功能模塊；在查詢統(tǒng)計(jì)子模塊總，根據(jù)車輛信息可以查

7、詢到購車信息、車輛外修記錄、車輛保險(xiǎn)記錄,還可以查詢到車輛事故信息，也可根據(jù)駕駛員信息查詢到駕駛員事故信息。本小組基本上完成以上各個(gè)模塊的構(gòu)造.當(dāng)然。還有一些地方?jīng)]做好甚至沒做到。當(dāng)代社會是信息時(shí)代，幾乎一切的工作生活都離不開信息，車輛管理調(diào)度系統(tǒng)就是其中的一個(gè)典型的例子.車輛管理調(diào)度系統(tǒng)如下主要的功能:1.車輛檔案管理2.車輛運(yùn)營管理3.車輛管理4.駕駛員管理和系統(tǒng)維護(hù).有了計(jì)算機(jī)，車輛管理系統(tǒng)變得統(tǒng)一化、規(guī)范化、系統(tǒng)化。從而提高了系統(tǒng)的安全性和可操作性。給使用者也提供了方便，降低了信息的丟失性，提高了安全性.用了計(jì)算機(jī)管理的車輛調(diào)度系統(tǒng)，不但沒有了手抄的麻煩,而且使整個(gè)工作更明了化,清晰化

8、，規(guī)范化和系統(tǒng)化。第1章 課題簡介1。1 系統(tǒng)背景車輛管理系統(tǒng)用計(jì)算機(jī)管理機(jī)動車輛的檔案,運(yùn)營管理以及駕駛員信息的一種計(jì)算機(jī)應(yīng)用技術(shù)的創(chuàng)新，在計(jì)算機(jī)還未普及之前車輛管理都是由工作人員手工抄寫的方式來操作的?，F(xiàn)在一般的車輛管理都是采用計(jì)算機(jī)作為工具的實(shí)用的計(jì)算機(jī)智能化車輛管理程序來幫助工作人員進(jìn)行更有效的機(jī)動車輛管理。車輛管理系統(tǒng)是典型的信息管理系統(tǒng)（MIS），其開發(fā)主要包括后臺數(shù)據(jù)庫的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個(gè)方面.對于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫。而對于后者則要求應(yīng)用程序功能完備，易使用等特點(diǎn)。VISUAL BASIC開發(fā)工具,利用其提供的各種面向?qū)ο蟮拈_發(fā)

9、工具，尤其是數(shù)據(jù)窗口這一能方便而簡潔操縱數(shù)據(jù)庫的智能化對象，首先在短時(shí)間內(nèi)建立系統(tǒng)應(yīng)用原型,然后,對初始原型系統(tǒng)進(jìn)行需求迭代,不斷修正和改進(jìn)，直到形成用戶滿意的可行系統(tǒng)。隨著計(jì)算機(jī)技術(shù)的不斷發(fā)展，計(jì)算機(jī)應(yīng)用于各大領(lǐng)域,并給人們的生活帶來了極大的便利,在固定管理系統(tǒng)亦是如此.以往固定資產(chǎn)員由于缺乏適當(dāng)?shù)能浖o其工作帶來了很多不便。本論文所介紹的便是一個(gè)固定資產(chǎn)管理系統(tǒng)，以方便在固定資產(chǎn)安排和固定資產(chǎn)管理上的工作任務(wù)。此系統(tǒng)是運(yùn)用VB和ACCESS兩個(gè)工具來開發(fā)完成的。1.2 VB優(yōu)缺點(diǎn)及屬性1。2.1 VB的優(yōu)點(diǎn) VB的優(yōu)點(diǎn)有：具有面向?qū)ο蟮目梢暬O(shè)計(jì)工具；事件驅(qū)動的編制機(jī)制;提供了易學(xué)易用的

10、應(yīng)用程序集成開發(fā)環(huán)境;結(jié)構(gòu)化的程序設(shè)計(jì)語言；強(qiáng)大的數(shù)據(jù)庫操縱功能；Active技術(shù)；網(wǎng)絡(luò)功能;多個(gè)應(yīng)用程序向?qū)Ш屯陚涞腍elp聯(lián)機(jī)幫助功能。1。2.2 VB的缺點(diǎn)VB的缺點(diǎn)有:不支持類；（類是現(xiàn)在軟件開放在軟件架構(gòu)上的通用解決方案)；間接讀內(nèi)存;不支持多線程；對低存支持不夠,不過可以通過內(nèi)嵌匯編和其他預(yù)言來實(shí)現(xiàn)。1。2.3 主要的控件及其屬性簡介1.命令按鈕類的控件:Caption屬性：用來顯示在控件上的標(biāo)題。Enable屬性：控制控件的激活狀態(tài)灰色或可用。Appearance屬性：值為1時(shí)，則以3D效果顯示該控件，0則不然.Backcolor 屬性:用來改變在按鈕上顯示圖像的背景色。Canc

11、el屬性：該屬性決定按鈕是否為一個(gè)“取消”按鈕.Default屬性：決定哪一個(gè)命令按鈕控件是窗體的缺省命令按鈕。Font屬性:控制各種文字字體類型。Left,top，height,width屬性：設(shè)定控件的位置與大小。Style,picture屬性：決定按鈕的現(xiàn)實(shí)方式是否為圖像形式出現(xiàn)。Visible屬性：確定控件運(yùn)行時(shí)是否可見。Index屬性：當(dāng)控件為一控件數(shù)組時(shí)，此屬性值為該控件在數(shù)組的下標(biāo)值。2.標(biāo)簽框類的控件：Caption屬性：在應(yīng)用程序界面上加入說明。Autosize屬性：決定控件是否自動改變大小以小時(shí)其全部內(nèi)容。Backstyle屬性：用以指示標(biāo)簽是否透明。Bordstyle屬性

12、:用以設(shè)定控件是否有邊框。3。文本框類的控件:Text屬性：通過向text屬性賦值的方法來改變該屬性的值。Maxlength屬性：該屬性設(shè)定在文本框中能夠輸入的最大字符數(shù)。Multline屬性：該屬性設(shè)定text字符串中是否接受換行符。Scrollbars屬性:該屬性決定是否為文本框加滾動條。Passwordchar屬性：該屬性設(shè)定輸入文本的特殊顯示字符，在設(shè)計(jì)密碼程序時(shí)候非常有用。Change時(shí)間樹形：文本框的內(nèi)容發(fā)生改變時(shí)，相應(yīng)的控件之間發(fā)生相應(yīng)地改變，具有即時(shí)性。Keypress:時(shí)間由用戶在文本框控件中按任意鍵觸發(fā)。4.單選按鈕類的控件:Caption屬性：顯示在控件上的文本，是單選按

13、鈕的標(biāo)題.Alignment屬性:決定單選按鈕的標(biāo)題在控件的位置。Enable屬性：該控件為灰色是為false,表示運(yùn)行時(shí)不可用.Index屬性:屬性值表示為單選按鈕組成的控件中某個(gè)按鈕的索引值。Tabindex屬性:建立控件時(shí)，vb自動為其分配已個(gè)tabindex值，利用tab鍵可以在控件之間切換焦點(diǎn)。Value屬性：反映控件狀態(tài)的屬性,返回true表示已選擇了該按鈕。5.復(fù)選按鈕類的控件：Caption屬性:缺省為check1。Index屬性：該屬性值為復(fù)選框控件數(shù)組的下標(biāo)。Value屬性:value為0表空白，為1表勾號，為2表示灰色勾號。6?？蚣茴惖目丶?Frame屬性：作為其他控件的

14、容器。7。列表框架和組合類的控件：List屬性:列表框控件的表項(xiàng)是使用數(shù)組的方式保存，數(shù)組的每一個(gè)元素存儲列表控件的一個(gè)表項(xiàng)。Listcount屬性：控件列表部分項(xiàng)目的個(gè)數(shù)。Mutselect屬性：可以設(shè)置列表框?yàn)閱芜x或允許多選屬性。Selectd屬性：表示已個(gè)數(shù)組，數(shù)組各元素為:Selected(0)，selecrted（1）8。滾動條類的控件:Value屬性:滾動條上滑塊所在位置由value值所決定。Max和Min屬性：對value值的最大、最小進(jìn)行限制.Largechange屬性:用戶點(diǎn)擊滾動條于箭頭之間的區(qū)域時(shí)，value的改變量。9。定時(shí)器類類的控件：Interval屬性：表示定時(shí)的

15、時(shí)間間隔,以毫秒為單位.Enable屬性:為true時(shí)（缺省值），激活定時(shí)器開始計(jì)時(shí)；為false時(shí)處于休眠狀態(tài)。1。3 數(shù)據(jù)庫介紹1.3。1 ACCESS的優(yōu)點(diǎn)ACCESS的優(yōu)點(diǎn)有：數(shù)據(jù)的結(jié)構(gòu)化；數(shù)據(jù)的共享性；數(shù)據(jù)的獨(dú)立性；數(shù)據(jù)的完整性;數(shù)據(jù)的靈活性和數(shù)據(jù)的安全性。1.3.2 數(shù)據(jù)庫連接方式選擇Visual basic6.0連接數(shù)據(jù)庫的主要方式為以下幾種方式:1。用data控件進(jìn)行數(shù)據(jù)庫鏈接。2.利用adodc(ADO Data Control)進(jìn)行數(shù)據(jù)庫鏈接。3.利用DataEnvironment進(jìn)行數(shù)據(jù)庫鏈接4。是利用ADO（ActiveX Data Objects）進(jìn)行編程現(xiàn)在我們來大

16、致對這幾種技術(shù)應(yīng)用介紹：1.用data控件進(jìn)行數(shù)據(jù)庫鏈接。第一步：給窗體添加一個(gè)Data控件。第二步:用Access建立一個(gè)名為Pad的數(shù)據(jù)庫,在庫中建立以個(gè)表Myset,給表添加四個(gè)字段：backcolor（數(shù)據(jù))，forecolor(文本），fontname（文本)，fontsize(文本).注意：請將庫文件存入程序所在目錄.如果機(jī)器沒安裝Access，可通過VB建庫。2.利用adodc(ADO Data Control)進(jìn)行數(shù)據(jù)庫鏈接：使用adodata控件訪問數(shù)據(jù)庫可以完全不用編寫代碼，只需要通過簡單的設(shè)置和操作其屬性就可以實(shí)現(xiàn)與數(shù)據(jù)庫的連接，通過綁定數(shù)據(jù)感知控件，就能提供一個(gè)訪問數(shù)據(jù)

17、庫的界面,用來實(shí)現(xiàn)對數(shù)據(jù)庫的瀏覽、添加、刪除、修改等操作。3.利用DAO對數(shù)據(jù)庫進(jìn)行操縱:在Visual basic中提供了兩種于jet數(shù)據(jù)引擎接口的方法：data控件與數(shù)據(jù)訪問對象（DAO）DAO是database object的英文簡寫，要訪問數(shù)據(jù)庫一方面數(shù)據(jù)庫要提供訪問接口,另一方面要在編程環(huán)境中有對數(shù)據(jù)庫的支持。DAO模型時(shí)設(shè)計(jì)關(guān)系數(shù)據(jù)庫系統(tǒng)結(jié)構(gòu)的對象類的稽核。他們提供了管理關(guān)系型數(shù)據(jù)庫系統(tǒng)所需要的全部操作屬性和方法，這其中包括建立數(shù)據(jù)庫，定義表,字段和建立表間關(guān)系,定位和查詢數(shù)據(jù)庫等。1。3.3 關(guān)系數(shù)據(jù)庫關(guān)系數(shù)據(jù)庫介紹：關(guān)系數(shù)據(jù)庫是目前各類數(shù)據(jù)庫中最重要、最流行的數(shù)據(jù)庫，他應(yīng)用數(shù)學(xué)

18、方法來處理數(shù)據(jù)庫數(shù)據(jù)，使目前使用最廣泛的數(shù)據(jù)庫系統(tǒng)。20世紀(jì)7年代以后開發(fā)的數(shù)據(jù)庫管理系統(tǒng)產(chǎn)品幾乎都是基于關(guān)系的。在數(shù)據(jù)庫發(fā)展歷史上,最重要的成就就是關(guān)系模型。關(guān)系數(shù)據(jù)庫系統(tǒng)于非關(guān)系數(shù)據(jù)庫系統(tǒng)的區(qū)別是：關(guān)系系統(tǒng)治有“表”這一種數(shù)據(jù)結(jié)構(gòu)；而非關(guān)系數(shù)據(jù)庫系統(tǒng)還有其他數(shù)據(jù)結(jié)構(gòu),對這些數(shù)據(jù)結(jié)構(gòu)有其他的操作。1.3.4 Microsoft Access Microsoft Access介紹: 使用Microsoft Access，可以在單一的數(shù)據(jù)庫文件中管理所有的信息。在這個(gè)文件中,用戶可以將自己的數(shù)據(jù)分別保存在各自獨(dú)立的存儲空間中，這些空間稱作表；可以使用聯(lián)機(jī)窗口來查看、添加及更新表中的數(shù)據(jù)；使用查詢

19、來查找并檢索所要的數(shù)據(jù)；可可以使用報(bào)表以特定的版面布置來分析及打印數(shù)據(jù)。如果要保存數(shù)據(jù)，請為每一種類型的信息創(chuàng)建一個(gè)表。如果要從查詢、窗體或報(bào)表中的多個(gè)表中將數(shù)據(jù)合并在一起，就要定義各個(gè)表之間的關(guān)系。如果要簡單地直接在某個(gè)表中查看、輸入及更改數(shù)據(jù)，請創(chuàng)建一個(gè)窗體。在打開一個(gè)窗體時(shí)，Microsoft Access將從一個(gè)或多個(gè)表中檢索數(shù)據(jù)，并使用用戶在“窗體向?qū)А边x擇的版面布局或所創(chuàng)建的版面布局，將窗體顯示在屏幕上.如果要分析數(shù)據(jù)或?qū)?shù)據(jù)以特定的方式打印出來,請創(chuàng)建一個(gè)報(bào)表。例如,可以打印一份將數(shù)據(jù)分組并計(jì)算數(shù)據(jù)總合的報(bào)表,也可以打印另一份帶有各種數(shù)據(jù)格式的打印有件標(biāo)簽的報(bào)表。1.4 系統(tǒng)組成

20、及基本功能本系統(tǒng)主要有六個(gè)部分組成：用戶登陸和注冊 ；車輛檔案管理 ；車輛運(yùn)營管理 ；車輛管理 ；駕駛員管理;系統(tǒng)維護(hù).1用戶登陸和注冊：通過用戶名和密碼進(jìn)入系統(tǒng)。2車輛檔案管理：車輛檔案錄入；車輛檔案查詢;車輛異動列表;車輛異動查詢；車輛報(bào)廢；車輛報(bào)廢查詢。3車輛運(yùn)營管理：車輛運(yùn)營列表;車輛運(yùn)營查詢；清空運(yùn)營表。4車輛管理：維修管理（車輛維修列表;車輛維修查詢；添加零件) 違章管理（車輛違章列表；車輛違章查詢) 事故管理(車輛事故列表；車輛事故查詢）。5駕駛員管理：駕駛員檔案管理；駕駛員檔案查詢;駕駛員獎罰。6系統(tǒng)維護(hù)：系統(tǒng)初始化；管理員設(shè)置；數(shù)據(jù)備份；數(shù)據(jù)恢復(fù)；退出。第2章 系統(tǒng)設(shè)計(jì)2.1

21、 系統(tǒng)的功能結(jié)構(gòu)設(shè)計(jì)登陸系統(tǒng)系統(tǒng)主界面車輛管理系統(tǒng)維護(hù)駕駛員管理車輛運(yùn)營管理車輛檔案管理圖2.1系統(tǒng)功能結(jié)構(gòu)圖2。2 系統(tǒng)的數(shù)據(jù)庫設(shè)計(jì)表2。1 車輛檔案表此表所體現(xiàn)的是添加車輛的檔案，一旦有新車入庫就及時(shí)登記進(jìn)去以便以后排車使用。他的主鍵是車牌號碼，因?yàn)檐嚺铺柎a是唯一的.表2。2 車輛變更表此表所體現(xiàn)的是車輛的異動情況，一旦有變更的話就做及時(shí)修改以便以后查詢.表2。3車輛運(yùn)營表此表所體現(xiàn)的是車輛的運(yùn)營狀況,若想查詢目前車輛的運(yùn)營情況在此表中可以一目了然。表2。4 駕駛員檔案此表所體現(xiàn)的是駕駛員的檔案，表中記載了每個(gè)駕駛員的具體情況，同樣“駕駛員編號”是該表的主鍵。表2.5 車輛事故表此表所體現(xiàn)

22、的是車輛事故情況，每當(dāng)有事故發(fā)生以及該事故的詳細(xì)情況和其他事項(xiàng),諸如保險(xiǎn)理賠金等都有詳細(xì)記錄在內(nèi)。該表的主鍵是“事故編號”。表2。6車輛違章表此表所體現(xiàn)的是車輛違章情況，記載了違章車輛的詳細(xì)情況，諸如原因，處罰等.表2.7 車輛維修表此表所體現(xiàn)的是車輛維修狀況，記載了維修車輛的詳細(xì)情況,諸如更換的零件，數(shù)目和維修時(shí)間等。表2.8 零件表此表所體現(xiàn)的是零件的名字和單價(jià)。表2。9獎懲表此表所體現(xiàn)的是駕駛員的獎懲情況。詳細(xì)列出了每位駕駛員的收入和支出（因違章等原因)情況.表2.10 用戶表此表所體現(xiàn)的是用戶的情況，包括用戶姓名,密碼和用戶類型（管理員和普通用戶）。第3章 系統(tǒng)主要功能設(shè)計(jì)和實(shí)現(xiàn)3.1

23、 登陸界面設(shè)計(jì)和實(shí)現(xiàn)圖3.1 系統(tǒng)登陸界面登陸界面設(shè)計(jì)代碼：Private Sub Combo1_KeyPress（KeyAscii As Integer） If KeyAscii = 13 Then Command1。SetFocus End IfEnd Sub/這段程序的作用是當(dāng)按下回車時(shí)候，焦點(diǎn)指向command1,也就是按下command1按鈕，就是登陸.Private Sub Command1_Click(） Set adors = adoCon.Execute(”select * from 用戶表 where 用戶姓名=ltrim( Text1 & ) and 密碼=ltrim(

24、Text2 ) and 用戶類型=ltrim(” Combo1。Text )）/這個(gè)語句是指在輸入用戶名和密碼之后連接數(shù)據(jù)庫,查找相對應(yīng)的用戶名和密碼和用戶類型。 If adors。EOF Then MsgBox 您輸入的信息有誤，請重新輸入!， ， 系統(tǒng)提示/ Text1 = Text2 = ”/如果用戶名和密碼之類的出錯(cuò),跳出個(gè)信息框,內(nèi)容是“您輸入的信息有誤，請重新輸入”并清空2個(gè)輸入框。 Text1.SetFocus i = i + 1 If i = 3 Then MsgBox 對不起，您已無權(quán)使用本系統(tǒng)!”， ， ”系統(tǒng)提示 Unload Me/連續(xù)3次出錯(cuò)之后，系統(tǒng)跳出信息框，內(nèi)容

25、是：“對不起，您已無權(quán)使用本系統(tǒng)！”然后自動關(guān)閉跳出. End If Else Select Case adors!用戶類型 Case 管理員 Case ”普通用戶” MDIForm1.mnuyydelete.Enabled = False MDIForm1。mnusyscsh.Enabled = False MDIForm1。mnuglyset.Enabled = False End Select/登陸成功后區(qū)分管理員和普通用戶,普通用戶的上述3個(gè)功能是被禁用的。 MDIForm1.Show/顯示form1內(nèi)容 adors。Close Unload Me End IfEnd SubPriva

26、te Sub Command2_Click（) Unload Me adoRs.CloseEnd Sub/點(diǎn)退出按鈕，退出登錄界面Private Sub Form_Load（) Combo1。ListIndex = 0End Sub/ 設(shè)置當(dāng)前選中項(xiàng)為第一項(xiàng)Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text2.SetFocus End IfEnd SubPrivate Sub Text2_KeyPress（KeyAscii As Integer) If KeyAscii = 13 Then Com

27、bo1.SetFocus End IfEnd Sub/光標(biāo)在用戶名上的時(shí)候按下回車，光標(biāo)就跳到密碼輸入欄上，再按下回車跳轉(zhuǎn)到用戶類型上面。3。2 登陸系統(tǒng)主界面設(shè)計(jì)和實(shí)現(xiàn)圖3.2 系統(tǒng)主界面主界面設(shè)計(jì)代碼如下:Private Sub mnuaddlj_Click（） frmLJ.Show StatusBar1.Panels(1）。Text = 零件添加窗體”End Sub/顯示frmLJ這個(gè)FORM，狀態(tài)欄的第一個(gè)框里的字顯示零件添加窗體”Private Sub mnubf_Click() frmDataCopy.Show StatusBar1.Panels（1）.Text = ”數(shù)據(jù)備份窗體

28、End Sub/顯示frmDataCopy這個(gè)FORM,狀態(tài)欄的第一個(gè)框里的字顯示”數(shù)據(jù)備份窗體”Private Sub mnucarbf_Click（） frmcarBFlr.Show StatusBar1.Panels(1）.Text = 車輛報(bào)廢錄入窗體End Sub/顯示frmcarBFlr這個(gè)FORM，狀態(tài)欄的第一個(gè)框里的字顯示車輛報(bào)廢錄入窗體Private Sub mnucarbfcha_Click() frmcarBFcha。Show StatusBar1.Panels（1)。Text = 車輛報(bào)廢查詢窗體End Sub/顯示frmcarBFcha這個(gè)FORM，狀態(tài)欄的第一個(gè)框里

29、的字顯示車輛報(bào)廢查詢窗體”Private Sub mnucardaadd_Click（） frmcardalr。Show StatusBar1。Panels(1）。Text = 車輛檔案錄入窗體End Sub/顯示frmcardalr這個(gè)FORM，狀態(tài)欄的第一個(gè)框里的字顯示車輛檔案錄入窗體”Private Sub mnucardacha_Click（) frmcardacha。Show StatusBar1。Panels（1).Text = ”車輛檔案查詢窗體End Sub/顯示frmcardacha這個(gè)FORM,狀態(tài)欄的第一個(gè)框里的字顯示車輛檔案查詢窗體Private Sub mnucars

30、gcha_Click() frmcarSGcha。Show StatusBar1。Panels(1)。Text = 車輛事故查詢窗體End Sub/顯示frmcarSGcha這個(gè)FORM，狀態(tài)欄的第一個(gè)框里的字顯示車輛事故查詢窗體Private Sub mnucarsglist_Click() frmcarSGlr.Show StatusBar1.Panels(1）.Text = 車輛事故錄入窗體End Sub/顯示frmcarSGlr這個(gè)FORM，狀態(tài)欄的第一個(gè)框里的字顯示”車輛事故錄入窗體Private Sub mnucarwxcha_Click（) frmcarWXcha。Show St

31、atusBar1。Panels(1）。Text = ”車輛維修查詢窗體End Sub/顯示frmcarWXcha這個(gè)FORM,狀態(tài)欄的第一個(gè)框里的字顯示”車輛維修查詢窗體”Private Sub mnucarwxlist_Click（) frmcarWXlr.Show StatusBar1.Panels(1）。Text = 車輛維修錄入窗體”End Sub/顯示frmcarWXlr這個(gè)FORM,狀態(tài)欄的第一個(gè)框里的字顯示車輛維修錄入窗體”Private Sub mnucarwzcha_Click（） frmcarWZcha.Show StatusBar1。Panels(1)。Text = ”車

32、輛違章查詢窗體”End Sub/顯示frmcarWZcha這個(gè)FORM，狀態(tài)欄的第一個(gè)框里的字顯示”車輛違章查詢窗體”Private Sub mnucarwzlist_Click() frmcarWZlr.Show StatusBar1。Panels(1).Text = ”車輛違章錄入窗體End Sub/顯示frmcarWZlr這個(gè)FORM，狀態(tài)欄的第一個(gè)框里的字顯示”車輛違章錄入窗體”Private Sub mnucaryd_Click(） frmcarydlr.Show StatusBar1。Panels（1).Text = 車輛異動錄入窗體End Sub/顯示frmcarydlr這個(gè)FO

33、RM,狀態(tài)欄的第一個(gè)框里的字顯示車輛異動錄入窗體Private Sub mnucarydcha_Click（) frmcarydcha。Show StatusBar1.Panels(1）。Text = ”車輛異動查詢窗體”End Sub/顯示frmcarydcha這個(gè)FORM，狀態(tài)欄的第一個(gè)框里的字顯示車輛異動查詢窗體”Private Sub mnucaryycha_Click（) frmcarYYcha.Show StatusBar1。Panels（1).Text = 車輛運(yùn)營查詢窗體End Sub/顯示frmcarYYcha這個(gè)FORM，狀態(tài)欄的第一個(gè)框里的字顯示”車輛運(yùn)營查詢窗體Priv

34、ate Sub mnuexit1_Click(） Unload MeEnd Sub/卸載當(dāng)前窗體Private Sub mnuexit3_Click（） Unload MeEnd Sub/卸載當(dāng)前窗體Private Sub mnuglyset_Click（) frmManager.Show StatusBar1。Panels(1).Text = 管理員設(shè)置窗體End Sub/顯示frmManager這個(gè)FORM,狀態(tài)欄的第一個(gè)框里的字顯示管理員設(shè)置窗體”Private Sub mnuhf_Click（） frmDataHF。Show StatusBar1.Panels（1).Text = 數(shù)據(jù)

35、恢復(fù)窗體”End Sub/顯示frmDataHF這個(gè)FORM,狀態(tài)欄的第一個(gè)框里的字顯示數(shù)據(jù)恢復(fù)窗體”Private Sub mnujsycha_Click() frmDrivercha。Show StatusBar1.Panels（1）。Text = ”駕駛員檔案查詢窗體”End Sub/顯示frmDrivercha這個(gè)FORM，狀態(tài)欄的第一個(gè)框里的字顯示”駕駛員檔案查詢窗體Private Sub mnujsyjc_Click() frmDrJC.Show StatusBar1。Panels（1）。Text = 獎金評定窗體End Sub/顯示frmDrJC這個(gè)FORM，狀態(tài)欄的第一個(gè)框里的

36、字顯示獎金評定窗體Private Sub mnujsylist_Click（) frmDriverlr。Show StatusBar1.Panels（1).Text = 駕駛員檔案錄入窗體End Sub/顯示frmDriverlr這個(gè)FORM，狀態(tài)欄的第一個(gè)框里的字顯示駕駛員檔案錄入窗體”Private Sub mnusyscsh_Click（） If MsgBox(”執(zhí)行此命令會清空數(shù)據(jù)庫里所有記錄,確實(shí)要執(zhí)行嗎？， vbOKCancel， ”系統(tǒng)提示) = vbOK Then adoCon。Execute （delete from 車輛檔案”） adoCon.Execute (delete

37、 from 車輛報(bào)廢表） adoCon.Execute (delete from 車輛事故表”） adoCon.Execute (”delete from 車輛違章表) adoCon。Execute (”delete from 車輛維修表”） adoCon.Execute （delete from 車輛異動表) adoCon。Execute （delete from 車輛運(yùn)營表”) adoCon。Execute （delete from 駕駛員檔案) adoCon.Execute (”delete from 零件表”) adoCon。Execute （”delete from 用戶表”) ad

38、oCon。Execute （”delete from 獎罰表) Else Exit Sub End IfEnd Sub/執(zhí)行一個(gè)詢問對話框，如果選擇OK則上述表都清除，Cancel則取消操作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/執(zhí)行一個(gè)詢問對話框，如果選擇OK則上述表都清除，Cancel則取消操作Private Sub mnuyylis

39、t_Click（） frmcarYYlr.Show StatusBar1。Panels（1)。Text = ”車輛運(yùn)營錄入窗體”End Sub/顯示frmcarYYlr這個(gè)FORM,狀態(tài)欄的第一個(gè)框里的字顯示”車輛運(yùn)營錄入窗體Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button） Select Case Button.Index Case 1 Call mnucardaadd_Click Case 2 Call mnujsylist_Click Case 3 Call mnuyylist_Click Case 5

40、 Call mnucarwxlist_Click Case 6 Call mnucarwzlist_Click Case 7 Call mnucarsglist_Click End Select End Sub/菜單上的按鈕，選擇不同的按鈕調(diào)用相應(yīng)的命令Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu） Select Case ButtonMenu。Index Case 1 Call mnucardacha_Click Case 2 Call mnujsycha_Click Case

41、3 Call mnucaryycha_Click Case 5 Call mnucarwxcha_Click Case 6 Call mnucarwzcha_Click Case 7 Call mnucarsgcha_Click End Select/菜單上的按鈕，選擇不同的按鈕調(diào)用相應(yīng)的命令3.3 車輛檔案查詢界面設(shè)計(jì)和實(shí)現(xiàn)圖3。3 車輛檔案查詢界面點(diǎn)擊車輛檔案管理按鈕，選擇車輛檔案列表按鈕。根據(jù)車輛號碼，車輛類型，車輛所在單位，是否保險(xiǎn),異動情況,是否報(bào)廢等綜合條件進(jìn)行查詢。車輛查詢設(shè)計(jì)代碼：Private Sub ckbf_Click（) If ckbf.Value Then Combo

42、6。Enabled = True Else Combo6.Enabled = False End IfEnd Sub/點(diǎn)擊下拉菜單按鈕選擇“報(bào)廢”是否可用True為可用，F(xiàn)alse為不可用Private Sub ckbx_Click（） If ckbx.Value Then Combo4。Enabled = True Else Combo4。Enabled = False End IfEnd Sub/點(diǎn)擊下拉菜單按鈕選擇“保險(xiǎn)是否可用True為可用，F(xiàn)alse為不可用Private Sub ckcp_Click（) If ckcp.Value Then Combo1。Enabled = Tru

43、e Else Combo1.Enabled = False End IfEnd Sub/點(diǎn)擊下拉菜單按鈕選擇“車牌號碼”是否可用True為可用,False為不可用Private Sub ckdw_Click（） If ckdw.Value Then Combo3.Enabled = True Else Combo3。Enabled = False End IfEnd Sub/點(diǎn)擊下拉菜單按鈕選擇“車牌單位”是否可用True為可用，F(xiàn)alse為不可用Private Sub cklx_Click（) If cklx。Value Then Combo2.Enabled = True Else Com

44、bo2.Enabled = False End IfEnd Sub/點(diǎn)擊下拉菜單按鈕選擇“車牌類型”是否可用True為可用，F(xiàn)alse為不可用Private Sub ckyd_Click（) If ckyd.Value Then Combo5.Enabled = True Else Combo5。Enabled = False End IfEnd Sub/點(diǎn)擊下拉菜單按鈕選擇“異動”是否可用True為可用，F(xiàn)alse為不可用Private Sub cmdAll_Click（) Frame1。Enabled = False ckcp。Value = 0 cklx.Value = 0 ckdw.V

45、alue = 0 ckbx。Value = 0 ckyd。Value = 0 ckbf.Value = 0/賦值0 Call Rebind/調(diào)用Rebind cmdCha。Visible = True/ cmdCha按鈕可見 cmdAll。Visible = False/ cmdAll按鈕不可見 cmdOk.Enabled = False/ cmdOk被禁用End SubPrivate Sub cmdExit_Click（） MDIForm1。StatusBar1.Panels(1).Text = Unload MeEnd SubPrivate Sub cmdCha_Click() /點(diǎn)擊查詢

46、按紐后首先清空車輛檔案列表 Call QingKong cmdCha.Visible = False/cmdCha按鈕不可見 cmdAll.Visible = True/cmdAll按鈕可見 Frame1.Enabled = True/Frame1按鈕可使用 cmdOk.Enabled = True/cmdOk按鈕可使用End SubPrivate Sub cmdOk_Click（） Dim sql As String Dim scp As String If ckcp.Value Then scp = ”車牌號碼 like ” Combo1。Text & %/查詢以輸入的數(shù)字開頭的數(shù)據(jù) El

47、se scp = 車牌號碼 like %”/查詢所有數(shù)據(jù) End If Dim slx As String If cklx.Value Then slx = 車輛類型 like & Combo2。Text & ”/查詢以輸入的數(shù)字開頭的數(shù)據(jù) Else slx = ”車輛類型 like /查詢所有數(shù)據(jù) End If Dim sdw As String If ckdw。Value Then sdw = 車輛所在單位 like & Combo3.Text & ”%/查詢以輸入的數(shù)字開頭的數(shù)據(jù) Else sdw = ”車輛所在單位 like %”/查詢所有數(shù)據(jù) End If Dim sbx As St

48、ring If ckbx。Value Then sbx = 保險(xiǎn)否=” Combo4。Text & ”/查詢以輸入的數(shù)字開頭的數(shù)據(jù) Else sbx = ”保險(xiǎn)否 like %”/查詢所有數(shù)據(jù) End If Dim syd As String If ckyd。Value Then syd = 異動否= & Combo5。Text & /查詢以輸入的數(shù)字開頭的數(shù)據(jù) Else syd = ”異動否 like ”/查詢所有數(shù)據(jù) End If Dim sbf As String If ckbf.Value Then sbf = 報(bào)廢否=” & Combo6。Text ”/查詢以輸入的數(shù)字開頭的數(shù)據(jù) E

49、lse sbf = ”報(bào)廢否 like %/查詢所有數(shù)據(jù) End If sql = select * from 車輛檔案 where & scp & and & slx and ” sdw and ” sbx ”and & syd & and ” sbf MsgBox sql If sql = select from 車輛檔案 where 車牌號碼 like and 車輛類型 like and 車輛所在單位 like %and 保險(xiǎn)否 like and 異動否 like %and 報(bào)廢否 like Then MsgBox ”請選擇查詢條件， ， ”系統(tǒng)提示” Call QingKong /清空

50、上一次的查詢記錄 Exit Sub End If Set adors = adoCon.Execute（sql) If adors。EOF Then /清空上一次的查詢記錄 Call QingKong/清空上一次的查詢記錄 /給出文本框提示 MsgBox 沒有符合您查詢車輛的條件!, ， ”系統(tǒng)提示”/給出文本框提示 Else Adodc1。RecordSource = sql Adodc1.Refresh End If adors。Close ckcp.Value = 0 cklx.Value = 0 ckdw。Value = 0 ckbx。Value = 0 ckyd。Value = 0

51、ckbf。Value = 0End SubPrivate Sub Form_Load（) Adodc1。ConnectionString = Provider=Microsoft.Jet.OLEDB。4。0；Data Source= App.Path ”clgl。mdb;Persist Security Info=False Call Rebind cmdAll.Visible = False/cdmAll按鈕不可見 cmdCha。Visible = True/cmdCha按鈕可見 cmdOk。Enabled = False/cmdOk按鈕禁用 frmcardacha.Height = 507

52、0 frmcardacha。Width = 7935/設(shè)置位置(高度,寬度）。 將表里存在的所有車牌加到控件combo1里 On Error Resume Next Adodc1。RecordSource = ”select distinct 車牌號碼 from 車輛檔案/重復(fù)數(shù)據(jù)只出現(xiàn)一次 Do Combo1。AddItem Adodc1.Recordset。Fields(0） Adodc1.Recordset.MoveNext Loop Until Adodc1.Recordset.EOF Adodc1。Refresh/一個(gè)循環(huán)語句，將數(shù)據(jù)添加到列表框里并顯示 Adodc2。RecordS

53、ource = select distinct 車輛類型 from 車輛檔案”/重復(fù)數(shù)據(jù)只出現(xiàn)一次 Adodc2。Refresh Do Combo2。AddItem Adodc2.Recordset。Fields(0） Adodc2。Recordset。MoveNext Loop Until Adodc2。Recordset.EOF/一個(gè)循環(huán)語句，將數(shù)據(jù)添加到列表框里并顯示 Adodc3。RecordSource = ”select distinct 車輛所在單位 from 車輛檔案/重復(fù)數(shù)據(jù)只出現(xiàn)一次 Adodc3.Refresh Do Combo3.AddItem Adodc3。Recor

54、dset。Fields(0） Adodc3.Recordset.MoveNext Loop Until Adodc3。Recordset。EOF Adodc1。RecordSource = ”select * from 車輛檔案” Adodc1.RefreshEnd Sub/一個(gè)循環(huán)語句,將數(shù)據(jù)添加到列表框里并顯示Private Sub Form_QueryUnload(Cancel As Integer， UnloadMode As Integer) cmdExit_ClickEnd SubPrivate Sub Rebind(） Frame2。Caption = ”車輛檔案列表” 聯(lián)接數(shù)據(jù)庫及選表 Adodc1。ConnectionString = ”Provider=Microsoft.Jet.OLEDB.4。0；Data Source= App。Path & ”clgl.mdb & ;Persist Security Info=False” Adodc1.RecordSource = select * from 車輛檔案 Adodc1.RefreshEnd SubPrivate Sub QingKong（) Frame2.Caption = ”您所要查詢的車輛檔案如下：” 清空