《客戶關(guān)系管理系統(tǒng)》論文范例

《《客戶關(guān)系管理系統(tǒng)》論文范例》由會(huì)員分享，可在線閱讀，更多相關(guān)《《客戶關(guān)系管理系統(tǒng)》論文范例（55頁珍藏版）》請?jiān)谘b配圖網(wǎng)上搜索。

1、《客戶關(guān)系管理系統(tǒng)》論文范例 客戶關(guān)系管理系統(tǒng) 學(xué) 院 專 業(yè) 班 級(jí) 學(xué) 號(hào) 姓 名 指導(dǎo)教師 教師職稱 年 月 日 摘要 摘要 隨著市場體系的日益完善我們已經(jīng)進(jìn)入了一個(gè)買方市場時(shí)代選擇空間擴(kuò)大購買渠道拓寬消費(fèi)心態(tài)和購買行為越發(fā)成熟使客戶再不會(huì)對某一企業(yè)或者產(chǎn)品盲目地保持絕對忠誠如何不斷改善客戶關(guān)系掌據(jù)更多的客戶信息提高客戶滿意度如何在日益激烈的市場競爭中把握機(jī)會(huì)占有更大的市場份額如何建立高效業(yè)務(wù)流程降低運(yùn)營成本獲取更多的利潤這些已成為每個(gè)企業(yè)怕面臨的首

2、要問題這種情況下企業(yè)要在激烈的市場競爭中立于不敗之地就必須找一種全新的管理理念和管理手段對其內(nèi)部和外部資源進(jìn)行有效的整合新一代一ERP產(chǎn)品正在向客戶端和供應(yīng)端延伸客戶端的延伸是客戶關(guān)系管理而供應(yīng)端的延伸則是跨企業(yè)供應(yīng)鏈的同步管理對于每個(gè)企業(yè)來說客戶管理的完善程度將直接影響企業(yè)的經(jīng)濟(jì)效益 關(guān)鍵詞 客戶關(guān)系管理系統(tǒng)庫存管理報(bào)表管理 目錄 摘要 1 0 引言 1 1 系統(tǒng)分析 2 11 需求分析 2 12 可行性分析 2 2 總體設(shè)計(jì) 2 21 項(xiàng)目規(guī)劃 2 22 系統(tǒng)功能結(jié)構(gòu)圖 3 3 系統(tǒng)設(shè)計(jì) 3 31 設(shè)計(jì)目標(biāo) 3 32 開發(fā)及運(yùn)行環(huán)境 4 3

3、3 數(shù)據(jù)庫設(shè)計(jì) 4 4 客戶管理模塊設(shè)計(jì) 5 41 客戶信息管理設(shè)計(jì) 5 42 聯(lián)系人信息管理設(shè)計(jì) 11 43 合同信息管理 14 5 服務(wù)管理 25 51 反饋信息添加 26 52 反饋信息修改 27 6 報(bào)表管理 9 61 客戶報(bào)表模塊 62 聯(lián)系人報(bào)表模塊 附錄A 參考文獻(xiàn) 附錄B 數(shù)據(jù)表 0 引言 信息時(shí)代的今天各企業(yè)商家所關(guān)心的不再局限于自身的產(chǎn)品質(zhì)量生產(chǎn)設(shè)備員工的素質(zhì)更多的是關(guān)心自己的銷售群體客戶群關(guān)心他們的想法需求購賣目的 眾所周知顧客就是我們的上帝我們只有滿足了上帝的需求上帝才能給我們帶來一切一個(gè)企業(yè)要生存要發(fā)

4、展就是要不斷的滿足客戶的需求無論我們做出什么樣的決策最終都是為了這個(gè)的目每個(gè)領(lǐng)域都有自身生存法則但無論這個(gè)法則如何變化為客戶服務(wù)的宗旨是不會(huì)變的作為企業(yè)我們只有不斷地挖掘新客戶維護(hù)好和老客戶的關(guān)系占領(lǐng)市場客戶群體的絕大多數(shù)份額才能在整個(gè)領(lǐng)域取得一席之地海爾總裁張瑞敏指出客戶資源決定企業(yè)核心競爭力上個(gè)世紀(jì)80年代是物品短缺的時(shí)代而現(xiàn)在信息時(shí)代是客戶短缺的時(shí)代企業(yè)發(fā)展所需的各種資源包括人力物力生產(chǎn)力都是可以創(chuàng)造的但每個(gè)領(lǐng)域中的客戶資源確是有限的所以通過創(chuàng)新產(chǎn)品的創(chuàng)新企業(yè)管理的創(chuàng)新服務(wù)的創(chuàng)新來搶占有限的客戶資源維護(hù)好企業(yè)和客戶之間的關(guān)系了解客戶的需求動(dòng)向成為企業(yè)生存發(fā)展面臨的重大問題 1 系統(tǒng)

