管理服務轎車4S店綜合服務系統(doc58頁)

《管理服務轎車4S店綜合服務系統(doc58頁)》由會員分享，可在線閱讀，更多相關《管理服務轎車4S店綜合服務系統(doc58頁)（75頁珍藏版）》請在裝配圖網上搜索。

1、引言中國以前的汽車銷售是由國營的汽車銷售公司壟斷。到了 20 世紀 90 年代中期， 汽車廠商開始建立自己的銷售渠道，并逐漸形成以下四種汽車渠道模式。1 代理制。渠道模式可表述為廠商總代理區域代理下級代理商最終用戶。2. 代理制。渠道模式可表述為廠商區域總代理下級代理商最終用戶。3. 經銷制。渠道模式可表述為廠商特許經銷商最終用戶。4. 專賣制。渠道模式可表述為廠商專賣店最終用戶。但是，隨著汽車市場逐漸成熟，用戶的消費心理也逐漸成熟，用戶需求多樣化，對產品、服務的要求也越來越高，越來越嚴格，原有的代理銷售體制已不能適應市場與用戶的需求。4S 店的出現，恰好能滿足用戶的各種需求，它可以提供裝備精

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

3、ion（連接）通過“連接“可使應用程序訪問數據源Command（命令）通過連接所發出的“命令“操作數據源Recordset（記錄集）“記錄集”描述來自數據表或命令執行結果的記錄的集合Eror（錯誤）用于維護數據源所產生的錯誤信息Parameter（參數）“參數“是命令所需要的變量部分Field(字段)用于操作記錄集中單個列的信息其中的每個對象都具有屬性（Properties）對象，用于描述對象的屬性。1. 連接（Connection）對象名稱說明ConnectionString 屬性設置到數據源的連接信息Open 方法打開數據源的連接Excuse 方法對連接執行各種操作Cansel 方法取消

4、Open 或 Excuse 方法的調用Close 方法關閉打開的 Connection 對象“連接”是交換數據所必須的環境，通過“連接”可使應用程序訪問數據源。ADO 對象模型使用 Connection 對象使連接概念得宜具體化，Connection 對象用于指定專門的提供者的任意參數下表列出 Connection 對象的常用屬性和方法。2. 命令（Command）對象“命令”對象描述對數據源執行的命令。通過已建立的連接發出的“命令”可以某種方式來操作數據源。一般情況下，命令可以在數據源中添加、刪除、或更新數據，或者在表中以行的格式檢索數據。ADO 對象模型用 Command 對象來體現命令概

5、念，使用 Command 對象可使ADO 優化命令執行，下表列出 Command 對象的常用屬性和方法。名稱說明ActiveConnection 屬性設置到數據源的連接信息CommandText 方法指定發送的命令文本，如 SQL 語句等CommandType設置或返回 CommandText 的類型Excuse 方法執行 CommandText 屬性指定操作Cansel 方法取消 Excuse 方法的調用3. 記錄集（Recordset）對象“記錄集“對象描述來自數據表或命令執行結果的記錄集合，其組成為記錄（行）。Recordset 是在進行中檢查和修改數據最主要的方法。常用于指定可以檢查的

6、行，移動行，指定移動行的順序，添加、更改或刪除行，通過更改行更新數據源等。下表列出 Recordset 對象的常用屬性和方法。名稱說明ActiveConn 屬性 tion返回 Recordset 對象所屬的 Connection對象Souce 屬性返回或設置 Recordset 對象的生成方式； Command 對象、SQL 語句或存儲過程RecordCount 屬性返回 Recordset 對象中的記錄個數BOF、EOF 屬性指示當前記錄指針位置是否位于首記錄前、末記錄后Bookmark 屬性返回或設置 Recordset 對象中當前記錄的書簽CursorTyp 屬性設置或返回 Record

7、set 對象中使用的光標類型Filter 屬性設置 Recordset 對象中的數據篩選條件Sort 屬性設置排序字段Open 方法打開代表數據庫、查詢結果等 Recordset對象中的記錄的光標Move 的方法移動 Recordset 對象中的當前記錄指針到指定位置Movefirst 、 Movelast 、 Movenext 和MovePrevios 方法移動 Recordset 對象中的當前記錄指針到首記錄、末記錄、下一個、上一個Addnew 方法為可更新的 Recordset 對象創建一條新記錄Requery 方法重新執行生成 Recordset 對象的查詢， 以更新其中數據Updat

