客戶管理系統(tǒng)開發(fā)與實(shí)現(xiàn)畢業(yè)設(shè)計(jì)

1、<p>　　**公司客戶管理系統(tǒng)開發(fā)與實(shí)現(xiàn)</p><p><b>　　摘 要</b></p><p>　　本課題所設(shè)計(jì)的系統(tǒng)能夠統(tǒng)一管理與企業(yè)相關(guān)的客戶及其聯(lián)系人信息?？蛻襞c相關(guān)聯(lián)系人信息是企業(yè)最重要的資源之一，通過客戶管理系統(tǒng)能夠有效地管理客戶信息，提高企業(yè)客戶管理效率。在此基礎(chǔ)之上，進(jìn)一步展開，才能對(duì)客戶之間發(fā)生的活動(dòng)、機(jī)會(huì)、銷售、費(fèi)用等進(jìn)行詳細(xì)管理。

2、本課題實(shí)現(xiàn)了基礎(chǔ)信息維護(hù)（包括：域信息設(shè)置、企業(yè)性質(zhì)設(shè)置、企業(yè)類型設(shè)置、企業(yè)資信設(shè)置、客戶級(jí)別設(shè)置、客戶滿意程度設(shè)置）；客戶信息維護(hù)（包括：客戶信息、聯(lián)系人信息、業(yè)務(wù)往來、發(fā)送郵件）；客戶服務(wù)(包括客戶反饋、客戶投訴、客戶反饋滿意程度分析、客戶投訴滿意程度分析）；客戶信息查詢（包括：客戶信息報(bào)表、聯(lián)系人信息報(bào)表、業(yè)務(wù)往來報(bào)表、客戶反饋報(bào)表、客戶投拆報(bào)表）；輔助工具以及管理模塊，真正實(shí)現(xiàn)了客戶資源管理的一體化。</p>&l

3、t;p>　　關(guān)鍵詞：CRM；客戶管理系統(tǒng)；MS Sql Server 2005</p><p>　　The Development And Implementation of Hongda Customer Management System</p><p><b>　　ABSTRACT</b></p><p>　　Designed by

4、 the subject to unified management system associated with the enterprise customers and their contact information. Customers with relevant contact information is one of the most important resource, through the customer ma

5、nagement system to effectively manage customer information and improve the efficiency of enterprise customer management. On this basis, further to between customer activities, opportunities, sales, management, etc.To ach

6、ieve this task the maintenance of the basic infor</p><p>　　Keywords: CRM; Management System Customer;MS Sql Server2005</p><p><b>　　目 錄</b></p><p><b>　　引 言1</b&

7、gt;</p><p>　　第1章 系統(tǒng)分析2</p><p>　　1.1 需求分析2</p><p>　　1.2 可行性分析2</p><p>　　第2章 系統(tǒng)設(shè)計(jì)5</p><p>　　2.1 設(shè)計(jì)目標(biāo)5</p><p>　　2.2 開發(fā)及運(yùn)行環(huán)境5</p><

8、;p>　　2.3 項(xiàng)目規(guī)劃5</p><p>　　第3章 系統(tǒng)數(shù)據(jù)庫設(shè)計(jì)7</p><p>　　3.1 數(shù)據(jù)庫概要設(shè)計(jì)7</p><p>　　3.2 數(shù)據(jù)庫物理設(shè)計(jì)9</p><p>　　第4章 主要功能模塊設(shè)計(jì)17</p><p>　　4.1 主窗體設(shè)計(jì)17</p><p>

9、　　4.2 數(shù)據(jù)模塊20</p><p>　　4.3 登錄模塊設(shè)計(jì)21</p><p>　　4.4 客戶信息模塊24</p><p>　　4.5 發(fā)送郵件模塊28</p><p>　　4.6 據(jù)庫配置模塊29</p><p>　　第5章 系統(tǒng)測(cè)試31</p><p>　　5.1 **

10、公司客戶管理系統(tǒng)單元測(cè)試31</p><p>　　5.2 **公司客戶管理系統(tǒng)集成測(cè)試36</p><p>　　5.3 測(cè)試總結(jié)37</p><p><b>　　結(jié)束語38</b></p><p><b>　　致 謝39</b></p><p><b>　

11、　參考文獻(xiàn)40</b></p><p><b>　　附錄42</b></p><p>　　附錄A 文件架構(gòu)圖42</p><p>　　附錄B 主要源程序44</p><p><b>　　引 言</b></p><p>　　在全球一體化、企業(yè)互動(dòng)和以INTE

12、RNET為核心的時(shí)代，企業(yè)面臨著如何發(fā)展?jié)撛诳蛻?，如何將社?huì)關(guān)系資源變?yōu)槠髽I(yè)的銷售和發(fā)展資源的一系列難辦棘手的問題。在上述背景下，**公司客戶管理系統(tǒng)應(yīng)運(yùn)而生。本系統(tǒng)本著把握客戶多樣化和個(gè)性化的特點(diǎn)；以最快的速度響應(yīng)客戶需求；吸引新客戶，留住老客戶為原則。即從過去的以產(chǎn)品（Product-Centric）為中心的管理策略轉(zhuǎn)向以客戶為中心的(Customer-Centric)管理理念。系統(tǒng)旨在改善企業(yè)與客戶之間的關(guān)系，建立新型的運(yùn)營機(jī)制。

13、本系統(tǒng)以企業(yè)級(jí)的整體客戶管理為解決方案，幫助企業(yè)建立統(tǒng)一的客戶資源、拓展銷售渠道、尋求最佳市場方式、規(guī)范企業(yè)銷售流程、提供科學(xué)分析方法，建立持久的客戶體系。其大容量客戶數(shù)據(jù)處理能力，讓您的企業(yè)從多渠道收集信息，快速發(fā)現(xiàn)核心客戶和潛在伙伴，進(jìn)而給企業(yè)帶來無限的利潤。</p><p>　　以客戶為中心的理念在國外興起于20世紀(jì)50年代，當(dāng)時(shí)很多企業(yè)寄希望于通過改進(jìn)技術(shù)、壓縮生產(chǎn)周期、改善內(nèi)部資源管理來提高生產(chǎn)增長率和

