(論文)客戶管理系統(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)一步展開，才能對客戶之 間發(fā)生的活動、機(jī)會、銷售、費(fèi)用等進(jìn)行詳細(xì)管理。本課題實(shí)現(xiàn)了基礎(chǔ)信息維護(hù) （包括：域信息設(shè)置、企業(yè)性質(zhì)設(shè)置、企業(yè)類型設(shè)置、企業(yè)資信設(shè)置、客戶級別 設(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ù)庫設(shè)計(jì) 7 3.1 數(shù)據(jù)庫概要設(shè)計(jì) 7 3.2 數(shù)據(jù)庫物理設(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ù)庫配置模塊 .29 第 5 章 系統(tǒng)測試 .31 5.1 鴻達(dá)公司客戶管理系統(tǒng)單元測試 .31 5.2 鴻達(dá)公司客戶管理系統(tǒng)集成測試 .36 5.3 測試總結(jié) .37 結(jié)束語 38 致 謝 .39 參考文獻(xiàn) 40 附錄 42 附錄 A 文件架構(gòu)圖 .42 附錄 B 主要源程序 .44 四川理工學(xué)院畢業(yè)設(shè)計(jì)（論文） 1 引 言 在全球一體化、企業(yè)互動和以 INTERNET 為核心的時代，企業(yè)面臨著如何發(fā) 展?jié)撛诳蛻?，如何將社會關(guān)系資源變?yōu)槠髽I(yè)的銷售和發(fā)展資源的一系列難辦棘手 的問題。在上述背景下，鴻達(dá)公司客戶管理系統(tǒng)應(yīng)運(yùn)而生。本系統(tǒng)本著把握客戶 多樣化和個性化的特點(diǎn)；以最快的速度響應(yīng)客戶需求；吸引新客戶，留住老客戶 為原則。即從過去的以產(chǎn)品（Product-Centric）為中心的管理策略轉(zhuǎn)向以客戶為中 心的(Customer-Centric)管理理念。系統(tǒng)旨在改善企業(yè)與客戶之間的關(guān)系，建立新 型的運(yùn)營機(jī)制。本系統(tǒng)以企業(yè)級的整體客戶管理為解決方案，幫助企業(yè)建立統(tǒng)一 的客戶資源、拓展銷售渠道、尋求最佳市場方式、規(guī)范企業(yè)銷售流程、提供科學(xué) 分析方法，建立持久的客戶體系。其大容量客戶數(shù)據(jù)處理能力，讓您的企業(yè)從多 渠道收集信息，快速發(fā)現(xiàn)核心客戶和潛在伙伴，進(jìn)而給企業(yè)帶來無限的利潤。 以客戶為中心的理念在國外興起于 20 世紀(jì) 50 年代，當(dāng)時很多企業(yè)寄希望于 通過改進(jìn)技術(shù)、壓縮生產(chǎn)周期、改善內(nèi)部資源管理來提高生產(chǎn)增長率和利潤，但 事實(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)我們需要查找一個 客戶的電話號碼時，只需敲幾下鍵盤，就可以看到客戶的詳細(xì)資料（包括姓名、 公司名稱、電話、E-mail 等） ，所有這些都是一個完善的鴻達(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)中各個組成模塊間的聯(lián)系。劃分功能模塊，將軟件功能需求分配給所有單元 模塊。下一步工作就是在上述結(jié)果基礎(chǔ)上，考慮怎樣實(shí)現(xiàn)這個軟件系統(tǒng)。 1.1 需求分析 根據(jù)市場的需求，要求系統(tǒng)具有以下功能： 完全人性化設(shè)計(jì)，無需專業(yè)人士指導(dǎo)，即可使用該系統(tǒng)。 由于該系統(tǒng)的使用對象多，要求有較好的權(quán)限管理。 系統(tǒng)具有數(shù)據(jù)備份及數(shù)據(jù)還原功能。能夠保證系統(tǒng)數(shù)據(jù)的安全性。 方便的全方位的數(shù)據(jù)查詢。 強(qiáng)大的報(bào)表打印功能。 在相應(yīng)的權(quán)限下，刪除數(shù)據(jù)方便簡單，數(shù)據(jù)穩(wěn)定性好。 強(qiáng)大的圖表分析功能。 退出系統(tǒng)。 1.2 可行性分析 當(dāng)接到客戶管理系統(tǒng)開發(fā)任務(wù)，就進(jìn)入客戶管理開發(fā)的第一個階段，即進(jìn)行 可行性的研究。并不是所有問題具有簡單的解決辦法，許多問題不能在預(yù)定的規(guī) 模之內(nèi)解決。因此通過可行性的研究分析可以知道問題。 有可行性的解決方法，可以避免人力、物力和才力的浪費(fèi)。在初步調(diào)查的基 礎(chǔ)上就可以提出系統(tǒng)目標(biāo)，這是系統(tǒng)開發(fā)和評價的依據(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)的提法不盡相同，例如： 提高客戶管理效率，減輕勞動強(qiáng)度； 提高客戶和聯(lián)系人信息處理速度和準(zhǔn)確性； 為客戶管理人員提供更方便、科學(xué)的服務(wù)項(xiàng)目。 系統(tǒng)的目標(biāo)確定后，就可以從以下兩方面對能否實(shí)現(xiàn)新系統(tǒng)目標(biāo)進(jìn)行可行性 分析： 四川理工學(xué)院畢業(yè)設(shè)計(jì)（論文） 3 一技術(shù)可行性 Borland 公司的 Delphi 是一個非常優(yōu)秀的數(shù)據(jù)庫應(yīng)用系統(tǒng)前端開發(fā)工具。這 是由于 Borland Delphi 自 1995 年 2 月誕生 Version 1.0 以后，1996 年 3 月， Borland Delphi ClientServer Suite 2.0 以其高效的數(shù)據(jù)重用功能得以在美國國家 軟件測試實(shí)驗(yàn)室進(jìn)行的軟件評估中獲得了最高評價。隨后，Borland 又推出 Delnhi 的第三代版本Delphi 3.0 多層 ClientServer 的 32 位快速開發(fā)工具。 數(shù)據(jù)庫應(yīng)用系統(tǒng)是一種應(yīng)用計(jì)算機(jī)技術(shù)完成數(shù)據(jù)處理的計(jì)算機(jī)應(yīng)用系統(tǒng)，數(shù) 據(jù)處理則指對各種形式的數(shù)據(jù)進(jìn)行采集、存儲、加工和傳播的一系列活動的總和。 進(jìn)行數(shù)據(jù)處理的目的是為了從大量原始數(shù)據(jù)中獲得對人類社會活動有價值的信息， 以作為行動和采取對策的依據(jù)。 因此，開發(fā)數(shù)據(jù)庫應(yīng)用系統(tǒng)需要選擇一種數(shù)據(jù)庫管理系統(tǒng)；然后，在其支持 之下建立數(shù)據(jù)庫；最后，使用一種開發(fā)工具編制數(shù)據(jù)庫應(yīng)用程序。鴻達(dá)公司客戶 管理系統(tǒng)所采用的 Borland Delphi 就是一種可用于編制數(shù)據(jù)庫應(yīng)用程序的開發(fā)工 具。 采用二層 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 等等。鴻達(dá)公司客戶管理系統(tǒng)將以 Microsoft SQL Server 作為數(shù)據(jù)庫管理信息系統(tǒng)。 所謂 Delphi 數(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)行，提供兩個版本供選擇，標(biāo)準(zhǔn)版本和客戶/服務(wù)器版 本。應(yīng)用 Delphi 開發(fā)數(shù)據(jù)庫應(yīng)用系統(tǒng)過程中，需要設(shè)置數(shù)據(jù)庫訪問和操作功能時， 最基本的方法是使用 Dephi 提供的數(shù)據(jù)庫操作控件。應(yīng)用這些數(shù)據(jù)庫操作控件， 可以構(gòu)建形成最基本的 Dephi 數(shù)據(jù)庫應(yīng)用系統(tǒng)功能。 常用的數(shù)據(jù)庫操作控件分別位于 Borland Dephi 可視化設(shè)計(jì)界面的三個組件頁 面上：ADO 組件頁（ADO） 、數(shù)據(jù)訪問組件頁（Data Access）和數(shù)據(jù)控制組件頁 （Data Controls） 。每一個組件頁上匯集著一些具有相關(guān)功能的控件，當(dāng)需要選用 某一個控件時，應(yīng)該先選定對應(yīng)的組件頁，然后在組件頁上選取所需要的控件。 胡勇：鴻達(dá)公司客戶管理系統(tǒng)開發(fā)與實(shí)現(xiàn) 4 本系統(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ù)庫管理功能， 是目前世界上的幾個主流數(shù)據(jù)庫管理系統(tǒng)之一。 二運(yùn)行可行性 系統(tǒng)的研制和開發(fā)是充分得考慮工作人員對人事信息的易于管理，管理者方 便查詢設(shè)備信息效率。從而在開發(fā)時我們用可視化界面，用戶只需根據(jù)界面上的 指示進(jìn)行操作。 四川理工學(xué)院畢業(yè)設(shè)計(jì)（論文） 5 第 2 章 系統(tǒng)設(shè)計(jì) 2.1 設(shè)計(jì)目標(biāo) 本系統(tǒng)屬于小型的數(shù)據(jù)庫系統(tǒng)，為了對中小型企業(yè)客戶的管理，實(shí)現(xiàn)一些初 步的計(jì)算機(jī)化的管理。通過本系統(tǒng)可以達(dá)到以下目標(biāo)： 靈活的運(yùn)用表格批量輸入數(shù)據(jù)，使信息傳遞更快捷。 系統(tǒng)采用人機(jī)對話方式，界面美觀友好、信息查詢靈活、方便、快捷、準(zhǔn)確、 數(shù)據(jù)存儲安全可靠。 實(shí)現(xiàn)各種記錄查詢。 操作員可以隨時修改自己的口令。 管理員可以設(shè)置操作員的權(quán)限 對用戶輸入的數(shù)據(jù)，系統(tǒng)進(jìn)行嚴(yán)格的數(shù)據(jù)檢驗(yàn)，盡可能排除人為的錯誤。 數(shù)據(jù)保密性強(qiáng)，為每個用戶設(shè)置權(quán)限級別。 系統(tǒng)最大限度地實(shí)現(xiàn)了易安裝性、易維護(hù)性和易操作性。 2.2 開發(fā)及運(yùn)行環(huán)境 系統(tǒng)開發(fā)平臺：Delphi 7.0。 數(shù)據(jù)庫管理系統(tǒng)軟件：SQL Server 2005。 運(yùn)行平臺：Windows xp/ Windows 2000。 分辨率：最佳效果 1024*768。 2.3 項(xiàng)目規(guī)劃 鴻達(dá)公司客戶管理系統(tǒng)是一個典型的數(shù)據(jù)庫開發(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è) 置、客戶級別設(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ù) 備忘、國內(nèi)主要城市區(qū)號郵編查詢。 系統(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ù)庫設(shè)計(jì) 數(shù)據(jù)庫設(shè)計(jì)是整個軟件開發(fā)的核心，數(shù)據(jù)庫設(shè)計(jì)的合理否關(guān)系到整個軟件的 運(yùn)行效率以及后期的可維護(hù)性與可操作性。數(shù)據(jù)庫設(shè)計(jì)主要分為：數(shù)據(jù)庫的概要 設(shè)計(jì)與數(shù)據(jù)庫的物理設(shè)計(jì)兩個方面。 3.1 數(shù)據(jù)庫概要設(shè)計(jì) 在信息世界中，信息從客觀事物出發(fā)流經(jīng)數(shù)據(jù)庫，通過決策機(jī)構(gòu)最后又回到 客觀世界，信息的這一循環(huán)經(jīng)歷了三個領(lǐng)域：信息世界，數(shù)據(jù)世界，現(xiàn)實(shí)世界。 現(xiàn)實(shí)世界的事物反映到人的頭腦中，人的大腦對它有個認(rèn)識過程，經(jīng)過分析（選 擇、命名、分類等）進(jìn)入信息世界。這些信息再進(jìn)一步加工、編碼，然后進(jìn)入數(shù) 據(jù)世界，而軟件系統(tǒng)的開發(fā)工作需要考慮這兩個方面的問題，也就是要考慮系統(tǒng) 開發(fā)所需要的數(shù)據(jù)，以及如何對這些數(shù)據(jù)進(jìn)行操作。這兩個問題貫穿了整個軟件 系統(tǒng)的開發(fā)過程，這也就是數(shù)據(jù)庫的設(shè)計(jì)問題，軟件設(shè)計(jì)的一個核心。 下面給出鴻達(dá)公司客戶管理系統(tǒng)的數(shù)據(jù)庫概念模型（使用 Power Designer 設(shè) 計(jì)）： 圖 3.1 聯(lián)系人信息，客戶反饋與客戶滿意度實(shí)體圖 圖 3.2 客戶反饋與客戶投訴實(shí)體圖 聯(lián)系人信息 聯(lián)系人編號 企業(yè)名稱 聯(lián)系人姓名 聯(lián)系人性別 出生年月 聯(lián)系人年齡 聯(lián)系人職位 聯(lián)系人辦公電話 聯(lián)系人郵件 聯(lián)系人手機(jī) 個人簡介 登記日期 信息登記人 備注 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(操作員名稱，密碼或操作員級別不正確+#13+請重新 輸入.); 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ù)庫配置模塊 “數(shù)據(jù)庫配置模塊”主要完成的功能是當(dāng)用戶在不同的計(jì)算機(jī)上附加上鴻達(dá) 公司客戶管理系統(tǒng)的數(shù)據(jù)庫后，不用去改源代碼來連接數(shù)據(jù)庫，軟件在啟動時會 自動檢測，若初始用戶與密碼還有主機(jī)名連接不到本機(jī)數(shù)據(jù)庫，就會彈出這個窗 口，讓用戶輸入本機(jī)數(shù)據(jù)庫的用戶名與密碼以及數(shù)據(jù)庫服務(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(保存成功，請重新運(yùn)行程序！,提示信息 ,0+64); application.Terminate; end; 胡勇：鴻達(dá)公司客戶管理系統(tǒng)開發(fā)與實(shí)現(xiàn) 32 第 5 章 系統(tǒng)測試 當(dāng)一個系統(tǒng)所有分析與編碼完成后就進(jìn)入了系統(tǒng)的測試階段了，作為一個成 品系統(tǒng),系統(tǒng)的測試也是一個關(guān)鍵的環(huán)節(jié),在測試階段,我們將盡可能的找出系統(tǒng)的 邏輯與語法錯誤，修補(bǔ)系統(tǒng)存在的 Bug，做好系統(tǒng)的測試工作才能保證讓用戶用 到一個安全、快速、便捷與高效的客戶管理系統(tǒng)。 鴻達(dá)公司客戶管理系統(tǒng)測試的主要內(nèi)容為：系統(tǒng)的單元測試與整個系統(tǒng)的集 成測試。 系統(tǒng)的單元測試主要目的是： 1.測試各個功能模塊是否運(yùn)行正確。 2.各個模塊功能是否已經(jīng)完全實(shí)現(xiàn)。 系統(tǒng)的集成測試主要目的是： 在運(yùn)行可能是不完整的應(yīng)用，保證軟件單元被結(jié)合后能正常操作的測試執(zhí)行 的階段。 5.1 鴻達(dá)公司客戶管理系統(tǒng)單元測試 單元測試集中檢測軟件設(shè)計(jì)的最小單元模塊，通常單元測試和編碼屬于 軟件過程的同一個階段.在編寫出源代碼并通過了編譯的語法檢查后，就可以用詳 細(xì)設(shè)計(jì)描述作指南，對重要的執(zhí)行通路進(jìn)行測試，以便發(fā)現(xiàn)模塊內(nèi)部的錯誤。可 以應(yīng)用人工測試和計(jì)算機(jī)測試這樣兩種不同類型的測試方法，完成單元測試工作。 這兩種測試方法各有所長，互相補(bǔ)充，通常單元測試主要使用白盒測試技術(shù)。而 且對多個模塊的測試可以并行進(jìn)行。 當(dāng)然對于本系統(tǒng),我們采用人工測試方法進(jìn)行單元測試，由于模塊太多，要是 一一在此都體現(xiàn)出測試報(bào)告，有點(diǎn)不太合適，所以只在此列三個模塊的測試報(bào)告。 一.系統(tǒng)登錄測試。 主要目的：測試是否可以正確登錄，如果可以，那么正確登錄后,系統(tǒng)是否可 以通過登錄時用戶所選擇的”級別”而進(jìn)行相應(yīng)的權(quán)限控制。 1以超級管理員登錄系統(tǒng)。 用戶名:hy，密碼:123，級別:高級用戶，如圖 5.1 系統(tǒng)登錄測試，進(jìn)入系統(tǒng)后 測試各個模塊是否都擁有相應(yīng)權(quán)限. 四川理工學(xué)院畢業(yè)設(shè)計(jì)（論文） 33 圖 5.1 系統(tǒng)登錄測試 通過各個模塊測試，可知該用戶擁有所有權(quán)限. 2.以普通用戶登錄系統(tǒng) 用戶名:test，密碼:123456，級別：普通用戶，進(jìn)行系統(tǒng)后，選擇一個功能模 塊，系統(tǒng)就會提示用戶“對不起，你的權(quán)限不夠，請用管理員聯(lián)系!”的提示信息， 如圖 5.2 普通用戶登錄測試： 圖 5.2 普通用戶登錄測試 胡勇：鴻達(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ì)編號”在自動增加，并用戶不可更改，這樣 就可以保證數(shù)據(jù)的一至性，防止用戶錯誤的輸入，而使軟件的可用性與穩(wěn)定性降 低。 輸入“企業(yè)性質(zhì)名稱”與“備注信息”后單擊“保存”按鈕后，其它相應(yīng)按 鈕變?yōu)榭捎脿顟B(tài)，并且提示用戶“保存成功” ，符合需求分析時的要求。如圖 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ì)的查詢 在“請選擇企業(yè)性質(zhì)名稱”的列表中，選擇一條“性質(zhì)名稱” ，單擊”查詢”按 鈕后，就會在“企業(yè)性質(zhì)設(shè)置”中相應(yīng)其對應(yīng)的信息，同時”查詢”提示框消失.如 果用戶沒有選擇已有的“企業(yè)性質(zhì)名稱” ，而自己輸入一個不存在的“企業(yè)性質(zhì) 名稱” ，那么系統(tǒng)就會做出相應(yīng)的提示，并且把數(shù)據(jù)移動到第一條記錄以便顯示， 如圖 5.5 企業(yè)性質(zhì)查詢不存在： 胡勇：鴻達(dá)公司客戶管理系統(tǒng)開發(fā)與實(shí)現(xiàn) 36 圖 5.5 企業(yè)性質(zhì)查詢不存在 5.“第一條”功能 單擊“第一條”按鈕，就會顯示”第一條“企業(yè)性質(zhì)”信息，如果已經(jīng)到第 一條，則所顯數(shù)據(jù)就不會有變化。 6.“上一條”功能 單擊“上一條”按鈕，如果當(dāng)前數(shù)據(jù)不是第一條，就會向上移動一條數(shù)據(jù)。 7.“下一條”功能 單擊“下一條”按鈕，如果當(dāng)前數(shù)據(jù)不是最后一條，就會向后移動一條數(shù)據(jù)。 8.“末一條”功能 單擊”末一條”按鈕，就會顯示最后一條“企業(yè)性質(zhì)”信息，如果已經(jīng)到了最 后一條，則所顯信息不會變化。 三.“聯(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)系人比較多，就會分布顯示，如圖 5.6 聯(lián)系人信息報(bào)表。 圖 5.6 聯(lián)系人信息報(bào)表 5.2 鴻達(dá)公司客戶管理系統(tǒng)集成測試 集成測試是測試和組裝軟件的系統(tǒng)化技術(shù)，例如，子系統(tǒng)測試限使在把模塊 按照設(shè)計(jì)要求組裝起來的同時進(jìn)行測試，主要目標(biāo)是發(fā)現(xiàn)與接口有關(guān)的問題(系統(tǒng) 測試與此類似)。例如，數(shù)據(jù)穿過接口時可能丟失；一個模塊對另一個模塊可能由 于疏忽而造成有害影響；把子功能組合起來可能不產(chǎn)生預(yù)期的主功能；個別看來 是可以接受的誤差可能積累到不能接受的程度；全程數(shù)據(jù)結(jié)構(gòu)可能有問題等等。 不幸的是，可能發(fā)生的接口問題多得不勝枚舉。 通過前面的模塊測試，可以發(fā)現(xiàn)軟件的各個模塊的功能都已實(shí)現(xiàn)，并錯誤提 示以及用戶的友好性方面做得都比較不錯，現(xiàn)在就看看各個模塊的功能組合是否 完美。 1.添加一條“客戶信息” ，保存成功后，再在“打印報(bào)表”中選擇“客戶信息 報(bào)表” ，看看剛剛添加的客戶信息是否存在在報(bào)表中。通過試驗(yàn)可以看到，對應(yīng) 成功。 胡勇：鴻達(dá)公司客戶管理系統(tǒng)開發(fā)與實(shí)現(xiàn) 38 2對于各個操作，看是否系統(tǒng)做了記錄，打開“系統(tǒng)管理”“查看日志” ， 打開“查看日志”窗口，單擊查看日志按鈕，可以看到我們做了都做了那些操作， 如圖 5.7 所示。 圖 5.7 系統(tǒng)日志查看 5.3 測試總結(jié) 經(jīng)過以上的測試，系統(tǒng)總體來說運(yùn)行穩(wěn)定，界面友好性方面都基本能得到滿 足，本系統(tǒng)主要是用 Delphi 做界面，而后臺用 Sql Server 2005，寫了大量的存儲 過程，這樣的好處很多，比如：如果有的功能改變了，可以不用更改應(yīng)用程序， 而直接去修改存儲過程，并且存儲過程由強(qiáng)大的 MS SQL Server 管理，性能，安 全性方面不容置疑，不僅可以減小網(wǎng)絡(luò)流量，而且在數(shù)據(jù)庫方面更能體現(xiàn)模塊化 的程序設(shè)計(jì)。 當(dāng)然本系統(tǒng)也有不足之處，比如：數(shù)據(jù)庫的概念設(shè)計(jì)等不佳，容易產(chǎn)生重復(fù) 數(shù)據(jù)，這些在以后軟件開發(fā)生涯中都會好好注意的。 四川理工學(xué)院畢業(yè)設(shè)計(jì)（論文） 39 結(jié)束語 經(jīng)過兩個多月的設(shè)計(jì)和開發(fā)，基于 Delphi 的鴻達(dá)公司客戶管理系統(tǒng)基本開發(fā) 完畢。其功能基本符合需求。鴻達(dá)公司客戶管理系統(tǒng)主要就是管理企業(yè)掌握的客 戶以及相關(guān)的聯(lián)系人，實(shí)現(xiàn)對客戶和客戶相關(guān)聯(lián)系人進(jìn)行更新、查看、添加操作 讓企業(yè)在第一時間內(nèi)得到客戶最新的消息。通過所查閱的書刊和網(wǎng)頁，了解了客 戶管理在現(xiàn)代企業(yè)管理中給企業(yè)所帶來的便利，降低了企業(yè)的成本、提高了效率、 改善了企業(yè)的服務(wù)，客戶管理是以客戶為中心的一個管理系統(tǒng)。與此同時在部分 書中得了鴻達(dá)公司客戶管理系統(tǒng)的總體設(shè)計(jì)框架與設(shè)計(jì)思想。由于本課題是面向 企業(yè)內(nèi)部管理人員所設(shè)計(jì)，所以在設(shè)計(jì)數(shù)據(jù)庫時作者用 SQL Server2005 來做數(shù)據(jù) 庫，來適應(yīng)公司里的管理人員、財(cái)務(wù)人員、銷售人員、行政人員操作。 通過對該系統(tǒng)的開發(fā)，使作者將課本學(xué)習(xí)與實(shí)際應(yīng)用結(jié)合起來，在實(shí)際問題 的解決中，培養(yǎng)獨(dú)立思考的能力和勇于創(chuàng)新的精神，并從中學(xué)到許多知識，如現(xiàn) 在用 Delphi 開發(fā)一些中小型的軟件基本沒有什么問題，特別是應(yīng)用數(shù)據(jù)庫的存儲 過程來做相應(yīng)控制的開發(fā)有了更深入的理解，同時也加深了對軟件設(shè)計(jì)過程的了 解，為以后的工作打下了堅(jiān)實(shí)的基礎(chǔ)。 但是由于畢業(yè)設(shè)計(jì)時間較短，所以該系統(tǒng)還有不盡如人意的地方，比如每次 數(shù)據(jù)庫的關(guān)聯(lián)性設(shè)計(jì)得不佳，界面還有待美化等。 胡勇：鴻達(dá)公司客戶管理系統(tǒng)開發(fā)與實(shí)現(xiàn) 40 致 謝 在本次的畢業(yè)設(shè)計(jì)中，通過指導(dǎo)老師的耐心指導(dǎo)作者學(xué)會了如何利用 Delphi 開發(fā)一個中小型系統(tǒng)，感謝指導(dǎo)老師在理論和實(shí)踐上給作者的幫助，老師認(rèn)真負(fù) 責(zé)的工作態(tài)度和嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神都使作者收益匪淺。與此同時作者也感謝身邊的 同學(xué)和朋友提供給作者的一些資料，在這些資料幫助下這次畢業(yè)設(shè)計(jì)才能夠順利 完成。 另外，還要感謝同學(xué)四年來對作者的關(guān)心與支持，感謝各位 老師在學(xué)習(xí)期間對作者的嚴(yán)格要求。同時也要感謝身邊朋友的熱心幫助，沒 有你們的支持與關(guān)心，就沒有作者今天的畢業(yè)設(shè)計(jì)！ 四川理工學(xué)院畢業(yè)設(shè)計(jì)（論文） 41 參考文獻(xiàn) 1 JSP 數(shù)據(jù)庫系統(tǒng)開發(fā)完全手冊M. 北京：人民郵電出版社，2006.3 2 Delphi 數(shù)據(jù)庫系統(tǒng)開發(fā)完全手冊M. 北京：人民郵電出版社，2006.3 3 Visual Basic 數(shù)據(jù)庫系統(tǒng)開發(fā)完全手冊M. 北京：人民郵電出版社， 2006.3 4 Visual C+數(shù)據(jù)庫系統(tǒng)開發(fā)完全手冊M. 北京：人民郵電出版社， 2006.3 5 王國輝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ù)庫開發(fā)實(shí)例解析M. 北京：機(jī)械工業(yè)出版社， 2006.1 8 李俊民Access 數(shù)據(jù)庫開發(fā)實(shí)例解析M. 北京： 機(jī)械工業(yè)出版社， 2006.1 9 賽奎春Visual Basic 精彩編程 200 例M. 北京： 機(jī)械工業(yè)出版社， 2003.1 10 李嚴(yán)ASP 數(shù)據(jù)庫開發(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 王國輝ASP 工程應(yīng)用與項(xiàng)目實(shí)踐M. 北京： 機(jī)械工業(yè)出版社， 2005.4 16 高春艷Visual Basic 信息系統(tǒng)開發(fā)實(shí)例精選M. 北京： 機(jī)械工業(yè)出 版社，2005.7 17 王國輝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ù)庫開發(fā)關(guān)鍵技術(shù)與實(shí)例應(yīng)用M. 北京：人民郵 電出版社，2004.5 20 劉志銘PoweBuilder 數(shù)據(jù)庫開發(fā)關(guān)鍵技術(shù)與實(shí)例應(yīng)用M. 北京：人民 郵電出版社，2004.5 21 賽奎春Delphi 數(shù)據(jù)庫開發(fā)關(guān)鍵技術(shù)應(yīng)用M. 北京：人民郵電出版社， 2004.5 22 高春艷VB 數(shù)據(jù)庫開發(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ù)庫開發(fā)實(shí)例解析M. 北京： 機(jī)械工業(yè)出版社， 2004.2 28 劉志銘Visual Basic 數(shù)據(jù)庫開發(fā)實(shí)例解析M. 北京： 機(jī)械工業(yè)出版社， 2003.8 29 王晶瑩Visual FoxPro 數(shù)據(jù)庫開發(fā)實(shí)例解析M. 北京： 機(jī)械工業(yè)出版 社，2003.9 30 華傳銘Power Builder 數(shù)據(jù)庫開發(fā)實(shí)例解析M. 北京：機(jī)械工業(yè)出版 社 ，2003.9 31 張振坤PowerBuilder 精彩編程 200 例M. 北京： 機(jī)械工業(yè)出版社， 2004.9 32 王國輝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è)計(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)+