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

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

2、指定訪問數據源的命令，同時可帶變量參數，或優化執行。

3、執行命令。

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

4、適當情況下，可使用緩存行的更改內容來更新數據源。

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

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

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