14、利潤，但事實(shí)上見效甚微。這樣企業(yè)開始從強(qiáng)調(diào)降低經(jīng)營成本的供應(yīng)方發(fā)展策略轉(zhuǎn)向了需求方策略。所謂需求方策略就是指與客戶聯(lián)系更加緊密，從客戶關(guān)系方面挖掘新能源的策略，CRM應(yīng)運(yùn)而生。所不同的是，現(xiàn)在計(jì)算機(jī)可以幫助人們實(shí)現(xiàn)這些看似并不復(fù)雜而實(shí)際操作起來非常繁瑣的工作。試想一下，當(dāng)我們需要查找一個(gè)客戶的電話號(hào)碼時(shí)，只需敲幾下鍵盤，就可以看到客戶的詳細(xì)資料（包括姓名、公司名稱、電話、E-mail等），所有這些都是一個(gè)完善的**公司客戶管理系統(tǒng)所能完

15、成的。</p><p><b>　　第1章 系統(tǒng)分析</b></p><p>　　現(xiàn)已確定系統(tǒng)開發(fā)的目標(biāo)，系統(tǒng)需求規(guī)格。確定軟件系統(tǒng)的總體結(jié)構(gòu)，給出系統(tǒng)中各個(gè)組成模塊間的聯(lián)系。劃分功能模塊，將軟件功能需求分配給所有單元模塊。下一步工作就是在上述結(jié)果基礎(chǔ)上，考慮怎樣實(shí)現(xiàn)這個(gè)軟件系統(tǒng)。</p><p><b>　　1.1 需求分析<

16、/b></p><p>　　根據(jù)市場的需求，要求系統(tǒng)具有以下功能：</p><p>　　完全人性化設(shè)計(jì)，無需專業(yè)人士指導(dǎo)，即可使用該系統(tǒng)。</p><p>　　由于該系統(tǒng)的使用對(duì)象多，要求有較好的權(quán)限管理。</p><p>　　系統(tǒng)具有數(shù)據(jù)備份及數(shù)據(jù)還原功能。能夠保證系統(tǒng)數(shù)據(jù)的安全性。</p><p>　　方便的

17、全方位的數(shù)據(jù)查詢。</p><p>　　強(qiáng)大的報(bào)表打印功能。</p><p>　　在相應(yīng)的權(quán)限下，刪除數(shù)據(jù)方便簡單，數(shù)據(jù)穩(wěn)定性好。</p><p>　　強(qiáng)大的圖表分析功能。</p><p><b>　　退出系統(tǒng)。</b></p><p><b>　　1.2 可行性分析</b>

18、</p><p>　　當(dāng)接到客戶管理系統(tǒng)開發(fā)任務(wù)，就進(jìn)入客戶管理開發(fā)的第一個(gè)階段，即進(jìn)行可行性的研究。并不是所有問題具有簡單的解決辦法，許多問題不能在預(yù)定的規(guī)模之內(nèi)解決。因此通過可行性的研究分析可以知道問題。</p><p>　　有可行性的解決方法，可以避免人力、物力和才力的浪費(fèi)。在初步調(diào)查的基礎(chǔ)上就可以提出系統(tǒng)目標(biāo)，這是系統(tǒng)開發(fā)和評(píng)價(jià)的依據(jù)。系統(tǒng)目標(biāo)應(yīng)充分體現(xiàn)，直接為客戶管理系統(tǒng)服務(wù)，并

19、且，程序可以分期分批實(shí)現(xiàn)。但是，需要指出的是，系統(tǒng)目標(biāo)是不可能在總體規(guī)劃階段就提得非常具體，它還將在開發(fā)過程中逐步明確和定量化。以達(dá)到更加出色的程序系統(tǒng)。可是，目標(biāo)的提法不盡相同，例如：</p><p>　　提高客戶管理效率，減輕勞動(dòng)強(qiáng)度；</p><p>　　提高客戶和聯(lián)系人信息處理速度和準(zhǔn)確性；</p><p>　　為客戶管理人員提供更方便、科學(xué)的服務(wù)項(xiàng)目。&l

20、t;/p><p>　　系統(tǒng)的目標(biāo)確定后，就可以從以下兩方面對(duì)能否實(shí)現(xiàn)新系統(tǒng)目標(biāo)進(jìn)行可行性分析：</p><p><b>　　一．技術(shù)可行性</b></p><p>　　Borland公司的Delphi是一個(gè)非常優(yōu)秀的數(shù)據(jù)庫應(yīng)用系統(tǒng)前端開發(fā)工具。這是由于Borland Delphi自1995年2月誕生Version 1.0以后，1996年3月，Bor

21、land Delphi Client／Server Suite 2.0以其高效的數(shù)據(jù)重用功能得以在美國國家軟件測(cè)試實(shí)驗(yàn)室進(jìn)行的軟件評(píng)估中獲得了最高評(píng)價(jià)。隨后，Borland又推出 Delnhi的第三代版本——Delphi 3.0多層 Client／Server的32位快速開發(fā)工具。</p><p>　　數(shù)據(jù)庫應(yīng)用系統(tǒng)是一種應(yīng)用計(jì)算機(jī)技術(shù)完成數(shù)據(jù)處理的計(jì)算機(jī)應(yīng)用系統(tǒng)，數(shù)據(jù)處理則指對(duì)各種形式的數(shù)據(jù)進(jìn)行采集、存儲(chǔ)、加工

22、和傳播的一系列活動(dòng)的總和。進(jìn)行數(shù)據(jù)處理的目的是為了從大量原始數(shù)據(jù)中獲得對(duì)人類社會(huì)活動(dòng)有價(jià)值的信息，以作為行動(dòng)和采取對(duì)策的依據(jù)。</p><p>　　因此，開發(fā)數(shù)據(jù)庫應(yīng)用系統(tǒng)需要選擇一種數(shù)據(jù)庫管理系統(tǒng)；然后，在其支持之下建立數(shù)據(jù)庫；最后，使用一種開發(fā)工具編制數(shù)據(jù)庫應(yīng)用程序。**公司客戶管理系統(tǒng)所采用的Borland Delphi就是一種可用于編制數(shù)據(jù)庫應(yīng)用程序的開發(fā)工具。 </p><p>

23、　　采用二層C/S模式的數(shù)據(jù)庫應(yīng)用系統(tǒng)具有良好的應(yīng)用性能，尤其適用于基于區(qū)域網(wǎng)絡(luò)的網(wǎng)絡(luò)數(shù)據(jù)庫應(yīng)用系統(tǒng)環(huán)境。在C/S模式數(shù)據(jù)庫應(yīng)用系統(tǒng)中，數(shù)據(jù)庫服務(wù)器端的DBMS可以在多種產(chǎn)品中選用一種，常用的可以有：Microsoft SQL Server，Oracle，SyBase，Informix等等。**公司客戶管理系統(tǒng)將以 Microsoft SQL Server作為數(shù)據(jù)庫管理信息系統(tǒng)。</p><p>　　所謂Delp

