電子商務(wù)數(shù)據(jù)庫技術(shù)實踐示例轎車銷售管理-畢業(yè)論文

PAGE沈陽工業(yè)大學(xué)《電子商務(wù)數(shù)據(jù)庫課程設(shè)計》報告轎車銷售管理系統(tǒng)設(shè)計學(xué)院:工程學(xué)院專業(yè)班級：電子商務(wù)0801學(xué)生姓名：學(xué)號：日期：2010年12月22日

電子商務(wù)數(shù)據(jù)庫技術(shù)實踐任務(wù)書學(xué)院：工程學(xué)院題目名稱：轎車銷售管理系統(tǒng)設(shè)計分組情況電子商務(wù)0801班12-23號課程設(shè)計地點3-A209時間第17周課程設(shè)計的目的和意義：隨著我國經(jīng)濟(jì)的發(fā)展和國民生活水平的提高，國內(nèi)轎車產(chǎn)業(yè)迅猛發(fā)展，民眾對轎車的需求日益增多，也因此產(chǎn)生了很多轎車銷售公司。在轎車銷售公司里，往往需要處理各種品牌型號轎車的銷售查詢工作，銷售人員的管理工作等等。這些工作如果只靠人工實現(xiàn)，不僅工作量大，而且容易出現(xiàn)錯誤，造成管理上的混亂。因此，制作一套轎車銷售管理系統(tǒng)能夠提高轎車銷售公司的管理水平、工作效率、服務(wù)質(zhì)量，降低銷售成本，最終提高公司的市場競爭力本題目可綜合考查學(xué)生對VB和SQLServer數(shù)據(jù)庫的掌握程度，對主鍵的設(shè)置、信息的存儲、VB和SQL的連接等知識點做重點考查。課程設(shè)計的主要內(nèi)容及需達(dá)到的目標(biāo)和參數(shù)：轎車銷售管理系統(tǒng)主要實現(xiàn)對轎車信息、客戶信息和員工信息的管理。具體要實現(xiàn)的功能包括：（1）系統(tǒng)用戶的管理功能。用戶根據(jù)姓名和密碼登錄系統(tǒng)。登錄用戶分兩個等級：普通用戶和管理員用戶。普通用戶只有查看轎車信息、客戶信息、員工信息等功能；管理員用戶（Admin）除了以上功能外，同時還有添加用戶、修改用戶密碼和刪除用戶的功能。（2）轎車信息管理功能。錄入所銷售的轎車的編號、型號、品牌、價格、保修期等信息，同時支持對轎車信息的添加、修改、刪除和查詢功能。（3）客戶信息管理功能。錄入購買轎車的客戶的姓名、性別、年齡、聯(lián)系方式、所購車型號、購車價格等信息，同時支持對客戶信息的添加、修改、刪除和查詢功能。（4）員工信息管理功能。錄入員工的員工號、姓名、性別等信息，同時支持對員工信息的添加、修改、刪除和查詢功能。完成課程設(shè)計的條件和方法：本題目在計算機(jī)上完成。使用VisualBasic6.0和SQLServer2000建立完成一個簡單的轎車銷售管理系統(tǒng)。本題目需參加者獨立完成，提交本人編制完成的軟件代碼及課程設(shè)計報告。課程設(shè)計報告的要求：根據(jù)本題目的特點，課程設(shè)計報告需包括以下內(nèi)容：（1）系統(tǒng)分析與系統(tǒng)設(shè)計。包括用戶的需求分析和系統(tǒng)設(shè)計，系統(tǒng)設(shè)計主要描述軟件系統(tǒng)和數(shù)據(jù)庫系統(tǒng)的體系結(jié)構(gòu)和各部分功能模塊的劃分。（2）數(shù)據(jù)庫的設(shè)計與實現(xiàn)。主要介紹數(shù)據(jù)庫的設(shè)計、數(shù)據(jù)庫的實現(xiàn)和數(shù)據(jù)庫連接及數(shù)據(jù)源的設(shè)置方法。（3）應(yīng)用程序設(shè)計與實現(xiàn)。主要包括系統(tǒng)的總體設(shè)計和各程序模塊的程序設(shè)計。指導(dǎo)教師：2010年12月17日目錄TOC\o"1-3"\u第一章系統(tǒng)分析與設(shè)計 41.1用戶需求與分析 41.1.1用戶需求與分析 41.1.2功能需求 41.1.3運行需求 51.2.4需求軟件簡介 51.2系統(tǒng)的功能模塊設(shè)計 61.2.1系統(tǒng)用戶管理模塊 71.2.2轎車信息管理模塊 71.2.3客戶信息管理模塊 81.2.4員工信息管理模塊 81.2.5退出銷售系統(tǒng)模塊 8第二章數(shù)據(jù)庫的設(shè)計及實現(xiàn) 92.1數(shù)據(jù)庫設(shè)計 92.1.1數(shù)據(jù)庫的模型圖 92.1.2數(shù)據(jù)庫詳細(xì)設(shè)計 112.2數(shù)據(jù)庫的實現(xiàn) 122.3數(shù)據(jù)庫的安全性 122.4設(shè)置ODBC數(shù)據(jù)源 12第三章應(yīng)用程序的設(shè)計與實現(xiàn) 123.1系統(tǒng)總體設(shè)計 123.1.1用戶登錄模塊設(shè)計 123.1.2系統(tǒng)主界面 123.1.3系統(tǒng)用戶模塊實現(xiàn) 123.1.4轎車信息管理模塊實現(xiàn) 123.1.5客戶信息管理模塊實現(xiàn) 123.1.6員工信息管理模塊實現(xiàn) 12結(jié)論 12