8、e 方法保存對當前記錄的修改Cancelupdate 方法取消在調用 Update 方法之前對當前記錄的修改Delete 方法刪除當前記錄或記錄組此外，在 ADO 編程模型中，Connection、Command、Recordset 和 Field 對象都具有 Properties 集合。它包含所有屬于各個包含對象的 Property 對象。ADO 對象擁有可在其上使用的諸如“整型”、“字符型”或“布爾型”這樣的普通數據類型來設置或檢索值的屬性。然而，有必要將某些屬性看成是數據類型“COLLECTION OBJECT”的返回值。相應的，集合對象具有存儲和檢索適合該集合的其他對象的方法。1.1.

9、1 ADO 提供執行操作的方式1、連接到數據源。同時，可確定對數據源的所有更改是否已成功或沒有生。2、指定訪問數據源的命令，同時可帶變量參數，或優化執行。3、執行命令。3、如果這個命令使數據按表中的行的形式返回，則將這些行存儲在易于檢查、操作或更改的緩存中。4、適當情況下，可使用緩存行的更改內容來更新數據源。5、提供常規方法檢測錯誤（通常由建立連接或執行命令造成）。在典型情況下，需要在編程模型中采用所有這些步驟。但是，由于 ADO 有 很強的靈活性， 所以最后只需執行部分模塊就能做一些有用的工作。1.1.2 ADO 的特點ADO 是一種可視化、面對對象和調用事件驅動方式的結構高級程序設計，可用

10、于 Windows 環境下的應用程序，她簡單易學、效率高，而且功能強大?？偟膩碚f，ADO 具有以下特點：1、 易于使用這是 ADO 技術的最重要的一個特征。由于 ADO 是高層應用，所以相對于 OLE DB 或者 ODBC 來說，它具有面向對象的特性。同時，在 ADO 的對象結構中，其對象之間的層次關系并不明顯。相對于 DAO 等訪問技術來講，又不必關心對象的構造順序和構造層次。對于要用的對象，不必選建立連接、會話等對象，只需直接構造即可， 方便了應用程序的編制。2、 高速訪問數據源由于 ADO 技術基于 OLE DB，所以，它也繼承了OLE DB 訪問數據庫的高速性。3、 可以訪問不同數據源

11、ADO 技術可以訪問包括關系數據庫和非關系數據庫的所有文件系統。此特點使應用程序有很多的靈活性和通用性。4、 可以用于 Microsoft ActiveX 頁ADO 技術可以以 ActiveX 控件的形式出現，所以，可以被用于 Microsoft ActiveX 頁， 此特征可簡化 WEB 頁的編程。5、 程序占用內存少由于 ADO 是基于組件對象模型（COM）的訪問技術，所以，用 ADO 產生的應用程序占用內存少。1.2 數據庫的發展數據庫 （data base）為滿足某一部門中多個用戶多種應用的需要，按照一定的數據模型在計算機系統中組織、存儲和使用的互相聯系的數據集合。 帶有數據庫的計算機

12、系統，除具備一般的硬件、軟件外，必須有用以存儲大量數據的直接存取存儲設備、管理并控制數據庫的軟件數據庫管理系統(DBMS)、管理數據庫的人員 數據庫管理員 (DBA)。這樣的數據、硬件、軟件和管理人員的總體構成數據庫系統。數據庫僅是數據庫系統的一個組成部分。數據庫系統的功能和特征 數據庫系統由文卷系統發展而來。與文卷系統相比，這種系統具有數據、體系和控制三個方面的主要特征。 數據特征 在文卷系統中雖然程序與數據之間可用存取方法進行轉換,但文卷還是與應用程序對應的,即數據仍面向應用。每一應用各自建立自己的一組文卷。不 同的應用若涉及相同的數據，則這些數據分別納入各自的文卷之中。文卷的各種記錄之間

13、沒有建立聯系，因而數據冗余度大。增加新的應用，必須同時增加新的文卷。因此，文卷系統中的文卷是無結構的、不易擴充的信息集合。數據庫則不僅描述數據本身，而且描述數據之間的聯系。它的數據結構反映了某一部門的整體信息結構，數據冗余度小、易于擴充新的應用，因而是面向數據總體結構的信息集合，可為多個用戶共享。 體系特征 一切數據都有邏輯和物理兩個側面。在數據庫系統中，數據邏輯結構的描述稱為邏輯模式。邏輯模式又分為描述全局邏輯結構的全局模式(簡稱模式)和描述某些應用所涉及的局部邏輯結構的子模式。數據物理結構的描述稱為存儲模式。這兩種模式總稱為數據庫模式。數據庫系統中，用戶根據子模式編制程序。子模式與模式模式

