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