轎車(chē)4S店綜合服務(wù)系統(tǒng)

1、內(nèi)蒙古工業(yè)大學(xué)本科畢業(yè)設(shè)計(jì)說(shuō)明書(shū) - PAGE 80 - 引言中國(guó)以前的汽車(chē)銷(xiāo)售是由國(guó)營(yíng)的汽車(chē)銷(xiāo)售公司壟斷。到了20世紀(jì)90年代中期，汽車(chē)廠商開(kāi)始建立自己的銷(xiāo)售渠道，并逐漸形成以下四種汽車(chē)渠道模式。1代理制。渠道模式可表述為廠商總代理區(qū)域代理下級(jí)代理商最終用戶(hù)。2.代理制。渠道模式可表述為廠商區(qū)域總代理下級(jí)代理商最終用戶(hù)。3.經(jīng)銷(xiāo)制。渠道模式可表述為廠商特許經(jīng)銷(xiāo)商最終用戶(hù)。4.專(zhuān)賣(mài)制。渠道模式可表述為廠商專(zhuān)賣(mài)店最終用戶(hù)。但是，隨著汽車(chē)市場(chǎng)逐漸成熟，用戶(hù)的消費(fèi)心理也逐漸成熟，用戶(hù)需求多樣化，對(duì)產(chǎn)品、服務(wù)的要求也越來(lái)越高，越來(lái)越嚴(yán)格，原有的代理銷(xiāo)售體制已不能適應(yīng)市場(chǎng)與用戶(hù)的需求。4S店的出現(xiàn)，恰好

2、能滿(mǎn)足用戶(hù)的各種需求，它可以提供裝備精良、整潔干凈的維修區(qū)，現(xiàn)代化的設(shè)備和服務(wù)管理，高度職業(yè)化的氣氛，保養(yǎng)良好的服務(wù)設(shè)施，充足的零配件供應(yīng)，迅速及時(shí)的跟蹤服務(wù)體系。通過(guò)4S店的服務(wù)，可以使用戶(hù)對(duì)品牌產(chǎn)生信賴(lài)感，所以說(shuō)，4S店是汽車(chē)市場(chǎng)激烈競(jìng)爭(zhēng)下的產(chǎn)物。第一章 開(kāi)發(fā)工具的軟件描述1.1 ADO編程模型簡(jiǎn)介在VB6.0中推出的ADO（ACTIVE Data Object）是一種數(shù)據(jù)訪問(wèn)策略，也是一個(gè)用于存取數(shù)據(jù)源的COM組件，它提供了編程語(yǔ)言和統(tǒng)一數(shù)據(jù)訪問(wèn)方式OLE DB的一個(gè)中間層。他將逐步替代DAO和RDO而成為主要的數(shù)據(jù)訪問(wèn)接口。ADO對(duì)象模型包括下表所示的一些可編程的對(duì)象。名稱(chēng)說(shuō)明Conn

3、ection（連接）通過(guò)“連接“可使應(yīng)用程序訪問(wèn)數(shù)據(jù)源Command（命令）通過(guò)連接所發(fā)出的“命令“操作數(shù)據(jù)源Recordset（記錄集）“記錄集”描述來(lái)自數(shù)據(jù)表或命令執(zhí)行結(jié)果的記錄的集合Eror（錯(cuò)誤）用于維護(hù)數(shù)據(jù)源所產(chǎn)生的錯(cuò)誤信息Parameter（參數(shù)）“參數(shù)“是命令所需要的變量部分Field(字段)用于操作記錄集中單個(gè)列的信息其中的每個(gè)對(duì)象都具有屬性（Properties）對(duì)象，用于描述對(duì)象的屬性。1.連接（Connection）對(duì)象“連接”是交換數(shù)據(jù)所必須的環(huán)境，通過(guò)“連接”可使應(yīng)用程序訪問(wèn)數(shù)據(jù)源。ADO對(duì)象模型使用Connection對(duì)象使連接概念得宜具體化，Connection對(duì)

4、象用于指定專(zhuān)門(mén)的提供者的任意參數(shù)下表列出Connection對(duì)象的常用屬性和方法。名稱(chēng)說(shuō)明ConnectionString屬性設(shè)置到數(shù)據(jù)源的連接信息Open方法打開(kāi)數(shù)據(jù)源的連接Excuse方法對(duì)連接執(zhí)行各種操作Cansel方法取消Open或Excuse方法的調(diào)用Close方法關(guān)閉打開(kāi)的Connection對(duì)象2.命令（Command）對(duì)象“命令”對(duì)象描述對(duì)數(shù)據(jù)源執(zhí)行的命令。通過(guò)已建立的連接發(fā)出的“命令”可以某種方式來(lái)操作數(shù)據(jù)源。一般情況下，命令可以在數(shù)據(jù)源中添加、刪除、或更新數(shù)據(jù)，或者在表中以行的格式檢索數(shù)據(jù)。ADO對(duì)象模型用Command對(duì)象來(lái)體現(xiàn)命令概念，使用Command對(duì)象可使ADO優(yōu)

5、化命令執(zhí)行，下表列出Command對(duì)象的常用屬性和方法。名稱(chēng)說(shuō)明ActiveConnection屬性設(shè)置到數(shù)據(jù)源的連接信息CommandText方法指定發(fā)送的命令文本，如SQL語(yǔ)句等CommandType設(shè)置或返回CommandText的類(lèi)型Excuse方法執(zhí)行CommandText屬性指定操作Cansel方法取消Excuse方法的調(diào)用3.記錄集（Recordset）對(duì)象“記錄集“對(duì)象描述來(lái)自數(shù)據(jù)表或命令執(zhí)行結(jié)果的記錄集合，其組成為記錄（行）。Recordset是在進(jìn)行中檢查和修改數(shù)據(jù)最主要的方法。常用于指定可以檢查的行，移動(dòng)行，指定移動(dòng)行的順序，添加、更改或刪除行，通過(guò)更改行更新數(shù)據(jù)源等。下

6、表列出Recordset對(duì)象的常用屬性和方法。名稱(chēng)說(shuō)明ActiveConn屬性tion返回Recordset對(duì)象所屬的Connection對(duì)象Souce屬性返回或設(shè)置Recordset對(duì)象的生成方式；Command對(duì)象、SQL語(yǔ)句或存儲(chǔ)過(guò)程RecordCount屬性返回Recordset對(duì)象中的記錄個(gè)數(shù)BOF、EOF屬性指示當(dāng)前記錄指針位置是否位于首記錄前、末記錄后Bookmark屬性返回或設(shè)置Recordset對(duì)象中當(dāng)前記錄的書(shū)簽CursorTyp屬性設(shè)置或返回Recordset對(duì)象中使用的光標(biāo)類(lèi)型Filter屬性設(shè)置Recordset對(duì)象中的數(shù)據(jù)篩選條件Sort屬性設(shè)置排序字段Open方法