14、與存儲模式之間有軟件進行映射。因此,程序與數據之間具有兩級獨立性：物理獨立性和邏輯獨立性。數據的存儲模式改變，而模式可以不改變，因而不必改寫應用程序,這稱為物理獨立性。模式改變時,子模式可能不改變，也就不必改寫應用程序，這稱為邏輯獨立性。由于數據庫系統具備比較高的程序與數據的獨立性，可以使程序員在編制應用程序時集中精力考慮算法邏輯，不必過問物理細節，而且可以大大減少應用程序維護的工作量?？刂铺卣?數據庫數據數量龐大，結構復雜，又為多個用戶所共享。因此，必須由數據庫管理系統在定義、建立、運行以及維護時進行統一管理和控制，以保證數據庫數據的安全性、完整性和并發操作的一致性。此外，還必須有數據庫管理

15、員專門負責對數據庫的管理、控制監督和改進。 由于數據庫系統具有上述特征，它的出現使信息系統的研制從圍繞加工數據的程序為中心，轉變到圍繞共享的數據庫來進行。這便于數據的集中管理，有利于應用程序的研制和維護。數據減少了冗余度和提高了相容性， 從而提高了作出決策的相容性。因此，大型復雜的信息系統大多以數據庫為核心，數據庫系統在計算機應用中起著越來越重要的作用。 研究課題 數據庫研究的課題，主要涉及三個領域。 數據庫管理系統軟件的研制 DBMS 是數據庫系統的基礎。研制DBMS 的基本目標，是擴大功能，提高性能和可用性，從而提高用戶的生產率。70 年代以來，研制的重點是探索關系數據庫管理系統的設計，內

16、容包括關系數據語言、查詢優化、并發控制和系統性能等。另一類課題是對 DBMS 標準化的研究，即研究一個統一的 DBMS 體系結構的規范。 數據庫設計這是在計算機系統具有的數據庫管理系統的基礎上，按照應用要求以及計算機系統所提供的數據模型和功能，設計一個結構良好、使用方便、效率較高的，以數據庫為核心的應用信息系統。這一領域主要的研究課題，是數據庫設計方法學和設計工具的探索。例如，運用軟件工程的方法和工具指導數據庫設計；研究數據庫設計各個階段中完備的方法和工具；以關系數據庫的規范化理論為指南進行數據庫邏輯設計等。數據庫理論 主要研究關系數據庫理論。關系數據庫理論研究的意義，一方面在于它為數據庫學科

17、奠定了理論基礎;另一方面它為數據庫設計提供了判別標準,從而成為數據庫設計的有力指南。研究的主要內容是關系的規范化理論。關系規范化理論已應用于數據庫設計的各個階段。 發展 數據庫技術是計算機科學中發展最快的領域之一，新的領域越來越多。 分布式數據庫系統 隨著 70 年代后期分布計算機系統的發展，相應地研究成功分布式數據庫系統。分布式數據庫系統是一個在邏輯上完整，而在物理上分散在若干臺互相連接的結點機上的數據庫系統。它既具有分布性又具有數據庫的綜合性。這是數據庫系統發展的一個重要方向。分布式數據庫系統結構復雜，其中最復雜的是分布式數據庫管理系統。數據庫機器 新的計算機系統的體系結構。它把由中央處理

18、器包辦的數據庫操作分散給一些局部的部件來執行，或轉移到一個與主計算機相連的專用計算機去執行，以提高并行性。數據庫機器的發展，包括智能控制器和存儲器，專用處理機和數據庫計算機。 數據庫語義模型 數據庫的數據模型基本上屬于語法模型，語義體現很不完備， 不能明顯地含有現實世界的意義。因此，用戶只能按照 DBMS 所提供的數據操縱語言訪問數據庫。語義模型能準確地描述現實世界中某個部門的信息集合及其意義，使用戶能基于對現實世界的認識或用類似于自然語言的形式來訪問數據庫。這方面的研究已發展為數據語義學。 數據庫智能檢索 數據庫技術和人工智能相結合，根據數據庫中的事實和知識進行推理，演繹出正確答案，這就是數

19、據庫的智能檢索。這涉及到自然語言用戶接口、邏輯演繹功能和數據庫語義模型等問題，如 70 年代末所開始的知識庫管理系統和演繹數據庫的研究。 辦公室自動化系統中的數據庫 研究在辦公室自動化系統中數據庫技術的應用，其中主要研究對各種非格式化數據如圖像、聲音、正文的處理，以及面向端點用戶的高級語言接口。第二章 汽車 4S 店綜合服務系統的分析與設計進入 21 世紀以來，隨著汽車工業競爭的日趨激烈，計算機的飛速發展，計算機在汽車服務方面發揮著越來越大的作用，利用計算機實現對汽車企業的管理勢在必行。對于大中型企業來說，利用計算機支持企業高效完成汽車的銷售、查詢的日常事物以及了解客戶對企業或車輛的信息反饋，