第一章系統(tǒng)分析與設(shè)計1.1用戶需求與分析1.1.1用戶需求與分析汽車工業(yè)經(jīng)歷了上百年的發(fā)展，時至今日已經(jīng)成為很多國家的支柱產(chǎn)業(yè)。隨著人們生活水平的提高與汽車性能的發(fā)展，人們對汽車的需求量也越來越大，由此眾多汽車生產(chǎn)制造商紛紛都加大了投資。近幾年一種介于制造商與購買者之間橋梁形式的汽車銷售公司也日漸發(fā)展壯大。每個汽車銷售公司都有管理、計劃、銷售、財務(wù)、配件、售后服務(wù)等職能部門。怎樣管理好這些部門，怎樣整個公司協(xié)調(diào)一致、高效率地運轉(zhuǎn)，是很多公司急待解決的問題。但很多業(yè)務(wù)人采用人工操作的方法，既容易出錯又會導(dǎo)致賬目混亂，查詢和統(tǒng)計非常不方便，甚至?xí)o公司造成巨大損失。像這樣初級的公司管理方法，已遠(yuǎn)跟不上銷售政策和銷售形勢發(fā)展的需要。因此，如何對汽車銷售管理提供一整套的管理方法達(dá)到提高效率和降低成本的問題成為焦點。汽車銷售管理系統(tǒng)的提出，對汽車銷售公司來講意義重大。它不但能使各業(yè)務(wù)環(huán)節(jié)協(xié)調(diào)一致，而且操作簡單，賬目清晰，通過賬目查詢，公司能在最短的時間內(nèi)獲得市場信息，從而制訂相應(yīng)的決策。我們設(shè)計的汽車銷售管理信息系統(tǒng)能夠讓汽車銷售商對銷售業(yè)務(wù)流程進(jìn)行全面并且系統(tǒng)的管理。管理規(guī)范，控制集中，能夠解決傳統(tǒng)管理中檔案資料容易遺失不便管理的問題。因此以下需求是必須滿足的：1.使得各銷售業(yè)務(wù)流程間緊密連接，數(shù)據(jù)共享。2.為系統(tǒng)提供數(shù)據(jù)支持。3.使不同級別的用戶擁有不同級別的使用權(quán)限，保證的系統(tǒng)數(shù)據(jù)的安全性4.保證整個系統(tǒng)的穩(wěn)定性與安全性。5.通過后臺管理用戶名和密碼。6.系統(tǒng)退出。1.1.2功能需求首先將汽車信息入庫，然后銷售商通過與客戶的交易活動，將相關(guān)信息存入庫，然后經(jīng)銷商通過銷售信息的查詢獲得汽車銷售的盈虧情況，通過庫存查詢獲得公司目前的庫存情況。由此可分析系統(tǒng)需要達(dá)到以下目標(biāo)：能很好地完成汽車的售前管理。售前管理包括供應(yīng)商信息，需求商信息和汽車基本信息的入庫作業(yè)。能詳細(xì)地記錄汽車供應(yīng)商和公司之間的交易過程，即進(jìn)貨或退貨過程。能詳細(xì)地記錄需求商與公司之間的交易過程，即訂車和退車過程。能及時準(zhǔn)確地獲得汽車在某階段的盈虧情況和市場的需求走勢。即通過對汽車銷售排行、汽車進(jìn)貨、汽車退貨、訂車、退車等信息查詢獲得相應(yīng)的結(jié)果，以備公司作為參考，從而制定出相應(yīng)的策略。能夠?qū)Ω鞣N經(jīng)濟(jì)結(jié)算進(jìn)行相應(yīng)的記錄。包括對進(jìn)貨結(jié)帳，退貨結(jié)帳，訂車結(jié)帳，退車結(jié)帳等。能夠?qū)Σ煌瑱?quán)限的用戶進(jìn)行合理的管理。包括添加用戶，刪除用戶，用戶賬號和密碼管理等。1.1.3運行需求本系統(tǒng)的運行環(huán)境如下：1.硬件環(huán)境處理器：InterPentium42.0內(nèi)存：512M(推薦)硬盤空間：80GB及以上2.軟件環(huán)境OS：WindowsXPSoftWare：MicrosoftVisualBasic6.0DataBase：MicrosoftSQLServer20001.2.4需求軟件簡介SQLserver2000簡介微軟公司新推出的SQLServer2000擴(kuò)展了SQLServer7.0版的性能，加強(qiáng)了可靠性，提高了質(zhì)量和易用性。SQLServer2000增加了多種新的功能，由此成為大規(guī)模聯(lián)機(jī)事物處理（OLTP）、數(shù)據(jù)庫和電子商務(wù)應(yīng)用程序的優(yōu)秀數(shù)據(jù)平臺，它包含服務(wù)器組件和客戶端工具。服務(wù)器組件SQLServer的服務(wù)器組件是以Windows服務(wù)（WindowsServices）方式運行的。一般認(rèn)為SQLServer包含四種Windows服務(wù)，分別是：MSSQLServer、DTCDistributedTransactionCoordinator、SQLServerAgent、SearchService。MSSQLServer是最常用的服務(wù)，一般的數(shù)據(jù)庫功能都是由它提供的，例如文件管理、查詢處理、數(shù)據(jù)存儲等；DTC是分布式事務(wù)協(xié)調(diào)器，支持跨越兩個或多個服務(wù)器的更新操作來保證事務(wù)的完整性；SQLServerAgent負(fù)責(zé)SQLServer自動化工作，如果需要SQLServer在指定時間執(zhí)行某一個存儲過程，就需要用到這個服務(wù)了，SearchService是全文查詢服務(wù)，負(fù)責(zé)全文檢索方面的工作?？蛻舳斯ぞ逽QLServer2000的核心是服務(wù)器組件，但用戶直接接觸的卻不是它們，而是客戶端工具。服務(wù)器組件是引擎，客戶端工具是用戶界面，兩者是相輔相成的。SQLServer2000的客戶端共有企業(yè)管理器、查詢分析器、事件探查器、服務(wù)管理器、客戶端網(wǎng)絡(luò)實用工具、服務(wù)器網(wǎng)絡(luò)實用工具、導(dǎo)入和導(dǎo)出數(shù)據(jù)（DTS）等等。服務(wù)器組件與客戶端工具功能上是配套的，客戶端工具需要用最簡單的形式表達(dá)最豐富的服務(wù)器組件的功能。服務(wù)器組件和客戶端工具物理上是離散的，客戶端工具要與服務(wù)器組件連通，需要一些用于通訊的動態(tài)鏈接庫，SQLServer2000的通訊庫支持多種網(wǎng)絡(luò)協(xié)議，例如TCP/IP、命名管道等。1.2系統(tǒng)的功能模塊設(shè)計經(jīng)過分析，將系統(tǒng)劃分為5個模塊，分別是系統(tǒng)用戶管理模塊、轎車信息管理模塊、客戶信息管理、員工信息管理和退出系統(tǒng)，，其功能結(jié)構(gòu)如圖1-1所示，下面針對各模塊的功能進(jìn)行詳細(xì)說明。圖1-1系統(tǒng)功能模塊結(jié)構(gòu)圖1.2.1系統(tǒng)用戶管理模塊該模塊主要管理添加用戶、修改密碼和用戶管理。該功能僅限于系統(tǒng)管理員系統(tǒng)管理員擔(dān)負(fù)著整個系統(tǒng)的維護(hù)和管理工作，負(fù)責(zé)所有用戶信息的管理，系統(tǒng)管理員登陸后可進(jìn)行用戶的添加、刪除修改密碼等操作。1.2.2轎車信息管理模塊本模塊主要負(fù)責(zé)車輛信息的錄入和管理。該數(shù)據(jù)庫表存儲了車輛的基本信息，對表中數(shù)據(jù)進(jìn)行添加、修改、刪除就能及時更新數(shù)據(jù)，保證數(shù)據(jù)的準(zhǔn)確性。轎車信息的管理包括編號、型號、品牌、價格和保修期等的錄入、修改、添加和刪除功能。增加轎車信息功能僅限于管理員。本模塊的查詢功能可以實現(xiàn)對公司所有的汽車狀態(tài)的查詢，并且可以通過型號、品牌、價格中的單個條件或多個組合條件進(jìn)行搜索，條件越多搜索越精確，反之則搜索的范圍越廣。1.2.3客戶信息管理模塊本模塊主要負(fù)責(zé)客戶信息的查看、修改、刪除和添加管理。該數(shù)據(jù)庫中存儲了客戶的基本信息，對改數(shù)據(jù)庫進(jìn)行修改、刪除和添加管理就能完成對客戶實時資料的更新，保證了數(shù)據(jù)庫的準(zhǔn)確性。增加客戶信息功能僅限于管理員?？蛻粜畔⒌墓芾戆櫩托彰?、性別、年齡、職業(yè)、證件號碼、電話、住址、車輛型號、價格的錄入、修改、添加和刪除功能。該模塊的查詢功能可以實現(xiàn)對公司所有客戶信息的查詢，并且可以通過姓名、性別、年齡、職業(yè)中的單個或者多個組合條件進(jìn)行搜索，條件越多越精確，反之范圍越廣。1.2.4員工信息管理模塊員工信息管理模塊收錄了公司所有員工的信息數(shù)據(jù)。登陸后可對數(shù)據(jù)庫進(jìn)行查看、修改、添加、刪除等操作。實時更新本數(shù)據(jù)庫可確保數(shù)據(jù)的準(zhǔn)確性。修改、刪除和增加員工信息等功能僅限于管理員權(quán)限。員工的信息管理包括員工姓名、性別、生日、電話、住址、進(jìn)公司時間、所在部門和員工職務(wù)。該模塊的查詢功能可以實現(xiàn)對公司所有員工信息的查詢，并且可以通過姓名、時間、部門、職務(wù)中的單個或者多個組合條件進(jìn)行搜索，條件越多越精確，反之范圍越廣。1.2.5退出銷售系統(tǒng)模塊用戶操作完畢后可選擇從本模塊退出銷售管理系統(tǒng)。

