企業(yè)客戶關(guān)系管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)

年4月19日企業(yè)客戶關(guān)系管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)文檔僅供參考，不當(dāng)之處，請(qǐng)聯(lián)系改正。學(xué)校代碼10126學(xué)號(hào)w1043927分類號(hào)TP399：F279.23密級(jí)工程碩士學(xué)位論文企業(yè)客戶關(guān)系管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)研究生:張程麗指導(dǎo)教師:班志杰學(xué)院:計(jì)算機(jī)學(xué)院領(lǐng)域:研究方向:計(jì)算機(jī)技術(shù)年原創(chuàng)性聲明本人聲明：所呈交的學(xué)位論文是本人在導(dǎo)師的指導(dǎo)下進(jìn)行的研究工作及取得的研究成果。除本文已經(jīng)注明引用的內(nèi)容外，論文中不包含其它人已經(jīng)發(fā)表或撰寫過的研究成果，也不包含為獲得內(nèi)蒙古大學(xué)及其它教育機(jī)構(gòu)的學(xué)位或證書而使用過的材料。與我一同工作的同志對(duì)本研究所做的任何貢獻(xiàn)均已在論文中作了明確的說明并表示謝意。學(xué)位論文作者簽名：張程麗指導(dǎo)教師簽名：日期：4月1日日期：在學(xué)期間研究成果使用承諾書本學(xué)位論文作者完全了解學(xué)校有關(guān)保留、使用學(xué)位論文的規(guī)定，即：內(nèi)蒙古大學(xué)有權(quán)將學(xué)位論文的全部內(nèi)容或部分保留并向國家有關(guān)機(jī)構(gòu)、部門送交學(xué)位論文的復(fù)印件和磁盤，允許編入有關(guān)數(shù)據(jù)庫進(jìn)行檢索，也能夠采用影印、縮印或其它復(fù)制手段保存、匯編學(xué)位論文。為保護(hù)學(xué)院和導(dǎo)師的知識(shí)產(chǎn)權(quán)，作者在學(xué)期間取得的研究成果屬于內(nèi)蒙古大學(xué)。作者今后使用涉及在學(xué)期間主要研究內(nèi)容或研究成果，須征得內(nèi)蒙古大學(xué)就讀期間導(dǎo)師的同意；若用于發(fā)表論文，版權(quán)單位必須署名為內(nèi)蒙古大學(xué)方可投稿或公開發(fā)表。學(xué)位論文作者簽名：張程麗指導(dǎo)教師簽名：日期：4月1日日期：企業(yè)客戶關(guān)系管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)摘要客戶關(guān)系管理系統(tǒng)集管理科學(xué)、信息科學(xué)、系統(tǒng)科學(xué)、現(xiàn)代通信技術(shù)和電子計(jì)算機(jī)技術(shù)于一體，能夠解決企業(yè)或組織所面臨的問題。該系統(tǒng)根據(jù)鑫鑫裝飾公司所屬客戶的實(shí)際管理情況進(jìn)行編寫的，為了方便企業(yè)對(duì)客戶來往業(yè)務(wù)及客戶關(guān)系信息情況進(jìn)行集中的查詢與管理工作以及滿足不同管理層次對(duì)各種信息的需求，因此，本文設(shè)計(jì)和實(shí)現(xiàn)了該企業(yè)客戶關(guān)系管理系統(tǒng)。本系統(tǒng)采用三層架構(gòu)設(shè)計(jì)，使用VisualBasic6.0和Access數(shù)據(jù)庫進(jìn)行開發(fā)。本文以客戶為中心，以管理為目的，經(jīng)過E-R圖表征關(guān)鍵模塊的實(shí)體及實(shí)體之間的聯(lián)系，根據(jù)事件發(fā)生的前后順序及數(shù)據(jù)流向畫出了系統(tǒng)流程圖，詳細(xì)進(jìn)行了功能需求分析、角色需求分析等，并對(duì)現(xiàn)存問題給出解決方案。本文主要包括基本信息管理模塊、客戶管理模塊、商業(yè)往來模塊、統(tǒng)計(jì)模塊、銷售模塊和用戶管理模塊等六個(gè)模塊。其中在商業(yè)往來和統(tǒng)計(jì)模塊給出了詳細(xì)的設(shè)計(jì)，實(shí)現(xiàn)了預(yù)期的目的，在模塊實(shí)現(xiàn)方面給出了部分窗口實(shí)現(xiàn)的用戶視圖和實(shí)現(xiàn)代碼，并對(duì)系統(tǒng)進(jìn)行了詳細(xì)的單元測(cè)試和集成測(cè)試。該系統(tǒng)經(jīng)過對(duì)用戶信息資源的整合，在企業(yè)內(nèi)部達(dá)到資源共享，從而為客戶提供更快速周到的優(yōu)質(zhì)服務(wù)，吸引和保持更多的客戶。關(guān)鍵詞：管理系統(tǒng),數(shù)據(jù)庫,VisualBasicDesignandimplementationofenterprisecustomerrelationshipmanagementsystemAbstractCustomerrelationshipmanagementsystem,managementscience,informationscience,systemscience,moderncommunicationtechnologyandcomputertechnology,cansolvetheproblemsfacedbyenterprisesororganizations.TheactualmanagementofthesystemisbasedonXinxindecorationcompanycustomerisprepared,forconvenienceofclientsbusinessenterpriseandcustomerrelationshipinformationqueryandmanagementworkandmeettheneedsofdifferentlevelsofmanagementofallkindsofinformationdemand,therefore,thispaperdescribesthedesignandimplementationofcustomerrelationshipmanagementsystemfortheenterprise.Thethreelayerarchitecturedesignisadoptedinthissystem,usedforthedevelopmentofVisualBasic6andAccessdatabase.Thethreelayerarchitecturedesignisadoptedinthissystem,developedusingVisualBasic6andAccessdatabase.Thisarticletakethecustomerasthecenter,formanagementpurposes,thekeymodulesoftheE-Rdiagramrepresentationentityandentityrelationship,accordingtotheeventsequenceandthedatatodrawtheflowchartofthesystem,detailedanalyzesthefunctiondemand,theroleofdemandanalysis,theexistingproblemsandsolutionsaregiven.Thispapermainlyincludesthebasicinformationmanagementmodule,customermanagementmodule,businessmodule,statisticsmodule,salesmoduleandusermanagementmodulesixmodules.Inthecommercialexchangesandstatisticsmodulegivesadetaileddesign,toachievethedesiredpurpose,themoduleisauserviewwindowandtherealizationofthecode,andthesystemoftheunittestingandintegrationtestingindetail.Thesystemthroughtheintegrationoftheinformationresources,toachievethesharingofresourceswithintheenterprise,soastoprovideamorerapidandthoughtfulserviceforcustomers,maintainandattractmoreandmorecustomers.Keywords:Managementsystem,Database,VisualBasic目錄第一章緒論 11.1主要背景和意義 11.2本文的主要工作 2第二章系統(tǒng)分析 32.1可行性分析 32.2需求分析及系統(tǒng)用例圖 32.2.1角色需求分析 32.2.2功能需求分析 42.2.3系統(tǒng)用例圖 5第三章系統(tǒng)總體設(shè)計(jì) 93.1三層架構(gòu) 93.2系統(tǒng)總體模塊設(shè)計(jì) 93.2.1總體模塊 93.2.2客戶基本信息模塊 103.2.3客戶管理模塊 103.2.4商業(yè)往來管理模塊 113.2.5統(tǒng)計(jì)模塊 113.2.6系統(tǒng)用戶管理 113.3系統(tǒng)流程圖 113.4業(yè)務(wù)流程圖 12第四章數(shù)據(jù)庫設(shè)計(jì) 134.1數(shù)據(jù)庫的概念結(jié)構(gòu)設(shè)計(jì) 134.2數(shù)據(jù)庫的邏輯設(shè)計(jì) 154.3數(shù)據(jù)庫的表單設(shè)計(jì) 154.4表間關(guān)系圖 19第五章系統(tǒng)功能實(shí)現(xiàn) 205.1軟硬件環(huán)境 205.1.1硬件環(huán)境 205.1.2軟件環(huán)境 205.2通用程序塊 205.3登錄窗體和系統(tǒng)主界面的實(shí)現(xiàn) 205.3.1登錄窗體 205.3.2主界面 215.4功能模塊的實(shí)現(xiàn) 255.4.1客戶信息跟蹤管理 255.4.2商業(yè)機(jī)會(huì)管理 265.4.3客戶基本信息模塊的實(shí)現(xiàn) 345.4.4客戶信息管理模塊的實(shí)現(xiàn) 375.4.5統(tǒng)計(jì)模塊 44第六章系統(tǒng)測(cè)試 496.1系統(tǒng)用戶管理測(cè)試 496.1.1用戶登錄單元測(cè)試 496.1.2添加用戶單元測(cè)試 496.1.3用戶管理集成測(cè)試 506.2客戶信息管理模塊測(cè)試 516.2.1客戶基本信息管理模塊單元測(cè)試 516.2.2客戶聯(lián)系人管理模塊單元測(cè)試 52致謝 54參考文獻(xiàn) 55第一章緒論1.1主要背景和意義信息在社會(huì)和經(jīng)濟(jì)的發(fā)展中所起的作用越來越為人們所重視。信息資源的開發(fā)利用水平成為衡量一個(gè)國家綜合國力的重要標(biāo)志之一。計(jì)算機(jī)作為信息處理的工具，為適應(yīng)數(shù)據(jù)處理需求的迅速提高，滿足各類信息系統(tǒng)對(duì)數(shù)據(jù)管理的要求，在文件系統(tǒng)的基礎(chǔ)上發(fā)展基礎(chǔ)數(shù)據(jù)庫系統(tǒng)，數(shù)據(jù)庫方法針對(duì)事物處理中大量數(shù)據(jù)管理需求。客戶關(guān)系管理系統(tǒng)的理念是基于對(duì)客戶的尊重，要有統(tǒng)一的平臺(tái)能夠與客戶進(jìn)行溝通，客戶反饋率及員工與客戶接觸的效率和要提高且需要企業(yè)對(duì)整個(gè)客戶生命周期有完整地認(rèn)識(shí)。一個(gè)較好的客戶關(guān)系管理系統(tǒng)至少應(yīng)包括以下功能：經(jīng)過傳真、Internet、電話、網(wǎng)絡(luò)通訊工具、E-mail等多種方式與客戶保持溝通；使公司員工全面了解客戶關(guān)系，保證客戶根據(jù)需求進(jìn)行交易，記錄獲得的客戶信息，在企業(yè)內(nèi)部做到客戶信息共享；對(duì)市場(chǎng)計(jì)劃進(jìn)行整體規(guī)劃和評(píng)估；跟蹤各種銷售活動(dòng)進(jìn)行；經(jīng)過積累大量的動(dòng)態(tài)資料，全面分析市場(chǎng)和銷售情況。正是在這種背景下開始了本系統(tǒng)的研發(fā)。