24、hi數(shù)據(jù)庫應(yīng)用系統(tǒng)是指，應(yīng)用Delphi作為數(shù)據(jù)庫應(yīng)用系統(tǒng)前端程序開發(fā)工具形成的數(shù)據(jù)庫應(yīng)用系統(tǒng)。實(shí)際上，Delphi以面向?qū)ο蟮挠^點(diǎn)、可視化操作界面，提供開發(fā)C/S模式數(shù)據(jù)庫應(yīng)用系統(tǒng)的有效支持工具。Delphi在Windows操作系統(tǒng)環(huán)境下運(yùn)行，提供兩個(gè)版本供選擇，標(biāo)準(zhǔn)版本和客戶/服務(wù)器版本。應(yīng)用Delphi開發(fā)數(shù)據(jù)庫應(yīng)用系統(tǒng)過程中，需要設(shè)置數(shù)據(jù)庫訪問和操作功能時(shí)，最基本的方法是使用Dephi提供的數(shù)據(jù)庫操作控件。應(yīng)用這些數(shù)據(jù)庫操作控件

25、，可以構(gòu)建形成最基本的Dephi數(shù)據(jù)庫應(yīng)用系統(tǒng)功能。</p><p>　　常用的數(shù)據(jù)庫操作控件分別位于Borland Dephi可視化設(shè)計(jì)界面的三個(gè)組件頁面上：ADO組件頁（ADO）、數(shù)據(jù)訪問組件頁（Data Access）和數(shù)據(jù)控制組件頁（Data Controls）。每一個(gè)組件頁上匯集著一些具有相關(guān)功能的控件，當(dāng)需要選用某一個(gè)控件時(shí)，應(yīng)該先選定對(duì)應(yīng)的組件頁，然后在組件頁上選取所需要的控件。</p>

26、<p>　　本系統(tǒng)開發(fā)環(huán)境為Delphi 7.0，數(shù)據(jù)庫為SQL Server 2005數(shù)據(jù)庫。Delphi7是用來快速開發(fā)Windows應(yīng)用程序的應(yīng)用程序開發(fā)工具，可以直觀地使用圖形化工具來創(chuàng)建Windows的應(yīng)用程序。SQL Server2005是Microsoft公司推出的基于客戶/服務(wù)器（C/S）模式的數(shù)據(jù)庫系統(tǒng)，它提供了強(qiáng)大的企業(yè)數(shù)據(jù)庫管理功能，是目前世界上的幾個(gè)主流數(shù)據(jù)庫管理系統(tǒng)之一。</p>&

27、lt;p><b>　　二．運(yùn)行可行性</b></p><p>　　系統(tǒng)的研制和開發(fā)是充分得考慮工作人員對(duì)人事信息的易于管理，管理者方便查詢?cè)O(shè)備信息效率。從而在開發(fā)時(shí)我們用可視化界面，用戶只需根據(jù)界面上的指示進(jìn)行操作。</p><p><b>　　第2章 系統(tǒng)設(shè)計(jì)</b></p><p><b>　　2.1

28、設(shè)計(jì)目標(biāo)</b></p><p>　　本系統(tǒng)屬于小型的數(shù)據(jù)庫系統(tǒng)，為了對(duì)中小型企業(yè)客戶的管理，實(shí)現(xiàn)一些初步的計(jì)算機(jī)化的管理。通過本系統(tǒng)可以達(dá)到以下目標(biāo)：</p><p>　　靈活的運(yùn)用表格批量輸入數(shù)據(jù)，使信息傳遞更快捷。</p><p>　　系統(tǒng)采用人機(jī)對(duì)話方式，界面美觀友好、信息查詢靈活、方便、快捷、準(zhǔn)確、數(shù)據(jù)存儲(chǔ)安全可靠。</p>&l

29、t;p><b>　　實(shí)現(xiàn)各種記錄查詢。</b></p><p>　　操作員可以隨時(shí)修改自己的口令。</p><p>　　管理員可以設(shè)置操作員的權(quán)限</p><p>　　對(duì)用戶輸入的數(shù)據(jù)，系統(tǒng)進(jìn)行嚴(yán)格的數(shù)據(jù)檢驗(yàn)，盡可能排除人為的錯(cuò)誤。</p><p>　　數(shù)據(jù)保密性強(qiáng)，為每個(gè)用戶設(shè)置權(quán)限級(jí)別。</p>

30、<p>　　系統(tǒng)最大限度地實(shí)現(xiàn)了易安裝性、易維護(hù)性和易操作性。</p><p>　　2.2 開發(fā)及運(yùn)行環(huán)境</p><p>　　系統(tǒng)開發(fā)平臺(tái)：Delphi 7.0。</p><p>　　數(shù)據(jù)庫管理系統(tǒng)軟件：SQL Server 2005。</p><p>　　運(yùn)行平臺(tái)：Windows xp/ Windows 2000。</p&

31、gt;<p>　　分辨率：最佳效果1024*768。</p><p><b>　　2.3 項(xiàng)目規(guī)劃</b></p><p>　　**公司客戶管理系統(tǒng)是一個(gè)典型的數(shù)據(jù)庫開發(fā)應(yīng)用程序，由基礎(chǔ)信息維護(hù)、客戶信息維護(hù)、客戶服務(wù)、客戶信息查詢、打印報(bào)表、輔助工具、系統(tǒng)管理等模塊組成，規(guī)劃系統(tǒng)功能模塊如下：</p><p><b>

32、　　基礎(chǔ)信息維護(hù)模塊</b></p><p>　　該模塊主要負(fù)責(zé)區(qū)域信息設(shè)置、企業(yè)性質(zhì)設(shè)置、企業(yè)類型設(shè)置、企業(yè)資信設(shè)置、客戶級(jí)別設(shè)置、客戶滿意程度設(shè)置。</p><p><b>　　客戶信息維護(hù)模塊</b></p><p>　　該模塊主要負(fù)責(zé)客戶信息、聯(lián)系人信息、業(yè)務(wù)往來、發(fā)送郵件（包括郵件群發(fā)設(shè)置）。</p><

33、;p><b>　　客戶服務(wù)模塊</b></p><p>　　該模塊主要負(fù)責(zé)客戶反饋、客戶投訴、客戶反饋滿意程度分析、客戶投訴滿意程度分析。</p><p><b>　　客戶信息查詢模塊</b></p><p>　　該模塊主要負(fù)責(zé)客戶信息查詢、聯(lián)系人信息查詢、根據(jù)客戶反饋滿意程度查詢、根據(jù)客戶投訴滿意程序查詢、客戶反饋

