轎車4S店綜合服務(wù)系統(tǒng)實(shí)用培訓(xùn)教程

編號(hào)：時(shí)間：2021年x月x日書山有路勤為徑，學(xué)海無涯苦作舟頁碼：第頁引言中國以前的汽車銷售是由國營的汽車銷售公司壟斷。到了20世紀(jì)90年代中期，汽車廠商開始建立自己的銷售渠道，并逐漸形成以下四種汽車渠道模式。1代理制。渠道模式可表述為廠商→總代理→區(qū)域代理→下級(jí)代理商→最終用戶。2.代理制。渠道模式可表述為廠商→區(qū)域總代理→下級(jí)代理商→最終用戶。3.經(jīng)銷制。渠道模式可表述為廠商→特許經(jīng)銷商→最終用戶。4.專賣制。渠道模式可表述為廠商→專賣店→最終用戶。但是，隨著汽車市場逐漸成熟，用戶的消費(fèi)心理也逐漸成熟，用戶需求多樣化，對(duì)產(chǎn)品、服務(wù)的要求也越來越高，越來越嚴(yán)格，原有的代理銷售體制已不能適應(yīng)市場與用戶的需求。4S店的出現(xiàn)，恰好能滿足用戶的各種需求，它可以提供裝備精良、整潔干凈的維修區(qū)，現(xiàn)代化的設(shè)備和服務(wù)管理，高度職業(yè)化的氣氛，保養(yǎng)良好的服務(wù)設(shè)施，充足的零配件供應(yīng)，迅速及時(shí)的跟蹤服務(wù)體系。通過4S店的服務(wù)，可以使用戶對(duì)品牌產(chǎn)生信賴感，所以說，4S店是汽車市場激烈競爭下的產(chǎn)物。第一章開發(fā)工具的軟件描述1.1ADO編程模型簡介在VB6.0中推出的ADO（ACTIVEDataObject）是一種數(shù)據(jù)訪問策略，也是一個(gè)用于存取數(shù)據(jù)源的COM組件，它提供了編程語言和統(tǒng)一數(shù)據(jù)訪問方式OLEDB的一個(gè)中間層。他將逐步替代DAO和RDO而成為主要的數(shù)據(jù)訪問接口。ADO對(duì)象模型包括下表所示的一些可編程的對(duì)象。名稱說明Connection（連接）通過“連接“可使應(yīng)用程序訪問數(shù)據(jù)源Command（命令）通過連接所發(fā)出的“命令“操作數(shù)據(jù)源Recordset（記錄集）“記錄集”描述來自數(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)境，通過“連接”可使應(yīng)用程序訪問數(shù)據(jù)源。ADO對(duì)象模型使用Connection對(duì)象使連接概念得宜具體化，Connection對(duì)象用于指定專門的提供者的任意參數(shù)下表列出Connection對(duì)象的常用屬性和方法。名稱說明ConnectionString屬性設(shè)置到數(shù)據(jù)源的連接信息Open方法打開數(shù)據(jù)源的連接Excuse方法對(duì)連接執(zhí)行各種操作Cansel方法取消Open或Excuse方法的調(diào)用Close方法關(guān)閉打開的Connection對(duì)象2.命令（Command）對(duì)象“命令”對(duì)象描述對(duì)數(shù)據(jù)源執(zhí)行的命令。通過已建立的連接發(fā)出的“命令”可以某種方式來操作數(shù)據(jù)源。一般情況下，命令可以在數(shù)據(jù)源中添加、刪除、或更新數(shù)據(jù)，或者在表中以行的格式檢索數(shù)據(jù)。ADO對(duì)象模型用Command對(duì)象來體現(xiàn)命令概念，使用Command對(duì)象可使ADO優(yōu)化命令執(zhí)行，下表列出Command對(duì)象的常用屬性和方法。名稱說明ActiveConnection屬性設(shè)置到數(shù)據(jù)源的連接信息CommandText方法指定發(fā)送的命令文本，如SQL語句等CommandType設(shè)置或返回CommandText的類型Excuse方法執(zhí)行CommandText屬性指定操作Cansel方法取消Excuse方法的調(diào)用3.記錄集（Recordset）對(duì)象“記錄集“對(duì)象描述來自數(shù)據(jù)表或命令執(zhí)行結(jié)果的記錄集合，其組成為記錄（行）。Recordset是在進(jìn)行中檢查和修改數(shù)據(jù)最主要的方法。常用于指定可以檢查的行，移動(dòng)行，指定移動(dòng)行的順序，添加、更改或刪除行，通過更改行更新數(shù)據(jù)源等。下表列出Recordset對(duì)象的常用屬性和方法。名稱說明ActiveConn屬性tion返回Recordset對(duì)象所屬的Connection對(duì)象Souce屬性返回或設(shè)置Recordset對(duì)象的生成方式；Command對(duì)象、SQL語句或存儲(chǔ)過程RecordCount屬性返回Recordset對(duì)象中的記錄個(gè)數(shù)BOF、EOF屬性指示當(dāng)前記錄指針位置是否位于首記錄前、末記錄后Bookmark屬性返回或設(shè)置Recordset對(duì)象中當(dāng)前記錄的書簽CursorTyp屬性設(shè)置或返回Recordset對(duì)象中使用的光標(biāo)類型Filter屬性設(shè)置Recordset對(duì)象中的數(shù)據(jù)篩選條件Sort屬性設(shè)置排序字段Open方法打開代表數(shù)據(jù)庫、查詢結(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ì)象的查詢，以更新其中數(shù)據(jù)Update方法保存對(duì)當(dāng)前記錄的修改Cancelupdate方法取消在調(diào)用Update方法之前對(duì)當(dāng)前記錄的修改Delete方法刪除當(dāng)前記錄或記錄組此外，在ADO編程模型中，Connection、Command、Recordset和Field對(duì)象都具有Properties集合。它包含所有屬于各個(gè)包含對(duì)象的Property對(duì)象。

ADO對(duì)象擁有可在其上使用的諸如“整型”、“字符型”或“布爾型”這樣的普通數(shù)據(jù)類型來設(shè)置或檢索值的屬性。然而，有必要將某些屬性看成是數(shù)據(jù)類型“COLLECTIONOBJECT”的返回值。相應(yīng)的，集合對(duì)象具有存儲(chǔ)和檢索適合該集合的其他對(duì)象的方法。1.1.1ADO提供執(zhí)行操作的方式1、連接到數(shù)據(jù)源。同時(shí)，可確定對(duì)數(shù)據(jù)源的所有更改是否已成功或沒有生。

2、指定訪問數(shù)據(jù)源的命令，同時(shí)可帶變量參數(shù)，或優(yōu)化執(zhí)行。

3、執(zhí)行命令。

3、如果這個(gè)命令使數(shù)據(jù)按表中的行的形式返回，則將這些行存儲(chǔ)在易于檢查、操作或更改的緩存中。

4、適當(dāng)情況下，可使用緩存行的更改內(nèi)容來更新數(shù)據(jù)源。