7、打開(kāi)代表數(shù)據(jù)庫(kù)、查詢(xún)結(jié)果等Recordset對(duì)象中的記錄的光標(biāo)Move的方法移動(dòng)Recordset對(duì)象中的當(dāng)前記錄指針到指定位置Movefirst、Movelast、Movenext和MovePrevios方法移動(dòng)Recordset對(duì)象中的當(dāng)前記錄指針到首記錄、末記錄、下一個(gè)、上一個(gè)Addnew方法為可更新的Recordset對(duì)象創(chuàng)建一條新記錄Requery方法重新執(zhí)行生成Recordset對(duì)象的查詢(xún)，以更新其中數(shù)據(jù)Update方法保存對(duì)當(dāng)前記錄的修改Cancelupdate方法取消在調(diào)用Update方法之前對(duì)當(dāng)前記錄的修改Delete方法刪除當(dāng)前記錄或記錄組此外，在ADO 編程模型中，Con

8、nection、Command、Recordset 和 Field 對(duì)象都具有 Properties 集合。它包含所有屬于各個(gè)包含對(duì)象的 Property 對(duì)象。 ADO 對(duì)象擁有可在其上使用的諸如“整型”、“字符型”或“布爾型”這樣的普通數(shù)據(jù)類(lèi)型來(lái)設(shè)置或檢索值的屬性。然而，有必要將某些屬性看成是數(shù)據(jù)類(lèi)型“COLLECTION OBJECT”的返回值。相應(yīng)的，集合對(duì)象具有存儲(chǔ)和檢索適合該集合的其他對(duì)象的方法。1.1.1ADO 提供執(zhí)行操作的方式1、連接到數(shù)據(jù)源。同時(shí)，可確定對(duì)數(shù)據(jù)源的所有更改是否已成功或沒(méi)有生。2、指定訪問(wèn)數(shù)據(jù)源的命令，同時(shí)可帶變量參數(shù)，或優(yōu)化執(zhí)行。3、執(zhí)行命令。3、如果這個(gè)命

9、令使數(shù)據(jù)按表中的行的形式返回，則將這些行存儲(chǔ)在易于檢查、操作或更改的緩存中。4、適當(dāng)情況下，可使用緩存行的更改內(nèi)容來(lái)更新數(shù)據(jù)源。5、提供常規(guī)方法檢測(cè)錯(cuò)誤（通常由建立連接或執(zhí)行命令造成）。在典型情況下，需要在編程模型中采用所有這些步驟。但是，由于ADO 有很強(qiáng)的靈活性，所以最后只需執(zhí)行部分模塊就能做一些有用的工作。1.1.2 ADO的特點(diǎn)ADO是一種可視化、面對(duì)對(duì)象和調(diào)用事件驅(qū)動(dòng)方式的結(jié)構(gòu)高級(jí)程序設(shè)計(jì)，可用于Windows環(huán)境下的應(yīng)用程序，她簡(jiǎn)單易學(xué)、效率高，而且功能強(qiáng)大?？偟膩?lái)說(shuō)，ADO具有以下特點(diǎn)：1、 易于使用這是ADO技術(shù)的最重要的一個(gè)特征。由于ADO是高層應(yīng)用，所以相對(duì)于OLE DB或

10、者ODBC來(lái)說(shuō)，它具有面向?qū)ο蟮奶匦?。同時(shí)，在ADO的對(duì)象結(jié)構(gòu)中，其對(duì)象之間的層次關(guān)系并不明顯。相對(duì)于DAO等訪問(wèn)技術(shù)來(lái)講，又不必關(guān)心對(duì)象的構(gòu)造順序和構(gòu)造層次。對(duì)于要用的對(duì)象，不必選建立連接、會(huì)話等對(duì)象，只需直接構(gòu)造即可，方便了應(yīng)用程序的編制。2、 高速訪問(wèn)數(shù)據(jù)源由于ADO技術(shù)基于OLE DB，所以，它也繼承了OLE DB訪問(wèn)數(shù)據(jù)庫(kù)的高速性。3、 可以訪問(wèn)不同數(shù)據(jù)源ADO技術(shù)可以訪問(wèn)包括關(guān)系數(shù)據(jù)庫(kù)和非關(guān)系數(shù)據(jù)庫(kù)的所有文件系統(tǒng)。此特點(diǎn)使應(yīng)用程序有很多的靈活性和通用性。4、 可以用于Microsoft ActiveX頁(yè)ADO技術(shù)可以以ActiveX控件的形式出現(xiàn)，所以，可以被用于Microsoft

11、 ActiveX頁(yè)，此特征可簡(jiǎn)化WEB頁(yè)的編程。5、 程序占用內(nèi)存少由于ADO是基于組件對(duì)象模型（COM）的訪問(wèn)技術(shù)，所以，用ADO產(chǎn)生的應(yīng)用程序占用內(nèi)存少。1.2 數(shù)據(jù)庫(kù)的發(fā)展數(shù)據(jù)庫(kù) （data base）為滿(mǎn)足某一部門(mén)中多個(gè)用戶(hù)多種應(yīng)用的需要，按照一定的數(shù)據(jù)模型在計(jì)算機(jī)系統(tǒng)中組織、存儲(chǔ)和使用的互相聯(lián)系的數(shù)據(jù)集合。 帶有數(shù)據(jù)庫(kù)的計(jì)算機(jī)系統(tǒng)，除具備一般的硬件、軟件外，必須有用以存儲(chǔ)大量數(shù)據(jù)的直接存取存儲(chǔ)設(shè)備、管理并控制數(shù)據(jù)庫(kù)的軟件數(shù)據(jù)庫(kù)管理系統(tǒng)(DBMS)、管理數(shù)據(jù)庫(kù)的人員數(shù)據(jù)庫(kù)管理員 (DBA)。這樣的數(shù)據(jù)、硬件、軟件和管理人員的總體構(gòu)成數(shù)據(jù)庫(kù)系統(tǒng)。數(shù)據(jù)庫(kù)僅是數(shù)據(jù)庫(kù)系統(tǒng)的一個(gè)組成部分。數(shù)據(jù)庫(kù)

12、系統(tǒng)的功能和特征 數(shù)據(jù)庫(kù)系統(tǒng)由文卷系統(tǒng)發(fā)展而來(lái)。與文卷系統(tǒng)相比，這種系統(tǒng)具有數(shù)據(jù)、體系和控制三個(gè)方面的主要特征。 數(shù)據(jù)特征 在文卷系統(tǒng)中雖然程序與數(shù)據(jù)之間可用存取方法進(jìn)行轉(zhuǎn)換,但文卷還是與應(yīng)用程序?qū)?yīng)的,即數(shù)據(jù)仍面向應(yīng)用。每一應(yīng)用各自建立自己的一組文卷。不同的應(yīng)用若涉及相同的數(shù)據(jù)，則這些數(shù)據(jù)分別納入各自的文卷之中。文卷的各種記錄之間沒(méi)有建立聯(lián)系，因而數(shù)據(jù)冗余度大。增加新的應(yīng)用，必須同時(shí)增加新的文卷。因此，文卷系統(tǒng)中的文卷是無(wú)結(jié)構(gòu)的、不易擴(kuò)充的信息集合。數(shù)據(jù)庫(kù)則不僅描述數(shù)據(jù)本身，而且描述數(shù)據(jù)之間的聯(lián)系。它的數(shù)據(jù)結(jié)構(gòu)反映了某一部門(mén)的整體信息結(jié)構(gòu)，數(shù)據(jù)冗余度小、易于擴(kuò)充新的應(yīng)用，因而是面向數(shù)據(jù)總體結(jié)