34、查詢、客戶投訴查詢。</p><p><b>　　打印報(bào)表模塊</b></p><p>　　該模塊主要負(fù)責(zé)客戶信息報(bào)表、聯(lián)系人信息報(bào)表、業(yè)務(wù)往來報(bào)表、客戶反饋報(bào)表、客戶投拆報(bào)表。</p><p><b>　　輔助工具模塊</b></p><p>　　該模塊主要負(fù)責(zé)調(diào)用word、調(diào)用Excel、計(jì)算器

35、、登錄Internet、工作業(yè)務(wù)備忘、國內(nèi)主要城市區(qū)號(hào)郵編查詢。</p><p><b>　　系統(tǒng)管理模塊</b></p><p>　　該模塊主要負(fù)責(zé)操作員管理（包括權(quán)限設(shè)置與密碼修改）、查看日志（包括日志清理）、數(shù)據(jù)備份與數(shù)據(jù)恢復(fù)、系統(tǒng)數(shù)據(jù)清理。</p><p>　　圖2.1 系統(tǒng)功能架構(gòu)圖</p><p>　　第3

36、章 系統(tǒng)數(shù)據(jù)庫設(shè)計(jì)</p><p>　　數(shù)據(jù)庫設(shè)計(jì)是整個(gè)軟件開發(fā)的核心，數(shù)據(jù)庫設(shè)計(jì)的合理否關(guān)系到整個(gè)軟件的運(yùn)行效率以及后期的可維護(hù)性與可操作性。數(shù)據(jù)庫設(shè)計(jì)主要分為：數(shù)據(jù)庫的概要設(shè)計(jì)與數(shù)據(jù)庫的物理設(shè)計(jì)兩個(gè)方面。</p><p>　　3.1 數(shù)據(jù)庫概要設(shè)計(jì)</p><p>　　在信息世界中，信息從客觀事物出發(fā)流經(jīng)數(shù)據(jù)庫，通過決策機(jī)構(gòu)最后又回到客觀世界，信息的這一循環(huán)經(jīng)歷

37、了三個(gè)領(lǐng)域：信息世界，數(shù)據(jù)世界，現(xiàn)實(shí)世界。現(xiàn)實(shí)世界的事物反映到人的頭腦中，人的大腦對(duì)它有個(gè)認(rèn)識(shí)過程，經(jīng)過分析（選擇、命名、分類等）進(jìn)入信息世界。這些信息再進(jìn)一步加工、編碼，然后進(jìn)入數(shù)據(jù)世界，而軟件系統(tǒng)的開發(fā)工作需要考慮這兩個(gè)方面的問題，也就是要考慮系統(tǒng)開發(fā)所需要的數(shù)據(jù)，以及如何對(duì)這些數(shù)據(jù)進(jìn)行操作。這兩個(gè)問題貫穿了整個(gè)軟件系統(tǒng)的開發(fā)過程，這也就是數(shù)據(jù)庫的設(shè)計(jì)問題，軟件設(shè)計(jì)的一個(gè)核心。</p><p>　　下面給出*

38、*公司客戶管理系統(tǒng)的數(shù)據(jù)庫概念模型（使用Power Designer設(shè)計(jì)）：</p><p>　　圖 3.1 聯(lián)系人信息，客戶反饋與客戶滿意度實(shí)體圖</p><p>　　圖3.2 客戶反饋與客戶投訴實(shí)體圖</p><p>　　圖3.3 用戶信息，客戶信息，企業(yè)類型與省份資源實(shí)體圖</p><p>　　圖 3.4 業(yè)務(wù)住來，區(qū)域信息，客戶級(jí)別，

39、城市信息與滿意度統(tǒng)計(jì)實(shí)體圖</p><p>　　圖3.5 企業(yè)性質(zhì)，區(qū)域信息與本單位信息實(shí)體圖</p><p>　　3.2 數(shù)據(jù)庫物理設(shè)計(jì)</p><p>　　經(jīng)過數(shù)據(jù)庫的概念設(shè)計(jì)后，就可以進(jìn)入數(shù)據(jù)庫的物理設(shè)計(jì)，本系統(tǒng)選用MSSQL Server2005來進(jìn)行數(shù)據(jù)庫的物理設(shè)計(jì)。首先創(chuàng)建17個(gè)基本的數(shù)據(jù)庫表。</p><p>　　(1) 滿意度

40、統(tǒng)計(jì)表（tb_Client_mydtj）</p><p>　　滿意度統(tǒng)計(jì)表主要用于在客戶滿意度分析窗體中統(tǒng)計(jì)客戶對(duì)企業(yè)滿意程度的信息。該表結(jié)構(gòu)如表3.1所示。</p><p>　　表3.1 滿意度統(tǒng)計(jì)表</p><p>　?。?）本單位信息表（tb_bdwxx）</p><p>　　本單位信息表，用于顯示本單位的相關(guān)信息。該數(shù)據(jù)表的結(jié)構(gòu)如表3

41、.2所示。</p><p>　　表3.2 本單位信息表</p><p>　　（3）城市郵編信息表（tb_Client_csxx）</p><p>　　城市郵編信息表，用于顯示全國各城市的郵編信息。該數(shù)據(jù)表的結(jié)構(gòu)如表3.3所示。</p><p>　　表3.3 城市郵編信息表</p><p>　　（4）工作備忘信息表（

42、tb_Client_gzbw）</p><p>　　工作備忘信息表，用于記錄工作中的備忘信息。該數(shù)據(jù)表的結(jié)構(gòu)如表3.4所示。</p><p>　　表3.4 工作備忘信息表</p><p>　?。?）客戶反饋信息表（tb_Client_khfk）</p><p>　　客戶反饋信息表，用于記錄客戶的返饋信息。該數(shù)據(jù)表的結(jié)構(gòu)如表3.5所示。<

43、/p><p>　　表3.5 客戶反饋信息表</p><p>　　（6）客戶投訴信息表（tb_Client_khts）</p><p>　　客戶投訴信息表，用于記錄客戶的投訴信息。該數(shù)據(jù)表的結(jié)構(gòu)如表3.6所示。</p><p>　　表3.6 客戶反饋信息表</p><p>　　（7）企業(yè)類型信息表（tb_Client_qy

44、lx）</p><p>　　企業(yè)類型信息表，用于記錄客戶的投訴信息。該數(shù)據(jù)表的結(jié)構(gòu)如表3.7所示。</p><p>　　表3.7 企業(yè)類型信息表</p><p>　?。?）區(qū)域信息表（tb_Client_qyxx）</p><p>　　區(qū)域信息表，用于記錄客戶的區(qū)域信息。該數(shù)據(jù)表的結(jié)構(gòu)如表3.8所示。</p><p>

