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

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

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

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

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

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

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

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

8、 圖1 數(shù)據(jù)表樹型結構圖 3 系統(tǒng)設計 31 設計目標 本系統(tǒng)是針對中小型企業(yè)通過網(wǎng)絡實現(xiàn)對客戶的管理而設計的主要實現(xiàn)如下目標 對客戶信息客戶基本信息聯(lián)系人信息合同信息進行全面管理 及時查看庫存信息并通過網(wǎng)站對入庫出庫信息進行管理 強大的客戶信息聯(lián)系人信息報表導出打印功能 及時了解客戶的反饋信息并對其進行管理 實現(xiàn)各種信息的選擇查詢模糊查詢功能等 實現(xiàn)了和客戶通過網(wǎng)絡在線溝通的功能并對客戶聯(lián)系人的email地址進行管理 管理員可以添加操作員信息設置操作員的權限 對用戶輸入的數(shù)據(jù)系統(tǒng)進行嚴格的數(shù)據(jù)檢驗盡可能排除人為的錯誤運行穩(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 關鍵字類別 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è)性質 search text 關鍵字 input name "search" type "text" id "search" value " request "search" " Submit submit 查詢按鈕 class "input" value "　查　詢　" 在表單提交之后在本頁將數(shù)據(jù)進行處理程序代碼如下 if request "p

11、ost" "" then if request "tiao" "模糊查詢" then 條件輸入為模糊查詢時獲得相應的記錄集 set rs serverCreateObject "adodbrecordset" sql "select from tb_Client where "request "sel" " like "request "search" " order by id desc" rsopen sqlconn11 else 條件輸入為精確查詢時獲得相應的記錄集 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 默認狀態(tài)下獲得相應的記錄集 set rs serverCreateObject "adodbrecordset" sql "select from tb_Client order by id desc" rsopen sqlcon

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

14、then 在接收頁碼的值大于最大頁碼時使其等于最大頁碼 requestpage page end if if requestpage 1 then 向上或向下移動相應的記錄 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 當鼠標在某條記錄上懸停時其記錄所在行的背景顏色會發(fā)生改變此功能用到的js代碼如下 script language "javascript" function HLItem obj 鼠標經(jīng)過 objoldClassNam

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

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