5、分析 11 需求分析 通過調(diào)查研究要求系統(tǒng)滿足有以下功能 由于操作人員的計(jì)算機(jī)知識(shí)普遍較差要求有良好的人機(jī)界面 方便的數(shù)據(jù)選擇查詢支持模糊查詢功能 管理客戶的詳細(xì)信息包括客戶的基本信息聯(lián)系人信息和客戶簽寫的合同信息 記錄產(chǎn)品出庫入庫的詳細(xì)信息 為更多的了解客戶的需求設(shè)計(jì)了服務(wù)模塊用以記錄客戶的反饋信息并對反饋信息進(jìn)行管理 和客戶聯(lián)系人之間通過郵件e-mail進(jìn)行聯(lián)系對聯(lián)系人郵件地址進(jìn)行管理 提供信息數(shù)據(jù)導(dǎo)出Excel報(bào)表的功能提供報(bào)表的打印功能 對用戶信息進(jìn)行管理并為用戶設(shè)置管理權(quán)限 數(shù)據(jù)計(jì)算自動(dòng)完成盡量減少人工干預(yù) 修改當(dāng)前管理員密碼的功能 系統(tǒng)退出 12 可

6、行性分析 經(jīng)濟(jì)性 通過計(jì)算機(jī)網(wǎng)絡(luò)對客戶信息進(jìn)行管理使企業(yè)對自身擁有的客戶有了一個(gè)更為深該的了解不僅能全面的統(tǒng)計(jì)客戶的購買數(shù)量及時(shí)的了解客戶的動(dòng)態(tài)信息還可以根據(jù)計(jì)算機(jī)記錄的數(shù)據(jù)信息不斷的調(diào)整企業(yè)的生產(chǎn)發(fā)展動(dòng)向 技術(shù)性 系統(tǒng)中設(shè)置了email管理模塊此模塊大大的方便了企業(yè)和客戶聯(lián)系人之間的溝通設(shè)置導(dǎo)入Excel功能Web打印功能方便用戶報(bào)表打印 2 總體設(shè)計(jì) 21 項(xiàng)目規(guī)劃 客戶關(guān)系管理系統(tǒng)是一個(gè)典型的數(shù)據(jù)庫開發(fā)應(yīng)用程序由客戶管理模塊庫存管理模塊服務(wù)管理模塊報(bào)表管理模塊email管理模塊用戶管理模塊組成規(guī)劃系統(tǒng)功能模塊如下 客戶管理模塊 該模塊主要功能是對客戶信息客戶聯(lián)系人信

7、息合同信息進(jìn)行添加刪除查詢等操作 庫存管理模塊 該模塊的主要功能是管理入庫出庫信息產(chǎn)品信息進(jìn)行管理其中包括對庫存信息產(chǎn)品信息進(jìn)行添加刪除查詢等操作 服務(wù)管理模塊 該模塊主要功能是對客戶反饋信息進(jìn)行添加刪除查詢等操作 報(bào)表管理模塊 該模塊主要通過查詢條件對各種信息進(jìn)行查詢并將得到的結(jié)果導(dǎo)出Excul表進(jìn)行打印報(bào)表等操作其中信息包括客戶信息聯(lián)系人信息反饋客戶信息庫存信息 email管理模塊 該模塊主要管理客戶聯(lián)系人email地址信息對企業(yè)客戶之間的email文件進(jìn)行管理向客戶發(fā)送郵件 用戶管理 該模塊主要管理用戶信息的添加刪除等操作并設(shè)置用戶的使用權(quán)限 22 系統(tǒng)功能結(jié)構(gòu)圖

8、 圖1 數(shù)據(jù)表樹型結(jié)構(gòu)圖 3 系統(tǒng)設(shè)計(jì) 31 設(shè)計(jì)目標(biāo) 本系統(tǒng)是針對中小型企業(yè)通過網(wǎng)絡(luò)實(shí)現(xiàn)對客戶的管理而設(shè)計(jì)的主要實(shí)現(xiàn)如下目標(biāo) 對客戶信息客戶基本信息聯(lián)系人信息合同信息進(jìn)行全面管理 及時(shí)查看庫存信息并通過網(wǎng)站對入庫出庫信息進(jìn)行管理 強(qiáng)大的客戶信息聯(lián)系人信息報(bào)表導(dǎo)出打印功能 及時(shí)了解客戶的反饋信息并對其進(jìn)行管理 實(shí)現(xiàn)各種信息的選擇查詢模糊查詢功能等 實(shí)現(xiàn)了和客戶通過網(wǎng)絡(luò)在線溝通的功能并對客戶聯(lián)系人的email地址進(jìn)行管理 管理員可以添加操作員信息設(shè)置操作員的權(quán)限 對用戶輸入的數(shù)據(jù)系統(tǒng)進(jìn)行嚴(yán)格的數(shù)據(jù)檢驗(yàn)盡可能排除人為的錯(cuò)誤運(yùn)行穩(wěn)定安全可靠method "post" a