13、構(gòu)的信息集合，可為多個(gè)用戶(hù)共享。 體系特征 一切數(shù)據(jù)都有邏輯和物理兩個(gè)側(cè)面。在數(shù)據(jù)庫(kù)系統(tǒng)中，數(shù)據(jù)邏輯結(jié)構(gòu)的描述稱(chēng)為邏輯模式。邏輯模式又分為描述全局邏輯結(jié)構(gòu)的全局模式(簡(jiǎn)稱(chēng)模式)和描述某些應(yīng)用所涉及的局部邏輯結(jié)構(gòu)的子模式。數(shù)據(jù)物理結(jié)構(gòu)的描述稱(chēng)為存儲(chǔ)模式。這兩種模式總稱(chēng)為數(shù)據(jù)庫(kù)模式。 數(shù)據(jù)庫(kù)系統(tǒng)中，用戶(hù)根據(jù)子模式編制程序。子模式與模式模式與存儲(chǔ)模式之間有軟件進(jìn)行映射。因此,程序與數(shù)據(jù)之間具有兩級(jí)獨(dú)立性：物理獨(dú)立性和邏輯獨(dú)立性。數(shù)據(jù)的存儲(chǔ)模式改變，而模式可以不改變，因而不必改寫(xiě)應(yīng)用程序,這稱(chēng)為物理獨(dú)立性。模式改變時(shí),子模式可能不改變，也就不必改寫(xiě)應(yīng)用程序，這稱(chēng)為邏輯獨(dú)立性。由于數(shù)據(jù)庫(kù)系統(tǒng)具備比較高的

14、程序與數(shù)據(jù)的獨(dú)立性，可以使程序員在編制應(yīng)用程序時(shí)集中精力考慮算法邏輯，不必過(guò)問(wèn)物理細(xì)節(jié)，而且可以大大減少應(yīng)用程序維護(hù)的工作量。 控制特征 數(shù)據(jù)庫(kù)數(shù)據(jù)數(shù)量龐大，結(jié)構(gòu)復(fù)雜，又為多個(gè)用戶(hù)所共享。因此，必須由數(shù)據(jù)庫(kù)管理系統(tǒng)在定義、建立、運(yùn)行以及維護(hù)時(shí)進(jìn)行統(tǒng)一管理和控制，以保證數(shù)據(jù)庫(kù)數(shù)據(jù)的安全性、完整性和并發(fā)操作的一致性。此外，還必須有數(shù)據(jù)庫(kù)管理員專(zhuān)門(mén)負(fù)責(zé)對(duì)數(shù)據(jù)庫(kù)的管理、控制監(jiān)督和改進(jìn)。 由于數(shù)據(jù)庫(kù)系統(tǒng)具有上述特征，它的出現(xiàn)使信息系統(tǒng)的研制從圍繞加工數(shù)據(jù)的程序?yàn)橹行?，轉(zhuǎn)變到圍繞共享的數(shù)據(jù)庫(kù)來(lái)進(jìn)行。這便于數(shù)據(jù)的集中管理，有利于應(yīng)用程序的研制和維護(hù)。數(shù)據(jù)減少了冗余度和提高了相容性，從而提高了作出決策的相容性

15、。因此，大型復(fù)雜的信息系統(tǒng)大多以數(shù)據(jù)庫(kù)為核心，數(shù)據(jù)庫(kù)系統(tǒng)在計(jì)算機(jī)應(yīng)用中起著越來(lái)越重要的作用。 研究課題 數(shù)據(jù)庫(kù)研究的課題，主要涉及三個(gè)領(lǐng)域。 數(shù)據(jù)庫(kù)管理系統(tǒng)軟件的研制 DBMS是數(shù)據(jù)庫(kù)系統(tǒng)的基礎(chǔ)。研制DBMS的基本目標(biāo)，是擴(kuò)大功能，提高性能和可用性，從而提高用戶(hù)的生產(chǎn)率。70年代以來(lái)，研制的重點(diǎn)是探索關(guān)系數(shù)據(jù)庫(kù)管理系統(tǒng)的設(shè)計(jì)，內(nèi)容包括關(guān)系數(shù)據(jù)語(yǔ)言、查詢(xún)優(yōu)化、并發(fā)控制和系統(tǒng)性能等。另一類(lèi)課題是對(duì)DBMS標(biāo)準(zhǔn)化的研究，即研究一個(gè)統(tǒng)一的DBMS體系結(jié)構(gòu)的規(guī)范。 數(shù)據(jù)庫(kù)設(shè)計(jì)這是在計(jì)算機(jī)系統(tǒng)具有的數(shù)據(jù)庫(kù)管理系統(tǒng)的基礎(chǔ)上，按照應(yīng)用要求以及計(jì)算機(jī)系統(tǒng)所提供的數(shù)據(jù)模型和功能，設(shè)計(jì)一個(gè)結(jié)構(gòu)良好、使用方便、效率較

16、高的，以數(shù)據(jù)庫(kù)為核心的應(yīng)用信息系統(tǒng)。這一領(lǐng)域主要的研究課題，是數(shù)據(jù)庫(kù)設(shè)計(jì)方法學(xué)和設(shè)計(jì)工具的探索。例如，運(yùn)用軟件工程的方法和工具指導(dǎo)數(shù)據(jù)庫(kù)設(shè)計(jì)；研究數(shù)據(jù)庫(kù)設(shè)計(jì)各個(gè)階段中完備的方法和工具；以關(guān)系數(shù)據(jù)庫(kù)的規(guī)范化理論為指南進(jìn)行數(shù)據(jù)庫(kù)邏輯設(shè)計(jì)等。 數(shù)據(jù)庫(kù)理論 主要研究關(guān)系數(shù)據(jù)庫(kù)理論。關(guān)系數(shù)據(jù)庫(kù)理論研究的意義，一方面在于它為數(shù)據(jù)庫(kù)學(xué)科奠定了理論基礎(chǔ);另一方面它為數(shù)據(jù)庫(kù)設(shè)計(jì)提供了判別標(biāo)準(zhǔn),從而成為數(shù)據(jù)庫(kù)設(shè)計(jì)的有力指南。研究的主要內(nèi)容是關(guān)系的規(guī)范化理論。關(guān)系規(guī)范化理論已應(yīng)用于數(shù)據(jù)庫(kù)設(shè)計(jì)的各個(gè)階段。 發(fā)展 數(shù)據(jù)庫(kù)技術(shù)是計(jì)算機(jī)科學(xué)中發(fā)展最快的領(lǐng)域之一，新的領(lǐng)域越來(lái)越多。 分布式數(shù)據(jù)庫(kù)系統(tǒng) 隨著70年代后期分布計(jì)算