45、;　　表3.8 區(qū)域信息表</p><p>　?。?）企業(yè)性質(zhì)信息表（tb_Client_qyxz）</p><p>　　企業(yè)性質(zhì)信息表，用于記錄客戶的性質(zhì)信息。該數(shù)據(jù)表的結(jié)構(gòu)如表3.9所示。</p><p>　　表3.9 企業(yè)性質(zhì)信息表</p><p>　?。?0）企業(yè)資信信息表（tb_Client_qyzx）</p><

46、;p>　　企業(yè)資信信息表，用于記錄客戶的資信度信息。該數(shù)據(jù)表的結(jié)構(gòu)如表3.10所示。</p><p>　　表3.10 企業(yè)資信信息表</p><p>　?。?1）省份資源信息表（tb_Client_sfzy）</p><p>　　省份資源信息表，用于記錄個(gè)省份的資源信息。該數(shù)據(jù)表的結(jié)構(gòu)如表3.11所示。</p><p>　　表3.11

47、省份資源信息表</p><p>　?。?2）用戶信息表（tb_user）</p><p>　　用戶信息表，用于記錄操作用戶的密碼和操作權(quán)限。該數(shù)據(jù)表的結(jié)構(gòu)如表3.12所示。</p><p>　　表3.12 用戶信息表</p><p>　　（13）客戶級(jí)別表（tb_client_khjb）</p><p>　　滿意度統(tǒng)

48、計(jì)表主要保存客戶對(duì)企業(yè)滿意度的信息。滿意度統(tǒng)計(jì)結(jié)構(gòu)表如表3.13所示。</p><p>　　表3.13 滿意度統(tǒng)計(jì)表結(jié)構(gòu)</p><p>　?。?4）聯(lián)系人信息表（tb_client_lxrxx）</p><p>　　聯(lián)系人信息表主要保存聯(lián)系人的詳細(xì)信息。聯(lián)系人信息表結(jié)構(gòu)如表3.14所示。</p><p>　　表3.14 聯(lián)系人信息表結(jié)構(gòu)&

49、lt;/p><p>　?。?5）客戶信息表（tb_khxx）</p><p>　　客戶信息表主要保存客戶的詳細(xì)信息。客戶信息表結(jié)構(gòu)如表3.15所示。</p><p>　　表3.15 客戶信息表結(jié)構(gòu)</p><p>　　（16）客戶滿意度表（tb_Client_khmyd）</p><p>　　客戶滿意度表主要保存客戶滿意

50、度的信息?？蛻魸M意度表結(jié)構(gòu)如表3.16所示。</p><p>　　表3.16 客戶滿意度表結(jié)構(gòu)</p><p>　　（17）業(yè)務(wù)往來表（tb_Client_cpxs）</p><p>　　業(yè)務(wù)往來表主要保存產(chǎn)品銷售的詳細(xì)信息。業(yè)務(wù)往來表結(jié)構(gòu)如表3.17所示。</p><p>　　表3.17 業(yè)務(wù)往來表結(jié)構(gòu)</p><p&g

51、t;　　第4章 主要功能模塊設(shè)計(jì)</p><p><b>　　4.1 主窗體設(shè)計(jì)</b></p><p>　　主窗體主要是對(duì)**公司客戶管理系統(tǒng)的各模塊進(jìn)行調(diào)用，通過用戶的正常登錄，在主窗體的任務(wù)欄中顯示操作員的姓名及日期。**公司客戶管理系統(tǒng)主窗體運(yùn)行結(jié)果如圖4.1所示。</p><p><b>　　窗體設(shè)計(jì)步驟：</b>

52、;</p><p>　?。?）運(yùn)行Delphi時(shí)，會(huì)自動(dòng)創(chuàng)建一個(gè)窗體，設(shè)置該窗體為程序主窗體。命名窗體為“FRM_CRM”，設(shè)置Caption屬性為“**公司客戶管理系統(tǒng)”。</p><p>　　（2）在“Standard”組件頁中點(diǎn)選“TmainMenu”組件，添加到窗體上，雙擊該組件打開菜單編輯器。</p><p>　?。?）在“Object Inspector

53、”窗口中，設(shè)置Caption屬性。</p><p>　　（4）在“Win32”組件頁中點(diǎn)選“TTreeView”組件，添加到窗體上。</p><p>　?。?）在“TtreeView”編輯器中單擊【New Item】按鈕，在Text文本框中輸入相關(guān)的信息。</p><p>　?。?）在“Win32”組件頁中點(diǎn)選“TStatusBar”組件，添加到窗體上，雙擊TSta

54、tusBar組件，在彈出的對(duì)話框中單擊【Add New】按鈕，添加面板。在“Object Inspector”窗口中設(shè)置面板的Width屬性和Caption屬性。</p><p>　?。?）在“Additional”組件頁中點(diǎn)選“TImage”組件，在窗體上添加2個(gè)TImage組件。</p><p>　　圖4.1 主窗體運(yùn)行結(jié)果 </p><p><b>

55、　　主要程序代碼：</b></p><p>　　在窗體顯示時(shí)，先調(diào)用登錄窗體，如果登錄成功則在主界面的任務(wù)欄上顯示操作員名稱及日期。窗體的OnShow事件代碼如下：</p><p>　　procedure Tfrm_main.FormShow(Sender: TObject);</p><p><b>　　begin</b><

56、/p><p>　　FRM_YHDL.ShowModal; // 調(diào)用登錄窗體</p><p>　　if dl < 4 then </p><p><b>　　begin</b></p><p>　　//將當(dāng)前時(shí)間賦給主窗體的任務(wù)欄上</p><p>　　StatusBar1.Panel

57、s.Items[4].Text := ' '+datetostr(now()); </p><p>　　StatusBar1.Panels.Items[1].Text := '操作員名稱：'+yhmc; </p><p><b>　　end;</b></p><p><b>　　end;<

58、/b></p><p>　　在窗體顯示時(shí)，將實(shí)時(shí)的時(shí)間賦給主界面的任務(wù)欄。TTimer組件的OnTimer事件代碼如下：</p><p>　　procedure Tfrm_main.Timer1Timer(Sender: TObject);</p><p><b>　　begin</b></p><p>　　//將

59、動(dòng)態(tài)的時(shí)間賦給主界面的任務(wù)欄上</p><p>　　StatusBar1.Panels[5].Text := ' '+timetostr(gettime()); </p><p><b>　　end;</b></p><p>　　在【區(qū)域信息設(shè)置】按鈕的Onclick事件處理過程中，如果權(quán)限正確則調(diào)用“區(qū)域信息設(shè)置”窗體，否則顯