9、ction "" post hidden 判斷表單是否提交 value "true" tiao select 查詢類型 option value "模糊查詢" if request "tiao" "模糊查詢" then selected end if 模糊查詢 option value "精確查詢" if request "tiao" "精確查詢" then selected end if 精確查詢 sel select 關(guān)鍵字類別 option value "ClientName" if request "sel" "ClientName" then sel

10、ected end if 客戶名稱 option value "ClientHabitude" if request "sel" "ClientHabitude" then selected end if 企業(yè)性質(zhì) search text 關(guān)鍵字 input name "search" type "text" id "search" value " request "search" " Submit submit 查詢按鈕 class "input" value "　查　詢　" 在表單提交之后在本頁將數(shù)據(jù)進(jìn)行處理程序代碼如下 if request "p

11、ost" "" then if request "tiao" "模糊查詢" then 條件輸入為模糊查詢時(shí)獲得相應(yīng)的記錄集 set rs serverCreateObject "adodbrecordset" sql "select from tb_Client where "request "sel" " like "request "search" " order by id desc" rsopen sqlconn11 else 條件輸入為精確查詢時(shí)獲得相應(yīng)的記錄集 set rs serve

12、rCreateObject "adodbrecordset" sql "select from tb_Client where "request "sel" " "request "search" " order by id desc" rsopen sqlconn11 end if else 默認(rèn)狀態(tài)下獲得相應(yīng)的記錄集 set rs serverCreateObject "adodbrecordset" sql "select from tb_Client order by id desc" rsopen sqlcon

13、n11 end if 實(shí)現(xiàn)分頁 if not rseof then tol rsrecordcount 總記錄數(shù) rspagesize 15 獲取每頁顯示的記錄數(shù) page rspagecount requestpage clng request "p" 獲取當(dāng)前頁 if requestpage "" or requestpage 0 then 當(dāng)接收頁碼的值為空或者0時(shí)使其等于1 requestpage 1 end if if requestpage page

14、then 在接收頁碼的值大于最大頁碼時(shí)使其等于最大頁碼 requestpage page end if if requestpage 1 then 向上或向下移動(dòng)相應(yīng)的記錄 rsmove requestpage-1 rspagesize end if for i 1 to rspagesize and not rseof 利用循環(huán)輸出數(shù)據(jù) if i mod 2 1 then bg "FFFFFF" else bg "efefef" end if tr align "center" bgcolor bg

15、 style "cursor hand" onClick "wicomes bo windowlocation KeHu_edaspid rs "id" "onMouseOver "HLItem this " onMouseOut "Re this " td height "22" rs "ClientName" rs "ClientCountry" rs "ClientCity" rs "ClientTel"

16、 rs "ClientEmail" rsmovenext if rseof then exit for 如果記錄集為空那么跳出循環(huán) next else responseWrite "沒有客戶信息請 a href KeHu_addasp target bo 添加 " end if 當(dāng)鼠標(biāo)在某條記錄上懸停時(shí)其記錄所在行的背景顏色會(huì)發(fā)生改變此功能用到的js代碼如下 script language "javascript" function HLItem obj 鼠標(biāo)經(jīng)過 objoldClassNam

17、e objclassName objclassName "List" function Re obj 鼠標(biāo)移開 objclassName objoldClassName 其調(diào)用的代碼如下 tr align "center" bgcolor bg style "cursorhand" onClick "wicomes bo windowlocation KeHu_edaspid rs "id" " onMouseOver "HLItem this " onMouseOut "Re this " 客戶信息顯示查詢頁面的運(yùn)行結(jié)果如圖4所示

18、 圖4 客戶信息查詢頁面的運(yùn)行結(jié)果 2．客戶信息添加 客戶信息添加的主要功能是用于用戶添加客戶信息在查詢頁面中單擊添加按鈕在展示區(qū)中會(huì)顯示添加頁面其設(shè)計(jì)效果如圖5所示 如圖5 客戶信息添加頁面設(shè)計(jì)效果 當(dāng)單擊添加頁面中的添加按鈕時(shí)調(diào)用js編寫的自定義函數(shù)checks 通過函數(shù)驗(yàn)證填寫的數(shù)據(jù)是否正確該函數(shù)的代碼如下 script language "javascript" function checks if fcome "" alert "公司名稱不能為空" return false 中間過程不詳細(xì)介紹因?yàn)閷?shí)現(xiàn)方法類似

19、 else if fcome "" alert "需求周期不能為空" return false 表單提交之后添加的數(shù)據(jù)將被提交到本頁進(jìn)行處理本頁數(shù)據(jù)處理的程序代碼如下 if request "post" "" then set rs serverCreateObject "adodbrecordset" sql "select from tb_Client" rsopen sqlconn13 rsaddnew rs "ClientName" request "ClientName" 添加公司名

