(論文)客戶管理系統(tǒng)開發(fā)與實(shí)現(xiàn)(2013年優(yōu)秀畢業(yè)設(shè)計(jì)論文)

I 鴻達(dá)公司客戶管理系統(tǒng)開發(fā)與實(shí)現(xiàn) 摘 要 本課題所設(shè)計(jì)的系統(tǒng)能夠統(tǒng)一管理與企業(yè)相關(guān)的客戶及其聯(lián)系人信息?？蛻?與相關(guān)聯(lián)系人信息是企業(yè)最重要的資源之一，通過客戶管理系統(tǒng)能夠有效地管理 客戶信息，提高企業(yè)客戶管理效率。在此基礎(chǔ)之上，進(jìn)一步展開，才能對(duì)客戶之 間發(fā)生的活動(dòng)、機(jī)會(huì)、銷售、費(fèi)用等進(jìn)行詳細(xì)管理。本課題實(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)了客戶資源管理的一體化。 關(guān)鍵詞：CRM；客戶管理系統(tǒng)；MS Sql Server 2005 II The Development And Implementation of Hongda Customer Management System ABSTRACT Designed by 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 management 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 achieve this task the maintenance of the basic information(including: domain information settings, the nature of an enterprise set up, business type, business credit establishment, customer-level settings, set the level of customer satisfaction); maintenance of customer information (including: customer information,contact information,business contacts,send e-mail); customer service(including customer feedback,customer complaints,customer satisfaction feedback analysis, satisfaction with the analysis of customer complaints); customer information (including:customer information statements, contact information statements, business reports, customer feedback statements, statements of customer complaints); aids as well as the management module,Customers realize the integration of resource management. Keywords: CRM; Management System Customer;MS Sql Server2005 III 目目 錄錄 引 言 1 第 1 章 系統(tǒng)分析 2 1.1 需求分析 2 1.2 可行性分析 2 第 2 章 系統(tǒng)設(shè)計(jì) 5 2.1 設(shè)計(jì)目標(biāo) 5 2.2 開發(fā)及運(yùn)行環(huán)境 5 2.3 項(xiàng)目規(guī)劃 5 第 3 章 系統(tǒng)數(shù)據(jù)庫(kù)設(shè)計(jì) 7 3.1 數(shù)據(jù)庫(kù)概要設(shè)計(jì) 7 3.2 數(shù)據(jù)庫(kù)物理設(shè)計(jì) 9 第 4 章 主要功能模塊設(shè)計(jì) .17 4.1 主窗體設(shè)計(jì) .17 4.2 數(shù)據(jù)模塊 .20 4.3 登錄模塊設(shè)計(jì) .21 4.4 客戶信息模塊 .24 4.5 發(fā)送郵件模塊 .28 4.6 據(jù)庫(kù)配置模塊 .29 第 5 章 系統(tǒng)測(cè)試 .31 5.1 鴻達(dá)公司客戶管理系統(tǒng)單元測(cè)試 .31 5.2 鴻達(dá)公司客戶管理系統(tǒng)集成測(cè)試 .36 5.3 測(cè)試總結(jié) .37 結(jié)束語 38 致 謝 .39 參考文獻(xiàn) 40 附錄 42 附錄 A 文件架構(gòu)圖 .42 附錄 B 主要源程序 .44 四川理工學(xué)院畢業(yè)設(shè)計(jì)（論文） 1 引 言 在全球一體化、企業(yè)互動(dòng)和以 INTERNET 為核心的時(shí)代，企業(yè)面臨著如何發(fā) 展?jié)撛诳蛻簦绾螌⑸鐣?huì)關(guān)系資源變?yōu)槠髽I(yè)的銷售和發(fā)展資源的一系列難辦棘手 的問題。在上述背景下，鴻達(dá)公司客戶管理系統(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)營(yíng)機(jī)制。本系統(tǒng)以企業(yè)級(jí)的整體客戶管理為解決方案，幫助企業(yè)建立統(tǒng)一 的客戶資源、拓展銷售渠道、尋求最佳市場(chǎng)方式、規(guī)范企業(yè)銷售流程、提供科學(xué) 分析方法，建立持久的客戶體系。其大容量客戶數(shù)據(jù)處理能力，讓您的企業(yè)從多 渠道收集信息，快速發(fā)現(xiàn)核心客戶和潛在伙伴，進(jìn)而給企業(yè)帶來無限的利潤(rùn)。 以客戶為中心的理念在國(guó)外興起于 20 世紀(jì) 50 年代，當(dāng)時(shí)很多企業(yè)寄希望于 通過改進(jìn)技術(shù)、壓縮生產(chǎn)周期、改善內(nèi)部資源管理來提高生產(chǎn)增長(zhǎng)率和利潤(rùn)，但 事實(shí)上見效甚微。這樣企業(yè)開始從強(qiáng)調(diào)降低經(jīng)營(yí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è)完善的鴻達(dá)公司客戶管理系統(tǒng) 所能完成的。 胡勇：鴻達(dá)公司客戶管理系統(tǒng)開發(fā)與實(shí)現(xiàn) 2 第 1 章 系統(tǒng)分析 現(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)。 1.1 需求分析 根據(jù)市場(chǎng)的需求，要求系統(tǒng)具有以下功能： 完全人性化設(shè)計(jì)，無需專業(yè)人士指導(dǎo)，即可使用該系統(tǒng)。 由于該系統(tǒng)的使用對(duì)象多，要求有較好的權(quán)限管理。 系統(tǒng)具有數(shù)據(jù)備份及數(shù)據(jù)還原功能。能夠保證系統(tǒng)數(shù)據(jù)的安全性。 方便的全方位的數(shù)據(jù)查詢。 強(qiáng)大的報(bào)表打印功能。 在相應(yīng)的權(quán)限下，刪除數(shù)據(jù)方便簡(jiǎn)單，數(shù)據(jù)穩(wěn)定性好。 強(qiáng)大的圖表分析功能。 退出系統(tǒng)。 1.2 可行性分析 當(dāng)接到客戶管理系統(tǒng)開發(fā)任務(wù)，就進(jìn)入客戶管理開發(fā)的第一個(gè)階段，即進(jìn)行 可行性的研究。并不是所有問題具有簡(jiǎn)單的解決辦法，許多問題不能在預(yù)定的規(guī) 模之內(nèi)解決。因此通過可行性的研究分析可以知道問題。 有可行性的解決方法，可以避免人力、物力和才力的浪費(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ù)，并且，程序可以分期分批實(shí)現(xiàn)。但是，需要指出的是， 系統(tǒng)目標(biāo)是不可能在總體規(guī)劃階段就提得非常具體，它還將在開發(fā)過程中逐步明 確和定量化。以達(dá)到更加出色的程序系統(tǒng)。可是，目標(biāo)的提法不盡相同，例如： 提高客戶管理效率，減輕勞動(dòng)強(qiáng)度； 提高客戶和聯(lián)系人信息處理速度和準(zhǔn)確性； 為客戶管理人員提供更方便、科學(xué)的服務(wù)項(xiàng)目。 系統(tǒng)的目標(biāo)確定后，就可以從以下兩方面對(duì)能否實(shí)現(xiàn)新系統(tǒng)目標(biāo)進(jìn)行可行性 分析： 四川理工學(xué)院畢業(yè)設(shè)計(jì)（論文） 3 一技術(shù)可行性 Borland 公司的 Delphi 是一個(gè)非常優(yōu)秀的數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)前端開發(fā)工具。這 是由于 Borland Delphi 自 1995 年 2 月誕生 Version 1.0 以后，1996 年 3 月， Borland Delphi ClientServer Suite 2.0 以其高效的數(shù)據(jù)重用功能得以在美國(guó)國(guó)家 軟件測(cè)試實(shí)驗(yàn)室進(jìn)行的軟件評(píng)估中獲得了最高評(píng)價(jià)。隨后，Borland 又推出 Delnhi 的第三代版本Delphi 3.0 多層 ClientServer 的 32 位快速開發(fā)工具。 數(shù)據(jù)庫(kù)應(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ǔ)、加工和傳播的一系列活動(dòng)的總和。 進(jìn)行數(shù)據(jù)處理的目的是為了從大量原始數(shù)據(jù)中獲得對(duì)人類社會(huì)活動(dòng)有價(jià)值的信息， 以作為行動(dòng)和采取對(duì)策的依據(jù)。 因此，開發(fā)數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)需要選擇一種數(shù)據(jù)庫(kù)管理系統(tǒng)；然后，在其支持 之下建立數(shù)據(jù)庫(kù)；最后，使用一種開發(fā)工具編制數(shù)據(jù)庫(kù)應(yīng)用程序。鴻達(dá)公司客戶 管理系統(tǒng)所采用的 Borland Delphi 就是一種可用于編制數(shù)據(jù)庫(kù)應(yīng)用程序的開發(fā)工 具。 采用二層 C/S 模式的數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)具有良好的應(yīng)用性能，尤其適用于基于 區(qū)域網(wǎng)絡(luò)的網(wǎng)絡(luò)數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)環(huán)境。在 C/S 模式數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)中，數(shù)據(jù)庫(kù)服 務(wù)器端的 DBMS 可以在多種產(chǎn)品中選用一種，常用的可以有：Microsoft SQL Server，Oracle，SyBase，Informix 等等。鴻達(dá)公司客戶管理系統(tǒng)將以 Microsoft SQL Server 作為數(shù)據(jù)庫(kù)管理信息系統(tǒng)。 所謂 Delphi 數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)是指，應(yīng)用 Delphi 作為數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)前端程 序開發(fā)工具形成的數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)。實(shí)際上，Delphi 以面向?qū)ο蟮挠^點(diǎn)、可視化 操作界面，提供開發(fā) C/S 模式數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)的有效支持工具。Delphi 在 Windows 操作系統(tǒng)環(huán)境下運(yùn)行，提供兩個(gè)版本供選擇，標(biāo)準(zhǔn)版本和客戶/服務(wù)器版 本。應(yīng)用 Delphi 開發(fā)數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)過程中，需要設(shè)置數(shù)據(jù)庫(kù)訪問和操作功能時(shí)， 最基本的方法是使用 Dephi 提供的數(shù)據(jù)庫(kù)操作控件。應(yīng)用這些數(shù)據(jù)庫(kù)操作控件， 可以構(gòu)建形成最基本的 Dephi 數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)功能。 常用的數(shù)據(jù)庫(kù)操作控件分別位于 Borland Dephi 可視化設(shè)計(jì)界面的三個(gè)組件頁(yè) 面上：ADO 組件頁(yè)（ADO） 、數(shù)據(jù)訪問組件頁(yè)（Data Access）和數(shù)據(jù)控制組件頁(yè) （Data Controls） 。每一個(gè)組件頁(yè)上匯集著一些具有相關(guān)功能的控件，當(dāng)需要選用 某一個(gè)控件時(shí)，應(yīng)該先選定對(duì)應(yīng)的組件頁(yè)，然后在組件頁(yè)上選取所需要的控件。 胡勇：鴻達(dá)公司客戶管理系統(tǒng)開發(fā)與實(shí)現(xiàn) 4 本系統(tǒng)開發(fā)環(huán)境為 Delphi 7.0，數(shù)據(jù)庫(kù)為 SQL Server 2005 數(shù)據(jù)庫(kù)。Delphi7 是用來快速開發(fā) Windows 應(yīng)用程序的應(yīng)用程序開發(fā)工具，可以直觀地使用圖形化 工具來創(chuàng)建 Windows 的應(yīng)用程序。SQL Server2005 是 Microsoft 公司推出的基于 客戶/服務(wù)器（C/S）模式的數(shù)據(jù)庫(kù)系統(tǒng)，它提供了強(qiáng)大的企業(yè)數(shù)據(jù)庫(kù)管理功能， 是目前世界上的幾個(gè)主流數(shù)據(jù)庫(kù)管理系統(tǒng)之一。 二運(yùn)行可行性 系統(tǒng)的研制和開發(fā)是充分得考慮工作人員對(duì)人事信息的易于管理，管理者方 便查詢?cè)O(shè)備信息效率。從而在開發(fā)時(shí)我們用可視化界面，用戶只需根據(jù)界面上的 指示進(jìn)行操作。 四川理工學(xué)院畢業(yè)設(shè)計(jì)（論文） 5 第 2 章 系統(tǒng)設(shè)計(jì) 2.1 設(shè)計(jì)目標(biāo) 本系統(tǒng)屬于小型的數(shù)據(jù)庫(kù)系統(tǒng)，為了對(duì)中小型企業(yè)客戶的管理，實(shí)現(xiàn)一些初 步的計(jì)算機(jī)化的管理。通過本系統(tǒng)可以達(dá)到以下目標(biāo)： 靈活的運(yùn)用表格批量輸入數(shù)據(jù)，使信息傳遞更快捷。 系統(tǒng)采用人機(jī)對(duì)話方式，界面美觀友好、信息查詢靈活、方便、快捷、準(zhǔn)確、 數(shù)據(jù)存儲(chǔ)安全可靠。 實(shí)現(xiàn)各種記錄查詢。 操作員可以隨時(shí)修改自己的口令。 管理員可以設(shè)置操作員的權(quán)限 對(duì)用戶輸入的數(shù)據(jù)，系統(tǒng)進(jìn)行嚴(yán)格的數(shù)據(jù)檢驗(yàn)，盡可能排除人為的錯(cuò)誤。 數(shù)據(jù)保密性強(qiáng)，為每個(gè)用戶設(shè)置權(quán)限級(jí)別。 系統(tǒng)最大限度地實(shí)現(xiàn)了易安裝性、易維護(hù)性和易操作性。 2.2 開發(fā)及運(yùn)行環(huán)境 系統(tǒng)開發(fā)平臺(tái)：Delphi 7.0。 數(shù)據(jù)庫(kù)管理系統(tǒng)軟件：SQL Server 2005。 運(yùn)行平臺(tái)：Windows xp/ Windows 2000。 分辨率：最佳效果 1024*768。 2.3 項(xiàng)目規(guī)劃 鴻達(dá)公司客戶管理系統(tǒng)是一個(gè)典型的數(shù)據(jù)庫(kù)開發(fā)應(yīng)用程序，由基礎(chǔ)信息維護(hù)、 客戶信息維護(hù)、客戶服務(wù)、客戶信息查詢、打印報(bào)表、輔助工具、系統(tǒng)管理等模 塊組成，規(guī)劃系統(tǒng)功能模塊如下： 基礎(chǔ)信息維護(hù)模塊 該模塊主要負(fù)責(zé)區(qū)域信息設(shè)置、企業(yè)性質(zhì)設(shè)置、企業(yè)類型設(shè)置、企業(yè)資信設(shè) 置、客戶級(jí)別設(shè)置、客戶滿意程度設(shè)置。 客戶信息維護(hù)模塊 該模塊主要負(fù)責(zé)客戶信息、聯(lián)系人信息、業(yè)務(wù)往來、發(fā)送郵件（包括郵件群 發(fā)設(shè)置）。 胡勇：鴻達(dá)公司客戶管理系統(tǒng)開發(fā)與實(shí)現(xiàn) 6 客戶服務(wù)模塊 該模塊主要負(fù)責(zé)客戶反饋、客戶投訴、客戶反饋滿意程度分析、客戶投訴滿 意程度分析。 客戶信息查詢模塊 該模塊主要負(fù)責(zé)客戶信息查詢、聯(lián)系人信息查詢、根據(jù)客戶反饋滿意程度查 詢、根據(jù)客戶投訴滿意程序查詢、客戶反饋查詢、客戶投訴查詢。 打印報(bào)表模塊 該模塊主要負(fù)責(zé)客戶信息報(bào)表、聯(lián)系人信息報(bào)表、業(yè)務(wù)往來報(bào)表、客戶反饋 報(bào)表、客戶投拆報(bào)表。 輔助工具模塊 該模塊主要負(fù)責(zé)調(diào)用 word、調(diào)用 Excel、計(jì)算器、登錄 Internet、工作業(yè)務(wù) 備忘、國(guó)內(nèi)主要城市區(qū)號(hào)郵編查詢。 系統(tǒng)管理模塊 該模塊主要負(fù)責(zé)操作員管理（包括權(quán)限設(shè)置與密碼修改）、查看日志（包括 日志清理）、數(shù)據(jù)備份與數(shù)據(jù)恢復(fù)、系統(tǒng)數(shù)據(jù)清理。 圖 2.1 系統(tǒng)功能架構(gòu)圖 四川理工學(xué)院畢業(yè)設(shè)計(jì)（論文） 7 第 3 章 系統(tǒng)數(shù)據(jù)庫(kù)設(shè)計(jì) 數(shù)據(jù)庫(kù)設(shè)計(jì)是整個(gè)軟件開發(fā)的核心，數(shù)據(jù)庫(kù)設(shè)計(jì)的合理否關(guān)系到整個(gè)軟件的 運(yùn)行效率以及后期的可維護(hù)性與可操作性。數(shù)據(jù)庫(kù)設(shè)計(jì)主要分為：數(shù)據(jù)庫(kù)的概要 設(shè)計(jì)與數(shù)據(jù)庫(kù)的物理設(shè)計(jì)兩個(gè)方面。 3.1 數(shù)據(jù)庫(kù)概要設(shè)計(jì) 在信息世界中，信息從客觀事物出發(fā)流經(jīng)數(shù)據(jù)庫(kù)，通過決策機(jī)構(gòu)最后又回到 客觀世界，信息的這一循環(huán)經(jīng)歷了三個(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ù)庫(kù)的設(shè)計(jì)問題，軟件設(shè)計(jì)的一個(gè)核心。 下面給出鴻達(dá)公司客戶管理系統(tǒng)的數(shù)據(jù)庫(kù)概念模型（使用 Power Designer 設(shè) 計(jì)）： 圖 3.1 聯(lián)系人信息，客戶反饋與客戶滿意度實(shí)體圖 圖 3.2 客戶反饋與客戶投訴實(shí)體圖 聯(lián)系人信息 聯(lián)系人編號(hào) 企業(yè)名稱 聯(lián)系人姓名 聯(lián)系人性別 出生年月 聯(lián)系人年齡 聯(lián)系人職位 聯(lián)系人辦公電話 聯(lián)系人郵件 聯(lián)系人手機(jī) 個(gè)人簡(jiǎn)介 登記日期 信息登記人 備注 Variable characters (20) Variable characters (40) Characters (30) Characters (5) Date begin FRM_YHDL.ShowModal; / 調(diào)用登錄窗體 if dl 0 then / 存在此用戶記錄 begin yhmc := FieldByName(user_name).AsString; for p := 1 to 31 do begin ppl := inttostr(p); ap:= booltostr(frm_dm.se_se_user.FieldByName(ppl).AsVariant,True); end; if jj = 1 then begin frm_yhdl.close; frm_main.Show; frm_Main.StaBar.Panels.Items1.Text := 操作員名稱： + yhmc; end else begin frm_yhdl.close; frm_main.Show; frm_Main.StaBar.Panels.Items1.Text := 操作員名稱： + yhmc; end; end else begin showmessage(操作員名稱，密碼或操作員級(jí)別不正確+#13+請(qǐng)重新 輸入.); ed_name.Clear; 四川理工學(xué)院畢業(yè)設(shè)計(jì)（論文） 25 ed_password.Clear; cb_jb.ItemIndex := 0; ed_name.SetFocus; dl := dl + 1; /登錄次數(shù)加 1 end; end; if jj then begin TIdAttachment.Create(IdMessage1.MessageParts,edFj.Text); end; Self.IdSMTP1.AuthenticationType := atLogin; Self.IdSMTP1.Username := trim(edYfmc.Text); Self.IdSMTP1.Password := Trim(EdMm.Text); Self.IdSMTP1.Host := trim(edYjfwq.Text); try Self.IdSMTP1.Connect(); try Self.IdSMTP1.Send(IdMessage1); ShowMessage(E-Mail 已經(jīng)發(fā)送成功!); finally Self.IdSMTP1.Disconnect; end; except On e:exception do begin ShowMessage(E-Mail 發(fā)送失敗: + E.Message); end; end; end; end; 四川理工學(xué)院畢業(yè)設(shè)計(jì)（論文） 31 4.6 據(jù)庫(kù)配置模塊 “數(shù)據(jù)庫(kù)配置模塊”主要完成的功能是當(dāng)用戶在不同的計(jì)算機(jī)上附加上鴻達(dá) 公司客戶管理系統(tǒng)的數(shù)據(jù)庫(kù)后，不用去改源代碼來連接數(shù)據(jù)庫(kù)，軟件在啟動(dòng)時(shí)會(huì) 自動(dòng)檢測(cè)，若初始用戶與密碼還有主機(jī)名連接不到本機(jī)數(shù)據(jù)庫(kù)，就會(huì)彈出這個(gè)窗 口，讓用戶輸入本機(jī)數(shù)據(jù)庫(kù)的用戶名與密碼以及數(shù)據(jù)庫(kù)服務(wù)器名稱。這樣有助于 軟件的靈活性與健壯性。 程序相關(guān)代碼： “確定”按鈕的單擊事件代碼如下： procedure Tfrm_ljfwq.b_okClick(Sender: TObject); var zdszininame,ado:string; zdszini:tinifile; begin ado:=Provider=SQLOLEDB.1;Password=+trim(ed_mm.Text)+;Persist SecurityInfo=True;UserID=+trim(ed_yh.Text)+;Initial Catalog=+trim(ed_sjk.Text)+;Data Source=+trim(ed_server.Text); zdszininame:=ExtractFilePath(Application.exename)+connect.ini; zdszIni:= TIniFile.Create(zdszininame); zdszini.writeString(system,ado,ado); Application.MessageBox(保存成功，請(qǐng)重新運(yùn)行程序！,提示信息 ,0+64); application.Terminate; end; 胡勇：鴻達(dá)公司客戶管理系統(tǒng)開發(fā)與實(shí)現(xiàn) 32 第 5 章 系統(tǒng)測(cè)試 當(dāng)一個(gè)系統(tǒng)所有分析與編碼完成后就進(jìn)入了系統(tǒng)的測(cè)試階段了，作為一個(gè)成 品系統(tǒng),系統(tǒng)的測(cè)試也是一個(gè)關(guān)鍵的環(huán)節(jié),在測(cè)試階段,我們將盡可能的找出系統(tǒng)的 邏輯與語法錯(cuò)誤，修補(bǔ)系統(tǒng)存在的 Bug，做好系統(tǒng)的測(cè)試工作才能保證讓用戶用 到一個(gè)安全、快速、便捷與高效的客戶管理系統(tǒng)。 鴻達(dá)公司客戶管理系統(tǒng)測(cè)試的主要內(nèi)容為：系統(tǒng)的單元測(cè)試與整個(gè)系統(tǒng)的集 成測(cè)試。 系統(tǒng)的單元測(cè)試主要目的是： 1.測(cè)試各個(gè)功能模塊是否運(yùn)行正確。 2.各個(gè)模塊功能是否已經(jīng)完全實(shí)現(xiàn)。 系統(tǒng)的集成測(cè)試主要目的是： 在運(yùn)行可能是不完整的應(yīng)用，保證軟件單元被結(jié)合后能正常操作的測(cè)試執(zhí)行 的階段。 5.1 鴻達(dá)公司客戶管理系統(tǒng)單元測(cè)試 單元測(cè)試集中檢測(cè)軟件設(shè)計(jì)的最小單元模塊，通常單元測(cè)試和編碼屬于 軟件過程的同一個(gè)階段.在編寫出源代碼并通過了編譯的語法檢查后，就可以用詳 細(xì)設(shè)計(jì)描述作指南，對(duì)重要的執(zhí)行通路進(jìn)行測(cè)試，以便發(fā)現(xiàn)模塊內(nèi)部的錯(cuò)誤。可 以應(yīng)用人工測(cè)試和計(jì)算機(jī)測(cè)試這樣兩種不同類型的測(cè)試方法，完成單元測(cè)試工作。 這兩種測(cè)試方法各有所長(zhǎng)，互相補(bǔ)充，通常單元測(cè)試主要使用白盒測(cè)試技術(shù)。而 且對(duì)多個(gè)模塊的測(cè)試可以并行進(jìn)行。 當(dāng)然對(duì)于本系統(tǒng),我們采用人工測(cè)試方法進(jìn)行單元測(cè)試，由于模塊太多，要是 一一在此都體現(xiàn)出測(cè)試報(bào)告，有點(diǎn)不太合適，所以只在此列三個(gè)模塊的測(cè)試報(bào)告。 一.系統(tǒng)登錄測(cè)試。 主要目的：測(cè)試是否可以正確登錄，如果可以，那么正確登錄后,系統(tǒng)是否可 以通過登錄時(shí)用戶所選擇的”級(jí)別”而進(jìn)行相應(yīng)的權(quán)限控制。 1以超級(jí)管理員登錄系統(tǒng)。 用戶名:hy，密碼:123，級(jí)別:高級(jí)用戶，如圖 5.1 系統(tǒng)登錄測(cè)試，進(jìn)入系統(tǒng)后 測(cè)試各個(gè)模塊是否都擁有相應(yīng)權(quán)限. 四川理工學(xué)院畢業(yè)設(shè)計(jì)（論文） 33 圖 5.1 系統(tǒng)登錄測(cè)試 通過各個(gè)模塊測(cè)試，可知該用戶擁有所有權(quán)限. 2.以普通用戶登錄系統(tǒng) 用戶名:test，密碼:123456，級(jí)別：普通用戶，進(jìn)行系統(tǒng)后，選擇一個(gè)功能模 塊，系統(tǒng)就會(huì)提示用戶“對(duì)不起，你的權(quán)限不夠，請(qǐng)用管理員聯(lián)系!”的提示信息， 如圖 5.2 普通用戶登錄測(cè)試： 圖 5.2 普通用戶登錄測(cè)試 胡勇：鴻達(dá)公司客戶管理系統(tǒng)開發(fā)與實(shí)現(xiàn) 34 企業(yè)性質(zhì)設(shè)置 單擊“基礎(chǔ)信息”“企業(yè)性質(zhì)設(shè)置” ，打開“企業(yè)性質(zhì)設(shè)置”窗口。 “添加”功能： 單擊“添加”按鈕，其它相應(yīng)按鈕置為不可用狀態(tài)，適合要求。添加一條 “企業(yè)性質(zhì)” ?？梢钥吹?， “企業(yè)性質(zhì)編號(hào)”在自動(dòng)增加，并用戶不可更改，這樣 就可以保證數(shù)據(jù)的一至性，防止用戶錯(cuò)誤的輸入，而使軟件的可用性與穩(wěn)定性降 低。 輸入“企業(yè)性質(zhì)名稱”與“備注信息”后單擊“保存”按鈕后，其它相應(yīng)按 鈕變?yōu)榭捎脿顟B(tài)，并且提示用戶“保存成功” ，符合需求分析時(shí)的要求。如圖 5.3 企業(yè)性質(zhì)的添加： 圖 5.3 企業(yè)性質(zhì)的添加 單擊確定，就可以在“企業(yè)性質(zhì)列表”中看到新添加的信息。 2.：“刪除”功能 四川理工學(xué)院畢業(yè)設(shè)計(jì)（論文） 35 選中一條“企業(yè)性質(zhì)”信息，單擊“刪除”按鈕，相應(yīng)按鈕可用狀態(tài)改變， 然后再單擊“保存”按鈕。彈出提示“保存成功” ，可以在“企業(yè)性質(zhì)列表“中 看到，被刪除的信息已經(jīng)不存在。 3.“修改”功能 選中一條“企業(yè)性質(zhì)”信息，單擊“修改”按鈕，相應(yīng)按鈕可用狀態(tài)改變， 修改相應(yīng)信息后，單擊”保存”按鈕，相應(yīng)按鈕可用性狀態(tài)改變，系統(tǒng)彈出”保存成 功”，可以在”企業(yè)性質(zhì)列表”中看到被修改的企業(yè)性質(zhì)。 4.“查詢”功能 單擊“查詢”按鈕，打開“查詢”提示框，如圖 5.4 企業(yè)性質(zhì)的查詢： 圖 5.4 企業(yè)性質(zhì)的查詢 在“請(qǐng)選擇企業(yè)性質(zhì)名稱”的列表中，選擇一條“性質(zhì)名稱” ，單擊”查詢”按 鈕后，就會(huì)在“企業(yè)性質(zhì)設(shè)置”中相應(yīng)其對(duì)應(yīng)的信息，同時(shí)”查詢”提示框消失.如 果用戶沒有選擇已有的“企業(yè)性質(zhì)名稱” ，而自己輸入一個(gè)不存在的“企業(yè)性質(zhì) 名稱” ，那么系統(tǒng)就會(huì)做出相應(yīng)的提示，并且把數(shù)據(jù)移動(dòng)到第一條記錄以便顯示， 如圖 5.5 企業(yè)性質(zhì)查詢不存在： 胡勇：鴻達(dá)公司客戶管理系統(tǒng)開發(fā)與實(shí)現(xiàn) 36 圖 5.5 企業(yè)性質(zhì)查詢不存在 5.“第一條”功能 單擊“第一條”按鈕，就會(huì)顯示”第一條“企業(yè)性質(zhì)”信息，如果已經(jīng)到第 一條，則所顯數(shù)據(jù)就不會(huì)有變化。 6.“上一條”功能 單擊“上一條”按鈕，如果當(dāng)前數(shù)據(jù)不是第一條，就會(huì)向上移動(dòng)一條數(shù)據(jù)。 7.“下一條”功能 單擊“下一條”按鈕，如果當(dāng)前數(shù)據(jù)不是最后一條，就會(huì)向后移動(dòng)一條數(shù)據(jù)。 8.“末一條”功能 單擊”末一條”按鈕，就會(huì)顯示最后一條“企業(yè)性質(zhì)”信息，如果已經(jīng)到了最 后一條，則所顯信息不會(huì)變化。 三.“聯(lián)系人信息報(bào)表”模塊 四川理工學(xué)院畢業(yè)設(shè)計(jì)（論文） 37 單擊“打印報(bào)表”“聯(lián)系人信息報(bào)表” ，打開“聯(lián)系人信息報(bào)表”窗口， 在這兒可以打印“聯(lián)系人信息報(bào)表” ，如果聯(lián)系人比較多，就會(huì)分布顯示，如圖 5.6 聯(lián)系人信息報(bào)表。 圖 5.6 聯(lián)系人信息報(bào)表 5.2 鴻達(dá)公司客戶管理系統(tǒng)集成測(cè)試 集成測(cè)試是測(cè)試和組裝軟件的系統(tǒng)化技術(shù)，例如，子系統(tǒng)測(cè)試限使在把模塊 按照設(shè)計(jì)要求組裝起來的同時(shí)進(jìn)行測(cè)試，主要目標(biāo)是發(fā)現(xiàn)與接口有關(guān)的問題(系統(tǒng) 測(cè)試與此類似)。例如，數(shù)據(jù)穿過接口時(shí)可能丟失；一個(gè)模塊對(duì)另一個(gè)模塊可能由 于疏忽而造成有害影響；把子功能組合起來可能不產(chǎn)生預(yù)期的主功能；個(gè)別看來 是可以接受的誤差可能積累到不能接受的程度；全程數(shù)據(jù)結(jié)構(gòu)可能有問題等等。 不幸的是，可能發(fā)生的接口問題多得不勝枚舉。 通過前面的模塊測(cè)試，可以發(fā)現(xiàn)軟件的各個(gè)模塊的功能都已實(shí)現(xiàn)，并錯(cuò)誤提 示以及用戶的友好性方面做得都比較不錯(cuò)，現(xiàn)在就看看各個(gè)模塊的功能組合是否 完美。 1.添加一條“客戶信息” ，保存成功后，再在“打印報(bào)表”中選擇“客戶信息 報(bào)表” ，看看剛剛添加的客戶信息是否存在在報(bào)表中。通過試驗(yàn)可以看到，對(duì)應(yīng) 成功。 胡勇：鴻達(dá)公司客戶管理系統(tǒng)開發(fā)與實(shí)現(xiàn) 38 2對(duì)于各個(gè)操作，看是否系統(tǒng)做了記錄，打開“系統(tǒng)管理”“查看日志” ， 打開“查看日志”窗口，單擊查看日志按鈕，可以看到我們做了都做了那些操作， 如圖 5.7 所示。 圖 5.7 系統(tǒng)日志查看 5.3 測(cè)試總結(jié) 經(jīng)過以上的測(cè)試，系統(tǒng)總體來說運(yùn)行穩(wěn)定，界面友好性方面都基本能得到滿 足，本系統(tǒng)主要是用 Delphi 做界面，而后臺(tái)用 Sql Server 2005，寫了大量的存儲(chǔ) 過程，這樣的好處很多，比如：如果有的功能改變了，可以不用更改應(yīng)用程序， 而直接去修改存儲(chǔ)過程，并且存儲(chǔ)過程由強(qiáng)大的 MS SQL Server 管理，性能，安 全性方面不容置疑，不僅可以減小網(wǎng)絡(luò)流量，而且在數(shù)據(jù)庫(kù)方面更能體現(xiàn)模塊化 的程序設(shè)計(jì)。 當(dāng)然本系統(tǒng)也有不足之處，比如：數(shù)據(jù)庫(kù)的概念設(shè)計(jì)等不佳，容易產(chǎn)生重復(fù) 數(shù)據(jù)，這些在以后軟件開發(fā)生涯中都會(huì)好好注意的。 四川理工學(xué)院畢業(yè)設(shè)計(jì)（論文） 39 結(jié)束語 經(jīng)過兩個(gè)多月的設(shè)計(jì)和開發(fā)，基于 Delphi 的鴻達(dá)公司客戶管理系統(tǒng)基本開發(fā) 完畢。其功能基本符合需求。鴻達(dá)公司客戶管理系統(tǒng)主要就是管理企業(yè)掌握的客 戶以及相關(guān)的聯(lián)系人，實(shí)現(xiàn)對(duì)客戶和客戶相關(guān)聯(lián)系人進(jìn)行更新、查看、添加操作 讓企業(yè)在第一時(shí)間內(nèi)得到客戶最新的消息。通過所查閱的書刊和網(wǎng)頁(yè)，了解了客 戶管理在現(xiàn)代企業(yè)管理中給企業(yè)所帶來的便利，降低了企業(yè)的成本、提高了效率、 改善了企業(yè)的服務(wù)，客戶管理是以客戶為中心的一個(gè)管理系統(tǒng)。與此同時(shí)在部分 書中得了鴻達(dá)公司客戶管理系統(tǒng)的總體設(shè)計(jì)框架與設(shè)計(jì)思想。由于本課題是面向 企業(yè)內(nèi)部管理人員所設(shè)計(jì)，所以在設(shè)計(jì)數(shù)據(jù)庫(kù)時(shí)作者用 SQL Server2005 來做數(shù)據(jù) 庫(kù)，來適應(yīng)公司里的管理人員、財(cái)務(wù)人員、銷售人員、行政人員操作。 通過對(duì)該系統(tǒng)的開發(fā)，使作者將課本學(xué)習(xí)與實(shí)際應(yīng)用結(jié)合起來，在實(shí)際問題 的解決中，培養(yǎng)獨(dú)立思考的能力和勇于創(chuàng)新的精神，并從中學(xué)到許多知識(shí)，如現(xiàn) 在用 Delphi 開發(fā)一些中小型的軟件基本沒有什么問題，特別是應(yīng)用數(shù)據(jù)庫(kù)的存儲(chǔ) 過程來做相應(yīng)控制的開發(fā)有了更深入的理解，同時(shí)也加深了對(duì)軟件設(shè)計(jì)過程的了 解，為以后的工作打下了堅(jiān)實(shí)的基礎(chǔ)。 但是由于畢業(yè)設(shè)計(jì)時(shí)間較短，所以該系統(tǒng)還有不盡如人意的地方，比如每次 數(shù)據(jù)庫(kù)的關(guān)聯(lián)性設(shè)計(jì)得不佳，界面還有待美化等。 胡勇：鴻達(dá)公司客戶管理系統(tǒng)開發(fā)與實(shí)現(xiàn) 40 致 謝 在本次的畢業(yè)設(shè)計(jì)中，通過指導(dǎo)老師的耐心指導(dǎo)作者學(xué)會(huì)了如何利用 Delphi 開發(fā)一個(gè)中小型系統(tǒng)，感謝指導(dǎo)老師在理論和實(shí)踐上給作者的幫助，老師認(rèn)真負(fù) 責(zé)的工作態(tài)度和嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神都使作者收益匪淺。與此同時(shí)作者也感謝身邊的 同學(xué)和朋友提供給作者的一些資料，在這些資料幫助下這次畢業(yè)設(shè)計(jì)才能夠順利 完成。 另外，還要感謝同學(xué)四年來對(duì)作者的關(guān)心與支持，感謝各位 老師在學(xué)習(xí)期間對(duì)作者的嚴(yán)格要求。同時(shí)也要感謝身邊朋友的熱心幫助，沒 有你們的支持與關(guān)心，就沒有作者今天的畢業(yè)設(shè)計(jì)！ 四川理工學(xué)院畢業(yè)設(shè)計(jì)（論文） 41 參考文獻(xiàn) 1 JSP 數(shù)據(jù)庫(kù)系統(tǒng)開發(fā)完全手冊(cè)M. 北京：人民郵電出版社，2006.3 2 Delphi 數(shù)據(jù)庫(kù)系統(tǒng)開發(fā)完全手冊(cè)M. 北京：人民郵電出版社，2006.3 3 Visual Basic 數(shù)據(jù)庫(kù)系統(tǒng)開發(fā)完全手冊(cè)M. 北京：人民郵電出版社， 2006.3 4 Visual C+數(shù)據(jù)庫(kù)系統(tǒng)開發(fā)完全手冊(cè)M. 北京：人民郵電出版社， 2006.3 5 王國(guó)輝JSP 信息系統(tǒng)開發(fā)實(shí)例精選M. 北京：機(jī)械工業(yè)出版社， 2005.7 6 宋坤Visual Basic 信息系統(tǒng)開發(fā)實(shí)例精選M. 北京： 機(jī)械工業(yè)出版社， 2005.7 7 宋昆SQL Server 數(shù)據(jù)庫(kù)開發(fā)實(shí)例解析M. 北京：機(jī)械工業(yè)出版社， 2006.1 8 李俊民Access 數(shù)據(jù)庫(kù)開發(fā)實(shí)例解析M. 北京： 機(jī)械工業(yè)出版社， 2006.1 9 賽奎春Visual Basic 精彩編程 200 例M. 北京： 機(jī)械工業(yè)出版社， 2003.1 10 李嚴(yán)ASP 數(shù)據(jù)庫(kù)開發(fā)實(shí)例解析M. 北京： 機(jī)械工業(yè)出版社，2004.12 11 宋坤Delphi 工程應(yīng)用與項(xiàng)目實(shí)踐M. 北京： 機(jī)械工業(yè)出版社， 2005.1 12 高春艷VB 工程應(yīng)用與項(xiàng)目實(shí)踐M. 北京： 機(jī)械工業(yè)出版社， 2005.1 13 張雨Visual C工程應(yīng)用與項(xiàng)目實(shí)踐M. 北京： 機(jī)械工業(yè)出版 社， 2005.1 14 陳威JSP 工程應(yīng)用與項(xiàng)目實(shí)踐M. 北京： 機(jī)械工業(yè)出版社，2005.2 15 王國(guó)輝ASP 工程應(yīng)用與項(xiàng)目實(shí)踐M. 北京： 機(jī)械工業(yè)出版社， 2005.4 16 高春艷Visual Basic 信息系統(tǒng)開發(fā)實(shí)例精選M. 北京： 機(jī)械工業(yè)出 版社，2005.7 17 王國(guó)輝ASP 信息系統(tǒng)開發(fā)實(shí)例精選M. 北京： 機(jī)械工業(yè)出版社， 2005.7 胡勇：鴻達(dá)公司客戶管理系統(tǒng)開發(fā)與實(shí)現(xiàn) 42 18 宋坤Delphi 信息系統(tǒng)開發(fā)實(shí)例精選M. 北京： 機(jī)械工業(yè)出版社， 2005.7 19 周桓Visual foxpro 數(shù)據(jù)庫(kù)開發(fā)關(guān)鍵技術(shù)與實(shí)例應(yīng)用M. 北京：人民郵 電出版社，2004.5 20 劉志銘PoweBuilder 數(shù)據(jù)庫(kù)開發(fā)關(guān)鍵技術(shù)與實(shí)例應(yīng)用M. 北京：人民 郵電出版社，2004.5 21 賽奎春Delphi 數(shù)據(jù)庫(kù)開發(fā)關(guān)鍵技術(shù)應(yīng)用M. 北京：人民郵電出版社， 2004.5 22 高春艷VB 數(shù)據(jù)庫(kù)開發(fā)關(guān)鍵技術(shù)應(yīng)用M. 北京：人民郵電出版社， 2004.5 23 明日科技Visual C+ 管理信息系統(tǒng)完整項(xiàng)目實(shí)例剖析M. 北京：人 民郵電出版社，2005.7 24 明日科技Visual Basic 管理信息系統(tǒng)完整項(xiàng)目實(shí)例剖析M. 北京：人 民郵電出版社，2005.7 25 明日科技PowerBuilder 管理信息系統(tǒng)完整項(xiàng)目實(shí)例剖析M. 北京： 人民郵電出版社，2005.7 26 明日科技Visual FoxPro 管理信息系統(tǒng)完整項(xiàng)目實(shí)例剖析M. 北京： 人民郵電出版社，2005.7 27 賽奎春Delphi 數(shù)據(jù)庫(kù)開發(fā)實(shí)例解析M. 北京： 機(jī)械工業(yè)出版社， 2004.2 28 劉志銘Visual Basic 數(shù)據(jù)庫(kù)開發(fā)實(shí)例解析M. 北京： 機(jī)械工業(yè)出版社， 2003.8 29 王晶瑩Visual FoxPro 數(shù)據(jù)庫(kù)開發(fā)實(shí)例解析M. 北京： 機(jī)械工業(yè)出版 社，2003.9 30 華傳銘Power Builder 數(shù)據(jù)庫(kù)開發(fā)實(shí)例解析M. 北京：機(jī)械工業(yè)出版 社 ，2003.9 31 張振坤PowerBuilder 精彩編程 200 例M. 北京： 機(jī)械工業(yè)出版社， 2004.9 32 王國(guó)輝Visual FoxPro 精彩編程 200 例M. 北京： 機(jī)械工業(yè)出版社， 2004.9 四川理工學(xué)院畢業(yè)設(shè)計(jì)（論文） 43 附錄 附錄附錄 A 文件架構(gòu)圖文件架構(gòu)圖 （1）程序主文件架構(gòu)圖，如圖 A1 所示。 為了使讀者能夠?qū)ο到y(tǒng)文件有更清晰的認(rèn)識(shí)及使用，在此設(shè)計(jì)了程序主文件架構(gòu)圖。 圖 A1 主文件架構(gòu)圖 （2）基礎(chǔ)信息維護(hù)文件架構(gòu)圖，如圖 A.2 所示。 圖 A2 基礎(chǔ)信息維護(hù)文件架構(gòu)圖 胡勇：鴻達(dá)公司客戶管理系統(tǒng)開發(fā)與實(shí)現(xiàn) 44 （3）客戶信息維護(hù)文件架構(gòu)圖，如圖 A3 所示。 圖 A3 客戶信息維護(hù)文件架構(gòu)圖 （4）客戶服務(wù)文件架構(gòu)圖，如圖 A4 所示。 圖 A4 客戶服務(wù)文件架構(gòu)圖 （5）系統(tǒng)管理文件架構(gòu)圖，如圖 A5 所示。 圖 A .5 系統(tǒng)管理文件架構(gòu)圖 四川理工學(xué)院畢業(yè)設(shè)計(jì)（論文） 45 附錄附錄 B 主要源程序主要源程序 鴻達(dá)公司客戶管理系統(tǒng)的源程序 聯(lián)系人信息模塊功能代碼： unit p_lxrxx; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, ComCtrls, ToolWin, ImgList, StdCtrls, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGrid, ADODB; type Tfrm_lxrxx = class(TForm) Panel1: TPanel; Panel2: TPanel; ToolBar1: TToolBar; btnAdd: TToolButton; btnUpdate: TToolButton; btnDelete: TToolButton; btnSave: TToolButton; btnCancel: TToolButton; btnQuery: TToolButton; ToolButton7: TToolButton; btnFirst: TToolButton; btnPrior: TToolButton; btnNext: TToolButton; btnLast: TToolButton; ToolButton12: TToolButton; btnClose: TToolButton; ImageList1: TImageList; PageControl1: TPageControl; TabSheet1: TTabSheet; TabSheet2: TTabSheet; Panel3: TPanel; Label1: TLabel; 胡勇：鴻達(dá)公司客戶管理系統(tǒng)開發(fā)與實(shí)現(xiàn) 46 Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Label7: TLabel; Label8: TLabel; Label9: TLabel; Label10: TLabel; Label11: TLabel; Label12: TLabel; Label13: TLabel; Label14: TLabel; edLxrId: TEdit; edLxrName: TEdit; dtpBirthday: TDateTimePicker; edAge: TEdit; edOfficeTel: TEdit; edLxrZw: TEdit; edSj: TEdit; edEmail: TEdit; edBz: TEdit; meGrjj: TMemo; edXxdjr: TEdit; dtpDjDate: TDateTimePicker; cbSex: TComboBox; edClientName: TEdit; lxrxxDs: TDataSource; cxLxrxxDBTableView1: TcxGridDBTableView; cxLxrxxLevel1: TcxGridLevel; cxLxrxx: TcxGrid; cxLxrxxDBTableView1DBColumn1: TcxGridDBColumn; cxLxrxxDBTableView1DBColumn2: TcxGridDBColumn; cxLxrxxDBTableView1DBColumn3: TcxGridDBColumn; cxLxrxxDBTableView1DBColumn4: TcxGridDBColumn; cxLxrxxDBTableView1DBColumn5: TcxGridDBColumn; cxLxrxxDBTableView1DBColumn6: TcxGridDBColumn; cxLxrxxDBTableView1DBColumn7: TcxGridDBColumn; 四川理工學(xué)院畢業(yè)設(shè)計(jì)（論文） 47 cxLxrxxDBTableView1DBColumn8: TcxGridDBColumn; cxLxrxxDBTableView1DBColumn9: TcxGridDBColumn; cxLxrxxDBTableView1DBColumn10: TcxGridDBColumn; cxLxrxxDBTableView1DBColumn11: TcxGridDBColumn; cxLxrxxDBTableView1DBColumn12: TcxGridDBColumn; cxLxrxxDBTableView1DBColumn13: TcxGridDBColumn; cxLxrxxDBTableView1DBColumn14: TcxGridDBColumn; sp_se_lxrxxId: TADOStoredProc; procedure btnAddClick(Sender: TObject); procedure btnUpdateClick(Sender: TObject); procedure btnDeleteClick(Sender: TObject); procedure btnCancelClick(Sender: TObject); procedure FormShow(Sender: TObject); procedure btnSaveClick(Sender: TObject); procedure btnFirstClick(Sender: TObject); procedure btnPriorClick(Sender: TObject); procedure btnNextClick(Sender: TObject); procedure btnLastClick(Sender: TObject); procedure btnCloseClick(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure edSjKeyPress(Sender: TObject; var Key: Char); procedure edClientNameKeyPress(Sender: TObject; var Key: Char); procedure dtpBirthdayChange(Sender: TObject); private Private declarations public xgbz : Integer; /全局變量 1：增加數(shù)據(jù)，2：修改數(shù)據(jù)，3：刪除數(shù)據(jù) Public declarations end; var frm_lxrxx: Tfrm_lxrxx; implementation uses dm; /引用數(shù)據(jù)模塊 $R *.dfm /增加按鈕單擊事件代碼 procedure Tfrm_lxrxx.btnAddClick(Sender: TObject); var 胡勇：鴻達(dá)公司客戶管理系統(tǒng)開發(fā)與實(shí)現(xiàn) 48 iTemp : Integer; begin xgbz := 1; /增加數(shù)據(jù). btnAdd.Enabled := False; /增加按鈕狀態(tài)不可用 btnUpdate.Enabled := False; btnDelete.Enabled := False; btnSave.Enabled := True; btnCancel.Enabled := True; btnQuery.Enabled := False; btnFirst.Enabled := False; btnPrior.Enabled := False; btnNext.Enabled := False; btnLast.Enabled := False; for iTemp := ComponentCount - 1 downto 0 do /使所有文本框?yàn)榭? begin if ComponentsiTemp is TEdit then begin TEdit(ComponentsiTemp).Clear; end; end; meGrjj.Clear; edLxrName.SetFocus; with sp_se_lxrxxId do begin Close; Open; edLxrId.Text:=LX+FormatDateTime(yyyymm,Now)+