【正文】 點選“ TPageControl” 組件，添加到窗體上。 選中新添加的工具欄按鈕，設置相關屬性，如圖 17所示。在“ Standard” 組件頁中點選“ TPanel”組件，添加到窗體上。 （ 2）在“ Win32”組件頁中點選“ TImageList”組件，添加到窗體上?？蛻粜畔⒛K運行結果如圖 16 所示。 //關閉本系統 end。其代碼如下： procedure (Sender: TObject)。 end。 //關閉本系統 end。 end。39。 。)。請重新輸入。操作員名稱、密碼或操作員級別不正確 39。 //關閉當前窗體 end。+yhmc。 [1].Text := 39。 end。 //將操作員名稱賦給變量 yhmc for p := 1 to 31 do //將操作員的權限賦給數組 a[] begin ppl := inttostr(p)。user_name39。 end。).Value := Trim()。 //將操密碼賦給變量 b (39。b39。).Value := Trim()。 (39。select * from tb_user where user_name=:a and user_mm=:b and user_yhjs=:c39。 。 vAR P:INTEGER。 在【確定】按鈕的 OnClick 事件處理過程中，連接操作員數據庫，并按操作員名稱、密碼和級別進行查詢，如果有記錄則把操作員的權限賦給數組 a[]，然后通過變量 jj 來判斷是“登錄”還是“重新登錄”，如果是“登錄”只能登錄 3 次，否則將無限制。 //使 bobox1組件的 Text屬性為空 。 //清空 edit2組件 := 39。 //釋放 ini文件 。,datetimetostr(now),ssp)。 //創(chuàng)建 ini文件 (39。c:\39。 //使窗體名為登錄 end。 := 39。 ssp := 39。重新登錄 39。重新登錄 39。 ssp : string。窗體的 OnShow 事件代碼如下： procedure (Sender: TObject)。分別設置 Caption 屬性為“確定”、“取消”。 （ 4）在“ Standard”組件頁中點選“ TConboBox” 組件，添加到窗體 上，命名為“ Combobox1”，單擊 Items 屬性右側的【 … 】按鈕，彈出編輯器，在編輯器中輸入“ 普通用戶 ”、“ 高級用戶 ”，如圖 15 所示。將所有 TLabel 組件的 Transparent 屬性設為“ True”。 – 11 – 圖 13 登錄模塊運行結果 1．窗體設計步驟 （ 1）選擇“ File” /“ New” /“ Form”菜單項，新建一個窗體，命名窗體為“ FRM_YHDL”，設置 Caption 屬性為“ 登錄 ”； BorderStyle 屬性為“ bsNone”； Position 屬性為“ poScreenCenter”，如圖 14 所示。 （ 7）在窗體上添加 TADOQuery 組件，設置它們的 Connection 屬性為“ ADOConnection1”。 – 10 – 圖 11 選擇驅動程序 （ 5）選擇“連接”選項卡，設置連接的相關設置，如圖 12 所示。 （ 3）單擊 ADOConnection1 組件，在“ Object Inspector”窗口中，單擊 ConnectionString 屬性右側的 【 … 】按鈕，彈出對話框如圖 10 所示。 （ 2）在“ ADO”組件頁中點選“ TADOConnection”組件， 添加到窗體上，命名為“ ADOConnection1”。數據模塊如圖 9 所示。 //關閉所有窗體 end。其代碼如下： procedure (Sender: TObject)。 – 9 – end。退出系統 39。 then (sender)。 if = 39。發(fā)送郵件 39。 then (sender)。 if = 39。聯系人信息 39。 then (sender)。 if = 39。客戶滿意程度設置 39。 then (sender)。 if = 39。企業(yè)資信設置 39。 then (sender)。 if = 39。企業(yè)性質設置 39。 then (sender)。 begin if = 39。 在 TtreeView 組件的 OnDblClick 事件處理過程中，調用各窗體菜單按鈕單擊事件的處理過程。)。 //釋放窗體 end else begin showmessage(39。 //創(chuàng)建窗體 。True39。其代碼如下： procedure (Sender: TObject)。 //將動態(tài)的時間賦給主界面的任務欄上 end。 39。 TTimer 組件的 OnTimer 事件代碼如下： procedure (Sender: TObject)。 end。+yhmc。 //將當前時間賦給主窗體的任務欄上 [1].Text := 39。 39。 begin 。 表 1 組件的相關屬性設置 對象名 對象類型 屬性 值 FRM_CRM TForm Caption 客戶管理系統 BorderStyle bsSizeable KeyPreview True Image1 TImage Align alTop Iimage2 alClient 2．程序相關代碼 在窗體顯示時，先調用登錄窗體，如果登錄成功則在主界面的任務欄上顯示操作員名稱及日期。 – 7 – 圖 8 面板編輯器 （ 7）在“ Additional”組件頁中點選“ TImage”組件，在窗體上添加 2 個 TImage 組件。 圖 7 菜單欄設置 2 （ 6）在“ Win32”組件頁中點選“ TStatusBar”組件，添加到窗體上，雙擊 TStatusBar 組件，在彈出的對話框中單擊【 Add New】按鈕，添加面板。 圖 5 添加下拉菜單按鈕 （ 4）在“ Win32”組件頁中點選“ TTreeView” 組件，添加到窗體上，如圖 6 所示。 （ 2）在“ Standard”組件頁中點選“ TmainMenu” 組件，添加到窗體上，雙擊該組件打開菜單編輯器，如圖 4 所示。 圖 3 主窗體運行結果 1．窗體設計步驟 （ 1）運行 Delphi 時，會自動創(chuàng)建一個窗體，設置該窗體為程序主窗體。 圖 2 數據表樹型結構圖 2．數據表的結構 由于篇幅所限，關于數據庫中的數據表請參見附錄 B – 5 – 4 主要功能模塊設計 主窗體設 計 主窗體主要是對客戶管理系統的各模塊進行調用，在主窗體中顯示操作員的姓名及日期。 1．數據表概要說明 如圖 2 所示的即為本系統中數據庫中的數據表的樹形結構圖，該數據表樹型結構圖包含系統所有數據表。數據庫 db_Client中包含 17 張表。 分 辨率：最佳效果 1024*768。 數據庫管理系統軟件： SQL Server 2020。 ? 系統最大限度地實現了易安裝性、易維護性和易操作性 。 ? 管理員可以設置操作員的權限 ? 對用戶輸入的數據，系統進行嚴格的數據檢驗，盡可能排除人為的錯誤。 – 4 – ? 實現各種記錄查詢。通過本系統可以達到以下目標： ? 靈活的運用表格批量輸入數據，使信息傳遞更快捷 。 ? 系統管理模塊 該模塊主要負責操作員管理（包括權限設置與密碼修改）、查看日志（包括日志清理）、數據備份與數據恢復、系統數據清理。 ? 打印報表模塊 該模塊主要負責客戶信息報表、聯系人信息報表、業(yè)務往來報表、客戶反饋報表、客戶投拆報表 。 ? 客戶服務模塊 該模塊主要負責客戶反饋、客戶投訴、客戶反饋滿意程度分析、客戶投訴滿意程度分析。 2 總體設計 項目規(guī)劃 客戶管理系統是一個典型的數據庫開發(fā)應用程序，由基礎信息維護、客戶信息維護、客戶服務、客戶信息查詢、打印報表、輔助工具、系統管理等模塊組成，規(guī)劃系統功能模塊如下： ? 基礎信息維護模塊 該模塊主要負責區(qū)域信息設 置、企業(yè)性質設置、企業(yè)類型設置、企業(yè)資信設置、客戶級別設置、客戶滿意程度設置。 Delphi7 是用來快速開發(fā)Windows 應用程序的應用程序開發(fā)工具，可以直觀地使用圖形化工具來創(chuàng)建 Windows 的應用程序。 ? 退出系統。 ? 在相應的權限下，刪除數據方便簡單，數據穩(wěn)定性好。 ? 方便的全方位的數據查詢。 ? 系統具有數據備份及數據還原功能。 – 2 – 1 系統分析 需求分析 根據市場的需求，要求系統具有以下功能： ? 完全人性化設計，無需專業(yè)人士指導，即可使用該系統。所不同的是，現在計算機可以幫助人們實現這些看似并不復雜而實際操作起來非常繁瑣的工作。這樣企業(yè)開始從強調降低經營成本的供應方發(fā)展策略轉向了需求方策略。其大容量客戶數據處理能力，讓您的企業(yè)從多渠道收集信息，快速發(fā)現核心客戶和潛在伙伴，進而 給企業(yè)帶來無限的利潤。系統 旨在改善企業(yè)與客戶之間 的 關系 ，建立 新型 的運營機制 。本系統本著把握客戶多樣化和個性化的特點；以最快的速度響