20、稱 rs "ClientAddress" request "ClientAddress" 公司地址 rs "ClientTel" request "ClientTel" 公司電話 rs "ClientFax" request "ClientFax" 公司傳真 rs "ClientNumber" request "ClientNumber" 郵政編碼 rs "ClientPage" request "ClientPage" 公司網(wǎng)址 rs "ClientEmail" request "Cli

21、entEmail" 公司email rs "ClientCountry" request "ClientCountry" 所屬國家地區(qū) rs "ClientHabitude" request "ClientHabitude" 公司性質(zhì) rs "ClientSize" request "ClientSize" 公司規(guī)模 rs "ClientCity" request "ClientCity" 所屬城市 rs "ClientPay" request "ClientPay" 結(jié)款方式

22、 rs "ClientCredit" request "ClientCredit" 結(jié)款信用 rs "ClientList" request "ClientList" 最高訂單 rs "ClientYear" request "ClientYear" 年度訂單 rs "ClientCyc" request "ClientCyc" 需求周期 rs "SetTime" now 創(chuàng)建時(shí)間 rs "EditTime" now

23、 修改時(shí)間 rs "SetName" session "admin_name" 創(chuàng)建人 rsupdate rsclose connclose responseWrite " script language javascript alert 客戶信息添加成功 " 彈出成功對話框 end if 3．客戶信息修改 在顯示客戶詳細(xì)信息頁面用戶可以瀏覽修改其客戶的詳細(xì)信息進(jìn)行客戶詳細(xì)信息瀏覽和修改的頁面設(shè)計(jì)效果如圖6所示 圖6 客戶信息修改頁面設(shè)計(jì)效果 在客戶信息修改頁面用戶可以瀏覽客戶詳細(xì)的信息也可以修改客戶的信息當(dāng)用戶有修改的權(quán)限時(shí)

24、那么用戶可以進(jìn)行修改至于用戶權(quán)限的實(shí)現(xiàn)將在后面的章節(jié)中進(jìn)行講解當(dāng)用戶單擊修改按鈕后修改的數(shù)據(jù)將被提交到本頁進(jìn)行處理數(shù)據(jù)處理的代碼如下 if request "post" "" and rsr "Client" "可寫" or rsr "chaoji" "是" then set rs serverCreateObject "adodbrecordset" sql "select from tb_Client where id "request "id" rsopen sqlconn13 rs "ClientName" request "Client

25、Name" 添加公司名稱 rs "ClientAddress" request "ClientAddress" 公司地址 rs "ClientTel" request "ClientTel" 公司電話 rs "ClientFax" request "ClientFax" 公司傳真 rs "ClientNumber" request "ClientNumber" 郵政編碼 rs "ClientPage" request "ClientPage" 公司網(wǎng)址 rs "ClientEma

26、il" request "ClientEmail" 公司email rs "ClientCountry" request "ClientCountry" 所屬國家地區(qū) rs "ClientHabitude" request "ClientHabitude" 公司性質(zhì) rs "ClientSize" request "ClientSize" 公司規(guī)模 rs "ClientCity" request "ClientCity" 所屬城市 rs "ClientPay" request "ClientPay"

27、 結(jié)款方式 rs "ClientCredit" request "ClientCredit" 結(jié)款信用 rs "ClientList" request "ClientList" 最高訂單 rs "ClientYear" request "ClientYear" 年度訂單 rs "ClientCyc" request "ClientCyc" 需求周期 rs "EditTime" now 修改時(shí)間 rs "SetNa

28、me" session "admin_name" 創(chuàng)建人 rsupdate rsclose responseWrite " script language javascript alert 客戶信息修改成功 " 彈出成功對話框 end if 4．客戶信息刪除 在客戶信息管理頁面用戶可以點(diǎn)選任意一條客戶信息前面的復(fù)選框然后單擊頁面下方的刪除按鈕被選擇的客戶信息將被刪除 客戶信息刪除主要是根據(jù)傳遞的參數(shù)本例中的參數(shù)為客戶信息的id將數(shù)據(jù)庫中對應(yīng)id的客戶信息和其他和客戶相關(guān)的信息全部刪除程序代碼如下 call client 驗(yàn)證是否有刪除客

29、戶信息的權(quán)限 if request "del" "" then kid Split Request "del" "" 分解字符串成數(shù)組 for i 0 to ubound kid sqld "delete from tb_Client where id "clng kid i 刪除客戶信息 connexecute sqld sqll "delete from tb_Linkman where LinkmanClient "clng kid i 刪除客戶的聯(lián)系人信息 connexecute sqll sqlp "delete from tb_Pact

30、where PactClient "clng kid i 刪除客戶的合同信息 connexecute sqlp sqlp "delete from tb_Feedback where FeedbackClient "clng kid i 刪除客戶反饋信息 connexecute sqlp sqlp "delete from tb_Product where ProductProvider "clng kid i 刪除客戶的產(chǎn)品信息 connexecute sqlp next if request "p" "" then