17、機(jī)系統(tǒng)的發(fā)展，相應(yīng)地研究成功分布式數(shù)據(jù)庫(kù)系統(tǒng)。分布式數(shù)據(jù)庫(kù)系統(tǒng)是一個(gè)在邏輯上完整，而在物理上分散在若干臺(tái)互相連接的結(jié)點(diǎn)機(jī)上的數(shù)據(jù)庫(kù)系統(tǒng)。它既具有分布性又具有數(shù)據(jù)庫(kù)的綜合性。這是數(shù)據(jù)庫(kù)系統(tǒng)發(fā)展的一個(gè)重要方向。分布式數(shù)據(jù)庫(kù)系統(tǒng)結(jié)構(gòu)復(fù)雜，其中最復(fù)雜的是分布式數(shù)據(jù)庫(kù)管理系統(tǒng)。 數(shù)據(jù)庫(kù)機(jī)器 新的計(jì)算機(jī)系統(tǒng)的體系結(jié)構(gòu)。它把由中央處理器包辦的數(shù)據(jù)庫(kù)操作分散給一些局部的部件來(lái)執(zhí)行，或轉(zhuǎn)移到一個(gè)與主計(jì)算機(jī)相連的專(zhuān)用計(jì)算機(jī)去執(zhí)行，以提高并行性。數(shù)據(jù)庫(kù)機(jī)器的發(fā)展，包括智能控制器和存儲(chǔ)器，專(zhuān)用處理機(jī)和數(shù)據(jù)庫(kù)計(jì)算機(jī)。 數(shù)據(jù)庫(kù)語(yǔ)義模型 數(shù)據(jù)庫(kù)的數(shù)據(jù)模型基本上屬于語(yǔ)法模型，語(yǔ)義體現(xiàn)很不完備，不能明顯地含有現(xiàn)實(shí)世界的意義。因

18、此，用戶(hù)只能按照DBMS所提供的數(shù)據(jù)操縱語(yǔ)言訪問(wèn)數(shù)據(jù)庫(kù)。語(yǔ)義模型能準(zhǔn)確地描述現(xiàn)實(shí)世界中某個(gè)部門(mén)的信息集合及其意義，使用戶(hù)能基于對(duì)現(xiàn)實(shí)世界的認(rèn)識(shí)或用類(lèi)似于自然語(yǔ)言的形式來(lái)訪問(wèn)數(shù)據(jù)庫(kù)。這方面的研究已發(fā)展為數(shù)據(jù)語(yǔ)義學(xué)。 數(shù)據(jù)庫(kù)智能檢索 數(shù)據(jù)庫(kù)技術(shù)和人工智能相結(jié)合，根據(jù)數(shù)據(jù)庫(kù)中的事實(shí)和知識(shí)進(jìn)行推理，演繹出正確答案，這就是數(shù)據(jù)庫(kù)的智能檢索。這涉及到自然語(yǔ)言用戶(hù)接口、邏輯演繹功能和數(shù)據(jù)庫(kù)語(yǔ)義模型等問(wèn)題，如70年代末所開(kāi)始的知識(shí)庫(kù)管理系統(tǒng)和演繹數(shù)據(jù)庫(kù)的研究。 辦公室自動(dòng)化系統(tǒng)中的數(shù)據(jù)庫(kù) 研究在辦公室自動(dòng)化系統(tǒng)中數(shù)據(jù)庫(kù)技術(shù)的應(yīng)用，其中主要研究對(duì)各種非格式化數(shù)據(jù)如圖像、聲音、正文的處理，以及面向端點(diǎn)用戶(hù)的高級(jí)語(yǔ)

19、言接口。 第二章 汽車(chē)4S店綜合服務(wù)系統(tǒng)的分析與設(shè)計(jì)進(jìn)入21世紀(jì)以來(lái)，隨著汽車(chē)工業(yè)競(jìng)爭(zhēng)的日趨激烈，計(jì)算機(jī)的飛速發(fā)展，計(jì)算機(jī)在汽車(chē)服務(wù)方面發(fā)揮著越來(lái)越大的作用，利用計(jì)算機(jī)實(shí)現(xiàn)對(duì)汽車(chē)企業(yè)的管理勢(shì)在必行。對(duì)于大中型企業(yè)來(lái)說(shuō)，利用計(jì)算機(jī)支持企業(yè)高效完成汽車(chē)的銷(xiāo)售、查詢(xún)的日常事物以及了解客戶(hù)對(duì)企業(yè)或車(chē)輛的信息反饋，只有這樣才能適應(yīng)現(xiàn)代企業(yè)的制度要求，才能推動(dòng)企業(yè)走向科學(xué)化的必要條件。而在銷(xiāo)售、查詢(xún)、信息反饋方面都是一些瑣碎、復(fù)雜的工作，銷(xiāo)售額的計(jì)算，進(jìn)貨庫(kù)和銷(xiāo)售庫(kù)的管理一般都是不允許出錯(cuò)的，如果實(shí)行手工操作，數(shù)量大的時(shí)候，這不僅耗時(shí)，而且不能夠快速、準(zhǔn)確無(wú)誤的的算出結(jié)果，但是利用計(jì)算機(jī)進(jìn)行工作，在這些工

20、作中有著人工無(wú)法比擬的優(yōu)點(diǎn)。例如：管理方便、存儲(chǔ)量大、保密性好、成本低等。這些優(yōu)點(diǎn)極大的提高汽車(chē)4S店綜合服務(wù)系統(tǒng)的開(kāi)發(fā)性和實(shí)用前景。2.1系統(tǒng)分析要設(shè)計(jì)一個(gè)有效的汽車(chē)4S店綜合服務(wù)系統(tǒng)必須做全面的調(diào)查，從多方面來(lái)對(duì)系統(tǒng)進(jìn)行考慮。重點(diǎn)是數(shù)據(jù)分析極其處理過(guò)程，從系統(tǒng)的分析的調(diào)查中獲得企業(yè)用戶(hù)對(duì)系統(tǒng)的使用要求。包括：功能要求，既要實(shí)現(xiàn)什么功能以及怎樣實(shí)現(xiàn)信息要求，企業(yè)用戶(hù)從數(shù)據(jù)庫(kù)中獲得的怎樣的信息內(nèi)容安全性和完整性的要求2.2系統(tǒng)的設(shè)計(jì)使用Visual basic 和ADO對(duì)數(shù)據(jù)庫(kù)和程序設(shè)計(jì)語(yǔ)言進(jìn)行編寫(xiě)和實(shí)現(xiàn)。在編寫(xiě)程序過(guò)程中，既要考慮程序?qū)崿F(xiàn)設(shè)計(jì)功能，同時(shí)也要考慮程序的簡(jiǎn)單性，這樣的目的是以便于

