I 鴻達公司客戶管理系統開發與實現 摘 要 本課題所設計的系統能夠統一管理與企業相關的客戶及其聯系人信息。客戶 與相關聯系人信息是企業最重要的資源之一，通過客戶管理系統能夠有效地管理 客戶信息，提高企業客戶管理效率。在此基礎之上，進一步展開，才能對客戶之 間發生的活動、機會、銷售、費用等進行詳細管理。本課題實現了基礎信息維護 （包括：域信息設置、企業性質設置、企業類型設置、企業資信設置、客戶級別 設置、客戶滿意程度設置） ；客戶信息維護（包括：客戶信息、聯系人信息、業 務往來、發送郵件） ；客戶服務(包括客戶反饋、客戶投訴、客戶反饋滿意程度分 析、客戶投訴滿意程度分析） ；客戶信息查詢（包括：客戶信息報表、聯系人信 息報表、業務往來報表、客戶反饋報表、客戶投拆報表） ；輔助工具以及管理模 塊，真正實現了客戶資源管理的一體化。 關鍵詞：CRM；客戶管理系統；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 章 系統分析 2 1.1 需求分析 2 1.2 可行性分析 2 第 2 章 系統設計 5 2.1 設計目標 5 2.2 開發及運行環境 5 2.3 項目規劃 5 第 3 章 系統數據庫設計 7 3.1 數據庫概要設計 7 3.2 數據庫物理設計 9 第 4 章 主要功能模塊設計 .17 4.1 主窗體設計 .17 4.2 數據模塊 .20 4.3 登錄模塊設計 .21 4.4 客戶信息模塊 .24 4.5 發送郵件模塊 .28 4.6 據庫配置模塊 .29 第 5 章 系統測試 .31 5.1 鴻達公司客戶管理系統單元測試 .31 5.2 鴻達公司客戶管理系統集成測試 .36 5.3 測試總結 .37 結束語 38 致 謝 .39 參考文獻 40 附錄 42 附錄 A 文件架構圖 .42 附錄 B 主要源程序 .44 四川理工學院畢業設計（論文） 1 引 言 在全球一體化、企業互動和以 INTERNET 為核心的時代，企業面臨著如何發 展潛在客戶，如何將社會關系資源變為企業的銷售和發展資源的一系列難辦棘手 的問題。在上述背景下，鴻達公司客戶管理系統應運而生。本系統本著把握客戶 多樣化和個性化的特點；以最快的速度響應客戶需求；吸引新客戶，留住老客戶 為原則。即從過去的以產品（Product-Centric）為中心的管理策略轉向以客戶為中 心的(Customer-Centric)管理理念。系統旨在改善企業與客戶之間的關系，建立新 型的運營機制。本系統以企業級的整體客戶管理為解決方案，幫助企業建立統一 的客戶資源、拓展銷售渠道、尋求最佳市場方式、規范企業銷售流程、提供科學 分析方法，建立持久的客戶體系。其大容量客戶數據處理能力，讓您的企業從多 渠道收集信息，快速發現核心客戶和潛在伙伴，進而給企業帶來無限的利潤。 以客戶為中心的理念在國外興起于 20 世紀 50 年代，當時很多企業寄希望于 通過改進技術、壓縮生產周期、改善內部資源管理來提高生產增長率和利潤，但 事實上見效甚微。這樣企業開始從強調降低經營成本的供應方發展策略轉向了需 求方策略。所謂需求方策略就是指與客戶聯系更加緊密，從客戶關系方面挖掘新 能源的策略，CRM 應運而生。所不同的是，現在計算機可以幫助人們實現這些 看似并不復雜而實際操作起來非常繁瑣的工作。試想一下，當我們需要查找一個 客戶的電話號碼時，只需敲幾下鍵盤，就可以看到客戶的詳細資料（包括姓名、 公司名稱、電話、E-mail 等） ，所有這些都是一個完善的鴻達公司客戶管理系統 所能完成的。 胡勇：鴻達公司客戶管理系統開發與實現 2 第 1 章 系統分析 現已確定系統開發的目標，系統需求規格。確定軟件系統的總體結構，給出 系統中各個組成模塊間的聯系。劃分功能模塊，將軟件功能需求分配給所有單元 模塊。下一步工作就是在上述結果基礎上，考慮怎樣實現這個軟件系統。 1.1 需求分析 根據市場的需求，要求系統具有以下功能： 完全人性化設計，無需專業人士指導，即可使用該系統。 由于該系統的使用對象多，要求有較好的權限管理。 系統具有數據備份及數據還原功能。能夠保證系統數據的安全性。 方便的全方位的數據查詢。 強大的報表打印功能。 在相應的權限下，刪除數據方便簡單，數據穩定性好。 強大的圖表分析功能。 退出系統。 1.2 可行性分析 當接到客戶管理系統開發任務，就進入客戶管理開發的第一個階段，即進行 可行性的研究。并不是所有問題具有簡單的解決辦法，許多問題不能在預定的規 模之內解決。因此通過可行性的研究分析可以知道問題。 有可行性的解決方法，可以避免人力、物力和才力的浪費。在初步調查的基 礎上就可以提出系統目標，這是系統開發和評價的依據。系統目標應充分體現， 直接為客戶管理系統服務，并且，程序可以分期分批實現。但是，需要指出的是， 系統目標是不可能在總體規劃階段就提得非常具體，它還將在開發過程中逐步明 確和定量化。以達到更加出色的程序系統?？墒?，目標的提法不盡相同，例如： 提高客戶管理效率，減輕勞動強度； 提高客戶和聯系人信息處理速度和準確性； 為客戶管理人員提供更方便、科學的服務項目。 系統的目標確定后，就可以從以下兩方面對能否實現新系統目標進行可行性 分析： 四川理工學院畢業設計（論文） 3 一技術可行性 Borland 公司的 Delphi 是一個非常優秀的數據庫應用系統前端開發工具。這 是由于 Borland Delphi 自 1995 年 2 月誕生 Version 1.0 以后，1996 年 3 月， Borland Delphi ClientServer Suite 2.0 以其高效的數據重用功能得以在美國國家 軟件測試實驗室進行的軟件評估中獲得了最高評價。隨后，Borland 又推出 Delnhi 的第三代版本Delphi 3.0 多層 ClientServer 的 32 位快速開發工具。 數據庫應用系統是一種應用計算機技術完成數據處理的計算機應用系統，數 據處理則指對各種形式的數據進行采集、存儲、加工和傳播的一系列活動的總和。 進行數據處理的目的是為了從大量原始數據中獲得對人類社會活動有價值的信息， 以作為行動和采取對策的依據。 因此，開發數據庫應用系統需要選擇一種數據庫管理系統；然后，在其支持 之下建立數據庫；最后，使用一種開發工具編制數據庫應用程序。鴻達公司客戶 管理系統所采用的 Borland Delphi 就是一種可用于編制數據庫應用程序的開發工 具。 采用二層 C/S 模式的數據庫應用系統具有良好的應用性能，尤其適用于基于 區域網絡的網絡數據庫應用系統環境。在 C/S 模式數據庫應用系統中，數據庫服 務器端的 DBMS 可以在多種產品中選用一種，常用的可以有：Microsoft SQL Server，Oracle，SyBase，Informix 等等。鴻達公司客戶管理系統將以 Microsoft SQL Server 作為數據庫管理信息系統。 所謂 Delphi 數據庫應用系統是指，應用 Delphi 作為數據庫應用系統前端程 序開發工具形成的數據庫應用系統。實際上，Delphi 以面向對象的觀點、可視化 操作界面，提供開發 C/S 模式數據庫應用系統的有效支持工具。Delphi 在 Windows 操作系統環境下運行，提供兩個版本供選擇，標準版本和客戶/服務器版 本。應用 Delphi 開發數據庫應用系統過程中，需要設置數據庫訪問和操作功能時， 最基本的方法是使用 Dephi 提供的數據庫操作控件。應用這些數據庫操作控件， 可以構建形成最基本的 Dephi 數據庫應用系統功能。 常用的數據庫操作控件分別位于 Borland Dephi 可視化設計界面的三個組件頁 面上：ADO 組件頁（ADO） 、數據訪問組件頁（Data Access）和數據控制組件頁 （Data Controls） 。每一個組件頁上匯集著一些具有相關功能的控件，當需要選用 某一個控件時，應該先選定對應的組件頁，然后在組件頁上選取所需要的控件。 胡勇：鴻達公司客戶管理系統開發與實現 4 本系統開發環境為 Delphi 7.0，數據庫為 SQL Server 2005 數據庫。Delphi7 是用來快速開發 Windows 應用程序的應用程序開發工具，可以直觀地使用圖形化 工具來創建 Windows 的應用程序。SQL Server2005 是 Microsoft 公司推出的基于 客戶/服務器（C/S）模式的數據庫系統，它提供了強大的企業數據庫管理功能， 是目前世界上的幾個主流數據庫管理系統之一。 二運行可行性 系統的研制和開發是充分得考慮工作人員對人事信息的易于管理，管理者方 便查詢設備信息效率。從而在開發時我們用可視化界面，用戶只需根據界面上的 指示進行操作。 四川理工學院畢業設計（論文） 5 第 2 章 系統設計 2.1 設計目標 本系統屬于小型的數據庫系統，為了對中小型企業客戶的管理，實現一些初 步的計算機化的管理。通過本系統可以達到以下目標： 靈活的運用表格批量輸入數據，使信息傳遞更快捷。 系統采用人機對話方式，界面美觀友好、信息查詢靈活、方便、快捷、準確、 數據存儲安全可靠。 實現各種記錄查詢。 操作員可以隨時修改自己的口令。 管理員可以設置操作員的權限 對用戶輸入的數據，系統進行嚴格的數據檢驗，盡可能排除人為的錯誤。 數據保密性強，為每個用戶設置權限級別。 系統最大限度地實現了易安裝性、易維護性和易操作性。 2.2 開發及運行環境 系統開發平臺：Delphi 7.0。 數據庫管理系統軟件：SQL Server 2005。 運行平臺：Windows xp/ Windows 2000。 分辨率：最佳效果 1024*768。 2.3 項目規劃 鴻達公司客戶管理系統是一個典型的數據庫開發應用程序，由基礎信息維護、 客戶信息維護、客戶服務、客戶信息查詢、打印報表、輔助工具、系統管理等模 塊組成，規劃系統功能模塊如下： 基礎信息維護模塊 該模塊主要負責區域信息設置、企業性質設置、企業類型設置、企業資信設 置、客戶級別設置、客戶滿意程度設置。 客戶信息維護模塊 該模塊主要負責客戶信息、聯系人信息、業務往來、發送郵件（包括郵件群 發設置）。 胡勇：鴻達公司客戶管理系統開發與實現 6 客戶服務模塊 該模塊主要負責客戶反饋、客戶投訴、客戶反饋滿意程度分析、客戶投訴滿 意程度分析。 客戶信息查詢模塊 該模塊主要負責客戶信息查詢、聯系人信息查詢、根據客戶反饋滿意程度查 詢、根據客戶投訴滿意程序查詢、客戶反饋查詢、客戶投訴查詢。 打印報表模塊 該模塊主要負責客戶信息報表、聯系人信息報表、業務往來報表、客戶反饋 報表、客戶投拆報表。 輔助工具模塊 該模塊主要負責調用 word、調用 Excel、計算器、登錄 Internet、工作業務 備忘、國內主要城市區號郵編查詢。 系統管理模塊 該模塊主要負責操作員管理（包括權限設置與密碼修改）、查看日志（包括 日志清理）、數據備份與數據恢復、系統數據清理。 圖 2.1 系統功能架構圖 四川理工學院畢業設計（論文） 7 第 3 章 系統數據庫設計 數據庫設計是整個軟件開發的核心，數據庫設計的合理否關系到整個軟件的 運行效率以及后期的可維護性與可操作性。數據庫設計主要分為：數據庫的概要 設計與數據庫的物理設計兩個方面。 3.1 數據庫概要設計 在信息世界中，信息從客觀事物出發流經數據庫，通過決策機構最后又回到 客觀世界，信息的這一循環經歷了三個領域：信息世界，數據世界，現實世界。 現實世界的事物反映到人的頭腦中，人的大腦對它有個認識過程，經過分析（選 擇、命名、分類等）進入信息世界。這些信息再進一步加工、編碼，然后進入數 據世界，而軟件系統的開發工作需要考慮這兩個方面的問題，也就是要考慮系統 開發所需要的數據，以及如何對這些數據進行操作。這兩個問題貫穿了整個軟件 系統的開發過程，這也就是數據庫的設計問題，軟件設計的一個核心。 下面給出鴻達公司客戶管理系統的數據庫概念模型（使用 Power Designer 設 計）： 圖 3.1 聯系人信息，客戶反饋與客戶滿意度實體圖 圖 3.2 客戶反饋與客戶投訴實體圖 聯系人信息 聯系人編號 企業名稱 聯系人姓名 聯系人性別 出生年月 聯系人年齡 聯系人職位 聯系人辦公電話 聯系人郵件 聯系人手機 個人簡介 登記日期 信息登記人 備注 Variable characters (20) Variable characters (40) Characters (30) Characters (5) Date begin FRM_YHDL.ShowModal; / 調用登錄窗體 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; 四川理工學院畢業設計（論文） 25 ed_password.Clear; cb_jb.ItemIndex := 0; ed_name.SetFocus; dl := dl + 1; /登錄次數加 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 已經發送成功!); finally Self.IdSMTP1.Disconnect; end; except On e:exception do begin ShowMessage(E-Mail 發送失敗: + E.Message); end; end; end; end; 四川理工學院畢業設計（論文） 31 4.6 據庫配置模塊 “數據庫配置模塊”主要完成的功能是當用戶在不同的計算機上附加上鴻達 公司客戶管理系統的數據庫后，不用去改源代碼來連接數據庫，軟件在啟動時會 自動檢測，若初始用戶與密碼還有主機名連接不到本機數據庫，就會彈出這個窗 口，讓用戶輸入本機數據庫的用戶名與密碼以及數據庫服務器名稱。這樣有助于 軟件的靈活性與健壯性。 程序相關代碼： “確定”按鈕的單擊事件代碼如下： 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(保存成功，請重新運行程序！,提示信息 ,0+64); application.Terminate; end; 胡勇：鴻達公司客戶管理系統開發與實現 32 第 5 章 系統測試 當一個系統所有分析與編碼完成后就進入了系統的測試階段了，作為一個成 品系統,系統的測試也是一個關鍵的環節,在測試階段,我們將盡可能的找出系統的 邏輯與語法錯誤，修補系統存在的 Bug，做好系統的測試工作才能保證讓用戶用 到一個安全、快速、便捷與高效的客戶管理系統。 鴻達公司客戶管理系統測試的主要內容為：系統的單元測試與整個系統的集 成測試。 系統的單元測試主要目的是： 1.測試各個功能模塊是否運行正確。 2.各個模塊功能是否已經完全實現。 系統的集成測試主要目的是： 在運行可能是不完整的應用，保證軟件單元被結合后能正常操作的測試執行 的階段。 5.1 鴻達公司客戶管理系統單元測試 單元測試集中檢測軟件設計的最小單元模塊，通常單元測試和編碼屬于 軟件過程的同一個階段.在編寫出源代碼并通過了編譯的語法檢查后，就可以用詳 細設計描述作指南，對重要的執行通路進行測試，以便發現模塊內部的錯誤?？?以應用人工測試和計算機測試這樣兩種不同類型的測試方法，完成單元測試工作。 這兩種測試方法各有所長，互相補充，通常單元測試主要使用白盒測試技術。而 且對多個模塊的測試可以并行進行。 當然對于本系統,我們采用人工測試方法進行單元測試，由于模塊太多，要是 一一在此都體現出測試報告，有點不太合適，所以只在此列三個模塊的測試報告。 一.系統登錄測試。 主要目的：測試是否可以正確登錄，如果可以，那么正確登錄后,系統是否可 以通過登錄時用戶所選擇的”級別”而進行相應的權限控制。 1以超級管理員登錄系統。 用戶名:hy，密碼:123，級別:高級用戶，如圖 5.1 系統登錄測試，進入系統后 測試各個模塊是否都擁有相應權限. 四川理工學院畢業設計（論文） 33 圖 5.1 系統登錄測試 通過各個模塊測試，可知該用戶擁有所有權限. 2.以普通用戶登錄系統 用戶名:test，密碼:123456，級別：普通用戶，進行系統后，選擇一個功能模 塊，系統就會提示用戶“對不起，你的權限不夠，請用管理員聯系!”的提示信息， 如圖 5.2 普通用戶登錄測試： 圖 5.2 普通用戶登錄測試 胡勇：鴻達公司客戶管理系統開發與實現 34 企業性質設置 單擊“基礎信息”“企業性質設置” ，打開“企業性質設置”窗口。 “添加”功能： 單擊“添加”按鈕，其它相應按鈕置為不可用狀態，適合要求。添加一條 “企業性質” ?？梢钥吹剑?“企業性質編號”在自動增加，并用戶不可更改，這樣 就可以保證數據的一至性，防止用戶錯誤的輸入，而使軟件的可用性與穩定性降 低。 輸入“企業性質名稱”與“備注信息”后單擊“保存”按鈕后，其它相應按 鈕變為可用狀態，并且提示用戶“保存成功” ，符合需求分析時的要求。如圖 5.3 企業性質的添加： 圖 5.3 企業性質的添加 單擊確定，就可以在“企業性質列表”中看到新添加的信息。 2.：“刪除”功能 四川理工學院畢業設計（論文） 35 選中一條“企業性質”信息，單擊“刪除”按鈕，相應按鈕可用狀態改變， 然后再單擊“保存”按鈕。彈出提示“保存成功” ，可以在“企業性質列表“中 看到，被刪除的信息已經不存在。 3.“修改”功能 選中一條“企業性質”信息，單擊“修改”按鈕，相應按鈕可用狀態改變， 修改相應信息后，單擊”保存”按鈕，相應按鈕可用性狀態改變，系統彈出”保存成 功”，可以在”企業性質列表”中看到被修改的企業性質。 4.“查詢”功能 單擊“查詢”按鈕，打開“查詢”提示框，如圖 5.4 企業性質的查詢： 圖 5.4 企業性質的查詢 在“請選擇企業性質名稱”的列表中，選擇一條“性質名稱” ，單擊”查詢”按 鈕后，就會在“企業性質設置”中相應其對應的信息，同時”查詢”提示框消失.如 果用戶沒有選擇已有的“企業性質名稱” ，而自己輸入一個不存在的“企業性質 名稱” ，那么系統就會做出相應的提示，并且把數據移動到第一條記錄以便顯示， 如圖 5.5 企業性質查詢不存在： 胡勇：鴻達公司客戶管理系統開發與實現 36 圖 5.5 企業性質查詢不存在 5.“第一條”功能 單擊“第一條”按鈕，就會顯示”第一條“企業性質”信息，如果已經到第 一條，則所顯數據就不會有變化。 6.“上一條”功能 單擊“上一條”按鈕，如果當前數據不是第一條，就會向上移動一條數據。 7.“下一條”功能 單擊“下一條”按鈕，如果當前數據不是最后一條，就會向后移動一條數據。 8.“末一條”功能 單擊”末一條”按鈕，就會顯示最后一條“企業性質”信息，如果已經到了最 后一條，則所顯信息不會變化。 三.“聯系人信息報表”模塊 四川理工學院畢業設計（論文） 37 單擊“打印報表”“聯系人信息報表” ，打開“聯系人信息報表”窗口， 在這兒可以打印“聯系人信息報表” ，如果聯系人比較多，就會分布顯示，如圖 5.6 聯系人信息報表。 圖 5.6 聯系人信息報表 5.2 鴻達公司客戶管理系統集成測試 集成測試是測試和組裝軟件的系統化技術，例如，子系統測試限使在把模塊 按照設計要求組裝起來的同時進行測試，主要目標是發現與接口有關的問題(系統 測試與此類似)。例如，數據穿過接口時可能丟失；一個模塊對另一個模塊可能由 于疏忽而造成有害影響；把子功能組合起來可能不產生預期的主功能；個別看來 是可以接受的誤差可能積累到不能接受的程度；全程數據結構可能有問題等等。 不幸的是，可能發生的接口問題多得不勝枚舉。 通過前面的模塊測試，可以發現軟件的各個模塊的功能都已實現，并錯誤提 示以及用戶的友好性方面做得都比較不錯，現在就看看各個模塊的功能組合是否 完美。 1.添加一條“客戶信息” ，保存成功后，再在“打印報表”中選擇“客戶信息 報表” ，看看剛剛添加的客戶信息是否存在在報表中。通過試驗可以看到，對應 成功。 胡勇：鴻達公司客戶管理系統開發與實現 38 2對于各個操作，看是否系統做了記錄，打開“系統管理”“查看日志” ， 打開“查看日志”窗口，單擊查看日志按鈕，可以看到我們做了都做了那些操作， 如圖 5.7 所示。 圖 5.7 系統日志查看 5.3 測試總結 經過以上的測試，系統總體來說運行穩定，界面友好性方面都基本能得到滿 足，本系統主要是用 Delphi 做界面，而后臺用 Sql Server 2005，寫了大量的存儲 過程，這樣的好處很多，比如：如果有的功能改變了，可以不用更改應用程序， 而直接去修改存儲過程，并且存儲過程由強大的 MS SQL Server 管理，性能，安 全性方面不容置疑，不僅可以減小網絡流量，而且在數據庫方面更能體現模塊化 的程序設計。 當然本系統也有不足之處，比如：數據庫的概念設計等不佳，容易產生重復 數據，這些在以后軟件開發生涯中都會好好注意的。 四川理工學院畢業設計（論文） 39 結束語 經過兩個多月的設計和開發，基于 Delphi 的鴻達公司客戶管理系統基本開發 完畢。其功能基本符合需求。鴻達公司客戶管理系統主要就是管理企業掌握的客 戶以及相關的聯系人，實現對客戶和客戶相關聯系人進行更新、查看、添加操作 讓企業在第一時間內得到客戶最新的消息。通過所查閱的書刊和網頁，了解了客 戶管理在現代企業管理中給企業所帶來的便利，降低了企業的成本、提高了效率、 改善了企業的服務，客戶管理是以客戶為中心的一個管理系統。與此同時在部分 書中得了鴻達公司客戶管理系統的總體設計框架與設計思想。由于本課題是面向 企業內部管理人員所設計，所以在設計數據庫時作者用 SQL Server2005 來做數據 庫，來適應公司里的管理人員、財務人員、銷售人員、行政人員操作。 通過對該系統的開發，使作者將課本學習與實際應用結合起來，在實際問題 的解決中，培養獨立思考的能力和勇于創新的精神，并從中學到許多知識，如現 在用 Delphi 開發一些中小型的軟件基本沒有什么問題，特別是應用數據庫的存儲 過程來做相應控制的開發有了更深入的理解，同時也加深了對軟件設計過程的了 解，為以后的工作打下了堅實的基礎。 但是由于畢業設計時間較短，所以該系統還有不盡如人意的地方，比如每次 數據庫的關聯性設計得不佳，界面還有待美化等。 胡勇：鴻達公司客戶管理系統開發與實現 40 致 謝 在本次的畢業設計中，通過指導老師的耐心指導作者學會了如何利用 Delphi 開發一個中小型系統，感謝指導老師在理論和實踐上給作者的幫助，老師認真負 責的工作態度和嚴謹的治學精神都使作者收益匪淺。與此同時作者也感謝身邊的 同學和朋友提供給作者的一些資料，在這些資料幫助下這次畢業設計才能夠順利 完成。 另外，還要感謝同學四年來對作者的關心與支持，感謝各位 老師在學習期間對作者的嚴格要求。同時也要感謝身邊朋友的熱心幫助，沒 有你們的支持與關心，就沒有作者今天的畢業設計！ 四川理工學院畢業設計（論文） 41 參考文獻 1 JSP 數據庫系統開發完全手冊M. 北京：人民郵電出版社，2006.3 2 Delphi 數據庫系統開發完全手冊M. 北京：人民郵電出版社，2006.3 3 Visual Basic 數據庫系統開發完全手冊M. 北京：人民郵電出版社， 2006.3 4 Visual C+數據庫系統開發完全手冊M. 北京：人民郵電出版社， 2006.3 5 王國輝JSP 信息系統開發實例精選M. 北京：機械工業出版社， 2005.7 6 宋坤Visual Basic 信息系統開發實例精選M. 北京： 機械工業出版社， 2005.7 7 宋昆SQL Server 數據庫開發實例解析M. 北京：機械工業出版社， 2006.1 8 李俊民Access 數據庫開發實例解析M. 北京： 機械工業出版社， 2006.1 9 賽奎春Visual Basic 精彩編程 200 例M. 北京： 機械工業出版社， 2003.1 10 李嚴ASP 數據庫開發實例解析M. 北京： 機械工業出版社，2004.12 11 宋坤Delphi 工程應用與項目實踐M. 北京： 機械工業出版社， 2005.1 12 高春艷VB 工程應用與項目實踐M. 北京： 機械工業出版社， 2005.1 13 張雨Visual C工程應用與項目實踐M. 北京： 機械工業出版 社， 2005.1 14 陳威JSP 工程應用與項目實踐M. 北京： 機械工業出版社，2005.2 15 王國輝ASP 工程應用與項目實踐M. 北京： 機械工業出版社， 2005.4 16 高春艷Visual Basic 信息系統開發實例精選M. 北京： 機械工業出 版社，2005.7 17 王國輝ASP 信息系統開發實例精選M. 北京： 機械工業出版社， 2005.7 胡勇：鴻達公司客戶管理系統開發與實現 42 18 宋坤Delphi 信息系統開發實例精選M. 北京： 機械工業出版社， 2005.7 19 周桓Visual foxpro 數據庫開發關鍵技術與實例應用M. 北京：人民郵 電出版社，2004.5 20 劉志銘PoweBuilder 數據庫開發關鍵技術與實例應用M. 北京：人民 郵電出版社，2004.5 21 賽奎春Delphi 數據庫開發關鍵技術應用M. 北京：人民郵電出版社， 2004.5 22 高春艷VB 數據庫開發關鍵技術應用M. 北京：人民郵電出版社， 2004.5 23 明日科技Visual C+ 管理信息系統完整項目實例剖析M. 北京：人 民郵電出版社，2005.7 24 明日科技Visual Basic 管理信息系統完整項目實例剖析M. 北京：人 民郵電出版社，2005.7 25 明日科技PowerBuilder 管理信息系統完整項目實例剖析M. 北京： 人民郵電出版社，2005.7 26 明日科技Visual FoxPro 管理信息系統完整項目實例剖析M. 北京： 人民郵電出版社，2005.7 27 賽奎春Delphi 數據庫開發實例解析M. 北京： 機械工業出版社， 2004.2 28 劉志銘Visual Basic 數據庫開發實例解析M. 北京： 機械工業出版社， 2003.8 29 王晶瑩Visual FoxPro 數據庫開發實例解析M. 北京： 機械工業出版 社，2003.9 30 華傳銘Power Builder 數據庫開發實例解析M. 北京：機械工業出版 社 ，2003.9 31 張振坤PowerBuilder 精彩編程 200 例M. 北京： 機械工業出版社， 2004.9 32 王國輝Visual FoxPro 精彩編程 200 例M. 北京： 機械工業出版社， 2004.9 四川理工學院畢業設計（論文） 43 附錄 附錄附錄 A 文件架構圖文件架構圖 （1）程序主文件架構圖，如圖 A1 所示。 為了使讀者能夠對系統文件有更清晰的認識及使用，在此設計了程序主文件架構圖。 圖 A1 主文件架構圖 （2）基礎信息維護文件架構圖，如圖 A.2 所示。 圖 A2 基礎信息維護文件架構圖 胡勇：鴻達公司客戶管理系統開發與實現 44 （3）客戶信息維護文件架構圖，如圖 A3 所示。 圖 A3 客戶信息維護文件架構圖 （4）客戶服務文件架構圖，如圖 A4 所示。 圖 A4 客戶服務文件架構圖 （5）系統管理文件架構圖，如圖 A5 所示。 圖 A .5 系統管理文件架構圖 四川理工學院畢業設計（論文） 45 附錄附錄 B 主要源程序主要源程序 鴻達公司客戶管理系統的源程序 聯系人信息模塊功能代碼： 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; 胡勇：鴻達公司客戶管理系統開發與實現 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; 四川理工學院畢業設計（論文） 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：增加數據，2：修改數據，3：刪除數據 Public declarations end; var frm_lxrxx: Tfrm_lxrxx; implementation uses dm; /引用數據模塊 $R *.dfm /增加按鈕單擊事件代碼 procedure Tfrm_lxrxx.btnAddClick(Sender: TObject); var 胡勇：鴻達公司客戶管理系統開發與實現 48 iTemp : Integer; begin xgbz := 1; /增加數據. btnAdd.Enabled := False; /增加按鈕狀態不可用 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 /使所有文本框為空. 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)+