31、 返回用戶操作頁 responseRedirect "KeHu_KeHuasp" else responseRedirect "KeHu_KeHuaspp "request "p" end if else responseWrite " script language javascript alert 請選擇要?jiǎng)h除的信息 location javascripthistorygo -1 " end if 42 聯(lián)系人信息管理設(shè)計(jì) 聯(lián)系人信息管理的主要功能包括顯示查詢添加修改和刪除聯(lián)系人信息4個(gè)部分用戶可以通過功能導(dǎo)航

32、進(jìn)入聯(lián)系人信息管理頁面頁面設(shè)計(jì)效果如圖7所示 圖7 聯(lián)系人信息管理頁面設(shè)計(jì)效果 1．聯(lián)系人信息顯示查詢 用戶可以在聯(lián)系人信息管理頁面中的查詢部分輸入一定的查詢條件進(jìn)行聯(lián)系人信息的查詢 用戶在查詢部分輸入條件后單擊查詢按鈕用戶添加的查詢條件將被提交給本頁本頁則將根據(jù)用戶提交的表單信息對數(shù)據(jù)庫進(jìn)行檢索并將結(jié)果集通過操作區(qū)輸出到瀏覽器中 查詢代碼如下 if request "post" "" then if request "tiao" "模糊查詢" then 聯(lián)系人模糊查詢 set rs serverCreateObject "adodbrecordset"

33、 sql "select from tb_Linkman where "request "sel" " like "request "search" " order by id desc" rsopen sqlconn11 else 聯(lián)系人精確查詢 set rs serverCreateObject "adodbrecordset" sql "select from tb_Linkman where "request "sel" " "request "search" " order by id desc" rsopen sqlconn11 end i

34、f else 默認(rèn)狀態(tài)下顯示聯(lián)系人列表 set rs serverCreateObject "adodbrecordset" sql "select from tb_Linkman order by id desc" rsopen sqlconn11 end if 分頁代碼請參考41節(jié)中介紹的客戶信息顯示查詢中的相關(guān)代碼 也可在查看客戶的詳細(xì)信息中單擊聯(lián)系人信息就會(huì)產(chǎn)生此客戶的聯(lián)系人列表傳參代碼如下 a href "KeHu_Linkmanasppost truesel LinkmanClientsearch rsx "id" dd dd" 聯(lián)系人信息

35、 2．聯(lián)系人信息添加 聯(lián)系人信息添加的主要功能是添加客戶的聯(lián)系人信息 在查詢頁面中單擊添加按鈕在展示區(qū)中會(huì)顯示添加頁面在添寫表單選擇所屬客戶時(shí)所屬客戶是在數(shù)據(jù)庫中直接讀取出來的其代碼如下 set rsc serverCreateObject "adodbrecordset" sqlc "select from tb_Client order by id desc" rscopen sqlcconn11 if not rsceof then select name "LinkmanClient" id "LinkmanClient" fo

36、r i 1 to rscrecordcount and not rsceof option value " rsc "id" " rsc "ClientName" rscmovenext next else responseWrite "沒有客戶信息請 a href KeHu_addasp target bo 添加 " end if 添加聯(lián)系人頁面的運(yùn)行結(jié)果如圖8所示 圖8 添加聯(lián)系人的頁面運(yùn)行結(jié)果 也可在客戶的詳細(xì)信息中單擊新建按鈕在此添加用戶不用選擇所屬客戶直接就會(huì)生成所屬客戶主要是根據(jù)傳遞的參數(shù)本例中

37、的參數(shù)為客戶信息的id傳參代碼如下 a href "KeHu_Linkman_addyaspid rsx "id" " span class "style2" 新建 其顯示代碼如下 set rsc serverCreateObject "adodbrecordset" sqlc "select from tb_Client where id "request "id" " order by id desc" rscopen sqlcconn11 responseWrite rsc "ClientName" 3．聯(lián)系人信息修改 聯(lián)系人信息修改的

38、主要功能是用戶修改聯(lián)系人信息方便用戶和客戶之間的聯(lián)系和溝通 在顯示聯(lián)系人詳細(xì)信息頁面用戶可以更改其聯(lián)系人的信息聯(lián)系人信息修改頁面運(yùn)行結(jié)果如圖9所示 圖9 聯(lián)系人信息修改頁面運(yùn)行結(jié)果 4．聯(lián)系人信息刪除 聯(lián)系人信息刪除的主要功能是刪除聯(lián)系人的信息其程序代碼如下 kid Split Request "del" "" 分解字符串成數(shù)組 responseWrite "正在刪除" for i 0 to ubound kid sqld "delete from tb_Linkman where id "clng kid i 刪除指定的記錄 connexecute sql