21、后來(lái)的程序調(diào)試和修改。在創(chuàng)立數(shù)據(jù)庫(kù)模塊時(shí)，要從實(shí)際從發(fā)，必須考慮到每一個(gè)模塊的實(shí)際意義。設(shè)計(jì)的模塊有：2.2.1 進(jìn)貨模塊的設(shè)計(jì)2.2.2 銷(xiāo)售模塊的設(shè)計(jì)2.2.3 進(jìn)貨查詢(xún)模塊的設(shè)計(jì)2.2.4 維修用戶(hù)模塊的查詢(xún)2.2.5 購(gòu)車(chē)用戶(hù)添加及查詢(xún)模塊的設(shè)計(jì)2.2.6車(chē)輛維修模塊的設(shè)計(jì)2.2.7信息反饋模塊的設(shè)計(jì)2.2.8汽車(chē)臨配件模塊的設(shè)計(jì)2.2.9 車(chē)輛保養(yǎng)模塊的設(shè)計(jì)第三章 系統(tǒng)操作流程圖及功能介紹3.1系統(tǒng)功能介紹：車(chē)輛進(jìn)貨；車(chē)輛銷(xiāo)售；車(chē)輛進(jìn)貨查詢(xún)；添加數(shù)據(jù)記錄；信息反饋；車(chē)輛維修與保養(yǎng)；3.2系統(tǒng)功能模塊圖：圖3.1 系統(tǒng)功能模塊圖通過(guò)系統(tǒng)模塊圖，我們可以簡(jiǎn)單的了解一下系統(tǒng)結(jié)構(gòu)，現(xiàn)在我們對(duì)

22、以下的模塊（銷(xiāo)售管理、車(chē)輛資料實(shí)體、查詢(xún)系統(tǒng)、管理系統(tǒng)）做一個(gè)簡(jiǎn)單的了解。以便于我們更好的了解各個(gè)模塊的功能。圖3.2 銷(xiāo)售管理實(shí)體E-R圖圖3.3 車(chē)輛資料實(shí)體E-R圖圖3.4 查詢(xún)系統(tǒng)的模塊圖圖3.5 車(chē)輛維修系統(tǒng)3.6 數(shù)據(jù)庫(kù)管理系統(tǒng)圖 圖3.7管理系統(tǒng)圖第四章車(chē)4S店綜合服務(wù)系統(tǒng)主體功能說(shuō)明4.1 陸界面的說(shuō)明及功能：系統(tǒng)運(yùn)行之后，首先呈現(xiàn)您的面前是系統(tǒng)的登陸界面，該界面是由姓名和密碼組成，登陸界面如圖4.1所示。圖4.1 登陸界面進(jìn)入登陸界面后，單擊用戶(hù)名所對(duì)應(yīng)文本框的下拉列表按鈕，將看到有許燕永、張立軍、王文凱、石景豐等用戶(hù)名，每個(gè)用戶(hù)名都有各自所對(duì)應(yīng)的密碼，任選一個(gè)用戶(hù)名，如以許

23、燕永為例（其默認(rèn)密碼為1111），在對(duì)應(yīng)的文本框內(nèi)輸入密碼，單擊確定按鈕，即可登陸，進(jìn)如到轎車(chē)4S店主界面。如圖4.2所示。圖4.2 4S店界面但是如果密碼輸入錯(cuò)誤，將出現(xiàn)如圖4.3所示。圖4.3 密碼錯(cuò)誤提示對(duì)話框用它來(lái)保護(hù)系統(tǒng)，使系統(tǒng)具有較高的安全性。點(diǎn)確定后，用戶(hù)可以重新輸入密碼。該系統(tǒng)允許輸入三次密碼，如果用戶(hù)三次都不能輸入正確的密碼，則系統(tǒng)認(rèn)為你為非法用戶(hù)，試圖竊取信息，所以系統(tǒng)會(huì)自動(dòng)彈出“對(duì)不起，您無(wú)權(quán)登陸此系統(tǒng)!”對(duì)話框，如圖4.4所示。圖4.4 登陸失敗界面點(diǎn)擊確定按鈕后自動(dòng)將用戶(hù)名文本框、密碼文本框變成灰色，成為不可用狀態(tài)，登陸者只能取消，退出登陸界面。如果用戶(hù)名和密碼都正確

24、，用戶(hù)就進(jìn)入到轎車(chē)4S店主界面。如圖4.2。程序代碼如下：Private Sub Command1_Click()Dim b As Boolean, D As String, i As Integer: Static K As Integer D = False: b = False: K = K + 1 Adodc1.Refresh Adodc1.Recordset.MoveLast Print K For i = 1 To Adodc1.Recordset.RecordCount Step 1Adodc1.Recordset.AbsolutePosition = i i-1 -i If T

25、rim(Adodc1.Recordset.Fields(姓名).Value) = Trim(Combo1.Text) And Trim _ (Adodc1.Recordset.Fields(密碼).Value) = Trim(Text1.Text) ThenForm1.HideForm2.Show: K = 0: Exit For Elseb = TrueEnd If Next iIf K = 1 Or K = 2 Then D = MsgBox(您的密碼錯(cuò)誤，請(qǐng)從新輸入!, 32, 密碼錯(cuò)誤)End If If K = 3 Then D = MsgBox(警告!你輸入的信息有三次不正確!,

26、32, 密碼錯(cuò)誤) Combo1.Enabled = False: Text1.Enabled = FalseEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub4.1.1登陸界面的設(shè)計(jì)和實(shí)現(xiàn)： 用戶(hù)的登陸界面是進(jìn)入應(yīng)用系統(tǒng)的舌喉，在安全性方面占有重要的地位，是系統(tǒng)安全、穩(wěn)定、正常運(yùn)行的關(guān)鍵，同時(shí)為了能夠真正的吸引操作人員的眼球，讓他們感到舒服，美觀也是很重要的，所以對(duì)登陸界面進(jìn)行美觀設(shè)置。圖案設(shè)置：為了美化登陸界面，首先在工具箱中選擇Image控件，把它拖到窗口上，然后Image的屬性欄上使用Picture屬性。 2. 控件分布：

27、主要包括5個(gè)Label控件，它們的Caption屬性分別為用戶(hù)名、密碼、指導(dǎo)老師、制作人、時(shí)間顯示，其他屬性為默認(rèn)值；一個(gè)Textbox控件;一個(gè)Combo控件;一個(gè)Adodc控件,兩個(gè)CommandButton控件,它們的屬性分別為確定、取消。3.控件功能：【確定】命令按鈕，首先它是判斷用戶(hù)名和密碼是否一致，如果不一致則出現(xiàn)用戶(hù)提示信息-“您的密碼錯(cuò)誤，請(qǐng)重新輸入！”，如果用戶(hù)名和密碼一致，操作人員則可以打開(kāi)主界面，進(jìn)入系統(tǒng)進(jìn)行以后的相關(guān)操作?！救∠棵畎粹o則是退出登陸系統(tǒng)。4.2 轎車(chē)銷(xiāo)售界面系統(tǒng)主界面包括了整個(gè)應(yīng)用程序的概況，其上面顯示的所有功能也就是該系統(tǒng)的所有功能，也是操作人員可以