20、只有這樣才能適應現代企業的制度要求，才能推動企業走向科學化的必要條件。而在銷售、查詢、信息反饋方面都是一些瑣碎、復雜的工作，銷售額的計算，進貨庫和銷售庫的管理一般都是不允許出錯的，如果實行手工操作，數量大的時候，這不僅耗時，而且不能夠快速、準確無誤的的算出結果， 但是利用計算機進行工作，在這些工作中有著人工無法比擬的優點。例如：管理方便、存儲量大、保密性好、成本低等。這些優點極大的提高汽車 4S 店綜合服務系統的開發性和實用前景。2.1 系統分析要設計一個有效的汽車 4S 店綜合服務系統必須做全面的調查，從多方面來對系統進行考慮。重點是數據分析極其處理過程，從系統的分析的調查中獲得企業用戶對系

21、統的使用要求。包括：1. 功能要求，既要實現什么功能以及怎樣實現2. 信息要求，企業用戶從數據庫中獲得的怎樣的信息內容3. 安全性和完整性的要求2.2 系統的設計使用 Visual basic 和 ADO 對數據庫和程序設計語言進行編寫和實現。在編寫程序過程中，既要考慮程序實現設計功能，同時也要考慮程序的簡單性，這樣的目的是以便于后來的程序調試和修改。在創立數據庫模塊時，要從實際從發，必須考慮到每一個模塊的實際意義。設計的模塊有：2.2.1 進貨模塊的設計2.2.2 銷售模塊的設計2.2.3 進貨查詢模塊的設計2.2.4 維修用戶模塊的查詢2.2.5 購車用戶添加及查詢模塊的設計2.2.6 車

22、輛維修模塊的設計2.2.7 信息反饋模塊的設計2.2.8 汽車臨配件模塊的設計2.2.9 車輛保養模塊的設計第三章 系統操作流程圖及功能介紹3.1 系統功能介紹：1. 車輛進貨；2. 車輛銷售；3. 車輛進貨查詢；4. 添加數據記錄；5. 信息反饋；6. 車輛維修與保養；3.2 系統功能模塊圖：圖 3.1 系統功能模塊圖通過系統模塊圖，我們可以簡單的了解一下系統結構，現在我們對以下的模塊（銷售管理、車輛資料實體、查詢系統、管理系統）做一個簡單的了解。以便于我們更好的了解各個模塊的功能。圖 3.2 銷售管理實體 E-R 圖圖 3.3 車輛資料實體 E-R 圖圖 3.4 查詢系統的模塊圖圖 3.5

23、 車輛維修系統3.6 數據庫管理系統圖圖 3.7 管理系統圖第四章 車 4S 店綜合服務系統主體功能說明4. 1 陸界面的說明及功能：系統運行之后，首先呈現您的面前是系統的登陸界面，該界面是由姓名和密碼組成，登陸界面如圖 4.1 所示。圖 4.1 登陸界面進入登陸界面后，單擊用戶名所對應文本框的下拉列表按鈕，將看到有許燕永、張立軍、王文凱、石景豐等用戶名，每個用戶名都有各自所對應的密碼，任選一個用戶名，如以許燕永為例（其默認密碼為 1111），在對應的文本框內輸入密碼，單擊確定按鈕，即可登陸，進如到轎車 4S 店主界面。如圖 4.2 所示。圖 4.2 4S 店界面但是如果密碼輸入錯誤，將出現如

24、圖 4.3 所示。圖 4.3 密碼錯誤提示對話框用它來保護系統，使系統具有較高的安全性。點確定后，用戶可以重新輸入密碼。該系統允許輸入三次密碼，如果用戶三次都不能輸入正確的密碼，則系統認為你為非法用戶，試圖竊取信息，所以系統會自動彈出“對不起，您無權登陸此系統!”對話框， 如圖 4.4 所示。圖 4.4 登陸失敗界面點擊確定按鈕后自動將用戶名文本框、密碼文本框變成灰色，成為不可用狀態，登陸者只能取消，退出登陸界面。如果用戶名和密碼都正確，用戶就進入到轎車 4S 店主界面。如圖 4.2。程序代碼如下：Private Sub Command1_Click()Dim b As Boolean, D

25、As String, i As Integer: Static K As Integer D = False: b = False: K = K + 1Adodc1.Refresh Adodc1.Recordset.MoveLast Print K = ii-1 -iIf Trim(Adodc1.Recordset.Fields(姓名).Value) = Trim(Combo1.Text) And Trim _(Adodc1.Recordset.Fields(密碼).Value) = Trim(Text1.Text) Then Form1.HideForm2.Show: K = 0: Exit