39、d next 43 合同信息管理 合同信息管理設(shè)計(jì)主要包括顯示查詢添加修改和刪除合同信息4個(gè)部分用戶可以通過功能導(dǎo)航進(jìn)入合同信息管理頁面頁面設(shè)計(jì)效果如圖10所示 圖10 合同信息管理頁面的運(yùn)行結(jié)果 1．合同信息顯示查詢 用戶可以在合同信息管理頁面中的查詢部分輸入一定的查詢條件進(jìn)行合同信息的查詢 用戶在查詢部分輸入查詢條件后單擊查詢按鈕用戶所添加的查詢條件將被提交給本頁本頁將根據(jù)用戶提交的表單信息對數(shù)據(jù)庫進(jìn)行檢索并將結(jié)果集通過操作區(qū)輸出到瀏覽器中 合同信息查詢程序代碼如下 if request "post" "" then if request "tiao

40、" "模糊查詢" then模糊查詢合同信息 set rs serverCreateObject "adodbrecordset" sql "select from tb_Pact where "request "sel" " like "request "search" " order by id desc" rsopen sqlconn11 else精確查詢合同信息 set rs serverCreateObject "adodbrecordset" sql "select from tb_Pact where "request "sel" " "

41、request "search" " order by id desc" rsopen sqlconn11 end if else 默認(rèn)狀態(tài)下顯示的合同信息 set rs serverCreateObject "adodbrecordset" sql "select from tb_Pact order by id desc" rsopen sqlconn11 end if 合同信息顯示查詢頁面運(yùn)行結(jié)果如圖11所示 圖11 合同信息顯示查詢頁面運(yùn)行結(jié)果 也可在查看客戶的詳細(xì)信息中單擊合同信息就會(huì)產(chǎn)生此客戶的合同列表傳參代碼如下 a href "K

42、eHu_Pactasppost truesel PactClientsearch rsx "id" dd dd" 合同信息 2．合同信息添加 合同信息添加的主要功能是用戶添加客戶的合同信息 在查詢頁面中單擊添加按鈕在展示區(qū)中會(huì)顯示添加頁面其運(yùn)行結(jié)果如圖17上所示也可在客戶的詳細(xì)信息頁面單擊新建在展示區(qū)中會(huì)顯示添加頁面然后進(jìn)行合同信息添加合同信息添加頁面的運(yùn)行結(jié)果如圖12下所示 圖12 合同信息添加頁面運(yùn)行結(jié)果 3．合同信息修改 合同信息修改的主要功能是用戶修改合同信息 在顯示合同詳細(xì)信息頁面用戶可以更改其合同的信息合同信息修改頁面運(yùn)行結(jié)果如圖13所示 圖13 合同

43、信息修改頁面運(yùn)行結(jié)果 4．合同信息的刪除 合同信息刪除的主要功能是刪除合同信息其代碼如下 kid Split Request "del" "" responseWrite "正在刪除" for i 0 to ubound kid sqld "delete from tb_Pact where id "clng kid i connexecute sqld next 5 服務(wù)管理 服務(wù)管理設(shè)計(jì)的主要功能包括反饋信息的顯示查詢添加修改和刪除4個(gè)部分用戶可以通過功能導(dǎo)航進(jìn)入服務(wù)管理頁面頁面設(shè)計(jì)效果如圖20所示 圖20 服務(wù)管

44、理頁面的設(shè)計(jì)效果 51 反饋信息添加 反饋信息添加的主要功能是用戶添加客戶的反饋信息在查詢頁面中單擊添加按鈕在展示區(qū)中會(huì)顯示添加頁面反饋信息添加頁面的設(shè)計(jì)效果如圖21所示 圖21 反饋信息添加頁面的設(shè)計(jì)效果 反饋信息添加頁面涉及的6>HTML表單元素如表3所示 表3 反饋信息信息添加頁面涉及的HTML表單元素 名稱 類型 含義 重要屬性 form1 Form 表單 method "post" action "" post hidden 判斷表單是否提交 value "true" FeedbackTitle text 反饋主題 cl

45、ass "in" size "30" FeedbackFulfill radio 是否完成 value "未完成" value "已完成" year select 年 option value " i " i month select 月 option value " i " i day select 日 option value " i " i FeedbackClient select 相關(guān)客戶 option value " rsc "id" " rsc "ClientName" FeedbackContent text

46、area 詳細(xì)內(nèi)容 cols "88" rows "4" class "table" FeedbackResult textarea 處理結(jié)果 cols "88" rows "4" class "table" Submit select 添加按鈕 class "input" value "　添　加　" onClick "return checks " 表單提交之后添加的數(shù)據(jù)將被提交到本頁進(jìn)行處理數(shù)據(jù)處理的程序代碼如下 call feedback if request "post" "" then set rs serverCreateObject "adodbrecor