19、 else if fcome "" alert "需求周期不能為空" return false 表單提交之后添加的數(shù)據(jù)將被提交到本頁進行處理本頁數(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" 公司性質 rs "ClientSize" request "ClientSize" 公司規(guī)模 rs "ClientCity" request "ClientCity" 所屬城市 rs "ClientPay" request "ClientPay" 結款方式

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

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

24、那么用戶可以進行修改至于用戶權限的實現(xiàn)將在后面的章節(jié)中進行講解當用戶單擊修改按鈕后修改的數(shù)據(jù)將被提交到本頁進行處理數(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" 公司性質 rs "ClientSize" request "ClientSize" 公司規(guī)模 rs "ClientCity" request "ClientCity" 所屬城市 rs "ClientPay" request "ClientPay"

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

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

29、戶信息的權限 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 請選擇要刪除的信息 location javascripthistorygo -1 " end if 42 聯(lián)系人信息管理設計 聯(lián)系人信息管理的主要功能包括顯示查詢添加修改和刪除聯(lián)系人信息4個部分用戶可以通過功能導航

32、進入聯(lián)系人信息管理頁面頁面設計效果如圖7所示 圖7 聯(lián)系人信息管理頁面設計效果 1．聯(lián)系人信息顯示查詢 用戶可以在聯(lián)系人信息管理頁面中的查詢部分輸入一定的查詢條件進行聯(lián)系人信息的查詢 用戶在查詢部分輸入條件后單擊查詢按鈕用戶添加的查詢條件將被提交給本頁本頁則將根據(jù)用戶提交的表單信息對數(shù)據(jù)庫進行檢索并將結果集通過操作區(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 默認狀態(tài)下顯示聯(lián)系人列表 set rs serverCreateObject "adodbrecordset" sql "select from tb_Linkman order by id desc" rsopen sqlconn11 end if 分頁代碼請參考41節(jié)中介紹的客戶信息顯示查詢中的相關代碼 也可在查看客戶的詳細信息中單擊聯(lián)系人信息就會產(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ū)中會顯示添加頁面在添寫表單選擇所屬客戶時所屬客戶是在數(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)系人頁面的運行結果如圖8所示 圖8 添加聯(lián)系人的頁面運行結果 也可在客戶的詳細信息中單擊新建按鈕在此添加用戶不用選擇所屬客戶直接就會生成所屬客戶主要是根據(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)系人詳細信息頁面用戶可以更改其聯(lián)系人的信息聯(lián)系人信息修改頁面運行結果如圖9所示 圖9 聯(lián)系人信息修改頁面運行結果 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 合同信息管理 合同信息管理設計主要包括顯示查詢添加修改和刪除合同信息4個部分用戶可以通過功能導航進入合同信息管理頁面頁面設計效果如圖10所示 圖10 合同信息管理頁面的運行結果 1．合同信息顯示查詢 用戶可以在合同信息管理頁面中的查詢部分輸入一定的查詢條件進行合同信息的查詢 用戶在查詢部分輸入查詢條件后單擊查詢按鈕用戶所添加的查詢條件將被提交給本頁本頁將根據(jù)用戶提交的表單信息對數(shù)據(jù)庫進行檢索并將結果集通過操作區(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 默認狀態(tài)下顯示的合同信息 set rs serverCreateObject "adodbrecordset" sql "select from tb_Pact order by id desc" rsopen sqlconn11 end if 合同信息顯示查詢頁面運行結果如圖11所示 圖11 合同信息顯示查詢頁面運行結果 也可在查看客戶的詳細信息中單擊合同信息就會產(chǎn)生此客戶的合同列表傳參代碼如下 a href "K

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

43、信息修改頁面運行結果 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 服務管理 服務管理設計的主要功能包括反饋信息的顯示查詢添加修改和刪除4個部分用戶可以通過功能導航進入服務管理頁面頁面設計效果如圖20所示 圖20 服務管

44、理頁面的設計效果 51 反饋信息添加 反饋信息添加的主要功能是用戶添加客戶的反饋信息在查詢頁面中單擊添加按鈕在展示區(qū)中會顯示添加頁面反饋信息添加頁面的設計效果如圖21所示 圖21 反饋信息添加頁面的設計效果 反饋信息添加頁面涉及的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 相關客戶 option value " rsc "id" " rsc "ClientName" FeedbackContent text

46、area 詳細內容 cols "88" rows "4" class "table" FeedbackResult textarea 處理結果 cols "88" rows "4" class "table" Submit select 添加按鈕 class "input" value "　添　加　" onClick "return checks " 表單提交之后添加的數(shù)據(jù)將被提交到本頁進行處理數(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 反饋信息修改 因為反饋信息是客戶的反饋意見所以不得隨意修改用

49、戶只可以修改處理結果和服務完成兩項信息當服務完成選項選中已完成時那么任何信息都不可以修改也就是說只有在服務未完成的情況下才能修改處理結果 反饋信息頁面設計效果如圖22所示 圖22 反饋信息頁面設計效果 反饋信息修改頁面涉及的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 相關客戶 value " rsc "ClientName" " size "30" readonly "true" class "in" FeedbackContent textarea 詳細內容 cols "88" rows "4" class "table" readonly true FeedbackResult textarea 處理結果 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 " 在反饋信息修改頁面當用戶單擊修改按鈕后修改數(shù)據(jù)將被提交到本頁進行處理數(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 報表管理 報表管理的主要功能是打印各種類型的報表

54、包括客戶報表打印聯(lián)系人報表打印反饋報表打印和庫存報表打印4個部分報表管理頁面設計效果如圖23所示 圖23 報表管理頁面設計效果 71 客戶報表模塊 客戶報表模塊的主要功能包括客戶報表查詢導入Excel和用web打印3個部分 1．客戶報表查詢 客戶報表查詢頁面涉及的HTML表單元素如表5所示 表5 客戶報表查詢頁面涉及的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 導入Execul class "input" value "導入Excul" onClick "fcome excul" Submit submit 直接打印 class "input" value "打印報表" onClick "fcome print_c" 用戶可以在報表管理頁面中的客戶報表查詢部分輸入查詢條件進行客戶信息的查詢 2．導入Excel 當用戶在查詢部分輸入條件并單擊導入Excel按鈕后用戶添加的查詢條件將被提交給數(shù)據(jù)處理頁處理頁用select case判斷隱藏域的值進而確定怎樣處理 數(shù)據(jù)處理頁

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

58、then 客戶名稱不為全部時 sql sql" and SetName "request "SetName" "" end if if trim request "search" "" then 當關鍵字不為空時 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ù)傳給下載頁面 當數(shù)據(jù)處理頁處理完畢之后會自動轉向下載頁在下載頁中單擊左鍵直接用web打開Excel 右鍵單擊下載選擇目標另存為 if request "tt" "excul" then 當為客戶報表查詢時產(chǎn)生相應字段 a array "公司名稱""所在國家地區(qū)""所在城市""公司電話""公司傳真""E-mail" elseif request "tt" "excul_l" then 當為聯(lián)系人報表查詢時產(chǎn)生相應字段 a array "姓名

60、""客戶名稱""部門""職務""電話""手機""E-mail" elseif request "tt" "excul_k" then 當為反饋客戶報表查詢時產(chǎn)生相應字段 a array "客戶名稱""反饋日期""是否解決""反饋主題""反饋內容""處理結果" elseif request "tt" "excul_kc" then 當為庫存報表查詢時產(chǎn)生相應字段 a array "客戶編號""客戶名稱""產(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 報表下載頁面的運行結果如圖24所示 圖24 報表下載頁面的運行結果 3．用web打印 用戶在查詢部分輸入查詢條件后單擊打印報表按鈕用戶添加的查詢條件將被提交給數(shù)據(jù)處理頁處理頁用select case判斷隱藏域的值進而確定怎樣處理 數(shù)據(jù)處理頁對查詢條件經(jīng)過處理產(chǎn)生相應的SQL查詢語句程序代碼如下 sql "id is not null" if request "ClientCountry" "全部" then國家地區(qū)不為全部時 sql sql" and ClientCountry "request "ClientCountry" "" end if

63、 if request "ClientCity" "全部" then 城市不為全部時 sql sql" and ClientCity "request "ClientCity" "" end if if request "SetName" "全部" then 客戶名稱不為全部時 sql sql" and SetName "request "SetName" "" end if if trim request "search" "" then 當關鍵字不為空時 sql sql" and "request "searchtype" " like

64、"request "search" "" end if sql "select from tb_Client where "sql responseRedirect "Table_print_paspsql "sql 把參數(shù)傳給打印頁面 當數(shù)據(jù)處理頁處理完畢之后會自動轉向打印頁打印頁是一個框架集包含三個頁面框架頁代碼如下 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