26、 For Elseb = True End IfNext iIf K = 1 Or K = 2 ThenD = MsgBox(您的密碼錯誤，請從新輸入!, 32, 密碼錯誤) End IfIf K = 3 ThenD = MsgBox(警告!你輸入的信息有三次不正確!, 32, 密碼錯誤) Combo1.Enabled = False: Text1.Enabled = FalseEnd If End SubPrivate Sub Command2_Click() Unload MeEnd Sub4.1.1 登陸界面的設計和實現：用戶的登陸界面是進入應用系統的舌喉，在安全性方面占有重要的地位，是

27、系統安全、穩定、正常運行的關鍵，同時為了能夠真正的吸引操作人員的眼球，讓他們感到舒服，美觀也是很重要的，所以對登陸界面進行美觀設置。1. 圖案設置：為了美化登陸界面，首先在工具箱中選擇 Image 控件，把它拖到窗口上，然后 Image 的屬性欄上使用 Picture 屬性。2. 控件分布：主要包括 5 個 Label 控件，它們的 Caption 屬性分別為用戶名、密碼、指導老師、制作人、時間顯示，其他屬性為默認值；一個 Textbox 控件;一個 Combo控件; 一個 Adodc 控件,兩個 CommandButton 控件,它們的屬性分別為確定、取消。3.控件功能：【確定】命令按鈕，首

28、先它是判斷用戶名和密碼是否一致，如果不一致則出現用戶提示信息-“您的密碼錯誤，請重新輸入！”，如果用戶名和密碼一致， 操作人員則可以打開主界面，進入系統進行以后的相關操作?！救∠棵畎粹o則是退出登陸系統。4.2 轎車銷售界面系統主界面包括了整個應用程序的概況，其上面顯示的所有功能也就是該系統的所有功能，也是操作人員可以操作的所有顯示，它是該系統的母體，如圖 4.2 所示。在系統主界面上，有五個功能鍵，分別為車輛銷售、汽車零配件、維修服務、信息反饋和退出，意識先各自的功能。1. 圖案設置：美化界面，在工具箱上選擇 Image 控件，把它拖到窗口上，然后在在工具箱上選擇 Image 屬性欄中使用

29、 Picture 屬性導入圖片。2. 控件分布：主要包括一個 Label 控件，它的 Caption 屬性為歡迎您到汽車4S 界面，5 個 CommandButton 控件,它們的屬性分別為車輛銷售，汽車零配件，維修服務，信息反饋和返回。單擊轎車銷售按鈕，會顯示出轎車銷售界面，在轎車銷售界面上有六個功能鍵， 一個 Label 控件，它的 Caption 屬性為歡迎您到汽車銷售系統，5 個 CommandButton 控件, 它們的 Caption 屬性分別為進貨，銷售，查詢，網絡連接和退出。如圖 4.5 所示。程序代碼：Private Sub Command1_Click() Form4.Sh

30、owForm2.Hide End SubPrivate Sub Command5_Click() Form2.HideForm1.Show End Sub4.2.1 進貨界面在汽車銷售系統中，單擊進貨按鈕，您就可以進入到進貨界面，該界面有多個Label 控件和所對應的多個 Text 控件，兩個 CommandButton 控件，它們的 Caption 屬性分別為進貨和取消，還有 1 個 DataGrid 控件。如圖 4.6 所示。程序代碼：Adodc1.Recordset.Fields(車輛序號).Value = Text1.TextAdodc1.Recordset.Fields( 車 輛 品

31、 牌 ).Value = TextName.Text Adodc1.Recordset.Fields( 進 貨 數 量 ).Value = TextSL.Text Adodc1.Recordset.Fields( 車 輛 型 號 ).Value = TextCX.Text Adodc1.Recordset.Fields(進價（萬元/輛）).Value = Texta.Text Adodc1.Recordset.Fields( 進 貨 日 期 ).Value = TextRQ.Text Adodc1.Recordset.Fields( 備 注 ).Value = TextBZ.Text Adod