第二章數(shù)據(jù)庫的設(shè)計及實現(xiàn)2.1數(shù)據(jù)庫設(shè)計2.1.1數(shù)據(jù)庫的E-R圖針對一般汽車銷售管理信息系統(tǒng)的需求，通過對轎車銷售管理過程的內(nèi)容和流程分析，設(shè)計如下面所示的數(shù)據(jù)項和數(shù)據(jù)結(jié)構(gòu)：用戶信息，包括的數(shù)據(jù)項有：用戶名、用戶密碼、用戶類型。轎車信息，包括的數(shù)據(jù)項有：編號、型號、品牌、價格、保修期、備注。客戶信息，包括的數(shù)據(jù)項有：顧客姓名、性別、年齡、職業(yè)、證件號碼、電話、住址、車輛型號、價格、備注。員工信息，包括的數(shù)據(jù)項有：姓名、性別、生日、進(jìn)入公司的時間、部門、職務(wù)、電話、地址。各個實體具體的描述E-R圖如圖2-1至2-4所示。圖2-1系統(tǒng)用戶實體E-R圖圖2-2轎車信息E-R圖圖2-3客戶信息E-R圖圖2-4員工信息E-R圖實體間關(guān)系E-R圖系統(tǒng)用戶（用戶編號，用戶名，用戶類型）轎車信息（轎車編號，型號，價格，品牌）客戶信息（客戶編號，客戶姓名，客戶地址）員工信息（員工編號，員工姓名，員工地址）2.1.2數(shù)據(jù)庫詳細(xì)設(shè)計通過分析該信息系統(tǒng)所用到的表單如表2-5至2-5圖所示用戶數(shù)據(jù)表信息包含用戶名的添加和密碼的修改。主鍵為用戶編號。用戶管理數(shù)據(jù)表結(jié)構(gòu)詳細(xì)設(shè)計如表2-5所示。表2-5用戶管理信息數(shù)據(jù)表結(jié)構(gòu)（User的結(jié)構(gòu)）列名數(shù)據(jù)類型長度主鍵否描述Useridint4是用戶編號usernamevarchar50否用戶名userpwdvarchar50否密碼轎車信息數(shù)據(jù)表包含轎車的編號、型號、品牌、價格、保修期、備注等。主鍵為汽車編號。轎車信息數(shù)據(jù)表詳細(xì)設(shè)計如表2-6所示。表2-6轎車信息管理數(shù)據(jù)表結(jié)構(gòu)（Car的結(jié)構(gòu)）列名數(shù)據(jù)類型長度主鍵否描述Car_idint4是汽車編號Car_namevarchar20否汽車名稱Car_brandvarchar20否汽車品牌Car_priceint4否汽車價格Car_timevarchar10否保修時間Car_infovarchar100否備注客戶信息數(shù)據(jù)表包含顧客姓名、性別、年齡、職業(yè)、證件號碼、電話、住址、車輛型號、價格、備注。主鍵為客戶編號?？蛻粜畔?shù)據(jù)表詳細(xì)設(shè)計如表2-7所示。表2-7客戶信息數(shù)據(jù)表結(jié)構(gòu)（customer的結(jié)構(gòu)）列名數(shù)據(jù)類型長度主鍵否描述Custmoer_idint4是客戶編號Custmoer_namevarchar10否客戶姓名Custmoer_sexvarchar2否客戶性別Custmoer_ageint4否客戶年齡Custmoer_occupvarchar10否客戶職業(yè)Custmoer_numvarchar20否證件號碼Custmoer_telvarchar10否客戶電話Custmoer_addrvarchar20否客戶住址Buy_carvarchar20否購買汽車Buy_pricevarchar10否購買價格infovarchar100否備注員工信息數(shù)據(jù)表包含姓名、性別、生日、進(jìn)入公司的時間、部門、職務(wù)、電話、地址。主鍵為員工編號。員工信息數(shù)據(jù)表詳細(xì)設(shè)計如表2-8所示。表2-8員工信息數(shù)據(jù)表結(jié)構(gòu)（staff的結(jié)構(gòu)）列名數(shù)據(jù)類型長度主鍵否描述Staff_idint4是員工編號Staff_nemevarchar10否員工姓名Staff_sexvarchar2否員工性別Staff_birthditetime8否員工生日Staff_intimeditetime8否進(jìn)入公司時間Staff_departvarchar10否所屬部門Staff_titlevarchar10否職務(wù)Staff_telvarchar10否員工電話Staff_addrvarchar20否員工住址2.2數(shù)據(jù)庫的實現(xiàn)進(jìn)入SQLserver2000，在數(shù)據(jù)庫中新建數(shù)據(jù)庫“CarSaleSys”然后根據(jù)數(shù)據(jù)庫表單設(shè)計建立數(shù)據(jù)表，具體如圖2-9至2-16所示。用戶管理信息數(shù)據(jù)表建立如圖2-9。圖2-9用戶管理信息數(shù)據(jù)表建立用戶管理信息數(shù)據(jù)表實現(xiàn)如圖2-10圖2-10用戶管理信息數(shù)據(jù)表實現(xiàn)。轎車信息數(shù)據(jù)表建立如圖2-11所示。圖2-11建立轎車信息數(shù)據(jù)表轎車信息數(shù)據(jù)表實現(xiàn)如圖2-12所示。圖2-12轎車信息數(shù)據(jù)表實現(xiàn)客戶信息數(shù)據(jù)表建立如圖2-13所示。圖2-13建立客戶信息數(shù)據(jù)表客戶信息數(shù)據(jù)表實現(xiàn)如圖2-14所示。圖2-14客戶信息數(shù)據(jù)表實現(xiàn)員工信息數(shù)據(jù)表建立如圖2-15所示。圖2-15建立員工信息數(shù)據(jù)表員工信息數(shù)據(jù)表實現(xiàn)如圖2-16所示。圖2-16員工信息數(shù)據(jù)實現(xiàn)2.3數(shù)據(jù)庫的安全性數(shù)據(jù)庫的安全性主要是指保護(hù)數(shù)據(jù)庫，防止因為用戶非法使用數(shù)據(jù)庫而造成數(shù)據(jù)泄漏。共享數(shù)據(jù)庫中的數(shù)據(jù)必須在數(shù)據(jù)管理系統(tǒng)同意嚴(yán)格控制之下，只允許有合法使用權(quán)限的用戶訪問允許其存取的數(shù)據(jù)。只有注冊到數(shù)據(jù)庫管理系統(tǒng)上，才可以訪問其中的數(shù)據(jù)對象。數(shù)據(jù)庫管理系統(tǒng)有一套創(chuàng)建和管理各種級別用戶的機(jī)制，不通的用戶在數(shù)據(jù)庫管理系統(tǒng)中有不通的權(quán)限。數(shù)據(jù)庫管理系統(tǒng)利用用戶名來識別具體的用戶，利用口令來識別用戶的真?zhèn)危挥泻戏ㄓ脩舻挠脩裘涂诹畈拍苓M(jìn)入數(shù)據(jù)庫系統(tǒng)。圖2-17數(shù)據(jù)庫賬戶設(shè)置2.4設(shè)置ODBC數(shù)據(jù)源VB通過ADO連接SQLServer數(shù)據(jù)庫可以分為有源數(shù)據(jù)庫連接和無源數(shù)據(jù)庫連接，區(qū)別它們看是否使用了DSN（數(shù)據(jù)源名稱）來決定。1.源數(shù)據(jù)庫的連接數(shù)據(jù)庫連接的首要任務(wù)是要注冊數(shù)據(jù)源名稱（DSN），通過配置ODBC環(huán)境，進(jìn)行數(shù)據(jù)源的注冊，然后才能在對數(shù)據(jù)庫編程時，對數(shù)據(jù)源進(jìn)行連接、訪問和操作。2.創(chuàng)建有源數(shù)據(jù)庫連接創(chuàng)建數(shù)據(jù)源是進(jìn)行有源數(shù)據(jù)庫連接的第一步，下面同樣是運用ADO對象模型的主要元素Connection（連接）進(jìn)行源數(shù)據(jù)庫連接。ConnectionString是Connection對象的屬性名稱，提供數(shù)據(jù)提供者或服務(wù)提供者打開到數(shù)據(jù)源的連接所需要的特定信息，包括Database、DSN、UID等。（1）Database：字符串表達(dá)式，指定服務(wù)器上的數(shù)據(jù)庫名稱。（2）UID：字符串表達(dá)式，為ODBC數(shù)據(jù)源指定用戶標(biāo)識（用戶賬號名）。（3）PWD：字符串表達(dá)式，為ODBC數(shù)據(jù)源指定用戶口令。（4）DSN：字符串表達(dá)式，指定連接的ODBC數(shù)據(jù)源名稱。利用已配置好的ODBC數(shù)據(jù)源進(jìn)行連接。打開管理工具進(jìn)入數(shù)據(jù)源設(shè)置，添加SQLserver設(shè)置數(shù)據(jù)源名稱為CarSaleSys。選擇使用用戶輸入登陸ID和密碼的SQLserver驗證并設(shè)置登陸ID和密碼。將默認(rèn)數(shù)據(jù)庫設(shè)置為CarSaleSys并且選擇服務(wù)器。具體操作如圖2-18至2-23所示圖2-18進(jìn)入數(shù)據(jù)源管理器圖2-19創(chuàng)建SQLserver數(shù)據(jù)源圖2-20設(shè)置數(shù)據(jù)源名稱并選擇服務(wù)器圖2-21設(shè)置數(shù)據(jù)庫驗證方式與登陸密碼圖2-22更改默認(rèn)數(shù)據(jù)庫圖2-23設(shè)置數(shù)據(jù)源完成