5、提供常規(guī)方法檢測錯(cuò)誤（通常由建立連接或執(zhí)行命令造成）。在典型情況下，需要在編程模型中采用所有這些步驟。但是，由于ADO有很強(qiáng)的靈活性，所以最后只需執(zhí)行部分模塊就能做一些有用的工作。1.1.2ADO的特點(diǎn)ADO是一種可視化、面對(duì)對(duì)象和調(diào)用事件驅(qū)動(dòng)方式的結(jié)構(gòu)高級(jí)程序設(shè)計(jì)，可用于Windows環(huán)境下的應(yīng)用程序，她簡單易學(xué)、效率高，而且功能強(qiáng)大。總的來說，ADO具有以下特點(diǎn)：1、易于使用這是ADO技術(shù)的最重要的一個(gè)特征。由于ADO是高層應(yīng)用，所以相對(duì)于OLEDB或者ODBC來說，它具有面向?qū)ο蟮奶匦?。同時(shí)，在ADO的對(duì)象結(jié)構(gòu)中，其對(duì)象之間的層次關(guān)系并不明顯。相對(duì)于DAO等訪問技術(shù)來講，又不必關(guān)心對(duì)象的構(gòu)造順序和構(gòu)造層次。對(duì)于要用的對(duì)象，不必選建立連接、會(huì)話等對(duì)象，只需直接構(gòu)造即可，方便了應(yīng)用程序的編制。2、高速訪問數(shù)據(jù)源由于ADO技術(shù)基于OLEDB，所以，它也繼承了OLEDB訪問數(shù)據(jù)庫的高速性。3、可以訪問不同數(shù)據(jù)源ADO技術(shù)可以訪問包括關(guān)系數(shù)據(jù)庫和非關(guān)系數(shù)據(jù)庫的所有文件系統(tǒng)。此特點(diǎn)使應(yīng)用程序有很多的靈活性和通用性。4、可以用于MicrosoftActiveX頁ADO技術(shù)可以以ActiveX控件的形式出現(xiàn)，所以，可以被用于MicrosoftActiveX頁，此特征可簡化WEB頁的編程。5、程序占用內(nèi)存少由于ADO是基于組件對(duì)象模型（COM）的訪問技術(shù)，所以，用ADO產(chǎn)生的應(yīng)用程序占用內(nèi)存少。1.2數(shù)據(jù)庫的發(fā)展數(shù)據(jù)庫（database）為滿足某一部門中多個(gè)用戶多種應(yīng)用的需要，按照一定的數(shù)據(jù)模型在計(jì)算機(jī)系統(tǒng)中組織、存儲(chǔ)和使用的互相聯(lián)系的數(shù)據(jù)集合。帶有數(shù)據(jù)庫的計(jì)算機(jī)系統(tǒng)，除具備一般的硬件、軟件外，必須有用以存儲(chǔ)大量數(shù)據(jù)的直接存取存儲(chǔ)設(shè)備、管理并控制數(shù)據(jù)庫的軟件——數(shù)據(jù)庫管理系統(tǒng)(DBMS)、管理數(shù)據(jù)庫的人員——數(shù)據(jù)庫管理員(DBA)。這樣的數(shù)據(jù)、硬件、軟件和管理人員的總體構(gòu)成數(shù)據(jù)庫系統(tǒng)。數(shù)據(jù)庫僅是數(shù)據(jù)庫系統(tǒng)的一個(gè)組成部分。數(shù)據(jù)庫系統(tǒng)的功能和特征數(shù)據(jù)庫系統(tǒng)由文卷系統(tǒng)發(fā)展而來。與文卷系統(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ù)分別納入各自的文卷之中。文卷的各種記錄之間沒有建立聯(lián)系，因而數(shù)據(jù)冗余度大。增加新的應(yīng)用，必須同時(shí)增加新的文卷。因此，文卷系統(tǒng)中的文卷是無結(jié)構(gòu)的、不易擴(kuò)充的信息集合。數(shù)據(jù)庫則不僅描述數(shù)據(jù)本身，而且描述數(shù)據(jù)之間的聯(lián)系。它的數(shù)據(jù)結(jié)構(gòu)反映了某一部門的整體信息結(jié)構(gòu)，數(shù)據(jù)冗余度小、易于擴(kuò)充新的應(yīng)用，因而是面向數(shù)據(jù)總體結(jié)構(gòu)的信息集合，可為多個(gè)用戶共享。體系特征一切數(shù)據(jù)都有邏輯和物理兩個(gè)側(cè)面。在數(shù)據(jù)庫系統(tǒng)中，數(shù)據(jù)邏輯結(jié)構(gòu)的描述稱為邏輯模式。邏輯模式又分為描述全局邏輯結(jié)構(gòu)的全局模式(簡稱模式)和描述某些應(yīng)用所涉及的局部邏輯結(jié)構(gòu)的子模式。數(shù)據(jù)物理結(jié)構(gòu)的描述稱為存儲(chǔ)模式。這兩種模式總稱為數(shù)據(jù)庫模式。