60、示“超出權(quán)限”對(duì)話框。其代碼如下：</p><p>　　procedure Tfrm_main.submenu_qyxxszClick(Sender: TObject);</p><p><b>　　var</b></p><p>　　ssp : string;</p><p><b>　　begin</

61、b></p><p>　　if Trim(a[1]) = 'True' then</p><p><b>　　begin</b></p><p>　　ssp := '區(qū)域信息設(shè)置';</p><p>　　setLogFile(ssp);</p><p>　　a

62、pplication.CreateForm(TFrm_qyxx,frm_qyxx);</p><p>　　frm_qyxx.Show;</p><p><b>　　end</b></p><p><b>　　else</b></p><p><b>　　begin</b><

63、;/p><p>　　Application.MessageBox('對(duì)不起,你的權(quán)限不夠,請(qǐng)與管理員聯(lián)系!','提示信息',0+64);</p><p><b>　　end;</b></p><p><b>　　end;</b></p><p>　　在TtreeView組

64、件的OnDblClick事件處理過程中，調(diào)用各窗體菜單按鈕單擊事件的處理過程。下面給出部分代碼：</p><p>　　procedure Tfrm_main.TreViewDblClick(Sender: TObject);</p><p><b>　　begin</b></p><p>　　if TreView.Selected.Text =

65、 '調(diào)用Word' then</p><p><b>　　begin</b></p><p>　　submenu_dyword.OnClick(Sender); //調(diào)用菜單中的'調(diào)用Word'事件...</p><p><b>　　end;</b></p><p>

66、;　　//--------------------------------------------------------------...</p><p>　　if TreView.Selected.Text = '客戶投拆' then</p><p><b>　　begin</b></p><p>　　submenu_kft

67、s.OnClick(Sender);</p><p><b>　　end; </b></p><p>　　//--------------------------------------------------------------...</p><p>　　If TreView.Selected.Text = '系統(tǒng)數(shù)據(jù)清理'

68、; then</p><p><b>　　begin</b></p><p>　　submenu_xtsjql.OnClick(Sender);</p><p><b>　　end</b></p><p><b>　　end;</b></p><p>　

69、　在窗體的OnClose事件處理過程中關(guān)閉所有窗體。其代碼如下：</p><p>　　procedure Tfrm_main.submenu_tcxtClick(Sender: TObject);</p><p><b>　　begin</b></p><p>　　Application.Terminate;//退出系統(tǒng)</p>

70、<p><b>　　end;</b></p><p><b>　　4.2 數(shù)據(jù)模塊</b></p><p>　　數(shù)據(jù)模塊窗體主要功能是統(tǒng)一管理數(shù)據(jù)庫訪問組件，這也是本系統(tǒng)設(shè)計(jì)的關(guān)鍵所在，把所有要訪問數(shù)據(jù)庫的組件全放在DataModel模型中，這樣可以統(tǒng)一管理，提高程序的可用性，也方便后期維護(hù)。數(shù)據(jù)模塊如圖4.2所示。</p>

71、<p><b>　　圖4.2 數(shù)據(jù)模塊</b></p><p>　　4.3 登錄模塊設(shè)計(jì)</p><p>　　登錄模塊主要是通過輸入正確的操作員名稱、密碼和操作員級(jí)別進(jìn)入主窗體，其基本流程為：用戶輸入自己的用戶名，密碼及級(jí)別，系統(tǒng)再對(duì)其輸入進(jìn)行判斷，如果全都正確就進(jìn)入系統(tǒng)，在用戶輸入密碼的過程中，為了安全，在此設(shè)置了只能輸入三次，這次就可以防止它人惡意進(jìn)

72、行系統(tǒng)。同時(shí)根據(jù)用戶所選擇的級(jí)別的不同提供相應(yīng)的訪問權(quán)限。登錄模塊如圖4.3所示。</p><p>　　圖4.3 登錄模塊運(yùn)行結(jié)果</p><p><b>　　主要程序代碼：</b></p><p>　　在窗體顯示時(shí)，先通過變量jj來判斷登錄窗體的窗體名是“登錄”還是“重新登錄”，然后創(chuàng)建.ini文件，將窗體名和當(dāng)前日期賦給.ini文件。窗體的

73、OnShow事件代碼如下：</p><p>　　procedure Tfrm_yhdl.FormShow(Sender: TObject);</p><p><b>　　var</b></p><p>　　ini:Tinifile;</p><p>　　ssp:string; //用于存儲(chǔ)登錄信息</p>

74、<p><b>　　begin</b></p><p>　　if jj = 1 then</p><p><b>　　begin</b></p><p>　　ssp := '重新登錄';</p><p>　　frm_yhdl.Caption := '重新登錄

75、9;;</p><p><b>　　end</b></p><p><b>　　else</b></p><p><b>　　begin</b></p><p><b>　　dl := 0;</b></p><p>　　ssp :=

76、 '登錄';</p><p>　　frm_yhdl.Caption := '登錄';</p><p><b>　　end;</b></p><p>　　ini:=Tinifile.Create('c:\CRM_Log.ini'); //在C盤創(chuàng)建記錄文件</p><p>　

77、　ini.WriteString('one',datetimetostr(now),ssp);//寫記錄文件</p><p>　　ini.Free;//釋放記錄文件</p><p>　　ed_name.Clear; //用戶名清空</p><p>　　ed_password.Clear;</p><p>　　cb_jb.Tex

78、t:=cb_jb.Items[0];//使級(jí)別選擇第一項(xiàng)</p><p>　　ed_name.SetFocus;//用戶名獲得焦點(diǎn)</p><p><b>　　end;</b></p><p>　　在【確定】按鈕的OnClick事件處理過程中，連接操作員數(shù)據(jù)庫，并按操作員名稱、密碼和級(jí)別進(jìn)行查詢，如果有記錄則把操作員的權(quán)限賦給數(shù)組a[]，然后通

79、過變量jj來判斷是“登錄”還是“重新登錄”，如果是“登錄”只能登錄3次，否則將無限制。其代碼如下：</p><p>　　procedure Tfrm_yhdl.Btn_dlClick(Sender: TObject);</p><p><b>　　var</b></p><p>　　P:integer;</p><p>

80、<b>　　begin</b></p><p>　　if (trim(ed_name.Text) = '') or (trim(ed_password.Text) = '') or (trim(cb_jb.Text) = '') then</p><p><b>　　begin</b></p&