第三章應(yīng)用程序的設(shè)計與實現(xiàn)3.1系統(tǒng)總體設(shè)計3.1.1用戶登錄模塊設(shè)計用戶登錄主要用于驗證用戶登錄系統(tǒng)時輸入的用戶名、密碼和驗證碼是否正確，只有合法的用戶才可以進(jìn)入系統(tǒng)，否則將不能進(jìn)入此系統(tǒng)，該系統(tǒng)登錄頁面的運行效果如圖3-1所示。圖3-1系統(tǒng)登錄界面系統(tǒng)登錄設(shè)計流程圖如圖3-2所示。圖3-2登陸流程設(shè)計圖系統(tǒng)登錄設(shè)置代碼如下：PrivateSubcmdOk_Click()'靜態(tài)常量intLogTimes用于保存用戶請求驗證的次數(shù)StaticintLogTimesAsIntegerintLogTimes=intLogTimes+1'保存登錄次數(shù)IfintLogTimes>MaxLogTimesThen'超過允許的登錄次數(shù)，顯示提示信息MsgBox"你已經(jīng)超過允許的登錄驗證次數(shù)！"&vbCr_&"應(yīng)用程序?qū)⒔Y(jié)束！",vbCritical,"登錄驗證"End'結(jié)束應(yīng)用程序ElseDrug_Store.rsSysUsers.Open'打開紀(jì)錄集WithDrug_Store.rsSysUsers'檢驗用戶名和口令的合法性If.RecordCount>0Then.MoveFirst.Find"編號='"&Trim(txtLog(0))&"'"If.EOFThenMsgBox"編號："&Trim(txtLog(0))_&"不是系統(tǒng)用戶編號，請修改編號重試！",vbCritical,"登錄驗證"txtLog(0).SetFocustxtLog(0).SelStart=0txtLog(0).SelLength=Len(txtLog(0))ElseIf.Fields("口令")<>Trim(txtLog(1))ThenMsgBox"口令錯誤，請重新輸入口令！",vbCritical,"登錄驗證"txtLog(1).SetFocustxtLog(1)=""ElseCurrentUserNumber=.Fields("編號")CurrentUserPassword=.Fields("口令")CurrentUserStatus=.Fields("權(quán)限")MsgBox"歡迎使用汽車管理系統(tǒng)！",vbInformation,"登錄成功"UnloadMeSystemMain.ShowEndIfEndIfEndWithDrug_Store.rsSysUsers.Close'關(guān)閉紀(jì)錄集EndIfEndSub3.1.2系統(tǒng)主界面當(dāng)?shù)卿洺晒螅蜁M(jìn)入如圖3-3的主界面。首頁主要由兩大部分組成，第一部分是功能導(dǎo)航區(qū)，第二部分是操作區(qū)。圖3-3系統(tǒng)主界面系統(tǒng)主界面代碼設(shè)計如下：PublicUserAsStringPublicusertypeAsIntegerPrivateSubForm_Load()Frm_login.Show1EndSubPrivateSubMenu_addCar_Click()Frm_addCar.ShowEndSubPrivateSubMenu_addCus_Click()Frm_addCus.ShowEndSubPrivateSubMenu_addEmp_Click()Frm_addEmp.ShowEndSubPrivateSubMenu_addUser_Click()Frm_addUser.ShowEndSubPrivateSubMenu_Exit_Click()UnloadMeEndSubPrivateSubMenu_edit_Car_Click()Frm_edit_Car.ShowEndSubPrivateSubMenu_edit_Cus_Click()Frm_edit_Cus.ShowEndSubPrivateSubMenu_edit_User_Click()Frm_edit_User.ShowEndSubPrivateSubMenu_modiEmp_Click()Frm_edit_Emp.ShowEndSubPrivateSubMenu_queCar_Click()Frm_queCar.ShowEndSubPrivateSubMenu_queCus_Click()Frm_queCus.ShowEndSubPrivateSubMenu_queEmp_Click()Frm_queEmp.ShowEndSub3.1.3系統(tǒng)用戶模塊實現(xiàn)系統(tǒng)用戶信息管理只要用于添加用戶、修改刪除密碼。添加信息如圖3-4所示。圖3-4添加系統(tǒng)用戶該模塊設(shè)計執(zhí)行代碼如下：PrivateSubCmd_Cancel_Click()UnloadMeEndSubPrivateSubCmd_OK_Click()DimusertypeAsInteger'數(shù)據(jù)有效性檢查IftxtUser=""ThenMsgBox"請輸入用戶名"txtUser.SetFocusExitSubEndIfAdodc1.RecordSource="SELECT*FROMUsersWHEREUser_name='"+Trim(txtUser.Text)+"'"Adodc1.RefreshIfAdodc1.Recordset.EOF=FalseThenMsgBox"已經(jīng)有此用戶，請重新輸入"txtUser.SetFocusExitSubElseIftxtPwd=""ThenMsgBox"請輸入密碼"txtPwd.SetFocusExitSubEndIfIftxtSurePwd=""ThenMsgBox"請確認(rèn)密碼"txtSurePwd.SetFocusExitSubEndIfIfOption1=TrueThenusertype=0ElseIfOption2=TrueThenusertype=1ElseMsgBox"請選擇用戶類型"ExitSubEndIfIfLen(txtPwd)<6ThenMsgBox"密碼長度不能小于6"txtPwd.SetFocustxtPwd.SelStart=0txtPwd.SelLength=Len(txtPwd)ExitSubEndIfIftxtPwd<>txtSurePwdThenMsgBox"密碼和確認(rèn)密碼不相同，請重新確認(rèn)"txtSurePwd.SetFocustxtSurePwd.SelStart=0txtSurePwd.SelLength=Len(txtSurePwd)ExitSubEndIf'增加新用戶Adodc1.Recordset.AddNewAdodc1.Recordset.Fields(0).Value=Trim(txtUser.Text)Adodc1.Recordset.Fields(1).Value=Trim(txtPwd.Text)Adodc1.Recordset.Fields(2).Value=usertypeAdodc1.Recordset.UpdateAdodc1.RefreshMsgBox"用戶增加完成"UnloadMeEndIfEndSub3.1.4轎車信息管理模塊實現(xiàn)轎車信息管理模塊主要用于查看轎車信息、修改/刪除轎車信息、增加轎車信息具體操作圖3-5至3-7所示。圖3-5按條件查詢轎車圖3-6修改/刪除轎車信息圖3-7增加轎車信息該模塊設(shè)計執(zhí)行代碼如下：PrivateSubCmd_add_Click()DimtxtIdAsIntegerAdodc1.RecordSource="SELECT*FROMCarOrderbyCar_iddesc"Adodc1.RefreshIfAdodc1.Recordset.EOF=TrueThentxtId=1ElsetxtId=Adodc1.Recordset.Fields(0)+1EndIfIftxtBrand.Text=""ThenMsgBox("請輸入汽車品牌")ExitSubEndIfIftxtPrice.Text=""ThenMsgBox("請輸入汽車價格")ExitSubEndIfIftxtName.Text=""ThenMsgBox("請輸入汽車型號")ExitSubEndIfIftxtTime.Text=""ThenMsgBox("請輸入汽車保修期")ExitSubEndIf'增加新車Adodc1.Recordset.AddNewAdodc1.Recordset.Fields(0).Value=Val(txtId)Adodc1.Recordset.Fields(1).Value=Trim(txtName.Text)Adodc1.Recordset.Fields(2).Value=Trim(txtBrand.Text)Adodc1.Recordset.Fields(3).Value=Val(Trim(txtPrice.Text))Adodc1.Recordset.Fields(4).Value=Trim(txtTime.Text)Adodc1.Recordset.Fields(5).Value=Trim(txtInfo.Text)Adodc1.Recordset.UpdateAdodc1.RefreshMsgBox"汽車信息增加完成"UnloadMeEndSubPrivateSubCmd_Cancel_Click()UnloadMeEndSub3.1.5客戶信息管理模塊實現(xiàn)客戶信息管理模塊主要用于查看客戶信息、修改/刪除客戶信息、增加客戶信息具體操作圖3-8至3-10所示。圖3-8查詢客戶信息圖3-9修改/刪除客戶信息圖3-10添加客戶信息該模塊的具體設(shè)計執(zhí)行代碼如下：PrivateSubCmd_add_Click()DimtxtIdAsIntegerAdodc1.RecordSource="SELECT*FROMCustomerOrderbyCustomer_iddesc"Adodc1.RefreshIfAdodc1.Recordset.EOF=TrueThentxtId=1ElsetxtId=Adodc1.Recordset.Fields(0)+1EndIfIfcus_name=""ThenMsgBox("請輸入客戶名字")ExitSubEndIfIfbuycar_name=""ThenMsgBox("請輸入汽車型號")ExitSubElseAdodc1.RecordSource="select*fromCarwhereCar_name='"+Trim(buycar_name)IfAdodc1.Recordset.BOF=FalseThenMsgBox("沒有的輸入汽車型號")buycar_name.SetFocusEndIfEndIfIfbuycar_price=""ThenMsgBox("請輸入汽車價格")ExitSubEndIf'增加新車Adodc1.Recordset.AddNewAdodc1.Recordset.Fields(0).Value=Val(txtId)Adodc1.Recordset.Fields(1).Value=Trim(cus_name.Text)Adodc1.Recordset.Fields(2).Value=Trim(cus_sex.Text)Adodc1.Recordset.Fields(3).Value=Val(Trim(cus_age.Text))Adodc1.Recordset.Fields(4).Value=Trim(cus_job.Text)Adodc1.Recordset.Fields(5).Value=Trim(cus_num.Text)Adodc1.Recordset.Fields(6).Value=Trim(cus_tel.Text)Adodc1.Recordset.Fields(7).Value=Trim(cus_address.Text)Adodc1.Recordset.Fields(8).Value=Trim(buycar_name.Text)Adodc1.Recordset.Fields(9).Value=Trim(buycar_price.Text)Adodc1.Recordset.Fields(10).Value=Trim(cus_info.Text)Adodc1.Recordset.UpdateAdodc1.R