數(shù)據(jù)庫系統(tǒng)中，用戶根據(jù)子模式編制程序。子模式與模式模式與存儲(chǔ)模式之間有軟件進(jìn)行映射。因此,程序與數(shù)據(jù)之間具有兩級(jí)獨(dú)立性：物理獨(dú)立性和邏輯獨(dú)立性。數(shù)據(jù)的存儲(chǔ)模式改變，而模式可以不改變，因而不必改寫應(yīng)用程序,這稱為物理獨(dú)立性。模式改變時(shí),子模式可能不改變，也就不必改寫應(yīng)用程序，這稱為邏輯獨(dú)立性。由于數(shù)據(jù)庫系統(tǒng)具備比較高的程序與數(shù)據(jù)的獨(dú)立性，可以使程序員在編制應(yīng)用程序時(shí)集中精力考慮算法邏輯，不必過問物理細(xì)節(jié)，而且可以大大減少應(yīng)用程序維護(hù)的工作量。控制特征數(shù)據(jù)庫數(shù)據(jù)數(shù)量龐大，結(jié)構(gòu)復(fù)雜，又為多個(gè)用戶所共享。因此，必須由數(shù)據(jù)庫管理系統(tǒng)在定義、建立、運(yùn)行以及維護(hù)時(shí)進(jìn)行統(tǒng)一管理和控制，以保證數(shù)據(jù)庫數(shù)據(jù)的安全性、完整性和并發(fā)操作的一致性。此外，還必須有數(shù)據(jù)庫管理員專門負(fù)責(zé)對(duì)數(shù)據(jù)庫的管理、控制監(jiān)督和改進(jìn)。由于數(shù)據(jù)庫系統(tǒng)具有上述特征，它的出現(xiàn)使信息系統(tǒng)的研制從圍繞加工數(shù)據(jù)的程序?yàn)橹行模D(zhuǎn)變到圍繞共享的數(shù)據(jù)庫來進(jìn)行。這便于數(shù)據(jù)的集中管理，有利于應(yīng)用程序的研制和維護(hù)。數(shù)據(jù)減少了冗余度和提高了相容性，從而提高了作出決策的相容性。因此，大型復(fù)雜的信息系統(tǒng)大多以數(shù)據(jù)庫為核心，數(shù)據(jù)庫系統(tǒng)在計(jì)算機(jī)應(yīng)用中起著越來越重要的作用。研究課題數(shù)據(jù)庫研究的課題，主要涉及三個(gè)領(lǐng)域。數(shù)據(jù)庫管理系統(tǒng)軟件的研制DBMS是數(shù)據(jù)庫系統(tǒng)的基礎(chǔ)。研制DBMS的基本目標(biāo)，是擴(kuò)大功能，提高性能和可用性，從而提高用戶的生產(chǎn)率。70年代以來，研制的重點(diǎn)是探索關(guān)系數(shù)據(jù)庫管理系統(tǒng)的設(shè)計(jì)，內(nèi)容包括關(guān)系數(shù)據(jù)語言、查詢優(yōu)化、并發(fā)控制和系統(tǒng)性能等。另一類課題是對(duì)DBMS標(biāo)準(zhǔn)化的研究，即研究一個(gè)統(tǒng)一的DBMS體系結(jié)構(gòu)的規(guī)范。數(shù)據(jù)庫設(shè)計(jì)這是在計(jì)算機(jī)系統(tǒng)具有的數(shù)據(jù)庫管理系統(tǒng)的基礎(chǔ)上，按照應(yīng)用要求以及計(jì)算機(jī)系統(tǒng)所提供的數(shù)據(jù)模型和功能，設(shè)計(jì)一個(gè)結(jié)構(gòu)良好、使用方便、效率較高的，以數(shù)據(jù)庫為核心的應(yīng)用信息系統(tǒng)。這一領(lǐng)域主要的研究課題，是數(shù)據(jù)庫設(shè)計(jì)方法學(xué)和設(shè)計(jì)工具的探索。例如，運(yùn)用軟件工程的方法和工具指導(dǎo)數(shù)據(jù)庫設(shè)計(jì)；研究數(shù)據(jù)庫設(shè)計(jì)各個(gè)階段中完備的方法和工具；以關(guān)系數(shù)據(jù)庫的規(guī)范化理論為指南進(jìn)行數(shù)據(jù)庫邏輯設(shè)計(jì)等。數(shù)據(jù)庫理論主要研究關(guān)系數(shù)據(jù)庫理論。關(guān)系數(shù)據(jù)庫理論研究的意義，一方面在于它為數(shù)據(jù)庫學(xué)科奠定了理論基礎(chǔ);另一方面它為數(shù)據(jù)庫設(shè)計(jì)提供了判別標(biāo)準(zhǔn),從而成為數(shù)據(jù)庫設(shè)計(jì)的有力指南。研究的主要內(nèi)容是關(guān)系的規(guī)范化理論。關(guān)系規(guī)范化理論已應(yīng)用于數(shù)據(jù)庫設(shè)計(jì)的各個(gè)階段。發(fā)展數(shù)據(jù)庫技術(shù)是計(jì)算機(jī)科學(xué)中發(fā)展最快的領(lǐng)域之一，新的領(lǐng)域越來越多。分布式數(shù)據(jù)庫系統(tǒng)隨著70年代后期分布計(jì)算機(jī)系統(tǒng)的發(fā)展，相應(yīng)地研究成功分布式數(shù)據(jù)庫系統(tǒng)。分布式數(shù)據(jù)庫系統(tǒng)是一個(gè)在邏輯上完整，而在物理上分散在若干臺(tái)互相連接的結(jié)點(diǎn)機(jī)上的數(shù)據(jù)庫系統(tǒng)。它既具有分布性又具有數(shù)據(jù)庫的綜合性。這是數(shù)據(jù)庫系統(tǒng)發(fā)展的一個(gè)重要方向。分布式數(shù)據(jù)庫系統(tǒng)結(jié)構(gòu)復(fù)雜，其中最復(fù)雜的是分布式數(shù)據(jù)庫管理系統(tǒng)。數(shù)據(jù)庫機(jī)器新的計(jì)算機(jī)系統(tǒng)的體系結(jié)構(gòu)。它把由中央處理器包辦的數(shù)據(jù)庫操作分散給一些局部的部件來執(zhí)行，或轉(zhuǎn)移到一個(gè)與主計(jì)算機(jī)相連的專用計(jì)算機(jī)去執(zhí)行，以提高并行性。數(shù)據(jù)庫機(jī)器的發(fā)展，包括智能控制器和存儲(chǔ)器，專用處理機(jī)和數(shù)據(jù)庫計(jì)算機(jī)。數(shù)據(jù)庫語義模型數(shù)據(jù)庫的數(shù)據(jù)模型基本上屬于語法模型，語義體現(xiàn)很不完備，不能明顯地含有現(xiàn)實(shí)世界的意義。因此，用戶只能按照DBMS所提供的數(shù)據(jù)操縱語言訪問數(shù)據(jù)庫。語義模型能準(zhǔn)確地描述現(xiàn)實(shí)世界中某個(gè)部門的信息集合及其意義，使用戶能基于對(duì)現(xiàn)實(shí)世界的認(rèn)識(shí)或用類似于自然語言的形式來訪問數(shù)據(jù)庫。這方面的研究已發(fā)展為數(shù)據(jù)語義學(xué)。數(shù)據(jù)庫智能檢索數(shù)據(jù)庫技術(shù)和人工智能相結(jié)合，根據(jù)數(shù)據(jù)庫中的事實(shí)和知識(shí)進(jìn)行推理，演繹出正確答案，這就是數(shù)據(jù)庫的智能檢索。這涉及到自然語言用戶接口、邏輯演繹功能和數(shù)據(jù)庫語義模型等問題，如70年代末所開始的知識(shí)庫管理系統(tǒng)和演繹數(shù)據(jù)庫的研究。辦公室自動(dòng)化系統(tǒng)中的數(shù)據(jù)庫研究在辦公室自動(dòng)化系統(tǒng)中數(shù)據(jù)庫技術(shù)的應(yīng)用，其中主要研究對(duì)各種非格式化數(shù)據(jù)如圖像、聲音、正文的處理，以及面向端點(diǎn)用戶的高級(jí)語言接口。第二章汽車4S店綜合服務(wù)系統(tǒng)的分析與設(shè)計(jì)