28、操作的所有顯示，它是該系統(tǒng)的母體，如圖4.2所示。在系統(tǒng)主界面上，有五個(gè)功能鍵，分別為車(chē)輛銷(xiāo)售、汽車(chē)零配件、維修服務(wù)、信息反饋和退出，意識(shí)先各自的功能。1.圖案設(shè)置：美化界面，在工具箱上選擇Image控件，把它拖到窗口上，然后在在工具箱上選擇Image屬性欄中使用Picture屬性導(dǎo)入圖片。2. 控件分布：主要包括一個(gè)Label控件，它的Caption屬性為歡迎您到汽車(chē)4S界面，5個(gè)CommandButton控件,它們的屬性分別為車(chē)輛銷(xiāo)售，汽車(chē)零配件，維修服務(wù)，信息反饋和返回。單擊轎車(chē)銷(xiāo)售按鈕，會(huì)顯示出轎車(chē)銷(xiāo)售界面，在轎車(chē)銷(xiāo)售界面上有六個(gè)功能鍵，一個(gè)Label控件，它的Caption屬性為歡迎

29、您到汽車(chē)銷(xiāo)售系統(tǒng)，5個(gè)CommandButton控件,它們的Caption屬性分別為進(jìn)貨，銷(xiāo)售，查詢(xún)，網(wǎng)絡(luò)連接和退出。如圖4.5 所示。程序代碼：Private Sub Command1_Click()Form4.ShowForm2.HideEnd SubPrivate Sub Command5_Click()Form2.HideForm1.ShowEnd Sub4.2.1進(jìn)貨界面在汽車(chē)銷(xiāo)售系統(tǒng)中，單擊進(jìn)貨按鈕，您就可以進(jìn)入到進(jìn)貨界面，該界面有多個(gè)Label控件和所對(duì)應(yīng)的多個(gè)Text控件，兩個(gè)CommandButton控件，它們的Caption屬性分別為進(jìn)貨和取消，還有1個(gè)DataGrid控件

30、。如圖4.6所示。程序代碼：Private Sub jinhuo_Click() Adodc1.Refresh Adodc1.Recordset.AddNewAdodc1.Recordset.Fields(車(chē)輛序號(hào)).Value = Text1.TextAdodc1.Recordset.Fields(車(chē)輛品牌).Value = TextName.TextAdodc1.Recordset.Fields(進(jìn)貨數(shù)量).Value = TextSL.TextAdodc1.Recordset.Fields(車(chē)輛型號(hào)).Value = TextCX.TextAdodc1.Recordset.Fields(

31、進(jìn)價(jià)（萬(wàn)元/輛）).Value = Texta.TextAdodc1.Recordset.Fields(進(jìn)貨日期).Value = TextRQ.TextAdodc1.Recordset.Fields(備注).Value = TextBZ.TextAdodc1.Recordset.Fields(車(chē)輛生產(chǎn)商).Value = Text2.TextAdodc1.Recordset.Fields(查看此車(chē)輛信息).Value = Text9.TextAdodc1.Recordset.UpdateAdodc1.RefreshEnd SubPrivate Sub Command2_Click()Form

32、5.HideForm4.ShowEnd SubPrivate Sub Command1_Click()Form4.ShowForm2.HideEnd SubPrivate Sub Command5_Click()Form2.HideForm1.ShowEnd SubPrivate Sub Command5_Click()Form2.HideForm1.ShowEnd Sub圖4.6 轎車(chē)進(jìn)貨界面首先，進(jìn)貨人員填寫(xiě)進(jìn)貨清單，它包括車(chē)輛序號(hào)、汽車(chē)生產(chǎn)商、車(chē)輛品牌、車(chē)輛型號(hào)、進(jìn)貨數(shù)量、進(jìn)價(jià)（萬(wàn)元/輛）、進(jìn)貨日期、備注、查看此車(chē)輛信息，然后單擊“進(jìn)貨”按鈕，就可以完成該次進(jìn)貨操作，并且自動(dòng)添加到庫(kù)存清

33、單中。同時(shí)，庫(kù)存清單也會(huì)作相應(yīng)的變動(dòng)。如圖4.7所示。 點(diǎn)擊進(jìn)貨按鈕之后，庫(kù)存清單也做相應(yīng)的變化，如圖4.8所示。圖4.7 添加進(jìn)貨界面圖4.8 庫(kù)存變化界面圖4.5 銷(xiāo)售系統(tǒng)界面4.2.3 銷(xiāo)售界面在汽車(chē)銷(xiāo)售系統(tǒng)中，單擊銷(xiāo)售按鈕，您就可以進(jìn)入到銷(xiāo)售界面，該界面有多Label控件和所對(duì)應(yīng)的多個(gè)Text控件，4個(gè)CommandButton控件，它們的Caption屬性分別為確認(rèn)售出，結(jié)算，清空和返回，還有3個(gè)DataGrid控件。如圖4.9所示。程序代碼：Private Sub Command1_Click()Dim i As Integer, j As Integer, K As Intege

34、rDim SUM As Integer: Dim temp As Boolean If Text1 = Or Text2 = Then MsgBox 請(qǐng)輸入車(chē)輛序號(hào)！, vbOKOnly + vbExclamation, 警告End IfIf Len(Text1.Text) 4 ThenMsgBox 車(chē)輛序號(hào)為4位！, vbOKOnly + vbExclamation, 警告End IfAdodc1.RefreshAdodc1.Recordset.MoveLast改變庫(kù)存Print Adodc1.Recordset.RecordCountFor i = 1 To Adodc1.Recordse

35、t.RecordCount Step 1Adodc1.Recordset.AbsolutePosition = i i-1 -iIf Trim(Adodc1.Recordset.Fields(車(chē)輛序號(hào)).Value) = Trim(Text1.Text) ThenAdodc1.Recordset.Fields(進(jìn)貨數(shù)量).Value = Val(Adodc1.Recordset.Fields(進(jìn)貨數(shù)量).Value) - Val(Text9.Text)Adodc1.Recordset.UpdateAdodc1.Refresh 若無(wú)此句，則不會(huì)馬上改變數(shù)量，即關(guān)閉后再打開(kāi)才有效 End IfNe

36、xt i 進(jìn)入顧客銷(xiāo)售庫(kù)If Adodc2.Recordset.RecordCount Then For K = 1 To Adodc2.Recordset.RecordCountAdodc2.Recordset.AbsolutePosition = KIf Trim(Adodc2.Recordset.Fields(車(chē)輛序號(hào)).Value) = Trim(Text1.Text) Then Adodc2.Recordset.Fields(出售數(shù)量).Value = Val(Adodc2.Recordset.Fields(出售數(shù)量).Value) + Val(Text9.Text)Else Ado

37、dc2.Refresh Adodc2.Recordset.AddNew Adodc2.Recordset.Fields(車(chē)輛序號(hào)).Value = Text1.TextAdodc2.Recordset.Fields(車(chē)輛品牌).Value = Text3.Text Adodc2.Recordset.Fields(車(chē)輛型號(hào)).Value = Text4.Text Adodc2.Recordset.Fields(出售數(shù)量).Value = Text9.Text Adodc2.Recordset.Fields(售價(jià)（萬(wàn)元/輛）).Value = Text11.Text Adodc2.Recordse