鑫鑫裝飾公司要想在現(xiàn)在日益激烈的市場(chǎng)競(jìng)爭(zhēng)中獲得優(yōu)勢(shì)，企業(yè)領(lǐng)導(dǎo)人已經(jīng)深刻認(rèn)識(shí)到有效的管理客戶關(guān)系的重要性，可是當(dāng)前還沒有全面的實(shí)施客戶關(guān)系管理。該裝飾公司是一個(gè)剛開始發(fā)展不久的小企業(yè)，因此在有效的發(fā)展壯大自己的同時(shí)，當(dāng)前在企業(yè)客戶關(guān)系管理系統(tǒng)方面主要存在如下問題：1）該企業(yè)相比客戶而言可能更加注重的是如何提高企業(yè)效益和用于擴(kuò)大再生產(chǎn)，而對(duì)于客戶的重視不夠，還沒有形成規(guī)范的系統(tǒng)流程。2）該系統(tǒng)只實(shí)現(xiàn)了基本的客戶關(guān)系管理功能，系統(tǒng)在某些方面不夠完善。例如只進(jìn)行了一般的統(tǒng)計(jì)，沒有進(jìn)行詳細(xì)的決策分析。3）關(guān)于客戶關(guān)系管理方面的技術(shù)支持比較薄弱；4）鑫鑫裝飾公司僅投入了小部分資金進(jìn)行系統(tǒng)的開發(fā)，因此該系統(tǒng)在功能方面較為單調(diào)，僅為單機(jī)版的客戶關(guān)系管理系統(tǒng)，不能在網(wǎng)絡(luò)上得到資源的共享，且缺少專門的維護(hù)人員進(jìn)行系統(tǒng)的維護(hù)。為了使現(xiàn)有企業(yè)客戶關(guān)系管理更好的發(fā)展，我們應(yīng)該著力解決現(xiàn)在存在的問題。首先，應(yīng)該轉(zhuǎn)變企業(yè)管理的文化理念，讓人們特別該企業(yè)的領(lǐng)導(dǎo)著正確的認(rèn)識(shí)客戶關(guān)系管理，明白客戶資源是公司的最大財(cái)產(chǎn)，要更高的追求以客戶為中心；其次，在系統(tǒng)的實(shí)現(xiàn)發(fā)面能夠聘請(qǐng)專業(yè)人員進(jìn)行技術(shù)指導(dǎo)，盡可能對(duì)系統(tǒng)進(jìn)行完善，從而使企業(yè)在橫向職能機(jī)構(gòu)的設(shè)置方面得到加強(qiáng)，加強(qiáng)多部門間的聯(lián)系，為公司創(chuàng)造更大的利益；再次，在軟件的開發(fā)與實(shí)現(xiàn)中要加強(qiáng)團(tuán)隊(duì)合作，為客戶提供優(yōu)良的服務(wù)，提升客戶滿意度，從而提高客戶管理水平，為企業(yè)創(chuàng)造更多的效益；另外，我們應(yīng)該充分利用網(wǎng)絡(luò)的有效資源，不斷完善系統(tǒng)，使之早日能在網(wǎng)絡(luò)上得到資源的共享。1.2本文的主要工作該企業(yè)客戶關(guān)系管理系統(tǒng)以項(xiàng)目流程為主線，以客戶為中心，以加強(qiáng)管理為主要，使中小企業(yè)能有效的掌握公司所有的客戶資料，幫其改進(jìn)對(duì)現(xiàn)有客戶的管理混亂狀態(tài)，加強(qiáng)企業(yè)與客戶的聯(lián)系，并有效的挖掘潛在客戶。讓客戶成為朋友是本客戶關(guān)系管理系統(tǒng)所追求的境界，該系統(tǒng)經(jīng)過對(duì)用戶信息資源的整合，在企業(yè)內(nèi)部達(dá)到資源共享，從而為客戶提供更快速周到的優(yōu)質(zhì)服務(wù)，吸引和保持更多的客戶。該系統(tǒng)總體來講主要分為以下幾個(gè)個(gè)功能模塊：客戶基本信息模塊、客戶信息管理模塊、商業(yè)往來管理模塊、系統(tǒng)用戶管理等模塊。是一個(gè)按統(tǒng)一規(guī)范進(jìn)行業(yè)務(wù)處理和數(shù)據(jù)管理的工作平臺(tái)，提供各類不同管理層次所需的各種相關(guān)信息，實(shí)現(xiàn)對(duì)客戶的多方位、綜合有效的管理。本文的主要工作包括以下幾個(gè)方面：第一章、系統(tǒng)的研究背景及意義的介紹；第二章、系統(tǒng)分析；第三章、在需求分析的基礎(chǔ)上，對(duì)該系統(tǒng)進(jìn)行總體設(shè)計(jì)；第四章、根據(jù)總體設(shè)計(jì)對(duì)該系統(tǒng)的數(shù)據(jù)庫進(jìn)行設(shè)計(jì)；第五章、系統(tǒng)各功能模塊的實(shí)現(xiàn)；第六章、系統(tǒng)測(cè)試；第二章系統(tǒng)分析2.1可行性分析可行性研究是軟件開發(fā)過程中的第二個(gè)階段，它是在第一個(gè)階段——問題定義的基礎(chǔ)上進(jìn)行的?？尚行匝芯渴且韵鄬?duì)短的時(shí)間和相對(duì)低的成原來確定給定的問題是否有解，主要從以下幾個(gè)方面進(jìn)行研究。（1）經(jīng)濟(jì)可行性采用客戶信息管理系統(tǒng)可取代原系統(tǒng)的傳統(tǒng)單據(jù)傳遞工作，減少人工開支，節(jié)省資金，而且可大大提高信息量的取得，縮短信息處理周期，提高市場(chǎng)信息的利用率，從而使客戶的管理水平上一個(gè)新臺(tái)階。（2）技術(shù)可行性該系統(tǒng)所要求的硬件設(shè)備是市場(chǎng)上銷售且價(jià)格較低的，有的甚至能夠使用故有的設(shè)備，而在軟件上，采用Windows系列的操作系統(tǒng)，采用ACCESS數(shù)據(jù)庫用于數(shù)據(jù)庫管理系統(tǒng)，在MIS開發(fā)中已大量使用這些軟件，且技術(shù)上也比較成熟。因此該系統(tǒng)的開發(fā)在技術(shù)上是可行的。（3）操作可行性系統(tǒng)在實(shí)現(xiàn)之后，要由1~2名計(jì)算機(jī)專業(yè)技術(shù)人員看管服務(wù)器和進(jìn)行技術(shù)支持。用戶只需坐在電腦前，輕松實(shí)現(xiàn)對(duì)往來客戶的管理。（4）管理可行性企業(yè)的客戶能夠分布全國各地，因此公司要為客戶建立資料檔案，便能夠輕松的對(duì)其進(jìn)行管理。2.2需求分析及系統(tǒng)用例圖需求分析是軟件開發(fā)中最重要的環(huán)節(jié)，它直接影響著項(xiàng)目的成功與失敗。需求是產(chǎn)品的根源，需求工作的優(yōu)劣對(duì)產(chǎn)品影響最大。需求如此重要，那么什么是需求呢？需求就是那些必須在開始構(gòu)建產(chǎn)品之前發(fā)現(xiàn)的東西，產(chǎn)品必須完成的事情以及必須具備的品質(zhì)。2.2.1角色需求分析角色需求分析的主要目標(biāo)是從分析人員的角度看新項(xiàng)目開發(fā)有無必要和可能。對(duì)本系統(tǒng)經(jīng)過初步調(diào)查，確定了本系統(tǒng)的用戶群是各企業(yè)負(fù)責(zé)客戶資源管理的員工。這些用戶能夠分為普通用戶、系統(tǒng)管理員。本系統(tǒng)就是為普通用戶、系統(tǒng)管理員提供一個(gè)信息查詢和管理的平臺(tái)。對(duì)用戶群進(jìn)行分析。（1）普通用戶需求這里所說的普通用戶是指具有一定權(quán)限限制的用戶群。她們只能以普通用戶的身份登入系統(tǒng)，之后能夠?qū)蛻粜畔⒑蜕虡I(yè)往來信息進(jìn)行添加，修改和刪除，不能對(duì)基本信息做任何的操作，包括地域信息，客戶類別信息，行業(yè)分類信息，職務(wù)名稱信息，項(xiàng)目類型和銷售人員信息。需求所有信息的更新、添加和刪除都由系統(tǒng)管理員操作?？傮w來說，該系統(tǒng)共分為六個(gè)模塊：基本信息管理，客戶信息管理，商業(yè)往來管理、銷售管理、統(tǒng)計(jì)模塊和系統(tǒng)用戶管理模塊。對(duì)于一個(gè)企業(yè)來講每天都可能發(fā)生一些變化，管理員有模塊管理的權(quán)限能夠隨時(shí)對(duì)本系統(tǒng)的信息進(jìn)行管理和更新。系統(tǒng)管理員管理系統(tǒng)用戶、角色與權(quán)限，保證系統(tǒng)正常運(yùn)行。負(fù)責(zé)所有信息的更新、添加和刪除都由系統(tǒng)管理員操作?？偟膩碚f，分為以下幾個(gè)模塊：基本信息管理，客戶信息管理，商業(yè)往來管理、統(tǒng)計(jì)管理、銷售管理、系統(tǒng)用戶管理等。對(duì)于一個(gè)企業(yè)來講每天都可能發(fā)生一些變化，管理員有模塊管理的權(quán)限能夠隨時(shí)對(duì)本系統(tǒng)的信息進(jìn)行管理和更新。銷售人員對(duì)客戶基本信息及客戶的需求進(jìn)行采集，將采集好的信息交給銷售主管。接收售后服務(wù)信息，以便公司做好售后服務(wù)經(jīng)及拜訪等工作的開展。銷售人員能夠?qū)︿N售信息進(jìn)行添加、修改、刪除、查詢等操作。（4）銷售主管：對(duì)客戶服務(wù)進(jìn)行分配，分析客戶信息，發(fā)現(xiàn)潛在客戶。并對(duì)特定銷售機(jī)會(huì)制定客戶開發(fā)計(jì)劃，指定銷售人員進(jìn)行銷售。2.2.2功能需求分析1.功能劃分（1）客戶基本信息的管理（2）對(duì)客戶進(jìn)行管理（3）商業(yè)往來情況的管理（4）統(tǒng)計(jì)功能（5）對(duì)銷售進(jìn)行管理（6）對(duì)用戶進(jìn)行管理2.功能描述鑫鑫裝飾公司是一個(gè)剛起步不久的小型企業(yè)，針對(duì)該系統(tǒng)的功能劃分，現(xiàn)對(duì)其每個(gè)功能進(jìn)行詳細(xì)的需求分析。（1）基本信息管理：該模塊是針對(duì)鑫鑫公司的客戶進(jìn)行的操作，分別能夠按地域信息管理，按客戶類別管理，按行業(yè)分類管理，按職務(wù)名稱管理，按項(xiàng)目類型管理和按銷售人員管理。將客戶的基本信息按分類管理，便于工作人員的查找、聯(lián)系等操作。（2）客戶管理:該模塊也是主要針對(duì)鑫鑫公司客戶進(jìn)行的，能夠?qū)蛻魡挝恍畔⒐芾砗吐?lián)系人管理。（3）商業(yè)往來管理：該部分是本系統(tǒng)的核心功能之一，分別能夠按合作信息進(jìn)行管理和按客戶信息進(jìn)行管理。（4）統(tǒng)計(jì)模塊：分別能夠按照類型統(tǒng)計(jì)、按照區(qū)域統(tǒng)計(jì)、按照行業(yè)統(tǒng)計(jì)和按照銷售人員統(tǒng)計(jì)。這樣能夠直觀明了的分析出成交的訂單情況，便于管理人員對(duì)公司下一步工作做出決策。（5）銷售管理模塊：主要針對(duì)對(duì)銷售信息的添加、修改、查詢等操作。（6）用戶管理：實(shí)現(xiàn)用戶權(quán)限及密碼的管理。3.功能結(jié)構(gòu)圖根據(jù)上述功能需求分析，做出鑫鑫裝飾公司的具體功能結(jié)構(gòu)圖如下圖2-1所示：圖2-1系統(tǒng)功能結(jié)構(gòu)圖Figure2-1Thesystemfunctionstructurediagram2.2.3系統(tǒng)用例圖\o"用例圖"用例圖（\o"usecasediagram"usecasediagram）就是由主角、\o"用例"用例以及它們之間的關(guān)系構(gòu)成的圖。說明了\o"用例模型"用例模型中的關(guān)系。用例圖由參與者（Actor）、用例（\o"UseCase"UseCase）、系統(tǒng)邊界、箭頭組成，用畫圖的方法來完成。用例圖從用戶的角度而不是開發(fā)者的角度來描述軟件產(chǎn)品的需求，分析團(tuán)建產(chǎn)品所需的功能和行為。下圖為該系統(tǒng)的一些用例圖。用戶管理模塊主要是供系統(tǒng)使用的，在該模塊中系統(tǒng)管理員為系統(tǒng)用戶的信息進(jìn)行添加、修改、刪除和查詢，在這個(gè)過程中，系統(tǒng)管理員也為每個(gè)系統(tǒng)用戶分配了相應(yīng)的權(quán)限，方便用戶在自己的業(yè)務(wù)范圍內(nèi)處理信息，用例圖如下：圖2-2管理員用例圖Figure2-2TheAdministratorsusecasediagram普通員工只對(duì)自己負(fù)責(zé)的產(chǎn)品、客戶進(jìn)行管理及相關(guān)報(bào)表的打印，用例圖如下：圖2-3普通用戶用例圖Figure2-3commonusecasemap銷售人員負(fù)責(zé)對(duì)銷售信息進(jìn)行添加、修改、刪除和查詢等操作，下圖2-4為銷售人員的用例圖：圖2-4銷售人員用例圖Figure2-4Salespersonnelintheusecasediagram管理信息系統(tǒng)（本系統(tǒng)就屬于管理信息系統(tǒng)）是當(dāng)前應(yīng)用最廣泛的一類計(jì)算機(jī)軟件，而在這種類型系統(tǒng)的開發(fā)過程中或開發(fā)工作完成之后，用戶需求經(jīng)常改變，因此這類系統(tǒng)的開發(fā)非常需要面向?qū)ο蟮拈_發(fā)方法學(xué)以適應(yīng)系統(tǒng)功能需求不穩(wěn)定的特點(diǎn)。面向?qū)ο蠓治觯∣OA）的主要任務(wù)是對(duì)問題域進(jìn)行分析，找出問題域中的對(duì)象，確定其屬性和操作以及對(duì)象之間的關(guān)系，提出問題域的對(duì)象模型。用例模型用于需求分析階段，描述系統(tǒng)中每個(gè)參與者（Actor）進(jìn)行的活動(dòng)。用例圖中使用橢圓表示使用案例，人形表示角色，箭頭表示通訊關(guān)系，使用案例是由角色啟動(dòng)的。對(duì)于本系統(tǒng)來說，用例圖描述了不同角色的人員經(jīng)過系統(tǒng)進(jìn)行的不同活動(dòng)。下面給出本系統(tǒng)的用例圖，如圖所示。圖2-5系統(tǒng)用例圖Figure2-5Thesystemusecasediagram系統(tǒng)管理員是模塊的主要管理者，登錄系統(tǒng)后，系統(tǒng)管理員除了具有普通用戶的查詢功能外，還要負(fù)責(zé)對(duì)各個(gè)模塊的管理和維護(hù)。系統(tǒng)管理員要對(duì)各個(gè)模塊的信息進(jìn)行更新，添加，修改，刪除等操作。對(duì)于這個(gè)系統(tǒng)只有管理員有更新各個(gè)模塊信息的權(quán)限。管理員有固定用戶名和密碼，如果用戶名或密碼不對(duì)，系統(tǒng)自動(dòng)提示。第三章系統(tǒng)總體設(shè)計(jì)3.1三層架構(gòu)將整個(gè)業(yè)務(wù)應(yīng)用劃分為：業(yè)務(wù)邏輯層、表現(xiàn)層、數(shù)據(jù)訪問層就是一般意義上所說的三層架構(gòu)。而“高內(nèi)聚、低耦合”的思想是區(qū)分層次的目的。（1）為什么采用三層C/S架構(gòu)數(shù)據(jù)控件綁定是一般程序員在設(shè)計(jì)數(shù)據(jù)庫應(yīng)用程序時(shí)一般采用的方法,用鼠標(biāo)輕松畫幾個(gè)控件,再利用鼠標(biāo)設(shè)置所需屬性,甚至鍵盤都不用動(dòng),便完成了開發(fā)一個(gè)數(shù)據(jù)庫應(yīng)用。雖然這是一種快速的開發(fā)數(shù)據(jù)庫應(yīng)用的方式,但快速并不等同于精通.（2）什么時(shí)候使用三層架構(gòu)按照上面所提到的,對(duì)于擁有眾多客戶端的應(yīng)用系統(tǒng)或者大型的數(shù)據(jù)庫應(yīng)用系統(tǒng),需要使用三層結(jié)構(gòu).本質(zhì)上說,這是系統(tǒng)規(guī)模的大小,如果系統(tǒng)已達(dá)到一定規(guī)模,需要多人開發(fā),此時(shí)就需要三層結(jié)構(gòu),一方面是分解工作量,另一方面也是分解技術(shù)難度.（3）使用三層架構(gòu)的好處1、采用3層邏輯架構(gòu)，有效的將系統(tǒng)劃分為界面處理層，業(yè)務(wù)邏輯層和數(shù)據(jù)訪問層。這樣劃分層的好處是每一層都具有相對(duì)獨(dú)立的職責(zé)，降低了層與層之間的依賴性。即使某一層發(fā)生變化，也不會(huì)影響其它層，從而確保了架構(gòu)的穩(wěn)定性。2、將界面與邏輯代碼分開，即使頁面發(fā)生變化，對(duì)業(yè)務(wù)邏輯不會(huì)產(chǎn)生影響。因此，客戶端界面使用WinForm或者M(jìn)obileWebForm時(shí)，只需新建用戶界面層而直接重用業(yè)務(wù)邏輯層提供的服務(wù)即可。3.2系統(tǒng)總體模塊設(shè)計(jì)3.2.1總體模塊根據(jù)上述系統(tǒng)功能分析,能夠得到如圖所示的系統(tǒng)功能模塊圖.從圖中能夠看出系統(tǒng)包含客戶基本信息模塊、客戶信息管理模塊、統(tǒng)計(jì)模塊、商業(yè)往來管理模塊、銷售模塊和系統(tǒng)用戶管理模塊等,系統(tǒng)的功能模塊如下圖3-1所示。圖3-1總體模塊圖Figure3-1Theoverallblockdiagram3.2.2客戶基本信息模塊該模塊的所有操作只有系統(tǒng)管理員才有權(quán)限，包括按地域信息分類，客戶類別分類，按行業(yè)分類，按職務(wù)名稱分類，按項(xiàng)目類型分類和按銷售人員分類。該模塊為聯(lián)系人管理和合同信息管理模塊提供依據(jù)。地域信息模塊:系統(tǒng)管理員能夠添加，修改，刪除和查詢地域信息。客戶類別模塊：系統(tǒng)管理員能夠添加，修改，刪除和查詢客戶類別信息。例如：供應(yīng)商，銷售商。行業(yè)分類模塊：系統(tǒng)管理員能夠添加，修改，刪除和查詢行業(yè)類別信息。例如：電子行業(yè)，金融行業(yè)。職務(wù)名稱模塊：系統(tǒng)管理員能夠添加，修改，刪除和查詢職務(wù)類別信息。例如：銷售人員、銷售主管、客戶經(jīng)理等。項(xiàng)目類型模塊：系統(tǒng)管理員能夠添加，修改，刪除和查詢項(xiàng)目類別信息。例如：軟件，硬件。銷售人員管理模塊：系統(tǒng)管理員能夠添加，修改，刪除和查詢銷售人員信息，包括員工姓名，性別，所屬部門，職務(wù)名稱。3.2.3客戶管理模塊添加基本信息后，就能夠添加客戶信息了。在客戶管理模塊中能夠?qū)β?lián)系人單位和客戶聯(lián)系人進(jìn)行添加，修改，刪除和查看等操作。聯(lián)系人單位信息包括單位名稱，客戶類別，所在地域，通信地址，郵政編碼，所屬行業(yè)等內(nèi)容。在添加聯(lián)系人單位時(shí)，需要選擇客戶類別，所在地域和所屬行業(yè)?？蛻袈?lián)系人信息包括客戶單位，聯(lián)系人姓名，性別，職務(wù)，移動(dòng)電話等內(nèi)容。在添加客戶聯(lián)系人信息時(shí)，需要選擇客戶單位和職務(wù)。3.2.4商業(yè)往來管理模塊在商業(yè)往來管理模塊中，能夠?qū)献餍畔⒑涂蛻舾櫺畔⑦M(jìn)行添加，修改，刪除和查看等操作。合作信息包括客戶信息，聯(lián)系人信息，項(xiàng)目名稱，項(xiàng)目類型和銷售人員等內(nèi)容。在添加商業(yè)機(jī)會(huì)信息時(shí)，選擇客戶單位，聯(lián)系人，項(xiàng)目類型和銷售人員等內(nèi)容。在客戶跟蹤管理模塊中，能夠?qū)蛻舾櫥卦L信息進(jìn)行添加，修改，刪除和查看等操作?？蛻粜畔ㄉ虡I(yè)機(jī)會(huì)，銷售人員，任務(wù)日期，拜訪方式，預(yù)計(jì)目的和詳細(xì)介紹等內(nèi)容。在添加客戶跟蹤信息時(shí)，需要選擇商業(yè)機(jī)會(huì)，銷售人員和拜訪人員等內(nèi)容。3.2.5統(tǒng)計(jì)模塊該模塊主要針對(duì)訂單成交的部分，分別能夠按行業(yè)統(tǒng)計(jì)、按類型統(tǒng)計(jì)、按區(qū)域統(tǒng)計(jì)和按銷售人員統(tǒng)計(jì)。根據(jù)統(tǒng)計(jì)結(jié)果能夠幫助客戶經(jīng)理有效的發(fā)掘潛在客戶，從而為公司的更好發(fā)展出謀劃策。3.2.6系統(tǒng)用戶管理在本用戶管理模塊中，共有兩個(gè)模塊即用戶信息管理部分和修改密碼部分。用戶信息管理是針對(duì)系統(tǒng)管理員來說，能夠修改，添加和刪除用戶名和密碼。修改密碼模塊則是針對(duì)普通用戶來而言，能夠?qū)ψ约旱拿艽a進(jìn)行修改。3.3系統(tǒng)流程圖本系統(tǒng)首先進(jìn)行管理員身份確定，核實(shí)正確，進(jìn)入本系統(tǒng)工作流程圖如下圖3-2所示。圖3-2系統(tǒng)流程圖Figure3-2systemflowchart在該系統(tǒng)流程圖中能夠看到，每個(gè)用戶有3次進(jìn)行身份認(rèn)證的機(jī)會(huì)。若輸入的用戶名和密碼3次都沒能與數(shù)據(jù)庫中的數(shù)據(jù)匹配，則強(qiáng)制退出系統(tǒng)。3.4業(yè)務(wù)流程圖如下圖3-3該鑫鑫裝飾公司的業(yè)務(wù)流程圖圖3-3業(yè)務(wù)流程圖Figure3-3TheBusinessprocessdiagram上圖為該公司的業(yè)務(wù)流程圖，產(chǎn)品在進(jìn)行銷售之后，分別進(jìn)行數(shù)據(jù)統(tǒng)計(jì)和老客戶跟蹤的操作。根據(jù)統(tǒng)計(jì)結(jié)果，例如在行業(yè)統(tǒng)計(jì)后，若發(fā)現(xiàn)在IT類行業(yè)使用本公司的產(chǎn)品較多，這時(shí)工作人員能夠?qū)ζ溥M(jìn)行線索認(rèn)定，從而為公司挖掘更多的潛在客戶或者創(chuàng)造銷售機(jī)會(huì)，若鎖定其為潛在客戶則盡可能的使之成為該公司的成交客戶，從而為企業(yè)創(chuàng)造更大的利潤?？蛻粢坏┏山?，則能夠?qū)ζ溥M(jìn)行客戶管理即按單位進(jìn)行管理和按聯(lián)系人管理。然而在確定銷售機(jī)會(huì)之后，能夠經(jīng)過工作人員的談判使其變?yōu)槌晒Φ挠唵?，然后簽訂合同后進(jìn)行發(fā)貨出來，售后方面能夠采用電話回訪和當(dāng)面拜訪的形式進(jìn)行。第四章數(shù)據(jù)庫設(shè)計(jì)4.1數(shù)據(jù)庫的概念結(jié)構(gòu)設(shè)計(jì)本系統(tǒng)是采用Access來作為數(shù)據(jù)庫服務(wù)器。并依據(jù)前面提到的數(shù)據(jù)庫設(shè)計(jì)理論，嚴(yán)格依照第三范式的思想進(jìn)行了本系統(tǒng)數(shù)據(jù)庫的設(shè)計(jì)。根據(jù)前幾章對(duì)整個(gè)系統(tǒng)的需求分析和概要設(shè)計(jì)，本系統(tǒng)設(shè)計(jì)的數(shù)據(jù)庫Labequip中包括的主要實(shí)體有：系統(tǒng)用戶、客戶、銷售人員和商業(yè)機(jī)會(huì)。以下為該系統(tǒng)總體的E-R圖，及各實(shí)體的實(shí)體圖。職務(wù)銷售人員銷售產(chǎn)品職務(wù)銷售人員銷售產(chǎn)品客戶材料公司雇傭簽合同1NN1N1姓名性別部門單位類別區(qū)域行業(yè)地址郵編Figure4-1TheGeneralE-Rgraph客戶客戶單位名稱客戶類型通信地址所屬行業(yè)地域名稱郵政編碼職務(wù)名稱項(xiàng)目類型圖4-2客戶實(shí)體圖Figure4-2Thecustomerentitygraph銷售人員銷售人員員工姓名性別所屬部門職務(wù)名稱圖4-3銷售人員實(shí)體圖Figure4-3TheSalesstaffentitygraph合同合同項(xiàng)目名稱創(chuàng)立人簽約日期簽約金額聯(lián)系人項(xiàng)目類型當(dāng)前進(jìn)度客戶名稱銷售人員圖4-4商業(yè)機(jī)會(huì)實(shí)體圖Figure4-4TheBusinessentitygraph用戶用戶用戶名密碼權(quán)限圖4-5用戶實(shí)體圖Figure4-5Theuserentitygraph4.2數(shù)據(jù)庫的邏輯設(shè)計(jì)將上面概念結(jié)構(gòu)設(shè)計(jì)中的Ｅ＿Ｒ圖轉(zhuǎn)換為如下關(guān)系模型?？蛻簦▎挝痪幪?hào)、職務(wù)名稱、單位名稱、所屬行業(yè)、客戶類型、項(xiàng)目類型、通信地址、地域名稱、郵政編碼）該表中客戶單位編號(hào)是主鍵，同時(shí)也是合同信息表的外鍵，以此來作為關(guān)聯(lián)。銷售人員（編號(hào)、所屬部門、員工姓名、職務(wù)名稱、性別）該表中的銷售人員編號(hào)是主鍵，同時(shí)是合同信息表和客戶信息表的外鍵。合同信息（合同編號(hào)、客戶編號(hào)、聯(lián)系人編號(hào)、產(chǎn)品名稱、項(xiàng)目類型編號(hào)銷售人員編號(hào)、預(yù)計(jì)簽訂日期、預(yù)計(jì)成交金額、當(dāng)前進(jìn)度、狀態(tài)、詳細(xì)介紹、創(chuàng)立日期和創(chuàng)立人）該表中合同編號(hào)是主鍵，而客戶單位編號(hào)作為外鍵分別與客戶單位信息表和客戶信息表關(guān)聯(lián)。用戶（用戶名、密碼、權(quán)限）4.3數(shù)據(jù)庫的表單設(shè)計(jì)根據(jù)該鑫鑫裝飾公司的系統(tǒng)功能設(shè)計(jì)要求及功能模塊的劃分，系統(tǒng)信息數(shù)據(jù)庫能夠列出下數(shù)據(jù)項(xiàng)及數(shù)據(jù)結(jié)構(gòu)：（1）名稱：地域信息情況表表名稱標(biāo)識(shí)：Area地域信息情況表包括areaid，areaname，areatype，upperid四個(gè)字段，詳細(xì)信息見下表4-1地域信息表：表4-1地域信息情況表Table4-1TheRegionalinformation名稱字段名稱數(shù)據(jù)類型主鍵非空地域編號(hào)areaidIntYesNo地域名稱areanameVarchar（50）NoNo地域類型areatypeIntNoNo上級(jí)地域編號(hào)upperidIntNoNo該表中地域編號(hào)是主鍵，同時(shí)也是客戶單位信息表和聯(lián)系人信息表的外鍵。（2）名稱：基本信息表表名稱標(biāo)識(shí)：Types基本信息表包括id，typename，flag三個(gè)字段，詳細(xì)信息見下表4-2基本信息表：表4-2基本信息表Table4-2TheBasicinformation名稱字段名稱數(shù)據(jù)類型主鍵非空記錄編號(hào)id自動(dòng)編號(hào)YesNo信息名稱typenameVarchar（50）NoNo類型標(biāo)記flagIntNoNo該表中的記錄編號(hào)是主鍵，同時(shí)也是聯(lián)系人信息表的外鍵，以此來關(guān)聯(lián)。（3）名稱：銷售人員信息表表名稱標(biāo)識(shí)：Employees銷售人員信息表包括empid，empname，sex，depname，etitle五個(gè)字段，詳細(xì)信息見下表4-3銷售人員信息表：表4-3銷售人員信息表Table4-3Theinformationofsalesstaff名稱字段名稱數(shù)據(jù)類型主鍵非空人員編號(hào)empid自動(dòng)編號(hào)YesNo姓名empnameVarchar（50）NoNo性別sexVarchar（50）NoNo所在部門depnameVarchar（50）NoNo職務(wù)etitleVarchar（50）NoNo該表中的銷售人員編號(hào)是主鍵，同時(shí)是合同信息表和客戶信息表的外鍵。（4）名稱：客戶單位信息表表名稱標(biāo)識(shí)：Customer客戶單位信息表包括custid，custname，custtypeid，address，postcode，areaid，busstypeid，empid八個(gè)字段，詳細(xì)信息見下表4-4客戶單位信息表：表4-4客戶單位信息表Table4-4TheClientinformationform名稱字段名稱數(shù)據(jù)類型主鍵非空單位編號(hào)custidIntYesNo單位名稱custnameVarchar（50）NoNo所屬客戶類別編號(hào)custtypeidIntNoNo通信地址addressVarchar（50）NoNo郵政編碼postcodeVarchar（50）NoNo所屬地域編號(hào)areaid，IntNoNo所屬行業(yè)類別編號(hào)busstypeidIntNoNo銷售人員empidIntNoNo該表中客戶單位編號(hào)是主鍵，同時(shí)也是合同信息表的外鍵，以此來作為關(guān)聯(lián)。（5）名稱：聯(lián)系人信息表表名稱標(biāo)識(shí)：Contact聯(lián)系人信息表包括id，areaid, custid，cname，sex，titleid,office,mobile,birth,hobby,memol,input_date,input_time十三個(gè)字段，詳細(xì)信息見下表4-5聯(lián)系人信息表：表4-5聯(lián)系人信息表Table4-5TheContactinformationform名稱字段名稱數(shù)據(jù)類型主鍵非空記錄編號(hào)idIntYesNo地域編號(hào)areaidIntNoNo客戶單位編號(hào)custidIntNoNo姓名cnameVarchar（50）NoNo性別sexVarchar（50）NoNo職務(wù)編號(hào)titleidIntNoNo辦公電話officeVarchar（50）NoNo移動(dòng)電話mobileVarchar（50）NoNo生日birthVarchar（50）NoNo興趣愛好hobbyVarchar（50）NoNo備注信息memolnoteNoNo記錄錄入日期input_dateVarchar（50）NoNo記錄錄入時(shí)間input_timeVarchar（50）NoNo該表中聯(lián)系人編號(hào)是主鍵，同時(shí)也是合同信息表的外鍵，以此來作為關(guān)聯(lián)。（6）名稱：合同信息表表名稱標(biāo)識(shí)：SaleChance合同信息表包括id，custid，ctid，proname，ptypeid，empid，signdate，signsum，ppercent，status，detail，createdate，poster十三個(gè)字段，詳細(xì)信息見下表4-6合作信息表：表4-6合同信息表Table4-6TheContractinformation名稱字段名稱數(shù)據(jù)類型主鍵非空合同編號(hào)idIntYesNo客戶編號(hào)custidIntNoNo聯(lián)系人編號(hào)ctidIntNoNo產(chǎn)品名稱pronameVarchar（50）NoNo項(xiàng)目類型編號(hào)ptypeidIntNoNo銷售人員編號(hào)empidIntNoNo預(yù)計(jì)簽訂日期signdateVarchar（50）NoNo預(yù)計(jì)成交金額signsumIntNoNo當(dāng)前進(jìn)度ppercentVarchar（50）NoNo狀態(tài)statusVarchar（50）NoNo詳細(xì)介紹detailnoteNoNo創(chuàng)立日期createdateDateNoNo創(chuàng)立人posterVarchar（50）NoNo該表中合同編號(hào)是主鍵，而客戶編號(hào)作為外鍵分別與客戶單位信息表和客戶信息表關(guān)聯(lián)。（7）名稱：客戶信息表表名稱標(biāo)識(shí)：SaleTask客戶跟蹤表包括id，saleid，empid，taskdate，taskby，purpose，ctid，place，starttime，endtime，detail，result十二個(gè)字段，詳細(xì)信息見下表4-7客戶跟蹤表：表4-7客戶信息表Table4-7TheCustomerinformationtable名稱字段名稱數(shù)據(jù)類型主鍵非空記錄編號(hào)idVarchar（50）NoNo商業(yè)機(jī)會(huì)編號(hào)saleidVarchar（50）NoNo銷售人員編號(hào)empidIntNoNo任務(wù)日期taskdateVarchar（50）NoNo拜訪方式taskbyVarchar（50）NoNo預(yù)計(jì)目的purposeVarchar（50）NoNo拜訪人員編號(hào)ctidIntNoNo拜訪地點(diǎn)placeVarchar（50）NoNo開始時(shí)間starttimeVarchar（50）NoNo結(jié)束時(shí)間endtimeVarchar（50）NoNo詳細(xì)介紹detailnoteNoNo進(jìn)展總結(jié)resultnoteNoNo該表中合同編號(hào)以外鍵的形式與合同信息表進(jìn)行關(guān)聯(lián)。（8）名稱：用戶信息表表名稱標(biāo)識(shí)：Users用戶信息表包括username，userpwd二個(gè)字段，詳細(xì)信息見下表4-8用戶信息表：表4-8用戶信息表Table4-8Theuserinformation名稱字段名稱數(shù)據(jù)類型主鍵非空用戶名usernameVarchar（50）YesNo密碼userpwdVarchar（50）NoNo4.4表間關(guān)系圖該鑫鑫裝飾公司的數(shù)據(jù)庫共涉及八張表，即基本信息表、聯(lián)系人信息表、合同信息表、客戶信息表、客戶單位信息表、地域信息表、銷售人員表和用戶表。下圖4-6為數(shù)據(jù)庫各表間關(guān)系：圖4-6數(shù)據(jù)庫表間的關(guān)系Figure4-6TheRelationshipsbetweentablesofthedatabase. 第五章系統(tǒng)功能實(shí)現(xiàn) 5.1軟硬件環(huán)境5.1.1硬件環(huán)境硬件環(huán)境是指系統(tǒng)選用什么類型的計(jì)算機(jī)設(shè)備，是微型計(jì)算機(jī)，工作站，還是小型機(jī)設(shè)備。下面是本系統(tǒng)使用的硬件環(huán)境：開發(fā)平臺(tái)：普通兼容機(jī)上開發(fā)即可。內(nèi)存需求：內(nèi)存不得低于128M。5.1.2軟件環(huán)境軟件環(huán)境是指操作系統(tǒng)，數(shù)據(jù)庫系統(tǒng)以及一些開發(fā)工具的選用。本系統(tǒng)開發(fā)所需要的軟件環(huán)境如下：操作系統(tǒng)：WindowsServerSP3版本以上數(shù)據(jù)庫：Access開發(fā)工具：VisualBasic開發(fā)語言：VB5.2通用程序塊在該系統(tǒng)的設(shè)計(jì)中，共使用了Const、DbFunc、GeneralFunc和Variable等通用程序塊。其中Cons主要用于工程中的常量的管理；DbFunc主要對(duì)工程中與數(shù)據(jù)庫操作相關(guān)的聲明、變量及函數(shù)等進(jìn)行管理；GeneralFunc是對(duì)工程中一些常見的自定義函數(shù)的管理；Variable則是對(duì)工程中的常見的公共變量的管理。而類模塊的實(shí)例在Variable模塊中進(jìn)行了定義。類的實(shí)例在申明時(shí)，使用了NEW關(guān)鍵字。它能夠在第一次引用該變量的時(shí)候創(chuàng)立對(duì)象的新實(shí)例。相反若沒有使用NEW關(guān)鍵字，在第一次引用變量時(shí)則會(huì)報(bào)錯(cuò)。5.3登錄窗體和系統(tǒng)主界面的實(shí)現(xiàn)當(dāng)系統(tǒng)運(yùn)行時(shí)，首先打開登陸窗體，只有有權(quán)限的用戶才能進(jìn)入系統(tǒng)。登陸成功后，將顯示系統(tǒng)主界面。5.3.1登錄窗體登陸窗體的名稱為FrmLogin，其窗口界面如圖5-1所示。圖5-1系統(tǒng)登陸窗口的界面Figure5-1TheSystemloginwindowinterface程序運(yùn)行如下所示：用戶必須輸入用戶名和密碼，如果判斷出沒有輸入，則返回到登陸界面，要求輸入。輸入的用戶名及密碼賦值給變量NameKey及PasswordKey，方便處理。要判斷當(dāng)前用戶名是否存在則調(diào)用MyUser.In_DB（）函數(shù)，假如不存在，則返回并要求用戶再次輸入，且計(jì)數(shù)變量Try_times將加1。假如用戶名存在，即馬上調(diào)用MyUser.GetInfo（）函數(shù)并將此用戶的數(shù)據(jù)讀取，然后把用戶密碼和輸入的密碼進(jìn)行比較，若密碼不同，則返回并要求重新進(jìn)行輸入，且計(jì)數(shù)變量Try_times將加1。若Try_times的值大于或等于3，則將退出系統(tǒng)。若密碼驗(yàn)證經(jīng)過，當(dāng)前用戶的信息將保存到CurUser對(duì)象中，方便后面的使用。登陸窗體的關(guān)閉。5.3.2主界面主界面的窗體名稱為FrmMain。它的界面布局如圖5-2所示。圖5-2主窗口的界面設(shè)計(jì)Figure5-2Theinterfacedesignofthemainwindow要窗體啟動(dòng)時(shí)，則打開“登陸”界面，若身份不能經(jīng)過驗(yàn)證，則進(jìn)入系統(tǒng)失敗。觸發(fā)mn-exit-Click事件表示“退出系統(tǒng)”。主要代碼實(shí)現(xiàn)如下：PrivateSubForm_Load()FrmLogin.Show1EndSubPrivateSubLabel2_Click()EndSubPrivateSubmn_Area_Click()'客戶管理員能夠進(jìn)入IfCurUser.UserName="Admin"ThenFrmAreaMan.Show1ElseMsgBox"沒有權(quán)限"ExitSubEndIfEndSub'行業(yè)分類設(shè)置PrivateSubmn_BType_Click()'客戶管理員能夠進(jìn)入IfCurUser.UserName="Admin"ThenFrmTypes.nFlag=2FrmTypes.Caption="行業(yè)分類設(shè)置"FrmTypes.Show1'行業(yè)分類管理ElseMsgBox"沒有權(quán)限"ExitSubEndIfEndSubPrivateSubmn_Chance_Click()FrmSaleMan.Show1EndSubPrivateSubmn_ChangeUser_Click()FrmLogin.Try_times=0FrmLogin.Show1EndSubPrivateSubmn_Contact_Click()FrmContactMan.Show1EndSub'客戶類別管理PrivateSubmn_CType_Click()'客戶管理員能夠進(jìn)入IfCurUser.UserName="Admin"ThenFrmTypes.nFlag=1FrmTypes.Caption="客戶類別設(shè)置"FrmTypes.Show1'客戶類別管理ElseMsgBox"沒有權(quán)限"ExitSubEndIfEndSubPrivateSubmn_Customer_Click()FrmCustomerMan.Show1EndSubPrivateSubmn_Exit_Click()DBapi_DisconnectEndEndSub'項(xiàng)目類型管理PrivateSubmn_PType_Click()'客戶管理員能夠進(jìn)入IfCurUser.UserName="Admin"ThenFrmTypes.nFlag=4FrmTypes.Caption="項(xiàng)目類型設(shè)置"FrmTypes.Show1'項(xiàng)目類型管理ElseMsgBox"沒有權(quán)限"ExitSubEndIfEndSubPrivateSubmn_PwdChange_Click()WithFrmUserEdit.OriUser=CurUser.UserName.txtUserName=CurUser.UserName.Modify=True.Show1EndWithEndSubPrivateSubmn_Sales_Click()'客戶管理員能夠進(jìn)入IfCurUser.UserName="Admin"ThenFrmEmpMan.Show1ElseMsgBox"沒有權(quán)限"ExitSubEndIfEndSubPrivateSubmn_Task_Click()FrmTaskMan.ShowEndSub'管理職務(wù)PrivateSubmn_Title_Click()'客戶管理員能夠進(jìn)入IfCurUser.UserName="Admin"ThenFrmTypes.nFlag=3FrmTypes.Caption="職務(wù)名稱設(shè)置"FrmTypes.Show1'職務(wù)名稱管理ElseMsgBox"沒有權(quán)限"ExitSubEndIfEndSubPrivateSubmn_UserMan_Click()IfCurUser.UserName="Admin"ThenFrmUserMan.Show1ElseMsgBox"沒有權(quán)限"EndIfEndSub5.4功能模塊的實(shí)現(xiàn)5.4.1客戶信息跟蹤管理產(chǎn)品在進(jìn)行銷售之后，需要進(jìn)行老客戶跟蹤的操作，為公司挖掘更多的潛在客戶或者創(chuàng)造銷售機(jī)會(huì)，若鎖定之后盡可能成為成交客戶?？蛻粢坏┏山?，則能夠?qū)ζ溥M(jìn)行客戶管理。而在確定銷售機(jī)會(huì)之后，要努力使其變?yōu)槌晒Φ挠唵?，簽訂合同后進(jìn)行發(fā)貨出來，售后方面能夠采用電話回訪和當(dāng)面拜訪的形式進(jìn)行。下圖5-3、圖5-4分別為客戶信息跟蹤管理和編輯客戶跟蹤信息結(jié)果。圖5-3客戶跟蹤信息管理Figure5-3TheCustomerinformationmanagement圖5-4編輯客戶跟蹤信息Figure5-4TheEditthecustomertrackinginformation5.4.2商業(yè)機(jī)會(huì)管理商業(yè)機(jī)會(huì)管理模塊除了對(duì)項(xiàng)目進(jìn)行添加、修改、刪除等操作外，還能夠?qū)σ押炦^合同的項(xiàng)目進(jìn)行啟動(dòng)、終止、查看進(jìn)度等操作。操作時(shí)需要選擇項(xiàng)目名稱、項(xiàng)目類型、銷售人員等。下圖5-5為商業(yè)機(jī)會(huì)管理界面。圖5-5商業(yè)機(jī)會(huì)管理界面Figure5-5TheBusinessopportunitymanagementinterface主要實(shí)現(xiàn)代碼如下：PublicOriCustIdAsLongPublicOriIdAsLongPublicModifyAsBooleanPrivateSubCmd_Cancel_Click()UnloadMeEndSubPrivateSubCmd_OK_Click()IfLen(Trim(txtSaleId))=0ThenMsgBox"商業(yè)機(jī)會(huì)編號(hào)情輸入"txtSaleId.SetFocusExitSubEndIfIfLen(Trim(dco_Emps.Text))=0ThenMsgBox"請(qǐng)選擇銷售人員"ComboName.SetFocusExitSubEndIfIfLen(Trim(txtTaskDate))=0ThenMsgBox"請(qǐng)輸入拜訪日期"txtTaskDate.SetFocusExitSubEndIfIfLen(Trim(ComboBy.Text))=0ThenMsgBox"請(qǐng)選擇拜訪方式"ComboBy.SetFocusExitSubEndIfIfLen(Trim(dco_Contact.Text))=0ThenMsgBox"請(qǐng)選擇拜訪人員"dco_Contact.SetFocusExitSubEndIfIfLen(Trim(txtPurpose))=0ThenMsgBox"請(qǐng)輸入拜訪目的"txtPurpose.SetFocusExitSubEndIfWithMyTask.EmpId=Val(dco_Emps.BoundText()).TaskDate=Trim(txtTaskDate).TaskBy=Trim(ComboBy.Text).CtId=Val(dco_Contact.BoundText).Place=Trim(txtPlace).Purpose=Trim(txtPurpose).StartTime=Trim(txtSTime)IfModify=FalseThen'判斷是否存在此商業(yè)機(jī)會(huì)編號(hào)IfMyChance.In_DB(Trim(txtSaleId))=FalseThenMsgBox"不存在此銷售編號(hào)，請(qǐng)重新輸入"txtSaleId.SetFocusExitSubEndIf.SaleId=Trim(txtSaleId).InsertElse.Update(OriId)EndIfEndWithUnloadMeEndSubPrivateSubCmd_Search_Click()IfLen(Trim(txtSaleId))=0ThenMsgBox"輸入商業(yè)機(jī)會(huì)編號(hào)"ExitSubEndIfRefreshSaleEndSubPublicSubRefreshSale()AdoChance.ConnectionString=ConnTmpSource="SELECTs.ProNameAS項(xiàng)目名稱,"_+"c.CustNameAS客戶名稱,a.CNameAS聯(lián)系人,"_+"t.TypeNameAS項(xiàng)目類型,e.EmpNameAS銷售人員,"_+"s.StatusAS狀態(tài),s.PPercentAS當(dāng)前進(jìn)度,"_+"s.SignDateAS簽約日期,s.SignSumAS簽約金額,"_+"s.DetailAS其它內(nèi)容,s.CustId,s.EmpId"_+"FROMSaleChances,Contacta,Customerc,Typest,Employeese"_+"WHEREs.CustId=c.CustIdANDs.EmpId=e.EmpIdANDs.CtId=a.Id"_+"ANDs.PTypeId=t.IdANDs.Id='"+Trim(txtSaleId)+"'"AdoChance.RecordSource=TmpSourceAdoChance.RefreshSetdg_Chance.DataSource=AdoChancedg_Chance.Columns(0).Width=1400dg_Chance.Columns(11).Width=0LoadSaleContactEndSubPrivateSubForm_Load()'讀取銷售人員數(shù)據(jù)數(shù)據(jù)AdoEmps.ConnectionString=ConnAdoEmps.RecordSource="SELECTEmpId,EmpNameFROMEmployeesOrderByEmpName"AdoEmps.RefreshSetdco_Emps.RowSource=AdoEmpsdco_Emps.ListField="EmpName"dco_Emps.BoundColumn="EmpId"'載入拜訪方式ComboBy.AddItem"面談",0ComboBy.AddItem"電話",1ComboBy.AddItem"電子郵件",2EndSubPrivateSubLoadSaleContact()TmpSource=""AdoContact.ConnectionString=ConnAdoContact.RecordSource="SELECTc.Id,c.CName"_+"FROMSaleChances,Contactc"_+"WHEREs.CustId=c.CustIdANDs.Id='"+Trim(txtSaleId)_+"'ORDERBYc.CName"AdoContact.RefreshSetdco_Contact.RowSource=AdoContactdco_Contact.ListField="CName"dco_Contact.BoundColumn="Id"EndSub商業(yè)機(jī)會(huì)管理主要實(shí)現(xiàn)代碼如下：DimTmpSourceAsStringDimiEmpIdAsIntegerPrivateSubRefreshSaleChance()TmpSource=""TmpSource="SELECTs.IdAS銷售編號(hào),s.CustId,s.CtId,s.PTypeId,s.EmpId,"_+"s.ProNameAS項(xiàng)目名稱,c.CustNameAS客戶名稱,a.CNameAS聯(lián)系人,"_+"t.TypeNameAS項(xiàng)目類型,"_+"e.EmpNameAS銷售人員,s.StatusAS狀態(tài),s.PPercentAS當(dāng)前進(jìn)度,"_+"s.SignDateAS簽約日期,s.SignSumAS簽約金額,"_+"s.CreateDateAS創(chuàng)立日期,s.PosterAS創(chuàng)立人,s.DetailAS其它內(nèi)容"_+"FROMSaleChances,Contacta,Customerc,Typest,Employeese"_+"WHEREs.CustId=c.CustIdANDs.EmpId=e.EmpIdANDs.CtId=a.Id"_+"ANDs.PTypeId=t.Id"'客戶名稱IfLen(Trim(dco_Customer.Text))<>0ThenTmpSource=TmpSource+"Ands.CustId="+Trim(dco_Customer.BoundText)EndIf'銷售人員IfLen(Trim(dco_Emps.Text))<>0ThenTmpSource=TmpSource+"Ands.EmpId="+Trim(Str(dco_Emps.BoundText()))EndIfEndIfTmpSource=TmpSource+"ORDERBYs.Id"'MsgBoxTmpSourceAdodc1.ConnectionString=ConnAdodc1.RecordSource=TmpSourceAdodc1.RefreshSetDataGrid1.DataSource=Adodc1DataGrid1.Columns(0).Width=1000EndSubPrivateSubCmd_Add_Click()FrmSaleEdit.Modify=FalseFrmSaleEdit.ComboPercent.ListIndex=0FrmSaleEdit.lbl_Status="啟動(dòng)"FrmSaleEdit.lbl_CreateDate=DateFrmSaleEdit.lbl_Poster=CurUser.UserNameFrmSaleEdit.Show1RefreshSaleChanceEndSubPrivateSubCmd_Del_Click()IfAdodc1.Recordset.EOF=TrueThenMsgBox"記錄選擇"ExitSubEndIfIfMsgBox("是否刪除當(dāng)前記錄?",vbYesNo,"確認(rèn)")=vbYesThenCallMyContact.Delete(Adodc1.Recordset.Fields(0))RefreshSaleChanceEndIfEndSubPrivateSubCmd_Finish_Click()IfAdodc1.Recordset.EOF=TrueThenMsgBox"記錄選擇"ExitSubEndIfIfMsgBox("是否結(jié)束當(dāng)前項(xiàng)目?",vbYesNo,"確認(rèn)")=vbYesThen'結(jié)束項(xiàng)目MyChance.Status="結(jié)束"MyChance.UpdateStatus(Trim(Adodc1.Recordset.Fields(0)))MsgBox"項(xiàng)目已結(jié)束"RefreshSaleChanceEndIfEndSubPrivateSubCmd_GoOn_Click()IfAdodc1.Recordset.EOF=TrueThenMsgBox"記錄選擇"ExitSubEndIfIfMsgBox("是否啟動(dòng)當(dāng)前項(xiàng)目?",vbYesNo,"確認(rèn)")=vbYesThen'繼續(xù)進(jìn)行項(xiàng)目MyChance.Status="啟動(dòng)"MyChance.UpdateStatus(Trim(Adodc1.Recordset.Fields(0)))MsgBox"項(xiàng)目已啟動(dòng)"RefreshSaleChanceEndIfEndSubPrivateSubCmd_Reset_Click()dco_Customer.Text=""dco_PType.Text=""dco_Emps.Text=""ComboStatus.ListIndex=0RefreshSaleChanceEndSubPrivateSubCmd_Back_Click()UnloadMeEndSubPrivateSubCmd_Modi_Click()IfAdodc1.Recordset.EOF=TrueThenMsgBox"記錄選擇"ExitSubEndIf'從客戶單位中提取數(shù)據(jù)FrmSaleEdit.Modify=TrueFrmSaleEdit.txtSaleId=Trim(Adodc1.Recordset.Fields(0))FrmSaleEdit.LoadContactFrmSaleEdit.dco_Contact.Text=Trim(Adodc1.Recordset.Fields(7))FrmSaleEdit.dco_PType.Text=Trim(Adodc1.Recordset.Fields(8))FrmSaleEdit.dco_Emps.Text=Trim(Adodc1.Recordset.Fields(9))'載入地域名稱MyCust.GetInfo(Adodc1.Recordset.Fields(1))'取得客戶信息FrmSaleEdit.txtArea=Trim(MyArea.GetName(MyCust.AreaId))'提取聯(lián)系人職務(wù)名稱FrmSaleEdit.txtTitle=MyContact.GetTitle(Adodc1.Recordset.Fields(2))FrmSaleEdit.lbl_Status=Trim(Adodc1.Recordset.Fields(10))FrmSaleEdit.txtSaleId.Enabled=FalseFrmSaleEdit.Show1RefreshSaleChanceEndSubPrivateSubCmd_Stop_Click()IfAdodc1.Recordset.EOF=TrueThenMsgBox"請(qǐng)選擇記錄"ExitSubEndIfIfMsgBox("是否中止當(dāng)前項(xiàng)目?",vbYesNo,"確認(rèn)")=vbYesThen'中止項(xiàng)目MyChance.Status="中止"MyChance.UpdateStatus(Trim(Adodc1.Recordset.Fields(0)))MsgBox"項(xiàng)目已中止"RefreshSaleChanceEndIfEndSubPrivateSubCmd_ViewTask_Click()IfAdodc1.Recordset.EOF=TrueThenMsgBox"請(qǐng)選擇記錄"ExitSub