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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

24、，用戶就進入到轎車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(您的密碼錯誤，請從新輸入!, 32, 密碼錯誤)End If If K = 3 Then D = MsgBox(警告!你輸入的信息有三次不正確!,

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

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

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

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

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

31、進價（萬元/輛）).Value = Texta.TextAdodc1.Recordset.Fields(進貨日期).Value = TextRQ.TextAdodc1.Recordset.Fields(備注).Value = TextBZ.TextAdodc1.Recordset.Fields(車輛生產(chǎn)商).Value = Text2.TextAdodc1.Recordset.Fields(查看此車輛信息).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ǎn)商、車輛品牌、車輛型號、進貨數(shù)量、進價（萬元/輛）、進貨日期、備注、查看此車輛信息，然后單擊“進貨”按鈕，就可以完成該次進貨操作，并且自動添加到庫存清

33、單中。同時，庫存清單也會作相應的變動。如圖4.7所示。 點擊進貨按鈕之后，庫存清單也做相應的變化，如圖4.8所示。圖4.7 添加進貨界面圖4.8 庫存變化界面圖4.5 銷售系統(tǒng)界面4.2.3 銷售界面在汽車銷售系統(tǒng)中，單擊銷售按鈕，您就可以進入到銷售界面，該界面有多Label控件和所對應的多個Text控件，4個CommandButton控件，它們的Caption屬性分別為確認售出，結算，清空和返回，還有3個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 請輸入車輛序號！, vbOKOnly + vbExclamation, 警告End IfIf Len(Text1.Text) 4 ThenMsgBox 車輛序號為4位！, vbOKOnly + vbExclamation, 警告End IfAdodc1.RefreshAdodc1.Recordset.MoveLast改變庫存Print Adodc1.Recordset.RecordCountFor i = 1 To Adodc1.Recordse

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

36、xt i 進入顧客銷售庫If Adodc2.Recordset.RecordCount Then For K = 1 To Adodc2.Recordset.RecordCountAdodc2.Recordset.AbsolutePosition = KIf Trim(Adodc2.Recordset.Fields(車輛序號).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(車輛序號).Value = Text1.TextAdodc2.Recordset.Fields(車輛品牌).Value = Text3.Text Adodc2.Recordset.Fields(車輛型號).Value = Text4.Text Adodc2.Recordset.Fields(出售數(shù)量).Value = Text9.Text Adodc2.Recordset.Fields(售價（萬元/輛）).Value = Text11.Text Adodc2.Recordse

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

39、dc2.Recordset.Fields(售價（萬元/輛）).Value = Text11.TextAdodc2.Recordset.Fields(銷售日期).Value = DateAdodc2.Recordset.UpdateAdodc2.RefreshEnd If進入總銷售庫 temp = FalseAdodc3.Refresh For j = 1 To Adodc3.Recordset.RecordCount Adodc3.Recordset.AbsolutePosition = jIf Trim(Adodc3.Recordset.Fields(車輛序號).Value) = Trim(

40、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.

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

42、 Text4.Text Adodc3.Recordset.Fields(出售數(shù)量).Value = Text9.TextAdodc3.Recordset.Fields(售價（萬元/輛）).Value = Text11.TextAdodc3.Recordset.Fields(銷售日期).Value = DateAdodc3.Recordset.Fields(備注).Value = Text12.TextAdodc3.Recordset.Fields(查看此車輛信息).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(售價（萬元/輛）) * Val(Adodc2.Recordset.Fields(出售數(shù)量)Next i Label18.Caption = 共需金額 & SUM & 萬元人民幣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 銷售界面首先銷售人員在車輛序號文本框內輸入所要出售的車輛序號，則系統(tǒng)會自動顯示該轎車的其它信息，輸入銷售數(shù)量，單擊“確認售出”按鈕，就可以完成本次的銷售操作，并且系統(tǒng)回自動將待出售的車輛添加到顧客購買車輛清單中，同時庫存的該車輛會自動在數(shù)量

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

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

48、t.Fields(編號).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如果在顧客添加框中輸入所對應的信息，點擊系統(tǒng)則會把該記錄添加到客戶列表中，如圖4.14所示。 圖4.14 客戶添加界面如果在查詢列表，在請輸入客戶編號文本框中輸入

49、待查詢的編號，則在查詢列表中知道顯示，如圖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(編號).Value), H) = Trim(Text5.Text) ThenAdodc2.Refresh: Form2.ClsAdodc2.Recordset.AddNewAdodc2.Recordset.Fields(編號).Value = Adodc1.Recordset.Fields(編號).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 顧客查詢界面單擊“系統(tǒng)工具”按鈕，您就會進入用戶增加與修改界面，如圖4.16所示。圖4.16 用戶增加與修改界面程序代碼：Private Sub Command6_Click()Form17.ShowForm13.HideEnd Sub在用戶密碼修改欄中，在用戶名中填寫庫中以有的用戶名和密碼，在新密碼中填寫新的密碼，但確認密碼欄中的密碼必

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(您兩次輸入的密碼不一致，請從新輸

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

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(您兩次輸入的密碼不一致，請從新輸入!, 32, 錯誤)End If Text1.Text = Text2

56、.Text = Text3.Text = End SubPrivate Sub Command4_Click()Form13.ShowForm17.HideEnd Sub單擊“進貨查詢”按鈕，您就會進入進貨查詢界面，在請輸入車輛序號的文本框中輸入車輛序號，查詢如圖4.21所示。圖4.21進貨查詢界面程序代碼：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(車輛序號).Value), H) = Trim(Text1.Text) Then Adodc2.Refresh: Form12.Cls Adodc2.Recordset.AddNew Adodc2.Recordset.Fields(車輛序號).Value = Adodc1.Recordset.Fields(車輛序號).Value Adodc2.Recordset

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

59、ields(進價（萬元/輛）).Value = Adodc1.Recordset.Fields(進價（萬元/輛）).Value Adodc2.Recordset.Fields(進貨日期).Value = Adodc1.Recordset.Fields(進貨日期).Value Adodc2.Recordset.Fields(備注).Value = Adodc1.Recordset.Fields(備注).Value Adodc2.Recordset.Fields(查看此車輛信息).Value = Adodc1.Recordset.Fields(查看此車輛信息).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