81、gt;<p>　　application.MessageBox('用戶名或密碼不能為空,請(qǐng)重新輸入!','提示',32);</p><p>　　ed_name.Clear;</p><p>　　ed_password.Clear;</p><p>　　cb_jb.ItemIndex := 0;</p>&l

82、t;p>　　ed_name.SetFocus;</p><p><b>　　end</b></p><p><b>　　else</b></p><p><b>　　begin</b></p><p>　　with frm_dm.se_se_user do</p&g

83、t;<p><b>　　begin</b></p><p><b>　　close;</b></p><p>　　parameters.ParamByName('@UserName').Value := trim(ed_name.Text);</p><p>　　parameters.Para

84、mByName('@UserPassword').Value:= trim(ed_password.Text);</p><p>　　parameters.ParamByName('@UserJb').Value := trim(cb_jb.Text);</p><p><b>　　open;</b></p><p&

85、gt;　　if RecordCount > 0 then // 存在此用戶記錄</p><p><b>　　begin</b></p><p>　　yhmc := FieldByName('user_name').AsString;</p><p>　　for p := 1 to 31 do</p><

86、;p><b>　　begin</b></p><p>　　ppl := inttostr(p);</p><p>　　a[p]:= booltostr(frm_dm.se_se_user.FieldByName(ppl).AsVariant,True);</p><p><b>　　end;</b></p>

87、;<p>　　if jj = 1 then</p><p><b>　　begin</b></p><p>　　frm_yhdl.close;</p><p>　　frm_main.Show;</p><p>　　frm_Main.StaBar.Panels.Items[1].Text := '

88、操作員名稱： ' + yhmc;</p><p><b>　　end</b></p><p><b>　　else</b></p><p><b>　　begin</b></p><p>　　frm_yhdl.close;</p><p>　　f

89、rm_main.Show;</p><p>　　frm_Main.StaBar.Panels.Items[1].Text := ' 操作員名稱： ' + yhmc;</p><p><b>　　end;</b></p><p><b>　　end</b></p><p><b

90、>　　else</b></p><p><b>　　begin</b></p><p>　　showmessage('操作員名稱，密碼或操作員級(jí)別不正確'+#13+'請(qǐng)重新輸入.');</p><p>　　ed_name.Clear;</p><p>　　ed_passw

91、ord.Clear;</p><p>　　cb_jb.ItemIndex := 0;</p><p>　　ed_name.SetFocus;</p><p>　　dl := dl + 1; //登錄次數(shù)加1</p><p><b>　　end;</b></p><p><b>　　en

92、d;</b></p><p>　　if jj <> 1 then</p><p><b>　　begin</b></p><p>　　if dl = 4 then</p><p><b>　　begin</b></p><p>　　frm_csh.Cl

93、ose;</p><p><b>　　end;</b></p><p><b>　　end;</b></p><p><b>　　end;</b></p><p><b>　　end;</b></p><p>　　4.4 客戶信息模

94、塊</p><p>　　客戶信息是企業(yè)最重要的資源，在**公司客戶管理系統(tǒng)中，對(duì)于客戶信息的管理做到了全面，精確，容易?？蛻粜畔⒛K主要提供了添加、修改、刪除、查詢客戶信息，上一條，下一條，上一條，末一條的功能。客戶信息模塊運(yùn)行結(jié)果如圖4.4所示。</p><p>　　圖4.4 客戶信息模塊運(yùn)行結(jié)果</p><p><b>　　主要程序代碼：</b

95、></p><p>　　窗體顯示時(shí)，通過存儲(chǔ)過程,顯示第一個(gè)關(guān)于客戶信息的資料信息。窗體的OnShow事件代碼如下：</p><p>　　procedure Tfrm_khxx.FormShow(Sender: TObject);</p><p><b>　　begin</b></p><p>　　with frm

96、_dm.sp_se_khxx do //調(diào)用存儲(chǔ)過程</p><p><b>　　begin</b></p><p><b>　　Close;</b></p><p><b>　　Open;</b></p><p>　　First; //定位到第一條記錄</p>

97、<p><b>　　//客戶編號(hào)</b></p><p>　　edClientId.Text := trim(FieldByName('khxx_id').AsString); </p><p><b>　　//客戶名稱</b></p><p>　　edClientName.Text := Tri

98、m(FieldByName('khxx_mc').AsString);</p><p>　　cbQyxz.Text := Trim(FieldByName('khxx_qyxz').AsString); </p><p>　　cbClientType.Text := Trim(FieldByName('khxx_qylx').AsString

99、);</p><p><b>　　……</b></p><p><b>　　end;</b></p><p><b>　　end;</b></p><p>　　在【添加】按鈕的OnClick事件處理過程中，先清空相關(guān)組件上的信息，打開客戶信息表，通過存儲(chǔ)過程自動(dòng)生成客戶編號(hào),同

100、時(shí)調(diào)用存儲(chǔ)過程自動(dòng)生成企業(yè)性質(zhì),客戶類型,企業(yè)資信,客戶級(jí)別,所屬省份,所屬城市供用戶選擇。其代碼如下：</p><p>　　procedure Tfrm_khxx.btnAddClick(Sender: TObject);</p><p><b>　　var</b></p><p>　　iTemp : Integer;</p>

101、<p><b>　　begin</b></p><p>　　xgbz := 1; //增加數(shù)據(jù)... </p><p>　　edClientName.SetFocus;</p><p>　　for iTemp := ComponentCount - 1 downto 0 do //使所有文本框?yàn)榭?..</p>&l

102、t;p><b>　　begin</b></p><p>　　if Components[iTemp] is TEdit then</p><p><b>　　begin</b></p><p>　　TEdit(Components[iTemp]).Clear;</p><p><b>

103、;　　end;</b></p><p><b>　　end;</b></p><p>　　with sp_se_khxxId do //客戶編號(hào)自動(dòng)增加...</p><p><b>　　begin</b></p><p>　　edClientId.Text := 'KH

104、9; + FormatDateTime('yyyymm',Now)</p><p>　　+ Format('%.*d',[6,FieldByName('khxx_id').AsInteger + 1]);</p><p><b>　　end;</b></p><p>　　with frm_dm.s

105、p_se_qyxz do //增加企業(yè)性質(zhì)以供選擇...</p><p><b>　　begin</b></p><p><b>　　Close;</b></p><p><b>　　Open;</b></p><p><b>　　first;</b>&

106、lt;/p><p>　　while not Eof do</p><p><b>　　begin</b></p><p>　　cbQyxz.Items.Add(Trim(FieldByName('qyxz_xzmc').AsString));</p><p><b>　　Next;</b>

107、;</p><p><b>　　end;</b></p><p>　　cbQyxz.ItemIndex := 0;</p><p><b>　　end;</b></p><p><b>　　…… </b></p><p><b>　　end;

108、</b></p><p>　　在【保存】按鈕的OnClick事件處理過程中，通過全局變量的相應(yīng)值做相應(yīng)的操作,這兒的事件代碼是最關(guān)鍵的,并對(duì)工具按鈕可用度進(jìn)行設(shè)置。其代碼如下：</p><p>　　procedure Tfrm_khxx.btnSaveClick(Sender: TObject);</p><p><b>　　begin<

109、/b></p><p>　　with frm_dm.sp_in_khxx do //調(diào)用插入客戶信息存儲(chǔ)過程</p><p><b>　　begin</b></p><p><b>　　Close;</b></p><p>　　Parameters.ParamByName('@var_

110、khxx_id').Value:= Trim(edClientId.Text);</p><p>　　Parameters.ParamByName('@var_khxx_mc').Value:= Trim(edClientName.Text);</p><p>　　Parameters.ParamByName('@var_khxx_qyxz').Va

111、lue:= Trim(cbQyxz.Text);</p><p>　　Parameters.ParamByName('@var_khxx_qylx').Value:= Trim(cbClientType.Text);</p><p><b>　　……</b></p><p>　　Parameters.ParamByName(&#

112、39;@xgbz').Value := xgbz; //通過修改標(biāo)志做相應(yīng)操作</p><p>　　ExecProc; //執(zhí)行存儲(chǔ)過程</p><p><b>　　end;</b></p><p>　　在【第一條】按鈕的OnClick事件處理過程中，使指針指向第一條記錄(First)，上一條(Prior)，下一條(Next)，末一條

113、(Last)代碼基本一樣。代碼如下：</p><p>　　procedure Tfrm_khxx.btnFirstClick(Sender: TObject);</p><p><b>　　begin</b></p><p>　　with frm_dm.sp_se_khxx do</p><p><b>　　b

114、egin</b></p><p>　　First;//使記錄指針移到第一條記錄</p><p>　　edClientId.Text := trim(FieldByName('khxx_id').AsString);</p><p>　　edClientName.Text := Trim(FieldByName('khxx_mc&#

115、39;).AsString);</p><p><b>　　……</b></p><p><b>　　end;</b></p><p><b>　　end;</b></p><p>　　4.5 發(fā)送郵件模塊</p><p>　　發(fā)送郵件模塊主要是向客戶發(fā)