38、t.Fields(銷(xiāo)售日期).Value = Date Adodc2.Recordset.UpdateEnd IfNext KElseAdodc2.RefreshAdodc2.Recordset.AddNewAdodc2.Recordset.Fields(車(chē)輛序號(hào)).Value = Text1.TextAdodc2.Recordset.Fields(車(chē)輛品牌).Value = Text3.Text Adodc2.Recordset.Fields(車(chē)輛型號(hào)).Value = Text4.TextAdodc2.Recordset.Fields(出售數(shù)量).Value = Text9.TextAdo

39、dc2.Recordset.Fields(售價(jià)（萬(wàn)元/輛）).Value = Text11.TextAdodc2.Recordset.Fields(銷(xiāo)售日期).Value = DateAdodc2.Recordset.UpdateAdodc2.RefreshEnd If進(jìn)入總銷(xiāo)售庫(kù) temp = FalseAdodc3.Refresh For j = 1 To Adodc3.Recordset.RecordCount Adodc3.Recordset.AbsolutePosition = jIf Trim(Adodc3.Recordset.Fields(車(chē)輛序號(hào)).Value) = Trim(

40、Text1.Text) And _Trim(Adodc3.Recordset.Fields(銷(xiāo)售日期).Value) = Trim(Text11.Text) ThenAdodc3.Recordset.Fields(出售數(shù)量).Value = Val(Adodc3.Recordset.Fields(出售數(shù)量).Value) + Val(Text9.Text) temp = TrueAdodc3.Recordset.UpdateText1.Text = Text2.Text = Text3.Text = Text4.Text = Text9.Text = Text10.Text = Text11.

41、Text = Text12.Text = Text13.Text = Adodc3.Refresh End IfNext j If Not temp ThenAdodc3.RefreshAdodc3.Recordset.AddNewAdodc3.Recordset.Fields(車(chē)輛序號(hào)).Value = Text1.TextAdodc3.Recordset.Fields(車(chē)輛生產(chǎn)商).Value = Text2.Text Adodc3.Recordset.Fields(車(chē)輛品牌).Value = Text3.Text Adodc3.Recordset.Fields(車(chē)輛型號(hào)).Value =

42、 Text4.Text Adodc3.Recordset.Fields(出售數(shù)量).Value = Text9.TextAdodc3.Recordset.Fields(售價(jià)（萬(wàn)元/輛）).Value = Text11.TextAdodc3.Recordset.Fields(銷(xiāo)售日期).Value = DateAdodc3.Recordset.Fields(備注).Value = Text12.TextAdodc3.Recordset.Fields(查看此車(chē)輛信息).Value = Text13.TextAdodc3.Recordset.UpdateAdodc3.Refresh End If T