47、dset" sql "select from tb_Feedback" rsopen sqlconn13 rsaddnew 主要用于添加客戶反饋信息的數(shù)據(jù) rs "FeedbackTitle" request "FeedbackTitle" rs "FeedbackDate" request "year" "-"request "month" "-"request "day" rs "FeedbackClient" request "FeedbackClient" rs "FeedbackContent" request "FeedbackCon

48、tent" rs "FeedbackResult" request "FeedbackResult" rs "FeedbackFulfill" request "FeedbackFulfill" rs "SetTime" now rs "SetName" session "admin_name" rsupdate rsclose responseWrite " script language javascript alert 反饋信息添加成功 " end if 52 反饋信息修改 因?yàn)榉答佇畔⑹强蛻舻姆答佉庖娝圆坏秒S意修改用

49、戶只可以修改處理結(jié)果和服務(wù)完成兩項(xiàng)信息當(dāng)服務(wù)完成選項(xiàng)選中已完成時(shí)那么任何信息都不可以修改也就是說只有在服務(wù)未完成的情況下才能修改處理結(jié)果 反饋信息頁面設(shè)計(jì)效果如圖22所示 圖22 反饋信息頁面設(shè)計(jì)效果 反饋信息修改頁面涉及的HTML表單元素如表4所示 表4 反饋信息信息修改頁面涉及的HTML表單元素 名稱 類型 含義 重要屬性 form1 Form 表單 method "post" action "" post hidden 判斷表單是否提交 value "true" FeedbackTitle text 反饋主題 value "

50、rsx "FeedbackTitle" " size "30" readonly "true" class "in" FeedbackFulfill radio 是否完成 value "未完成" if rsx "FeedbackFulfill" "未完成" then checked end if value "已完成" if rsx "FeedbackFulfill" "已完成" then checked end if FeedbackDate text 年 value " rsx "FeedbackDate" " size "30" readonly "tru

51、e" class "in" FeedbackClient select 相關(guān)客戶 value " rsc "ClientName" " size "30" readonly "true" class "in" FeedbackContent textarea 詳細(xì)內(nèi)容 cols "88" rows "4" class "table" readonly true FeedbackResult textarea 處理結(jié)果 cols "88" rows "4" class "table" if rsx "FeedbackFulfill" "已完成" then readonly tr

52、ue else onfocus thisselect onmouseover thisfocus end if Submit select 添加按鈕 class "input" value "　修 改　" onClick "return checks " 在反饋信息修改頁面當(dāng)用戶單擊修改按鈕后修改數(shù)據(jù)將被提交到本頁進(jìn)行處理數(shù)據(jù)處理程序的代碼如下 if request "post" "" then set rs serverCreateObject "adodbrecordset" sql "select from tb_Feedback where id

53、"request "id" rsopen sqlconn13 rs "FeedbackFulfill" request "FeedbackFulfill" rs "FeedbackResult" request "FeedbackResult" rsupdate rsclose responseWrite " script language javascript alert 反饋信息修改成功 location Feedback_edaspid "request "id" " " end if 7 報(bào)表管理 報(bào)表管理的主要功能是打印各種類型的報(bào)表

54、包括客戶報(bào)表打印聯(lián)系人報(bào)表打印反饋報(bào)表打印和庫存報(bào)表打印4個(gè)部分報(bào)表管理頁面設(shè)計(jì)效果如圖23所示 圖23 報(bào)表管理頁面設(shè)計(jì)效果 71 客戶報(bào)表模塊 客戶報(bào)表模塊的主要功能包括客戶報(bào)表查詢導(dǎo)入Excel和用web打印3個(gè)部分 1．客戶報(bào)表查詢 客戶報(bào)表查詢頁面涉及的HTML表單元素如表5所示 表5 客戶報(bào)表查詢頁面涉及的HTML表單元素 名稱 類型 含義 重要屬性 form1 Form 表單 method "post" action "" eeeet Hidden 判斷表單如何處理 ClientCountry Select 國家

55、地區(qū) option value " rsg "ClientCountry" " rsg "ClientCountry" ClientCity Select 城市 option value " rsc "ClientCity" " rsc "ClientCity" SetName Select 創(chuàng)建者 option value " rss "SetName" " rss "SetName" option searchtype 類別 option value "ClientName" 公司名稱 option value

56、"ClientAddress" 公司地址 Submit submit 導(dǎo)入Execul class "input" value "導(dǎo)入Excul" onClick "fcome excul" Submit submit 直接打印 class "input" value "打印報(bào)表" onClick "fcome print_c" 用戶可以在報(bào)表管理頁面中的客戶報(bào)表查詢部分輸入查詢條件進(jìn)行客戶信息的查詢 2．導(dǎo)入Excel 當(dāng)用戶在查詢部分輸入條件并單擊導(dǎo)入Excel按鈕后用戶添加的查詢條件將被提交給數(shù)據(jù)處理頁處理頁用select case判斷隱藏域的值進(jìn)而確定怎樣處理 數(shù)據(jù)處理頁