116、送郵件及群發(fā)郵件。為了能夠發(fā)送郵件，使用了Delphi中Indy控件集中的TIdMessage控件與 TIdSMTP控件實(shí)現(xiàn)郵件發(fā)送的功能。發(fā)送郵件模塊運(yùn)行結(jié)果如圖4.5所示。</p><p>　　圖4.5 發(fā)送郵件模塊運(yùn)行結(jié)果</p><p><b>　　主要程序代碼：</b></p><p>　　在【發(fā)送郵件】按鈕的OnClick事件處理

117、過程中，通過TidMessage組件將聯(lián)系人信息保存起來，再由TIdSMTP組件進(jìn)行網(wǎng)絡(luò)的連接和發(fā)送郵件。其代碼如下：</p><p>　　procedure Tfrm_fsyj.bbtnFsyjClick(Sender: TObject); //發(fā)送郵件功能代碼...</p><p><b>　　begin</b></p><p>　　if

118、 (trim(edFjrdz.Text) = '') or (trim(edYfmc.Text) = '') or (Trim(EdMm.Text) = '') or (trim(edSjrdz.Text) = '' ) or (trim(edYjzt.Text) = '') or (trim(edYjfwq.Text) = '') or (

119、trim(edFj.Text) = '') then</p><p><b>　　begin</b></p><p>　　ShowMessage('請(qǐng)?zhí)顚懭啃畔?');</p><p><b>　　end</b></p><p><b>　　else<

120、;/b></p><p><b>　　begin</b></p><p>　　Self.IdMessage1.Clear;</p><p>　　Self.IdMessage1.From.Text := trim(edFjrdz.Text);</p><p>　　Self.IdMessage1.Recipients.

121、EMailAddresses := edSjrdz.Text;</p><p>　　Self.IdMessage1.Body.Assign(Memo1.Lines);</p><p>　　Self.IdMessage1.Subject := trim(edYjzt.Text);</p><p>　　if trim(edFj.Text) <> '&

122、#39; then</p><p><b>　　begin</b></p><p>　　TIdAttachment.Create(IdMessage1.MessageParts,edFj.Text);</p><p><b>　　end;</b></p><p>　　Self.IdSMTP1.Aut

123、henticationType := atLogin;</p><p>　　Self.IdSMTP1.Username := trim(edYfmc.Text);</p><p>　　Self.IdSMTP1.Password := Trim(EdMm.Text);</p><p>　　Self.IdSMTP1.Host := trim(edYjfwq.Text);

124、</p><p><b>　　try</b></p><p>　　Self.IdSMTP1.Connect();</p><p><b>　　try</b></p><p>　　Self.IdSMTP1.Send(IdMessage1);</p><p>　　ShowMess

125、age('E-Mail已經(jīng)發(fā)送成功!');</p><p><b>　　finally</b></p><p>　　Self.IdSMTP1.Disconnect;</p><p><b>　　end;</b></p><p><b>　　except</b>&

126、lt;/p><p>　　On e:exception do</p><p><b>　　begin</b></p><p>　　ShowMessage('E-Mail 發(fā)送失敗:' + E.Message);</p><p><b>　　end;</b></p><p

127、><b>　　end;</b></p><p><b>　　end;</b></p><p><b>　　end;</b></p><p>　　4.6 據(jù)庫配置模塊 </p><p>　　“數(shù)據(jù)庫配置模塊”主要完成的功能是當(dāng)用戶在不同的計(jì)算機(jī)上附加上**公司客戶管理系統(tǒng)的

128、數(shù)據(jù)庫后，不用去改源代碼來連接數(shù)據(jù)庫，軟件在啟動(dòng)時(shí)會(huì)自動(dòng)檢測(cè)，若初始用戶與密碼還有主機(jī)名連接不到本機(jī)數(shù)據(jù)庫，就會(huì)彈出這個(gè)窗口，讓用戶輸入本機(jī)數(shù)據(jù)庫的用戶名與密碼以及數(shù)據(jù)庫服務(wù)器名稱。這樣有助于軟件的靈活性與健壯性。</p><p><b>　　程序相關(guān)代碼：</b></p><p>　　“確定”按鈕的單擊事件代碼如下：</p><p>　　pr