43、ext1.Text = Text2.Text = Text3.Text = Text4.Text = Text9.Text = Text10.Text = Text11.Text = Text12.Text = Text13.Text = End SubPrivate Sub Command2_Click()Dim i As Integer,Dim SUM As Single For i = 1 To Adodc2.Recordset.RecordCount Adodc2.Recordset.AbsolutePosition = i SUM = SUM + Val(Adodc2.Records

44、et.Fields(售價(jià)（萬(wàn)元/輛）) * Val(Adodc2.Recordset.Fields(出售數(shù)量)Next i Label18.Caption = 共需金額 & SUM & 萬(wàn)元人民幣End SubPrivate Sub Command4_Click()Dim j As Integer, b As Integer, i As IntegerAdodc2.RefreshAdodc2.Recordset.MoveLastFor j = 1 To Adodc2.Recordset.RecordCountAdodc2.Recordset.MoveLastAdodc2.Recordset.D

45、eleteAdodc2.RefreshNext jLabel18.Caption = Adodc2.RefreshEnd SubPrivate Sub Command5_Click()Form6.HideForm4.ShowEnd SubPrivate Sub Command3_Click()Form14.HideForm2.ShowEnd Sub圖4.9 銷(xiāo)售界面首先銷(xiāo)售人員在車(chē)輛序號(hào)文本框內(nèi)輸入所要出售的車(chē)輛序號(hào)，則系統(tǒng)會(huì)自動(dòng)顯示該轎車(chē)的其它信息，輸入銷(xiāo)售數(shù)量，單擊“確認(rèn)售出”按鈕，就可以完成本次的銷(xiāo)售操作，并且系統(tǒng)回自動(dòng)將待出售的車(chē)輛添加到顧客購(gòu)買(mǎi)車(chē)輛清單中，同時(shí)庫(kù)存的該車(chē)輛會(huì)自動(dòng)在數(shù)量

46、上減少一輛，而在銷(xiāo)售庫(kù)中則回自動(dòng)在數(shù)量上增加一輛，如果銷(xiāo)售庫(kù)沒(méi)有該車(chē)輛則添加一條新記錄。點(diǎn)擊“結(jié)算”按鈕，就會(huì)在共需金額處自動(dòng)顯示此次消費(fèi)所需付的金額，實(shí)現(xiàn)了轎車(chē)進(jìn)庫(kù)、出庫(kù)、結(jié)算的全程自動(dòng)化過(guò)程。如圖4.10所示。圖4.10 結(jié)算界面結(jié)算完成后，銷(xiāo)售人員還可以對(duì)顧客購(gòu)買(mǎi)車(chē)輛清單進(jìn)行清除操作，單擊“清除”按鈕，就可以清空顧客購(gòu)買(mǎi)車(chē)輛清單，以方便下次操作，如圖4.11所示。圖4.11清空顧客購(gòu)買(mǎi)車(chē)輛清單4.2.4查詢(xún)界面在汽車(chē)銷(xiāo)售系統(tǒng)中，單擊查詢(xún)按鈕，您就可以進(jìn)入到查詢(xún)界面，該界面有1個(gè)Label控件，它的屬性是歡迎您到查詢(xún)界面，5個(gè)CommandButton控件，它們的Caption屬性分別為客

47、戶(hù)添加與查詢(xún)，進(jìn)貨查詢(xún)，銷(xiāo)售查詢(xún)，維修用戶(hù)查詢(xún)和退出。入圖4.12所示。程序代碼：Private Sub Command3_Click()Form4.HideForm13.ShowEnd SubPrivate Sub Command4_Click()Form4.HideForm2.ShowEnd Sub圖4.12 查詢(xún)界面單擊“客戶(hù)添加與查詢(xún)”按鈕，您就會(huì)進(jìn)入客戶(hù)添加與查詢(xún)界面，如圖4.13所示。圖4.13客戶(hù)添加與查詢(xún)界面程序代碼：Private Sub Command1_Click()Adodc1.RefreshAdodc1.Recordset.AddNew Adodc1.Recordse

48、t.Fields(編號(hào)).Value = Text1.Text Adodc1.Recordset.Fields(姓名).Value = Text2.Text Adodc1.Recordset.Fields(性別).Value = Text3.Text Adodc1.Recordset.Fields(家庭住址).Value = Text4.Text Adodc1.Recordset.UpdateAdodc1.RefreshEnd Sub如果在顧客添加框中輸入所對(duì)應(yīng)的信息，點(diǎn)擊系統(tǒng)則會(huì)把該記錄添加到客戶(hù)列表中，如圖4.14所示。 圖4.14 客戶(hù)添加界面如果在查詢(xún)列表，在請(qǐng)輸入客戶(hù)編號(hào)文本框中輸入

49、待查詢(xún)的編號(hào)，則在查詢(xún)列表中知道顯示，如圖4.15所示。程序代碼：Private Sub Command2_Click()Dim i As Integer, j As Integer, K As IntegerDim SUM As Integer: Dim H As IntegerH = Len(Text5.Text)If Adodc1.Recordset.RecordCount ThenAdodc1.Refresh For K = 1 To Adodc1.Recordset.RecordCount Adodc1.Recordset.AbsolutePosition = K If Left(T

50、rim(Adodc1.Recordset.Fields(編號(hào)).Value), H) = Trim(Text5.Text) ThenAdodc2.Refresh: Form2.ClsAdodc2.Recordset.AddNewAdodc2.Recordset.Fields(編號(hào)).Value = Adodc1.Recordset.Fields(編號(hào)).ValueAdodc2.Recordset.Fields(姓名).Value = Adodc1.Recordset.Fields(姓名).ValueAdodc2.Recordset.Fields(性別).Value = Adodc1.Recor

51、dset.Fields(性別).ValueAdodc2.Recordset.Fields(家庭住址).Value = Adodc1.Recordset.Fields(家庭住址).ValueAdodc2.Recordset.UpdateEnd If Adodc1.RefreshNext KEnd If Adodc1.RefreshPrint iEnd SubPrivate Sub Command3_Click()Dim j As Integer, b As Integer, i As IntegerAdodc2.Refreshb = Adodc2.Recordset.RecordCountFor

52、 j = 1 To bAdodc2.Recordset.MoveFirstAdodc2.Recordset.DeleteNext jAdodc2.RefreshAdodc2.Recordset.DeleteAdodc2.RefreshEnd Sub圖4.15 顧客查詢(xún)界面單擊“系統(tǒng)工具”按鈕，您就會(huì)進(jìn)入用戶(hù)增加與修改界面，如圖4.16所示。圖4.16 用戶(hù)增加與修改界面程序代碼：Private Sub Command6_Click()Form17.ShowForm13.HideEnd Sub在用戶(hù)密碼修改欄中，在用戶(hù)名中填寫(xiě)庫(kù)中以有的用戶(hù)名和密碼，在新密碼中填寫(xiě)新的密碼，但確認(rèn)密碼欄中的密碼必

53、須和新密碼相同，如圖4.17所示。程序代碼：Adodc2.RefreshIf Adodc2.Recordset.Fields(姓名) = Text5.Text And Adodc2.Recordset.Fields(密碼).Value = Text6.Text Then If Text7.Text = Text4.Text Then Adodc2.Refresh Adodc2.Recordset.Fields(密碼).Value = Text7.Text Adodc2.Recordset.Update Adodc2.RefreshElse D = MsgBox(您兩次輸入的密碼不一致，請(qǐng)從新輸

54、入!, 32, 錯(cuò)誤)End IfElseD = MsgBox(您的賬號(hào)或密碼錯(cuò)誤，請(qǐng)從新輸入!, 32, 錯(cuò)誤)End If Text5.Text = Text6.Text = Text7.Text = Text4.Text = End SubPrivate Sub Command2_Click()EndEnd Sub圖4.17 系統(tǒng)管理界面密碼修改后，密碼表中的密碼自動(dòng)改變。如圖4.18所示。圖4.18 密碼更改界面在新用戶(hù)增加欄中，創(chuàng)建自己的用戶(hù)名和密碼，如圖4.19所示。圖4.19新增用戶(hù)界面點(diǎn)擊確定按鈕后，系統(tǒng)密碼表中自動(dòng)添加一條新記錄，如圖4.20所示。圖4.20增加用戶(hù)界面程序代

55、碼：Private Sub Command3_Click()If Text2.Text = Text3.Text Then Adodc1.Refresh Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(姓名).Value = Text1.Text Adodc1.Recordset.Fields(密碼).Value = Text2.Text Adodc1.Recordset.Update Adodc1.RefreshElseD = MsgBox(您兩次輸入的密碼不一致，請(qǐng)從新輸入!, 32, 錯(cuò)誤)End If Text1.Text = Text2

56、.Text = Text3.Text = End SubPrivate Sub Command4_Click()Form13.ShowForm17.HideEnd Sub單擊“進(jìn)貨查詢(xún)”按鈕，您就會(huì)進(jìn)入進(jìn)貨查詢(xún)界面，在請(qǐng)輸入車(chē)輛序號(hào)的文本框中輸入車(chē)輛序號(hào)，查詢(xún)?nèi)鐖D4.21所示。圖4.21進(jìn)貨查詢(xún)界面程序代碼：Dim i As Integer, j As Integer, K As Integer，SUM As Integer: Dim H As Integer H = Len(Text1.Text)If Adodc1.Recordset.RecordCount Then Adodc1.Refr

57、eshFor K = 1 To Adodc1.Recordset.RecordCountAdodc1.Recordset.AbsolutePosition = KIf Left(Trim(Adodc1.Recordset.Fields(車(chē)輛序號(hào)).Value), H) = Trim(Text1.Text) Then Adodc2.Refresh: Form12.Cls Adodc2.Recordset.AddNew Adodc2.Recordset.Fields(車(chē)輛序號(hào)).Value = Adodc1.Recordset.Fields(車(chē)輛序號(hào)).Value Adodc2.Recordset

58、.Fields(車(chē)輛生產(chǎn)商).Value = Adodc1.Recordset.Fields(車(chē)輛生產(chǎn)商).Value Adodc2.Recordset.Fields(車(chē)輛品牌).Value = Adodc1.Recordset.Fields(車(chē)輛品牌).Value Adodc2.Recordset.Fields(車(chē)輛型號(hào)).Value = Adodc1.Recordset.Fields(車(chē)輛型號(hào)).Value Adodc2.Recordset.Fields(進(jìn)貨數(shù)量).Value = Adodc1.Recordset.Fields(進(jìn)貨數(shù)量).Value Adodc2.Recordset.F

59、ields(進(jìn)價(jià)（萬(wàn)元/輛）).Value = Adodc1.Recordset.Fields(進(jìn)價(jià)（萬(wàn)元/輛）).Value Adodc2.Recordset.Fields(進(jìn)貨日期).Value = Adodc1.Recordset.Fields(進(jìn)貨日期).Value Adodc2.Recordset.Fields(備注).Value = Adodc1.Recordset.Fields(備注).Value Adodc2.Recordset.Fields(查看此車(chē)輛信息).Value = Adodc1.Recordset.Fields(查看此車(chē)輛信息).Value Adodc2.Recor

60、dset.UpdateEnd IfAdodc1.RefreshNext KEnd IfAdodc1.RefreshPrint iEnd SubPrivate Sub Command2_Click()Dim j As Integer, b As Integer, i As IntegerAdodc2.Refreshb = Adodc2.Recordset.RecordCountFor j = 1 To bAdodc2.Recordset.MoveFirstAdodc2.Recordset.DeleteNext jAdodc2.RefreshAdodc2.Recordset.DeleteAdodc