【文章內(nèi)容簡介】 備注： 表 用戶表 文件名：用戶表 (uuser) 別名： 組成： uuser_id + uuser_nanme + uuser_password 備注： 表 客 戶 信 息表 文件名：客戶信息 畢業(yè)設計（論文） 18 別名： 組成： 客戶編號 +客戶名稱 +客戶性別 +客戶類型 +客戶級別 +客戶狀態(tài) +客戶階段 +客戶來源 +行業(yè)類別 +企業(yè)性質(zhì) +所在國家 +所在省份 +所在城市 +通訊地 址 +業(yè)務電話 +傳真電話 +公司網(wǎng)址 +郵政編碼 +電子郵箱 +添加日期 +備注 +業(yè)務員 備注： 表 部 門 信 息表 文件名：部門信息 別名： 組成 : 部門編號 +部門名稱 +部門經(jīng)理 +成立時間 +部門簡介 備注： 表 投 訴 反 饋信息表 文件名：投訴反饋 別名： 組成 : 序號 +客戶編號 +客戶名稱 +投訴日期 +投訴部門 +投訴內(nèi)容 +投訴事項處理 +受理人員 備注： 設計的數(shù)據(jù)項和數(shù)據(jù)結(jié)構(gòu)如下： 1）客戶信息。包括的 數(shù)據(jù)項有 客戶編號、客戶名稱、客戶性別、客戶類型、客戶級別、客戶狀態(tài)、客戶階段、客戶來 源、行業(yè)類別、企業(yè)性質(zhì)、所在國家、所在省份、所在城市、通訊地址、業(yè)務電話、傳真電話、公司網(wǎng)址、郵政編碼、電子郵箱、添加日期、備注、業(yè)務員 信息。 2）部門信息。包括的數(shù)據(jù)項有 部門編號、部門名稱、部門經(jīng)理、成立時間、部門簡介 等。 3）投訴反饋信息。包括的數(shù)據(jù)項有 序號、客戶編號、客戶名稱、投訴日期、投訴部門、投訴內(nèi)容、投訴事項處理、受理人員 等。 有了上面的數(shù)據(jù)結(jié)構(gòu)、數(shù)據(jù)項和數(shù)據(jù)字典，就能進行下面的數(shù)據(jù)庫設計了 。 畢業(yè)設計（論文） 19 數(shù)據(jù)庫概念結(jié)構(gòu)設計 本實例根據(jù)上面的設計規(guī)劃出的實體有：客戶基本信息實體、部門信息實體、投 訴反饋信息實體、消費信息實體。各個實體的 ER圖以及實體和實體之間的關(guān)系 ER圖描述如下。 E_R 圖如圖 客戶基本信息 客戶編號 客戶名稱 客戶性別 客戶關(guān)系 圖 通過該客戶基本信息實體 E_R 圖可以看出，要實現(xiàn)系統(tǒng)預定功能，必須具備員工基本信息表。該表須有客戶編號，客戶名稱，客戶性別等字段。 E_R 圖如圖 部門信息 部門編號 部門名稱 部門經(jīng)理 成立時間 圖 通過該部門信息實體 E_R 圖可以看出，要實現(xiàn)系統(tǒng)預定功能，必須具備部門編號、部門名稱、部門經(jīng)理、部門成立時間等字段。 E_R 圖 投訴反饋信息 畢業(yè)設計（論文） 20 序號 客戶編號 投訴部門 投訴時間 圖 E_R 圖 消費信息 客戶編號 服務項目 消費金額 消費時間 圖 通過該 E－ R圖不難可以得出：要實現(xiàn)系統(tǒng)預定的功能，必須具備客戶基本信息，消費信息，部門信息，等數(shù)據(jù)庫。同時每個數(shù)據(jù)庫表的字段也可以確定下來。 數(shù)據(jù)庫邏輯結(jié)構(gòu)設計 在上面的 ER 圖的基礎上，形成數(shù)據(jù)庫中的表格以及各個表格之間的關(guān)系。 客戶關(guān)系管理系統(tǒng)數(shù)據(jù)庫中各個表格的設計結(jié)果如下面的幾個表格所示。每個表格表示在數(shù)據(jù)庫中的一個表。 表 adm表 列名 數(shù)據(jù) 類型 可否為空 說明 adm_id char(10) Not null 管理員帳號（主鍵） adm_name char(10) Not null 姓名 (主鍵 ) adm_password char(10) Not null 密碼 (主鍵 ) 表 uuser表 列名 數(shù)據(jù)類型 可否為空 說明 uuser_id char(10) Not null 用戶帳號（主鍵） uuser _name char(10) Not null 姓名 (主鍵 ) uuser _password char(10) Not null 密碼 (主鍵 ) 表 客戶信息表 列名 數(shù)據(jù)類型 可否為空 說明 畢業(yè)設計（論文） 21 客戶編號 char(10) Not null 主鍵 客戶名稱 char(10) Not null 主鍵 客戶性別 char(10) null 無 客戶類型 char(10) null 無 客戶級別 char(10) null 無 客戶狀態(tài) char(10) null 無 客戶階段 char(10) null 無 客戶來源 char(10) null 無 行業(yè)類別 char(10) null 無 企業(yè)性質(zhì) char(10) null 無 所在國家 char(10) null 無 所在省份 char(10) null 無 所在城市 char(10) null 無 通訊地址 varchar(50) null 無 業(yè)務電話 char(11) null 無 傳真電話 char(10) null 電話號碼 11位 公司網(wǎng)址 char(10) null 無 郵政編碼 char(10) null 無 電子郵箱 char(10) null 無 添加日期 datatimer(8) Not null 主鍵 備注 varchar(50) null 無 業(yè)務員 char(10) null 無 表 投訴反饋信息表 列號 數(shù)據(jù)類型 可否為空 說明 序號 char（ 10） Not null 主鍵 客戶編號 char（ 10） null 無 客戶名稱 char（ 10） null 無 投訴日期 datetime（ 8） null 無 投訴部門 char（ 10） null 無 投訴內(nèi)容 varchar（ 50） null 無 投訴事項處理 varchar（ 50） null 無 受理人員 char（ 10） null 無 表 消費管理表 列名 數(shù)據(jù)類型 可否為空 說明 客戶編號 char(10) Not null 主鍵 服務部門 char(10) Not null 主鍵 服務項目 char(10) Not null 主鍵 服務金額 money (8) Nut null 主鍵 服務時間 datetime (8) Not null 主鍵 表 部門信息表 畢業(yè)設計（論文） 22 列名 數(shù)據(jù)類型 可否為空 說明 部門編號 char(10) Not null 主鍵 部門名稱 char(10) Not null 主鍵 部門經(jīng)理 char(10) Not null 主鍵 成立時間 datetime (8) Not null 主鍵 部門簡介 Varcher(50) null 無 輸入輸出設計 1）為了適應日常管理的需要和提供對內(nèi)對外報告，該客戶關(guān)系管理系統(tǒng)提供三種形式： ：主要滿足日常管理的需要，用于查詢結(jié)果顯示。 ：主要用于保存數(shù)據(jù)。 ：主要用于滿足客戶信息查詢、客戶消費查詢、部門信息查詢、投訴信息查詢等 2）輸入模塊是 客戶關(guān)系 管理系統(tǒng)中使用頻繁的模塊，輸 入格式設計時要盡量操作方便、安全，盡可能減少輸入量。 客戶關(guān)系 管理系統(tǒng)中，將要輸入的數(shù)據(jù)分為固定數(shù)據(jù)和變動數(shù)據(jù)。 ：客戶信息管理系統(tǒng)中的固定數(shù)據(jù)是不經(jīng)常變化的信息， ：客戶關(guān)系管理系統(tǒng)中的變動數(shù)據(jù)，消費信息中的數(shù)據(jù)變動等。 系統(tǒng)各模塊設計 客戶關(guān)系管理系統(tǒng)與其他信息管理系統(tǒng)有著密切的聯(lián)系，而且它是其中一個子系統(tǒng)，所以在系統(tǒng)實現(xiàn)階段應考慮到該系統(tǒng)與其他信息系統(tǒng)的關(guān)系，充分考慮到今后對系統(tǒng)進行維護時可能遇到的問題。認真做好與其他系統(tǒng)的接口和數(shù)據(jù)交換，使 系統(tǒng)具有比較好的可擴展性。 應用程序?qū)ο蟮膭?chuàng)建 1） 單擊菜單“ file|new”，選擇應用程序?qū)ο竽０瀹嫲?，單擊?ok”按鈕，出畢業(yè)設計（論文） 23 現(xiàn)如圖 所示的“ specify new application library”對話框。在該對話框中完成應用程序?qū)ο竺?、庫文件名的設置。 圖 應用程序?qū)ο蟮膭?chuàng)建 2) 單擊“ finish”按鈕，進入應用程序?qū)ο笤O計畫面。在應用程序?qū)ο蟮?open事件中輸入如下的程序代碼： = ODBC = False = ConnectString=39。DSN=ylr。UID=。PWD=39。 connect。 if 0 then messagebox(39。連接失敗 39。,) else open(w_xuanze) end if 應用程序運行后第一個出現(xiàn)的窗口是上面語句打開的 w_xuanze 窗口。在登錄窗口中用戶輸入連接數(shù)據(jù)庫的用戶名和口令。連接數(shù)據(jù)庫成功，則出現(xiàn)程序主畢業(yè)設計（論文） 24 窗口。 登錄窗口的設計 登錄窗口如圖圖 所示 圖 在 w_xuanze 的 open 事件中輸入如下的程序代碼： string password string adminname time nowtime nowtime=now() adminname=trim() password=trim() //admin 登錄模式 if = true then select adm_id into :adminname from adm where adm_id =: adminname and adm_password =: password using sqlca。 if try_time 4 then 畢業(yè)設計（論文） 25 if =0 then messagebox(登陸成功 ,歡迎管理員 ： +string(adminname)+ 的登陸 。 +現(xiàn)在時間是： +string(today())+39。 39。+string(nowtime)) open(w_main) close(parent) elseif =100 then messagebox(警告 ,輸入錯誤，請再輸入一次 !!,exclamation!) () =39。39。 =39。39。 try_time++。 end if else messagebox(系統(tǒng)警告 ,您嘗試登陸的次數(shù)超過三次 ,+系統(tǒng)將不允許你登陸 + ,請與管理員聯(lián)系 !!,stopsign!) =false end if //user 登錄模式 else select uuser_id into :adminname from uuser where uuser_id =: adminname and uuser_password =: password using sqlca。 if try_time 4 then if =0 then messagebox(登陸成功 ,歡迎管理員 ： +string(adminname)+ 的登陸 。 +現(xiàn)在時間是： +string(today())+39。 39。+string(nowtime)) open(w_main) =false =false 密碼修改 .enabled=false 畢業(yè)設計（論文） 26 =false =false =false =false close(parent) elseif =100 then messagebox(警告 ,輸入錯誤，請再輸入一次 !!,exclamation!) () =39。39。 =39。39。 try_time++。 end if else messagebox(系統(tǒng)警告 ,您嘗試登陸的次數(shù)超過三次 ,+系統(tǒng)將不允許你登陸 + ,請與管理員聯(lián)系 !!,stopsign!) =false end if end if 其中在 declare global variables 事件中 //定義全局變量為： integer try_time=1 string user_id,pass_word 建立應用程序主窗口 系統(tǒng)應用程序的主要功能都是通過在主窗口上的菜單調(diào)用完成的。在菜單畫面中設計應用程序主窗口所連接的菜單 m_mum。該菜單的結(jié)構(gòu)如圖 所示。 畢業(yè)設計（論文） 27 圖 各個菜單 中的程序代碼從上到下依次如下： ： integer ,i //退出之前，要提醒用戶 =