進(jìn)入21世紀(jì)以來，隨著汽車工業(yè)競爭的日趨激烈，計(jì)算機(jī)的飛速發(fā)展，計(jì)算機(jī)在汽車服務(wù)方面發(fā)揮著越來越大的作用，利用計(jì)算機(jī)實(shí)現(xiàn)對(duì)汽車企業(yè)的管理勢在必行。對(duì)于大中型企業(yè)來說，利用計(jì)算機(jī)支持企業(yè)高效完成汽車的銷售、查詢的日常事物以及了解客戶對(duì)企業(yè)或車輛的信息反饋，只有這樣才能適應(yīng)現(xiàn)代企業(yè)的制度要求，才能推動(dòng)企業(yè)走向科學(xué)化的必要條件。而在銷售、查詢、信息反饋方面都是一些瑣碎、復(fù)雜的工作，銷售額的計(jì)算，進(jìn)貨庫和銷售庫的管理一般都是不允許出錯(cuò)的，如果實(shí)行手工操作，數(shù)量大的時(shí)候，這不僅耗時(shí)，而且不能夠快速、準(zhǔn)確無誤的的算出結(jié)果，但是利用計(jì)算機(jī)進(jìn)行工作，在這些工作中有著人工無法比擬的優(yōu)點(diǎn)。例如：管理方便、存儲(chǔ)量大、保密性好、成本低等。這些優(yōu)點(diǎn)極大的提高汽車4S店綜合服務(wù)系統(tǒng)的開發(fā)性和實(shí)用前景。2.1系統(tǒng)分析要設(shè)計(jì)一個(gè)有效的汽車4S店綜合服務(wù)系統(tǒng)必須做全面的調(diào)查，從多方面來對(duì)系統(tǒng)進(jìn)行考慮。重點(diǎn)是數(shù)據(jù)分析極其處理過程，從系統(tǒng)的分析的調(diào)查中獲得企業(yè)用戶對(duì)系統(tǒng)的使用要求。包括：功能要求，既要實(shí)現(xiàn)什么功能以及怎樣實(shí)現(xiàn)信息要求，企業(yè)用戶從數(shù)據(jù)庫中獲得的怎樣的信息內(nèi)容安全性和完整性的要求2.2系統(tǒng)的設(shè)計(jì)使用Visualbasic和ADO對(duì)數(shù)據(jù)庫和程序設(shè)計(jì)語言進(jìn)行編寫和實(shí)現(xiàn)。在編寫程序過程中，既要考慮程序?qū)崿F(xiàn)設(shè)計(jì)功能，同時(shí)也要考慮程序的簡單性，這樣的目的是以便于后來的程序調(diào)試和修改。在創(chuàng)立數(shù)據(jù)庫模塊時(shí)，要從實(shí)際從發(fā)，必須考慮到每一個(gè)模塊的實(shí)際意義。設(shè)計(jì)的模塊有：2.2.1進(jìn)貨模塊的設(shè)計(jì)2.2.2銷售模塊的設(shè)計(jì)2.2.3進(jìn)貨查詢模塊的設(shè)計(jì)2.2.4維修用戶模塊的查詢2.2.5購車用戶添加及查詢模塊的設(shè)計(jì)2.2.6車輛維修模塊的設(shè)計(jì)2.2.7信息反饋模塊的設(shè)計(jì)2.2.8汽車臨配件模塊的設(shè)計(jì)2.2.9車輛保養(yǎng)模塊的設(shè)計(jì)第三章系統(tǒng)操作流程圖及功能介紹3.1系統(tǒng)功能介紹：車輛進(jìn)貨；車輛銷售；車輛進(jìn)貨查詢；添加數(shù)據(jù)記錄；信息反饋；車輛維修與保養(yǎng)；3.2系統(tǒng)功能模塊圖：圖3.1系統(tǒng)功能模塊圖通過系統(tǒng)模塊圖，我們可以簡單的了解一下系統(tǒng)結(jié)構(gòu)，現(xiàn)在我們對(duì)以下的模塊（銷售管理、車輛資料實(shí)體、查詢系統(tǒng)、管理系統(tǒng)）做一個(gè)簡單的了解。以便于我們更好的了解各個(gè)模塊的功能。圖3.2銷售管理實(shí)體E-R圖圖3.3車輛資料實(shí)體E-R圖圖3.4查詢系統(tǒng)的模塊圖圖3.5車輛維修系統(tǒng)3.6數(shù)據(jù)庫管理系統(tǒng)圖圖3.7管理系統(tǒng)圖第四章車4S店綜合服務(wù)系統(tǒng)主體功能說明4.1陸界面的說明及功能：系統(tǒng)運(yùn)行之后，首先呈現(xiàn)您的面前是系統(tǒng)的登陸界面，該界面是由姓名和密碼組成，登陸界面如圖4.1所示。圖4.1登陸界面進(jìn)入登陸界面后，單擊用戶名所對(duì)應(yīng)文本框的下拉列表按鈕，將看到有許燕永、張立軍、王文凱、石景豐等用戶名，每個(gè)用戶名都有各自所對(duì)應(yīng)的密碼，任選一個(gè)用戶名，如以許燕永為例（其默認(rèn)密碼為1111），在對(duì)應(yīng)的文本框內(nèi)輸入密碼，單擊確定按鈕，即可登陸，進(jìn)如到轎車4S店主界面。如圖4.2所示。圖4.24S店界面但是如果密碼輸入錯(cuò)誤，將出現(xiàn)如圖4.3所示。圖4.3密碼錯(cuò)誤提示對(duì)話框用它來保護(hù)系統(tǒng)，使系統(tǒng)具有較高的安全性。點(diǎn)確定后，用戶可以重新輸入密碼。該系統(tǒng)允許輸入三次密碼，如果用戶三次都不能輸入正確的密碼，則系統(tǒng)認(rèn)為你為非法用戶，試圖竊取信息，所以系統(tǒng)會(huì)自動(dòng)彈出“對(duì)不起，您無權(quán)登陸此系統(tǒng)!”對(duì)話框，如圖4.4所示。圖4.4登陸失敗界面點(diǎn)擊確定按鈕后自動(dòng)將用戶名文本框、密碼文本框變成灰色，成為不可用狀態(tài)，登陸者只能取消，退出登陸界面。如果用戶名和密碼都正確，用戶就進(jìn)入到轎車4S店主界面。如圖4.2。程序代碼如下：PrivateSubCommand1_Click()DimbAsBoolean,DAsString,iAsInteger:StaticKAsIntegerD=False:b=False:K=K+1Adodc1.RefreshAdodc1.Recordset.MoveLastPrintKFori=1ToAdodc1.Recordset.RecordCountStep1Adodc1.Recordset.AbsolutePosition=i'i-1->iIfTrim(Adodc1.Recordset.Fields("姓名").Value)=Trim(Combo1.Text)AndTrim_(Adodc1.Recordset.Fields("密碼").Value)=Trim(Text1.Text)ThenForm1.HideForm2.Show:K=0:ExitForElseb=TrueEndIfNextiIfK=1OrK=2ThenD=MsgBox("您的密碼錯(cuò)誤，請(qǐng)從新輸入!",32,"密碼錯(cuò)誤")EndIfIfK=3ThenD=MsgBox("警告!你輸入的信息有三次不正確!",32,"密碼錯(cuò)誤")Combo1.Enabled=False:Text1.Enabled=FalseEndIfEndSubPrivateSubCommand2_Click()UnloadMeEndSub4.1.1登陸界面的設(shè)計(jì)和實(shí)現(xiàn)：用戶的登陸界面是進(jìn)入應(yīng)用系統(tǒng)的舌喉，在安全性方面占有重要的地位，是系統(tǒng)安全、穩(wěn)定、正常運(yùn)行的關(guān)鍵，同時(shí)為了能夠真正的吸引操作人員的眼球，讓他們感到舒服，美觀也是很重要的，所以對(duì)登陸界面進(jìn)行美觀設(shè)置。圖案設(shè)置：為了美化登陸界面，首先在工具箱中選擇Image控件，把它拖到窗口上，然后Image的屬性欄上使用Picture屬性。2.控件分布：主要包括5個(gè)Label控件，它們的Caption屬性分別為用戶名、密碼、指導(dǎo)老師、制作人、時(shí)間顯示，其他屬性為默認(rèn)值；一個(gè)Textbox控件;一個(gè)Combo控件;一個(gè)Adodc控件,兩個(gè)CommandButton控件,它們的屬性分別為確定、取消。3.控件功能：【確定】命令按鈕，首先它是判斷用戶名和密碼是否一致，如果不一致則出現(xiàn)用戶提示信息-“您的密碼錯(cuò)誤，請(qǐng)重新輸入！”，如果用戶名和密碼一致，操作人員則可以打開主界面，進(jìn)入系統(tǒng)進(jìn)行以后的相關(guān)操作。【取消】命令按鈕則是退出登陸系統(tǒng)。4.2轎車銷售界面系統(tǒng)主界面包括了整個(gè)應(yīng)用程序的概況，其上面顯示的所有功能也就是該系統(tǒng)的所有功能，也是操作人員可以操作的所有顯示，它是該系統(tǒng)的母體，如圖4.2所示。在系統(tǒng)主界面上，有五個(gè)功能鍵，分別為車輛銷售、汽車零配件、維修服務(wù)、信息反饋和退出，意識(shí)先各自的功能。1.圖案設(shè)置：美化界面，在工具箱上選擇Image控件，把它拖到窗口上，然后在在工具箱上選擇Image屬性欄中使用Picture屬性導(dǎo)入圖片。2.控件分布：主要包括一個(gè)Label控件，它的Caption屬性為歡迎您到汽車4S界面，5個(gè)CommandButton控件,它們的屬性分別為車輛銷售，汽車零配件，維修服務(wù)，信息反饋和返回。單擊轎車銷售按鈕，會(huì)顯示出轎車銷售界面，在轎車銷售界面上有六個(gè)功能鍵，一個(gè)Label控件，它的Caption屬性為歡迎您到汽車銷售系統(tǒng)，5個(gè)CommandButton控件,它們的Caption屬性分別為進(jìn)貨，銷售，查詢，網(wǎng)絡(luò)連接和退出。如圖4.5所示。程序代碼：PrivateSubCommand1_Click()Form4.ShowForm2.HideEndSubPrivateSubCommand5_Click()Form2.HideForm1.ShowEndSub4.2.1進(jìn)貨界面在汽車銷售系統(tǒng)中，單擊進(jìn)貨按鈕，您就可以進(jìn)入到進(jìn)貨界面，該界面有多個(gè)Label控件和所對(duì)應(yīng)的多個(gè)Text控件，兩個(gè)CommandButton控件，它們的Caption屬性分別為進(jìn)貨和取消，還有1個(gè)DataGrid控件。如圖4.6所示。程序代碼：PrivateSubjinhuo_Click()Adodc1.RefreshAdodc1.Recordset.AddNewAdodc1.Recordset.Fields("車輛序號(hào)").Value=Text1.TextAdodc1.Recordset.Fields("車輛品牌").Value=TextName.TextAdodc1.Recordset.Fields("進(jìn)貨數(shù)量").Value=TextSL.TextAdodc1.Recordset.Fields("車輛型號(hào)").Value=TextCX.TextAdodc1.Recordset.Fields("進(jìn)價(jià)（萬元/輛）").Value=Texta.TextAdodc1.Recordset.Fields("進(jìn)貨日期").Value=TextRQ.TextAdodc1.Recordset.Fields("備注").Value=TextBZ.TextAdodc1.Recordset.Fields("車輛生產(chǎn)商").Value=Text2.TextAdodc1.Recordset.Fields("查看此車輛信息").Value=Text9.TextAdodc1.Recordset.UpdateAdodc1.RefreshEndSubPrivateSubCommand2_Click()Form5.HideForm4.ShowEndSubPrivateSubCommand1_Click()Form4.ShowForm2.HideEndSubPrivateSubCommand5_Click()Form2.HideForm1.ShowEndSubPrivateSubCommand5_Click()Form2.HideForm1.ShowEndSub圖4.6轎車進(jìn)貨界面首先，進(jìn)貨人員填寫進(jìn)貨清單，它包括車輛序號(hào)、汽車生產(chǎn)商、車輛品牌、車輛型號(hào)、進(jìn)貨數(shù)量、進(jìn)價(jià)（萬元/輛）、進(jìn)貨日期、備注、查看此車輛信息，然后單擊“進(jìn)貨”按鈕，就可以完成該次進(jìn)貨操作，并且自動(dòng)添加到庫存清單中。同時(shí)，庫存清單也會(huì)作相應(yīng)的變動(dòng)。如圖4.7所示。點(diǎn)擊進(jìn)貨按鈕之后，庫存清單也做相應(yīng)的變化，如圖4.8所示。圖4.7添加進(jìn)貨界面圖4.8庫存變化界面圖4.5銷售系統(tǒng)界面4.2.3銷售界面在汽車銷售系統(tǒng)中，單擊銷售按鈕，您就可以進(jìn)入到銷售界面，該界面有多Label控件和所對(duì)應(yīng)的多個(gè)Text控件，4個(gè)CommandButton控件，它們的Caption屬性分別為確認(rèn)售出，結(jié)算，清空和返回，還有3個(gè)DataGrid控件。如圖4.9所示。程序代碼：PrivateSubCommand1_Click()DimiAsInteger,jAsInteger,KAsIntegerDimSUMAsInteger:DimtempAsBooleanIfText1=""OrText2=""ThenMsgBox"請(qǐng)輸入車輛序號(hào)！",vbOKOnly+vbExclamation,"警告"EndIfIfLen(Text1.Text)<>4ThenMsgBox"車輛序號(hào)為4位！",vbOKOnly+vbExclamation,"警告"EndIfAdodc1.RefreshAdodc1.Recordset.MoveLast'改變庫存PrintAdodc1.Recordset.RecordCountFori=1ToAdodc1.Recordset.RecordCountStep1Adodc1.Recordset.AbsolutePosition=i'i-1->iIfTrim(Adodc1.Recordset.Fields("車輛序號(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'若無此句，則不會(huì)馬上改變數(shù)量，即關(guān)閉后再打開才有效EndIfNexti'進(jìn)入顧客銷售庫IfAdodc2.Recordset.RecordCountThenForK=1ToAdodc2.Recordset.RecordCountAdodc2.Recordset.AbsolutePosition=KIfTrim(Adodc2.Recordset.Fields("車輛序號(hào)").Value)=Trim(Text1.Text)ThenAdodc2.Recordset.Fields("出售數(shù)量").Value=Val(Adodc2.Recordset.Fields("出售數(shù)量").Value)+Val(Text9.Text)ElseAdodc2.RefreshAdodc2.Recordset.AddNewAdodc2.Recordset.Fields("車輛序號(hào)").Value=Text1.TextAdodc2.Recordset.Fields("車輛品牌").Value=Text3.TextAdodc2.Recordset.Fields("車輛型號(hào)").Value=Text4.TextAdodc2.Recordset.Fields("出售數(shù)量").Value=Text9.TextAdodc2.Recordset.Fields("售價(jià)（萬元/輛）").Value=Text11.TextAdodc2.Recordset.Fields("銷售日期").Value=DateAdodc2.Recordset.UpdateEndIfNextKElseAdodc2.RefreshAdodc2.Recordset.AddNewAdodc2.Recordset.Fields("車輛序號(hào)").Value=Text1.TextAdodc2.Recordset.Fields("車輛品牌").Value=Text3.TextAdodc2.Recordset.Fields("車輛型號(hào)").Value=Text4.TextAdodc2.Recordset.Fields("出售數(shù)量").Value=Text9.TextAdodc2.Recordset.Fields("售價(jià)（萬元/輛）").Value=Text11.TextAdodc2.Recordset.Fields("銷售日期").Value=DateAdodc2.Recordset.UpdateAdodc2.RefreshEndIf'進(jìn)入總銷售庫temp=FalseAdodc3.RefreshForj=1ToAdodc3.Recordset.RecordCountAdodc3.Recordset.AbsolutePosition=jIfTrim(Adodc3.Recordset.Fields("車輛序號(hào)").Value)=Trim(Text1.Text)And_Trim(Adodc3.Recordset.Fields("銷售日期").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.Text=""Text12.Text=""Text13.Text=""Adodc3.RefreshEndIfNextjIfNottempThenAdodc3.RefreshAdodc3.Recordset.AddNewAdodc3.Recordset.Fields("車輛序號(hào)").Value=Text1.TextAdodc3.Recordset.Fields("車輛生產(chǎn)商").Value=Text2.TextAdodc3.Recordset.Fields("車輛品牌").Value=Text3.TextAdodc3.Recordset.Fields("車輛型號(hào)").Value=Text4.TextAdodc3.Recordset.Fields("出售數(shù)量").Value=Text9.TextAdodc3.Recordset.Fields("售價(jià)（萬元/輛）").Value=Text11.TextAdodc3.Recordset.Fields("銷售日期").Value=DateAdodc3.Recordset.Fields("備注").Value=Text12.TextAdodc3.Recordset.Fields("查看此車輛信息").Value=Text13.TextAdodc3.Recordset.UpdateAdodc3.RefreshEndIfText1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""Text9.Text=""Text10.Text=""Text11.Text=""Text12.Text=""Text13.Text=""EndSubPrivateSubCommand2_Click()DimiAsInteger,DimSUMAsSingleFori=1ToAdodc2.Recordset.RecordCountAdodc2.Recordset.AbsolutePosition=iSUM=SUM+Val(Adodc2.Recordset.Fields("售價(jià)（萬元/輛）"))*Val(Adodc2.Recordset.Fields("出售數(shù)量"))NextiLabel18.Caption="共需金額"&SUM&"萬元人民幣"EndSubPrivateSubCommand4_Click()DimjAsInteger,bAsInteger,iAsIntegerAdodc2.RefreshAdodc2.Recordset.MoveLastForj=1ToAdodc2.Recordset.RecordCountAdodc2.Recordset.MoveLastAdodc2.Recordset.DeleteAdodc2.RefreshNextjLabel18.Caption=""Adodc2.RefreshEndSubPrivateSubCommand5_Click()Form6.HideForm4.ShowEndSubPrivateSubCommand3_Click()Form14.HideForm2.ShowEndSub圖4.9銷售界面首先銷售人員在車輛序號(hào)文本框內(nèi)輸入所要出售的車輛序號(hào)，則系統(tǒng)會(huì)自動(dòng)顯示該轎車的其它信息，輸入銷售數(shù)量，單擊“確認(rèn)售出”按鈕，就可以完成本次的銷售操作，并且系統(tǒng)回自動(dòng)將待出售的車輛添加到顧客購買車輛清單中，同時(shí)庫存的該車輛會(huì)自動(dòng)在數(shù)量上減少一輛，而在銷售庫中則回自動(dòng)在數(shù)量上增加一輛，如果銷售庫沒有該車輛則添加一條新記錄。點(diǎn)擊“結(jié)算”按鈕，就會(huì)在‘共需金額‘處自動(dòng)顯示此次消費(fèi)所需付的金額，實(shí)現(xiàn)了轎車進(jìn)庫、出庫、結(jié)算的全程自動(dòng)化過程。如圖4.10所示。圖4.10結(jié)算界面結(jié)算完成后，銷售人員還可以對(duì)顧客購買車輛清單進(jìn)行清除操作，單擊“清除”按鈕，就可以清空顧客購買車輛清單，以方便下次操作，如圖4.11所示。圖4.11清空顧客購買車輛清單4.2.4查詢界面在汽車銷售系統(tǒng)中，單擊查詢按鈕，您就可以進(jìn)入到查詢界面，該界面有1個(gè)Label控件，它的屬性是歡迎您到查詢界面，5個(gè)CommandButton控件，它們的Caption屬性分別為客戶添加與查詢，進(jìn)貨查詢，銷售查詢，維修用戶查詢和退出。入圖4.12所示。程序代碼：PrivateSubCommand3_Click()Form4.HideForm13.ShowEndSubPrivateSubCommand4_Click()Form4.HideForm2.ShowEndSub圖4.12查詢界面單擊“客戶添加與查詢”按鈕，您就會(huì)進(jìn)入客戶添加與查詢界面，如圖4.13所示。圖4.13客戶添加與查詢界面程序代碼：PrivateSubCommand1_Click()Adodc1.RefreshAdodc1.Recordset.AddNewAdodc1.Recordset.Fields("編號(hào)").Value=Text1.TextAdodc1.Recordset.Fields("姓名").Value=Text2.TextAdodc1.Recordset.Fields("性別").Value=Text3.TextAdodc1.Recordset.Fields("家庭住址").Value=Text4.TextAdodc1.Recordset.UpdateAdodc1.RefreshEndSub如果在顧客添加框中輸入所對(duì)應(yīng)的信息，點(diǎn)擊系統(tǒng)則會(huì)把該記錄添加到客戶列表中，如圖4.14所示。圖4.14客戶添加界面如果在查詢列表，在‘請(qǐng)輸入客戶編號(hào)‘文本框中輸入待查詢的編號(hào)，則在查詢列表中知道顯示，如圖4.15所示。程序代碼：PrivateSubCommand2_Click()DimiAsInteger,jAsInteger,KAsIntegerDimSUMAsInteger:DimHAsIntegerH=Len(Text5.Text)IfAdodc1.Recordset.RecordCountThenAdodc1.RefreshForK=1ToAdodc1.Recordset.RecordCountAdodc1.Recordset.AbsolutePosition=KIfLeft(Trim(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.Recordset.Fields("性別").ValueAdodc2.Recordset.Fields("家庭住址").Value=Adodc1.Recordset.Fields("家庭住址").ValueAdodc2.Recordset.UpdateEndIfAdodc1.RefreshNextKEndIfAdodc1.RefreshPrintiEndSubPrivateSubCommand3_Click()DimjAsInteger,bAsInteger,iAsIntegerAdodc2.Refreshb=Adodc2.Recordset.RecordCountForj=1TobAdodc2.Recordset.MoveFirstAdodc2.Recordset.DeleteNextjAdodc2.RefreshAdodc2.Recordset.DeleteAdodc2.RefreshEndSub圖4.15顧客查詢界面單擊“系統(tǒng)工具”按鈕，您就會(huì)進(jìn)入用戶增加與修改界面，如圖4.16所示。圖4.16用戶增加與修改界面程序代碼：PrivateSubCommand6_Click()Form17.ShowForm13.HideEndSub在用戶密碼修改欄中，在用戶名中填寫庫中以有的用戶名和密碼，在新密碼中填寫新的密碼，但確認(rèn)密碼欄中的密碼必須和新密碼相同，如圖4.17所示。程序代碼：Adodc2.RefreshIfAdodc2.Recordset.Fields("姓名")=Text5.TextAndAdodc2.Recordset.Fields("密碼").Value=Text6.TextThenIfText7.Text=Text4.TextThenAdodc2.RefreshAdodc2.Recordset.Fields("密碼").Value=Text7.TextAdodc2.Recordset.UpdateAdodc2.RefreshElseD=MsgBox("您兩次輸入的密碼不一致，請(qǐng)從新輸入!",32,"錯(cuò)誤")EndIfElseD=MsgBox("您的賬號(hào)或密碼錯(cuò)誤，請(qǐng)從新輸入!",32,"錯(cuò)誤")EndIfText5.Text=""Text6.Text=""Text7.Text=""Text4.Text=""EndSubPrivateSubCommand2_Click()EndEndSub圖4.17系統(tǒng)管理界面密碼修改后，密碼表中的密碼自動(dòng)改變。如圖4.18所示。圖4.18密碼更改界面在新用戶增加欄中，創(chuàng)建自己的用戶名和密碼，如圖4.19所示。圖4.19新增用戶界面點(diǎn)擊確定按鈕后，系統(tǒng)密碼表中自動(dòng)添加一條新記錄，如圖4.20所示。圖4.20增加用戶界面程序代碼：PrivateSubCommand3_Click()IfText2.Text=Text3.TextThenAdodc1.RefreshAdodc1.Recordset.AddNewAdodc1.Recordset.Fields("姓名").Value=Text1.TextAdodc1.Recordset.Fields("密碼").Value=Text2.TextAdodc1.Recordset.UpdateAdodc1.RefreshElseD=MsgBox("您兩次輸入的密碼不一致，請(qǐng)從新輸入!",32,"錯(cuò)誤")EndIfText1.Text=""Text2.Text=""Text3.Text=""EndSubPrivateSubCommand4_Click()Form13.ShowForm17.HideEndSub單擊“進(jìn)貨查詢”按鈕，您就會(huì)進(jìn)入進(jìn)貨查詢界面，在‘請(qǐng)輸入車輛序號(hào)’的文本框中輸入車輛序號(hào)，查詢?nèi)鐖D4.21所示。圖4.21進(jìn)貨查詢界面程序代碼：DimiAsInteger,jAsInteger,KAsInteger，SUMAsInteger:DimHAsIntegerH=Len(Text1.Text)IfAdodc1.Recordset.RecordCountThenAdodc1.RefreshForK=1ToAdodc1.Recordset.RecordCountAdodc1.Recordset.AbsolutePosition=KIfLeft(Trim(Adodc1.Recordset.Fields("車輛序號(hào)").Value),H)=Trim(Text1.Text)ThenAdodc2.Refresh:Form12.ClsAdodc2.Recordset.AddNewAdodc2.Recordset.Fields("車輛序號(hào)").Value=Adodc1.Recordset.Fields("車輛序號(hào)").ValueAdodc2.Recordset.Fields("車輛生產(chǎn)商").Value=Adodc1.Recordset.Fields("車輛生產(chǎn)商").ValueAdodc2.Recordset.Fields("車輛品牌").Value=Adodc1.Recordset.Fields("車輛品牌").ValueAdodc2.Recordset.Fields("車輛型號(hào)").Value=Adodc1.Recordset.Fields("車輛型號(hào)").ValueAdodc2.Recordset.Fields("進(jìn)貨數(shù)量").Value=Adodc1.Recordset.Fields("進(jìn)貨數(shù)量").ValueAdodc2.Recordset.Fields("進(jìn)價(jià)（萬元/輛）").Value=Adodc1.Recordset.Fields("進(jìn)價(jià)（萬元/輛）").ValueAdodc2.Recordset.Fields("進(jìn)貨日期").Value=Adodc1.Recordset.Fields("進(jìn)貨日期").ValueAdodc2.Recordset.Fields("備注").Value=Adodc1.Recordset.Fields("備注").ValueAdodc2.Recordset.Fields("查看此車輛信息").Value=Adodc1.Recordset.Fields("查看此車輛信息").ValueAdodc2.Recordset.UpdateEndIfAdodc1.RefreshNextKEndIfAdodc1.RefreshPrintiEndSubPrivateSubCommand2_Click()DimjAsInteger,bAsInteger,iAsIntegerAdodc2.Refreshb=Adodc2.Recordset.RecordCountForj=1TobAdodc2.Recordset.MoveFirstAdodc2.Recordset.DeleteNextjAdodc2.RefreshAdodc2.Recordset.DeleteAdodc2.RefreshEndSubPrivateSubCommand3_Click()Form12.HideForm13.ShowEndSub單擊“銷售查詢”按鈕，您就會(huì)進(jìn)入銷售查詢界面，銷售查詢界面是系統(tǒng)自動(dòng)幫助用戶實(shí)現(xiàn)按日期查詢，這不僅為了用戶提供方便、快捷的服務(wù)，同時(shí)也為公司節(jié)省了大量的人工和費(fèi)用，只要是文本框中的日期，則銷售查詢中顯示的都是在該天的銷售的所有產(chǎn)品，包括出售此車輛的所有信息，該車輛的車輛編號(hào)、車輛生產(chǎn)商、車輛品牌、車輛型號(hào)、出售數(shù)量、售價(jià)（萬元/輛）、銷售日期、備注、查看此車輛信息。如圖4.22所示。圖4.22銷售未查詢界面在‘請(qǐng)輸入待查詢的日期‘的文本框中輸入待查詢的日期，如圖4.23所示。圖4.23銷售查詢界面程序代碼：PrivateSubCommand1_Click()DimiAsInteger,jAsInteger,KAsIntegerDimSUMAsInteger:DimHAsIntegerH=Len(Text1.Text)IfAdodc1.Recordset.RecordCountThenAdodc1.Refresh:Form15.ClsForK=1ToAdodc1.Recordset.RecordCount'進(jìn)入查詢結(jié)果庫Adodc1.Recordset.AbsolutePosition=KIfLeft(Trim(Adodc1.Recordset.Fields("銷售日期").Value),H)=Trim(Text1.Text)ThenAdodc2.RefreshAdodc2.Recordset.AddNewAdodc2.Recordset.Fields("車輛序號(hào)").Value=Adodc1.Recordset.Fields("車輛序號(hào)").ValueAdodc2.Recordset.Fields("車輛生產(chǎn)商").Value=Adodc1.Recordset.Fields("車輛生產(chǎn)商").ValueAdodc2.Recordset.Fields("車輛品牌").Value=Adodc1.Recordset.Fields("車輛品牌").ValueAdodc2.Recordset.Fields("車輛型號(hào)").Value=Adodc1.Recordset.Fields("車輛型號(hào)").ValueAdodc2.Recordset.Fields("出售數(shù)量").Value=Adodc1.Recordset.Fields("出售數(shù)量").ValueAdodc2.Recordset.Fields("售價(jià)（萬元/輛）").Value=Adodc1.Recordset.Fields("售價(jià)（萬元/輛）").ValueAdodc2.Recordset.Fields("銷售日期").Value=Adodc1.Recordset.Fields("銷售日期").ValueAdodc2.Recordset.Fields("備注").Value=Adodc1.Recordset.Fields("備注").ValueAdodc2.Recordset.Fields("查看此車輛信息").Value=Adodc1.Recordset.Fields("查看此車輛信息").ValueAdodc2.Recordset.UpdateEndIfAdodc1.RefreshNextKEndIfAdodc1.RefreshPrintiEndSubPrivateSubCommand2_Click()DimjAsInteger,bAsInteger,iAsIntegerAdodc2.RefreshAdodc2.Recordset.MoveLastForj=1ToAdodc2.Recordset.RecordCountAdodc2.Recordset.MoveLastAdodc2.Recordset.DeleteNextjEndSubPrivateSubCommand3_Click()Form15.HideForm13.ShowEndSub單擊“維修用戶查詢”按鈕，操作人員就會(huì)進(jìn)入維修用戶查詢界面，如圖4.24所示。圖4.24維修用戶未查詢界面在‘請(qǐng)輸入客戶編號(hào)‘的文本框中輸入客戶編號(hào)，如圖4.25所示。程序代碼：DimiAsInteger,jAsInteger,KAsIntegerDimSUMAsInteger:DimHAsIntegerH=Len(Text1.Text)IfAdodc2.Recordset.RecordCountThenAdodc2.RefreshForK=1ToAdodc2.Recordset.RecordCountAdodc2.Recordset.AbsolutePosition=KIfLeft(Trim(Adodc2.Recordset.Fields("客戶編號(hào)").Value),H)=Trim(Text1.Text)ThenAdodc1.Refresh:Form4.ClsAdodc1.Recordset.AddNewAdodc1.Recordset.Fields("客戶名稱").Value=Adodc2.Recordset.Fields("客戶名稱").ValueAdodc1.Recordset.Fields("性別").Value=Adodc2.Recordset.Fields("性別").ValueAdodc1.Recordset.Fields("地址").Value=Adodc2.Recordset.Fields("地址").ValueAdodc1.Recordset.Fields("電話").Value=Adodc2.Recordset.Fields("電話").ValueAdodc1.Recordset.Fields("送修或來訪日期").Value=Adodc2.Recordset.Fields("送修或來訪日期").ValueAdodc1.Recordset.Fields("送修或來訪車輛型號(hào)").Value=Adodc2.Recordset.Fields("送修或來訪車輛型號(hào)").ValueAdodc1.Recordset.Fields("車牌號(hào)").Value=Adodc2.Recordset.Fields("車牌號(hào)").ValueAdodc1.Recordset.Fields("維修項(xiàng)目").Value=Adodc2.Recordset.Fields("維修項(xiàng)目").ValueAdodc1.Recordset.Fields("維修記錄").Value=Adodc2.Recordset.Fields("維修記錄").ValueAdodc1.Recordset.UpdateEndIfAdodc2.RefreshNextKEndIfAdodc2.RefreshPrintiEndSubPrivateSubCommand2_Click()DimjAsInteger,bAsInteger,iAsIntegerAdodc1.Refreshb=Adodc1.Recordset.RecordCountForj=1TobAdodc1.Recordset.MoveFirstAdodc1.Recordset.DeleteNextjAdodc1.RefreshAdodc1.Recordset.DeleteAdodc1.RefreshEndSubPrivateSubCommand3_Click()Form13.ShowForm11.HideEndSub圖4.25維修用戶查詢界面4.3轎車零配件界面單擊轎車零配件，會(huì)顯示出轎車零配件供應(yīng)內(nèi)容界面，在轎車零配件供應(yīng)內(nèi)容界面上有六個(gè)功能鍵，一個(gè)Label控件，它的Caption屬性為轎車零配件供應(yīng)內(nèi)容，兩個(gè)DataGrid和一個(gè)返回按鈕,兩個(gè)DataGrid分別是用來顯示配件內(nèi)容。如圖4.26所示。程序代碼：PrivateSubCommand3_Click()Form7.ShowForm2.HideEndSubPrivateSubCommand5_Click()Form2.HideForm1.ShowEndSub圖4.26汽車車配件內(nèi)容4.4維修服務(wù)界面單擊維修服務(wù)按鈕，會(huì)顯示出轎車維修保養(yǎng)界面，在轎車銷售界面上有六個(gè)功能鍵，1個(gè)Label控件，它的Caption屬性為維修與保養(yǎng)界面，3個(gè)CommandButton控件,它的Caption屬性分別為車輛保養(yǎng)，車輛維修和退出。如圖4.27所示。程序代碼：PrivateSubCommand2_Click()Form8.ShowForm2.HideEndSubPrivateSubCommand3_Click()Form7.ShowForm2.HideEndSubPrivateSubCommand1_Click()Form9.ShowForm8.HideEndSub如圖4.27轎車維修保養(yǎng)界面在轎車維修保養(yǎng)界面上，用戶單擊‘車輛保養(yǎng)‘按鈕，會(huì)自動(dòng)彈出下圖，如圖4.28所示。圖4.28車輛保養(yǎng)界面單擊‘顯示保養(yǎng)內(nèi)容‘將顯示保養(yǎng)車輛信息，如圖4.29所示。圖4.29顯示保養(yǎng)內(nèi)容界面隨著社會(huì)的進(jìn)步，人們對(duì)車輛的保養(yǎng)越來越重視，所以本系統(tǒng)為用戶提供了車輛保養(yǎng)界面，再在轎車維修保養(yǎng)界面上，單擊‘車輛維修‘按鈕，會(huì)自動(dòng)彈出下圖，如圖4.30所示。程序代碼：PrivateSubCommand1_Click()Adodc1.RefreshAdodc1.Recordset.AddNewAdodc1.Recordset.Fields("客戶編號(hào)").Value=Text9.TextAdodc1.Recordset.Fields("客戶名稱").Value=Text1.TextAdodc1.Recordset.Fields("性別").Value=Combo1.TextAdodc1.Recordset.Fields("地址").Value=Text2.TextAdodc1.Recordset.Fields("電話").Value=Text3.TextAdodc1.Recordset.Fields("送修或來訪日期").Value=Text4.TextAdodc1.Recordset.Fields("送修或來訪車輛型號(hào)").Value=Text5.Text‘顯示車輛送來的信息。Adodc1.Recordset.Fields("車牌號(hào)").Value=Text6.TextAdodc1.Recordset.Fields("維修項(xiàng)目").Value=Text7.TextAdodc1.Recordset.Fields("維修記錄").Value=Text8.TextAdodc1.Recordset.UpdateAdodc1.RefreshEndSubPrivateSubCommand2_Click()Form10.HideForm8.ShowEndSubPrivateSubCommand3_Click()Form14.HideForm2.ShowEndSub圖4.30車輛維修界面在車輛維修界面上，用戶可以在添加維修用戶欄中添加相應(yīng)信息，如圖4.31所示。在上述界面上，用戶單擊‘確定‘按鈕后，該新記錄將自動(dòng)加到系統(tǒng)中去。但值得注意的是，即使你填寫錯(cuò)誤，系統(tǒng)也會(huì)認(rèn)為你是正確的，所以用戶填寫的時(shí)候必須謹(jǐn)慎、認(rèn)真，對(duì)于維修車輛的客戶必須認(rèn)真細(xì)讀維修規(guī)則，這是系統(tǒng)為用戶提供的信息，如圖4.32所示。圖4.31維修用戶添加界面圖4.32客戶添加表4.5信息反饋界面單擊信息反饋按鈕，會(huì)顯示出信息反饋界面，在該界面上有24個(gè)功能鍵，10個(gè)Label控件，它們的Caption屬性分別為主題，反饋內(nèi)容，編號(hào)，姓名，地址，所在單位，郵件等，9個(gè)Text控件，3個(gè)CommandButton控件，它們的Caption屬性分別為提交，重寫，返回，如圖4.33所示。程序代碼：PrivateSubCommand1_Click()IfText1=""OrText9=""ThenMsgBox"請(qǐng)輸入編號(hào)！",vbOKOnly+vbExclamation,"警告"EndIfAdodc1.RefreshAdodc1.Recordset.AddNewAdodc1.Recordset.Fields("編號(hào)").Value=Text9.TextAdodc1.Recordset.Fields("主題").Value=Text1.TextAdodc1.Recordset.Fields("反饋內(nèi)容").Value=Text2.TextAdodc1.Recordset.Fields("姓名").Value=Text3.TextAdodc1.Recordset.Fields("地址").Value=Text4.TextAdodc1.Recordset.Fields("電話").Value=Text5.TextAdodc1.Recordset.Fields("所在單位（公司）").Value=Text6.TextAdodc1.Recordset.Fields("傳真").Value=Text7.TextAdodc1.Recordset.Fields("郵件").Value=Text8.TextAdodc1.Recordset.UpdateAdodc1.RefreshEndSubPrivateSubCommand2_Click()DimjAsInteger,bAsInteger,iAsIntegerAdodc1.RefreshAdodc1.Recordset.MoveLastForj=1ToAdodc1.Recordset.RecordCountAdodc1.Recordset.MoveLastAdodc1.Recordset.DeleteNextjEndSubPrivateSubCommand3_Click()Form14.HideForm2.ShowEndSub圖4.36信息反饋界面4.6網(wǎng)絡(luò)連接單擊“網(wǎng)絡(luò)連接“按鈕，操作人員就會(huì)進(jìn)入網(wǎng)絡(luò)連接界面，如圖4.34所示。PrivateSubCommand1_Click()WebBrowser1.Navigate(Text1.Text)EndSubPrivateSubCommand2_Click()Form16.HideForm4.ShowEndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenWebBrowser1.Navigate(Text1.Text)EndIfPrivateSubForm_Load()WebBrowser1.GoHomeEndSub圖4.37網(wǎng)絡(luò)連接界面程序代碼：PrivateSubCommand2_Click()Form8.ShowForm2.HideEndSub4.7報(bào)表在大中型企業(yè)中，很多企業(yè)都需要打印很多東西，在該系統(tǒng)中顯示報(bào)表內(nèi)容。圖4.38報(bào)表結(jié)論本文通過對(duì)轎車4S店的分析，成功的設(shè)計(jì)出轎車4S店綜合服務(wù)系統(tǒng)，其功能基本符合用戶的需求，它的主要功能有：實(shí)現(xiàn)了對(duì)轎車的管理，完成了轎車信息的添加，刪除，瀏覽，修改等功能。實(shí)現(xiàn)了對(duì)用戶的管理，完成了用戶信息的添加，刪除，瀏覽，修改等功能。實(shí)現(xiàn)了轎車4S店的管理，完成了對(duì)轎車的銷售，金額結(jié)算，自動(dòng)添加用戶信息等功能。實(shí)現(xiàn)了對(duì)用戶網(wǎng)絡(luò)連接功能。實(shí)現(xiàn)了轎車管理的自動(dòng)化服務(wù)。本文在設(shè)計(jì)時(shí)由于設(shè)計(jì)者能力有限，難免有一些漏洞，希望各位老師指出錯(cuò)誤，我將虛心的接受并加以改進(jìn)。參考文獻(xiàn)[1]周國民，李國軍.VisualBasic+Access數(shù)據(jù)庫開發(fā)實(shí)例.北京.人民郵電出版社.2004，11：220-279[2]高光來，李平.VisualBasic6.0程序設(shè)計(jì)教程.呼和浩特.內(nèi)蒙古大學(xué)出版社.2005，40-50[3]陸漢權(quán)，馮小霞，方紅光.VisualBasic程序設(shè)計(jì)教程，浙江大學(xué)出版社.2006：104-126[4]MicrosoftOfficeAccess2003Step-ByStep，MicrosoftPress出版2004：34-87[5]劉圣才，李春葆。VisualBasic6.0程序設(shè)計(jì)導(dǎo)學(xué)，清華大學(xué)出版社2002：35-56[6]啟明工作室。VisualBasic+Access數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā)實(shí)例。人民郵電出版社2005：22-42[7]阮東華.Access數(shù)據(jù)庫處理技法范例.北京.清華大學(xué)出版社.2003：18-19[8]王春才，高春艷.VisualBasic數(shù)據(jù)庫系統(tǒng)開發(fā)完全手冊(cè).北京.人民郵電出版社.2006，3：283-319[9]郭瑞軍.VisualBasic數(shù)據(jù)庫開發(fā)實(shí)例精粹.北京.電子工業(yè)出版社.2005，2：255-312[10]陸汗權(quán)，方紅光.VisualBasic程序設(shè)計(jì)教程.杭州.浙江大學(xué)出版社.2006，2：263-285謝辭在三個(gè)月中畢業(yè)設(shè)計(jì)的完成的過程中，楊建省老師給了我極大幫助。在此深表謝意！同時(shí)，其他的同學(xué)也給予我許多關(guān)心和幫助，真誠地感謝他們。總之，此次論文的寫作過程，我收獲了很多，即為大學(xué)四年劃上了一個(gè)完美的句號(hào)，也為將來的人生之路做好了一個(gè)很好的鋪墊。再次感謝老師，同學(xué)和朋友，謝謝你們！附錄資料：不需要的可以自行刪除實(shí)用powerpoint技巧總結(jié)一大群與會(huì)人員正襟危坐，你豪情滿懷地進(jìn)行著某個(gè)新產(chǎn)品的演示或介紹，卻不小心由于鼠標(biāo)左鍵的誤操作導(dǎo)致幻燈片跳到了本不應(yīng)該出現(xiàn)的位置，或者本應(yīng)按下鼠標(biāo)左鍵切換到下一張，卻由于按下了右鍵而出現(xiàn)一個(gè)快捷菜單。不用擔(dān)心，