57、對查詢條件經(jīng)過處理產(chǎn)生相應(yīng)的SQL查詢語句其代碼如下 sql "id is not null" if request "ClientCountry" "全部" then 國家地區(qū)不為全部時(shí) sql sql" and ClientCountry "request "ClientCountry" "" end if if request "ClientCity" "全部" then 城市不為全部時(shí) sql sql" and ClientCity "request "ClientCity" "" end if if request "SetName" "全部"

58、then 客戶名稱不為全部時(shí) sql sql" and SetName "request "SetName" "" end if if trim request "search" "" then 當(dāng)關(guān)鍵字不為空時(shí) sql sql" and "request "searchtype" " like "request "search" "" end if sql "select ClientNameClientCountryClientCityClientTelClientFaxClientEmail from tb_Client where "sql respo

59、nseRedirect "Table_print_Cdaspsql "sql"tt excul" 把參數(shù)傳給下載頁面 當(dāng)數(shù)據(jù)處理頁處理完畢之后會(huì)自動(dòng)轉(zhuǎn)向下載頁在下載頁中單擊左鍵直接用web打開Excel 右鍵單擊下載選擇目標(biāo)另存為 if request "tt" "excul" then 當(dāng)為客戶報(bào)表查詢時(shí)產(chǎn)生相應(yīng)字段 a array "公司名稱""所在國家地區(qū)""所在城市""公司電話""公司傳真""E-mail" elseif request "tt" "excul_l" then 當(dāng)為聯(lián)系人報(bào)表查詢時(shí)產(chǎn)生相應(yīng)字段 a array "姓名

60、""客戶名稱""部門""職務(wù)""電話""手機(jī)""E-mail" elseif request "tt" "excul_k" then 當(dāng)為反饋客戶報(bào)表查詢時(shí)產(chǎn)生相應(yīng)字段 a array "客戶名稱""反饋日期""是否解決""反饋主題""反饋內(nèi)容""處理結(jié)果" elseif request "tt" "excul_kc" then 當(dāng)為庫存報(bào)表查詢時(shí)產(chǎn)生相應(yīng)字段 a array "客戶編號(hào)""客戶名稱""產(chǎn)品數(shù)量""單位""庫存類型" end if responseContentType "applicationvndms-excel"

61、 set rs connexecute request "sql" table width "100" border "1" cellspacing "0" for i 0 to comt-1 td align "center" a i next do while not rseof for i 0 to comt-1 td align "center" class "table" rs i next rsmovenext loop rsc

62、lose 報(bào)表下載頁面的運(yùn)行結(jié)果如圖24所示 圖24 報(bào)表下載頁面的運(yùn)行結(jié)果 3．用web打印 用戶在查詢部分輸入查詢條件后單擊打印報(bào)表按鈕用戶添加的查詢條件將被提交給數(shù)據(jù)處理頁處理頁用select case判斷隱藏域的值進(jìn)而確定怎樣處理 數(shù)據(jù)處理頁對查詢條件經(jīng)過處理產(chǎn)生相應(yīng)的SQL查詢語句程序代碼如下 sql "id is not null" if request "ClientCountry" "全部" then國家地區(qū)不為全部時(shí) sql sql" and ClientCountry "request "ClientCountry" "" end if

63、 if request "ClientCity" "全部" then 城市不為全部時(shí) sql sql" and ClientCity "request "ClientCity" "" end if if request "SetName" "全部" then 客戶名稱不為全部時(shí) sql sql" and SetName "request "SetName" "" end if if trim request "search" "" then 當(dāng)關(guān)鍵字不為空時(shí) sql sql" and "request "searchtype" " like

64、"request "search" "" end if sql "select from tb_Client where "sql responseRedirect "Table_print_paspsql "sql 把參數(shù)傳給打印頁面 當(dāng)數(shù)據(jù)處理頁處理完畢之后會(huì)自動(dòng)轉(zhuǎn)向打印頁打印頁是一個(gè)框架集包含三個(gè)頁面框架頁代碼如下 sql request "sql" if sql "" then sql session "sql" end if session "sql" sql show request "show" if show "" then s

65、how 15 end if p request "p" if p "" or p 0 then p 1 end if frameset rows "42" framespacing "0" frameborder "NO" border "0" frame src "Table_print_topaspsql request "sql" show show p p " name "topFrame" frameborder "no" scrolling "NO" noresize frame src "Table_printaspsql

66、 request "sql" show show p p " name "mainFrame" frameborder "no" 控制頁面代碼如下 sql request "sql" 獲取sql語句 if sql "" then sql session "sql" end if session "sql" sql show request "show" set rs serverCreateObject "adodbrecordset" sql sql rsopen sqlconn11 if not rseof then tol rsrecordcount rspagesize show page rspagecount requestpage clng request "p" else page 0 tol 0 show 0 end if table width "649" border "0" align "center" tr valign "middl