32、c1.Recordset.Fields( 車 輛 生 產 商 ).Value = Text2.Text Adodc1.Recordset.Fields(查看此車輛信息Adodc1.Refresh End SubPrivate Sub Command2_Click() Form5.HideForm4.Show End SubPrivate Sub Command1_Click() Form4.ShowForm2.Hide End SubPrivate Sub Command5_Click() Form2.HideForm1.Show End SubPrivate Sub Command5_Cli

33、ck() Form2.HideForm1.Show End Sub圖 4.6 轎車進貨界面1）首先，進貨人員填寫進貨清單，它包括車輛序號、汽車生產商、車輛品牌、車輛型號、進貨數量、進價（萬元/輛）、進貨日期、備注、查看此車輛信息，然后單擊“進貨”按鈕，就可以完成該次進貨操作，并且自動添加到庫存清單中。同時，庫存清單也會作相應的變動。如圖 4.7 所示。點擊進貨按鈕之后，庫存清單也做相應的變化，如圖 4.8 所示。圖 4.7 添加進貨界面圖 4.8 庫存變化界面4.2.3 銷售界面圖 4.5 銷售系統界面在汽車銷售系統中，單擊銷售按鈕，您就可以進入到銷售界面，該界面有多 Label 控件和所對應

34、的多個 Text 控件，4 個 CommandButton 控件，它們的 Caption 屬性分別為確認售出，結算，清空和返回，還有 3 個 DataGrid 控件。如圖 4.9 所示。程序代碼：Private Sub Command1_Click()Dim i As Integer, j As Integer, K As Integer Dim SUM As Integer: Dim temp As BooleanIf Text1 = Or Text2 = ThenMsgBox 請輸入車輛序號！, vbOKOnly + vbExclamation, 警告 End IfIf Len(Text1

35、.Text) 4 ThenMsgBox 車輛序號為 4 位！, vbOKOnly + vbExclamation, 警告 End IfAdodc1.RefreshAdodc1.Recordset.MoveLast 改變庫存 = ii-1 -iIf Trim(Adodc1.Recordset.Fields(車輛序號).Value) = Trim(Text1.Text) ThenAdodc1.Recordset.Fields(進貨數量).Value = Val(Adodc1.Recordset.Fields(進貨數量).Value) - Val(Text9.Text)Adodc1.Refresh若

36、無此句，則不會馬上改變數量，即關閉后再打開才有效End If Next i進入顧客銷售庫If Adodc2.Recordset.RecordCount ThenFor K = 1 To Adodc2.Recordset.RecordCount Adodc2.Recordset.AbsolutePosition = KIf Trim(Adodc2.Recordset.Fields(車輛序號).Value) = Trim(Text1.Text) ThenAdodc2.Recordset.Fields(出售數量).Value = Val(Adodc2.Recordset.Fields(出售數量).V

37、alue) + Val(Text9.Text)ElseAdodc2.Recordset.Fields(車輛序號).Value = Text1.TextAdodc2.Recordset.Fields( 車 輛 品 牌 ).Value = Text3.Text Adodc2.Recordset.Fields( 車 輛 型 號 ).Value = Text4.Text Adodc2.Recordset.Fields( 出 售 數 量 ).Value = Text9.Text Adodc2.Recordset.Fields(售價（萬元/輛）).Value = Text11.Text Adodc2.Re

38、cordset.Fields( 銷 售 日 期 End IfNext KElseAdodc2.Recordset.Fields(車輛序號).Value = Text1.TextAdodc2.Recordset.Fields( 車 輛 品 牌 ).Value = Text3.Text Adodc2.Recordset.Fields( 車 輛 型 號 ).Value = Text4.Text Adodc2.Recordset.Fields( 出 售 數 量 ).Value = Text9.Text Adodc2.Recordset.Fields(售價（萬元/輛）).Value = Text11.T

39、ext Adodc2.Recordset.Fields( 銷 售 日 期 Adodc2.Refresh End If進入總銷售庫temp = False Adodc3.RefreshFor j = 1 To Adodc3.Recordset.RecordCount Adodc3.Recordset.AbsolutePosition = jIf Trim(Adodc3.Recordset.Fields(車輛序號).Value) = Trim(Text1.Text) And _Trim(Adodc3.Recordset.Fields(銷售日期).Value) = Trim(Text11.Text)

40、 Then Adodc3.Recordset.Fields(出售數量).Value = Val(Adodc3.Recordset.Fields(出售數量).Value) + Val(Text9.Text)Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text9.Text = Text10.Text = Text11.Text = Text12.Text = Text13.Text = Adodc3.RefreshEnd If Next jAdodc3.Recordset.Fields(車輛序號).Value = Text1.TextAd

41、odc3.Recordset.Fields( 車 輛 生 產 商 ).Value = Text2.Text Adodc3.Recordset.Fields( 車 輛 品 牌 ).Value = Text3.Text Adodc3.Recordset.Fields( 車 輛 型 號 ).Value = Text4.Text Adodc3.Recordset.Fields( 出 售 數 量 ).Value = Text9.Text Adodc3.Recordset.Fields(售價（萬元/輛）).Value = Text11.Text Adodc3.Recordset.Fields( 銷 售 日

42、 期 ).Value = Date Adodc3.Recordset.Fields( 備 注 ).Value = Text12.Text Adodc3.Recordset.Fields(查看此車輛信息Adodc3.Refresh End IfText1.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 S

43、UM As SingleFor i = 1 To Adodc2.Recordset.RecordCount Adodc2.Recordset.AbsolutePosition = iSUM = SUM + Val(Adodc2.Recordset.Fields( 售 價 （ 萬 元 / 輛 ） ) *Val(Adodc2.Recordset.Fields(出售數量) Next iLabel18.Caption = 共需金額 & SUM & 萬元人民幣End SubPrivate Sub Command4_Click()Adodc2.Refresh Next j Label18.Caption

44、= Adodc2.RefreshEnd SubPrivate Sub Command5_Click() Form6.HideForm4.Show End SubPrivate Sub Command3_Click() Form14.HideForm2.Show End Sub圖 4.9 銷售界面1） 首先銷售人員在車輛序號文本框內輸入所要出售的車輛序號，則系統會自動顯示該轎車的其它信息，輸入銷售數量，單擊“確認售出”按鈕，就可以完成本次的銷售操作，并且系統回自動將待出售的車輛添加到顧客購買車輛清單中，同時庫存的該車輛會自動在數量上減少一輛，而在銷售庫中則回自動在數量上增加一輛，如果銷售庫沒有該

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

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

47、ields(編號).Value = Text1.Text Adodc1.Recordset.Fields(姓名).Value = Text2.Text Adodc1.Recordset.Fields(性別).Value = Text3.TextAdodc1.Recordset.Fields(家庭住址Adodc1.Refresh End Sub如果在顧客添加框中輸入所對應的信息，點擊系統則會把該記錄添加到客戶列表中，如圖 4.14 所示。圖 4.14 客戶添加界面如果在查詢列表，在請輸入客戶編號文本框中輸入待查詢的編號，則在查詢列表中知道顯示，如圖 4.15 所示。程序代碼：Private Su

48、b Command2_Click()Dim i As Integer, j As Integer, K As Integer Dim SUM As Integer: Dim H As IntegerH = Len(Text5.Text)If Adodc1.Recordset.RecordCount Then Adodc1.RefreshFor K = 1 To Adodc1.Recordset.RecordCount Adodc1.Recordset.AbsolutePosition = KIf Left(Trim(Adodc1.Recordset.Fields(編號).Value), H)

49、= Trim(Text5.Text) ThenAdodc2.Recordset.Fields(編號).Value = Adodc1.Recordset.Fields(編號).ValueAdodc2.Recordset.Fields( 姓 名 ).Value = Adodc1.Recordset.Fields( 姓 名 ).Value Adodc2.Recordset.Fields( 性 別 ).Value = Adodc1.Recordset.Fields( 性 別 ).Value Adodc2.Recordset.Fields( 家庭住址).Value = Adodc1.Recordset.

50、Fields( 家庭住址).ValueAdodc2.Recordset.Update End IfAdodc1.Refresh Next KEnd If Adodc1.Refresh Print iEnd SubPrivate Sub Command3_Click()Dim j As Integer, b As Integer, i As Integer Adodc2.RefreshNext j Adodc2.RefreshAdodc2.Recordset.Delete Adodc2.RefreshEnd Sub圖 4.15 顧客查詢界面單擊“系統工具”按鈕，您就會進入用戶增加與修改界面，如圖

51、 4.16 所示。程序代碼：圖 4.16 用戶增加與修改界面Private Sub Command6_Click() Form17.ShowForm13.Hide End Sub在用戶密碼修改欄中，在用戶名中填寫庫中以有的用戶名和密碼，在新密碼中填寫新的密碼，但確認密碼欄中的密碼必須和新密碼相同，如圖 4.17 所示。程序代碼：Adodc2.RefreshIf Adodc2.Recordset.Fields( 姓名) = Text5.Text And Adodc2.Recordset.Fields( 密碼).Value = Text6.Text ThenIf Text7.Text = Text

52、4.Text Then Adodc2.RefreshAdodc2.Recordset.Fields(密碼).Value = Text7.TextAdodc2.Recordset.Update Adodc2.RefreshElseD = MsgBox(您兩次輸入的密碼不一致，請從新輸入!, 32, 錯誤) End IfElseD = MsgBox(您的賬號或密碼錯誤，請從新輸入!, 32, 錯誤) End IfText5.Text = Text6.Text = Text7.Text = Text4.Text = End SubPrivate Sub Command2_Click() EndEnd

53、 Sub圖 4.17 系統管理界面密碼修改后，密碼表中的密碼自動改變。如圖 4.18 所示。圖 4.18 密碼更改界面在新用戶增加欄中，創建自己的用戶名和密碼，如圖 4.19 所示。圖 4.19 新增用戶界面點擊確定按鈕后，系統密碼表中自動添加一條新記錄，如圖 4.20 所示。圖 4.20 增加用戶界面程序代碼：Private Sub Command3_Click()Adodc1.Recordset.Fields(姓名).Value = Text1.TextAdodc1.Recordset.Fields(密碼Adodc1.Refresh ElseD = MsgBox(您兩次輸入的密碼不一致，請

54、從新輸入!, 32, 錯誤)End IfText1.Text = Text2.Text = Text3.Text = End SubPrivate Sub Command4_Click() Form13.ShowForm17.Hide End 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 A

55、dodc1.Recordset.RecordCount Then Adodc1.RefreshFor K = 1 To Adodc1.Recordset.RecordCount Adodc1.Recordset.AbsolutePosition = KIf Left(Trim(Adodc1.Recordset.Fields( 車輛序號).Value), H) = Trim(Text1.Text)ThenAdodc2.Recordset.Fields(車輛序號).Value = Adodc1.Recordset.Fields(車輛序號).ValueAdodc2.Recordset.Fields(

56、車輛生產商).Value = Adodc1.Recordset.Fields(車輛生產商).ValueAdodc2.Recordset.Fields(車輛品牌).Value = Adodc1.Recordset.Fields(車輛品牌).ValueAdodc2.Recordset.Fields(車輛型號).Value = Adodc1.Recordset.Fields(車輛型號).ValueAdodc2.Recordset.Fields(進貨數量).Value = Adodc1.Recordset.Fields(進貨數量).ValueAdodc2.Recordset.Fields(進價（萬元/

57、輛）).Value = Adodc1.Recordset.Fields(進價（萬元/輛）).ValueAdodc2.Recordset.Fields(進貨日期).Value = Adodc1.Recordset.Fields(進貨日期).ValueAdodc2.Recordset.Fields(備注).Value = Adodc1.Recordset.Fields(備注).ValueAdodc2.Recordset.Fields(查看此車輛信息).Value = Adodc1.Recordset.Fields(查看此車輛信息).ValueAdodc2.Recordset.Update End

58、IfAdodc1.Refresh Next KEnd If Adodc1.RefreshPrint i End SubPrivate Sub Command2_Click()Dim j As Integer, b As Integer, i As Integer Adodc2.RefreshNext j Adodc2.RefreshAdodc2.Recordset.Delete Adodc2.RefreshEnd SubPrivate Sub Command3_Click() Form12.HideForm13.Show End Sub單擊“銷售查詢”按鈕，您就會進入銷售查詢界面，銷售查詢界面

59、是系統自動幫助用戶實現按日期查詢，這不僅為了用戶提供方便、快捷的服務，同時也為公司節省了大量的人工和費用，只要是文本框中的日期，則銷售查詢中顯示的都是在該天的銷售的所有產品，包括出售此車輛的所有信息，該車輛的車輛編號、車輛生產商、車輛品牌、車輛型號、出售數量、售價（萬元/輛）、銷售日期、備注、查看此車輛信息。如圖 4.22 所示。圖 4.22 銷售未查詢界面在請輸入待查詢的日期的文本框中輸入待查詢的日期，如圖 4.23 所示。圖 4.23 銷售查詢界面程序代碼：Private Sub Command1_Click()Dim i As Integer, j As Integer, K As In

60、teger Dim SUM As Integer: Dim H As IntegerH = Len(Text1.Text)If Adodc1.Recordset.RecordCount Then Adodc1.Refresh:Form15.ClsFor K = 1 To Adodc1.Recordset.RecordCount進入查詢結果庫Adodc1.Recordset.AbsolutePosition = KIf Left(Trim(Adodc1.Recordset.Fields( 銷售日期).Value), H) = Trim(Text1.Text)ThenAdodc2.Recordse

61、t.Fields(車輛序號).Value = Adodc1.Recordset.Fields(車輛序號).ValueAdodc2.Recordset.Fields(車輛生產商).Value = Adodc1.Recordset.Fields(車輛生產商).ValueAdodc2.Recordset.Fields(車輛品牌).Value = Adodc1.Recordset.Fields(車輛品牌).ValueAdodc2.Recordset.Fields(車輛型號).Value = Adodc1.Recordset.Fields(車輛型號).ValueAdodc2.Recordset.Fields(出售數量).Value = Adodc1.Reco