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

客戶關系管理系統(tǒng)論文范例 客戶關系管理系統(tǒng)學 院專 業(yè)班 級學 號姓 名指導教師教師職稱年月日摘要摘要隨著市場體系的日益完善我們已經(jīng)進入了一個買方市場時代選擇空間擴大購買渠道拓寬消費心態(tài)和購買行為越發(fā)成熟使客戶再不會對某一企業(yè)或者產(chǎn)品盲目地保持絕對忠誠如何不斷改善客戶關系掌據(jù)更多的客戶信息提高客戶滿意度如何在日益激烈的市場競爭中把握機會占有更大的市場份額如何建立高效業(yè)務流程降低運營成本獲取更多的利潤這些已成為每個企業(yè)怕面臨的首要問題這種情況下企業(yè)要在激烈的市場競爭中立于不敗之地就必須找一種全新的管理理念和管理手段對其內(nèi)部和外部資源進行有效的整合新一代一ERP產(chǎn)品正在向客戶端和供應端延伸客戶端的延伸是客戶關系管理而供應端的延伸則是跨企業(yè)供應鏈的同步管理對于每個企業(yè)來說客戶管理的完善程度將直接影響企業(yè)的經(jīng)濟效益關鍵詞 客戶關系管理系統(tǒng)庫存管理報表管理目錄摘要10 引言11 系統(tǒng)分析211 需求分析212 可行性分析22 總體設計221 項目規(guī)劃222 系統(tǒng)功能結(jié)構(gòu)圖33 系統(tǒng)設計331 設計目標332 開發(fā)及運行環(huán)境433 數(shù)據(jù)庫設計44 客戶管理模塊設計541 客戶信息管理設計542 聯(lián)系人信息管理設計1143 合同信息管理145 服務管理2551 反饋信息添加2652 反饋信息修改276 報表管理961 客戶報表模塊62 聯(lián)系人報表模塊附錄A 參考文獻附錄B 數(shù)據(jù)表0 引言信息時代的今天各企業(yè)商家所關心的不再局限于自身的產(chǎn)品質(zhì)量生產(chǎn)設備員工的素質(zhì)更多的是關心自己的銷售群體客戶群關心他們的想法需求購賣目的眾所周知顧客就是我們的上帝我們只有滿足了上帝的需求上帝才能給我們帶來一切一個企業(yè)要生存要發(fā)展就是要不斷的滿足客戶的需求無論我們做出什么樣的決策最終都是為了這個的目每個領域都有自身生存法則但無論這個法則如何變化為客戶服務的宗旨是不會變的作為企業(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)分析11 需求分析通過調(diào)查研究要求系統(tǒng)滿足有以下功能由于操作人員的計算機知識普遍較差要求有良好的人機界面方便的數(shù)據(jù)選擇查詢支持模糊查詢功能管理客戶的詳細信息包括客戶的基本信息聯(lián)系人信息和客戶簽寫的合同信息記錄產(chǎn)品出庫入庫的詳細信息為更多的了解客戶的需求設計了服務模塊用以記錄客戶的反饋信息并對反饋信息進行管理和客戶聯(lián)系人之間通過郵件e-mail進行聯(lián)系對聯(lián)系人郵件地址進行管理提供信息數(shù)據(jù)導出Excel報表的功能提供報表的打印功能對用戶信息進行管理并為用戶設置管理權限數(shù)據(jù)計算自動完成盡量減少人工干預修改當前管理員密碼的功能系統(tǒng)退出12 可行性分析經(jīng)濟性通過計算機網(wǎng)絡對客戶信息進行管理使企業(yè)對自身擁有的客戶有了一個更為深該的了解不僅能全面的統(tǒng)計客戶的購買數(shù)量及時的了解客戶的動態(tài)信息還可以根據(jù)計算機記錄的數(shù)據(jù)信息不斷的調(diào)整企業(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)系人信息合同信息進行添加刪除查詢等操作庫存管理模塊該模塊的主要功能是管理入庫出庫信息產(chǎn)品信息進行管理其中包括對庫存信息產(chǎn)品信息進行添加刪除查詢等操作服務管理模塊該模塊主要功能是對客戶反饋信息進行添加刪除查詢等操作報表管理模塊該模塊主要通過查詢條件對各種信息進行查詢并將得到的結(jié)果導出Excul表進行打印報表等操作其中信息包括客戶信息聯(lián)系人信息反饋客戶信息庫存信息email管理模塊該模塊主要管理客戶聯(lián)系人email地址信息對企業(yè)客戶之間的email文件進行管理向客戶發(fā)送郵件用戶管理該模塊主要管理用戶信息的添加刪除等操作并設置用戶的使用權限22 系統(tǒng)功能結(jié)構(gòu)圖圖1 數(shù)據(jù)表樹型結(jié)構(gòu)圖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" action ""posthidden判斷表單是否提交value "true"tiaoselect查詢類型 option value "模糊查詢" if request "tiao" "模糊查詢" then selected end if 模糊查詢 option value "精確查詢" if request "tiao" "精確查詢" then selected end if 精確查詢 selselect關鍵字類別 option value "ClientName" if request "sel" "ClientName" then selected end if 客戶名稱 option value "ClientHabitude" if request "sel" "ClientHabitude" then selected end if 企業(yè)性質(zhì) searchtext關鍵字 input name "search" type "text" id "search" value " request "search" " Submitsubmit查詢按鈕class "input" value "查詢"在表單提交之后在本頁將數(shù)據(jù)進行處理程序代碼如下 if request "post" "" thenif request "tiao" "模糊查詢" then 條件輸入為模糊查詢時獲得相應的記錄集set rs serverCreateObject "adodbrecordset" sql "select from tb_Client where "request "sel" " like "request "search" " order by id desc"rsopen sqlconn11else 條件輸入為精確查詢時獲得相應的記錄集set rs serverCreateObject "adodbrecordset" sql "select from tb_Client where "request "sel" " "request "search" " order by id desc"rsopen sqlconn11end ifelse 默認狀態(tài)下獲得相應的記錄集set rs serverCreateObject "adodbrecordset" sql "select from tb_Client order by id desc"rsopen sqlconn11end if實現(xiàn)分頁if not rseof thentol rsrecordcount 總記錄數(shù)rspagesize 15 獲取每頁顯示的記錄數(shù)page rspagecount requestpage clng request "p" 獲取當前頁if requestpage "" or requestpage 0 then 當接收頁碼的值為空或者0時使其等于1requestpage 1end ifif requestpage page then 在接收頁碼的值大于最大頁碼時使其等于最大頁碼requestpage pageend ifif requestpage 1 then 向上或向下移動相應的記錄rsmove requestpage-1 rspagesizeend iffor i 1 to rspagesize and not rseof 利用循環(huán)輸出數(shù)據(jù)if i mod 2 1 thenbg "FFFFFF"elsebg "efefef"end if tr align "center" bgcolor bg 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" rs "ClientEmail" rsmovenextif rseof then exit for 如果記錄集為空那么跳出循環(huán)nextelseresponseWrite "沒有客戶信息請 a href KeHu_addasp target bo 添加 " end if 當鼠標在某條記錄上懸停時其記錄所在行的背景顏色會發(fā)生改變此功能用到的js代碼如下 script language "javascript" function HLItem obj 鼠標經(jīng)過 objoldClassName objclassNameobjclassName "List" function Re obj 鼠標移開 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 " 客戶信息顯示查詢頁面的運行結(jié)果如圖4所示圖4 客戶信息查詢頁面的運行結(jié)果2客戶信息添加客戶信息添加的主要功能是用于用戶添加客戶信息在查詢頁面中單擊添加按鈕在展示區(qū)中會顯示添加頁面其設計效果如圖5所示如圖5 客戶信息添加頁面設計效果當單擊添加頁面中的添加按鈕時調(diào)用js編寫的自定義函數(shù)checks 通過函數(shù)驗證填寫的數(shù)據(jù)是否正確該函數(shù)的代碼如下 script language "javascript" function checks if fcome "" alert "公司名稱不能為空" return false 中間過程不詳細介紹因為實現(xiàn)方法類似 else if fcome "" alert "需求周期不能為空" return false 表單提交之后添加的數(shù)據(jù)將被提交到本頁進行處理本頁數(shù)據(jù)處理的程序代碼如下 if request "post" "" thenset rs serverCreateObject "adodbrecordset" sql "select from tb_Client"rsopen sqlconn13rsaddnewrs "ClientName" request "ClientName" 添加公司名稱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 "ClientEmail" 公司emailrs "ClientCountry" request "ClientCountry" 所屬國家地區(qū)rs "ClientHabitude" request "ClientHabitude" 公司性質(zhì)rs "ClientSize" request "ClientSize" 公司規(guī)模rs "ClientCity" request "ClientCity" 所屬城市rs "ClientPay" request "ClientPay" 結(jié)款方式rs "ClientCredit" request "ClientCredit" 結(jié)款信用rs "ClientList" request "ClientList" 最高訂單rs "ClientYear" request "ClientYear" 年度訂單rs "ClientCyc" request "ClientCyc" 需求周期rs "SetTime" now 創(chuàng)建時間rs "EditTime" now 修改時間rs "SetName" session "admin_name" 創(chuàng)建人rsupdaterscloseconncloseresponseWrite " script language javascript alert 客戶信息添加成功 " 彈出成功對話框end if 3客戶信息修改在顯示客戶詳細信息頁面用戶可以瀏覽修改其客戶的詳細信息進行客戶詳細信息瀏覽和修改的頁面設計效果如圖6所示圖6 客戶信息修改頁面設計效果在客戶信息修改頁面用戶可以瀏覽客戶詳細的信息也可以修改客戶的信息當用戶有修改的權限時那么用戶可以進行修改至于用戶權限的實現(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 sqlconn13rs "ClientName" request "ClientName" 添加公司名稱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 "ClientEmail" 公司emailrs "ClientCountry" request "ClientCountry" 所屬國家地區(qū)rs "ClientHabitude" request "ClientHabitude" 公司性質(zhì)rs "ClientSize" request "ClientSize" 公司規(guī)模rs "ClientCity" request "ClientCity" 所屬城市rs "ClientPay" request "ClientPay" 結(jié)款方式rs "ClientCredit" request "ClientCredit" 結(jié)款信用rs "ClientList" request "ClientList" 最高訂單rs "ClientYear" request "ClientYear" 年度訂單rs "ClientCyc" request "ClientCyc" 需求周期rs "EditTime" now 修改時間rs "SetName" session "admin_name" 創(chuàng)建人rsupdaterscloseresponseWrite " script language javascript alert 客戶信息修改成功 " 彈出成功對話框end if 4客戶信息刪除在客戶信息管理頁面用戶可以點選任意一條客戶信息前面的復選框然后單擊頁面下方的刪除按鈕被選擇的客戶信息將被刪除客戶信息刪除主要是根據(jù)傳遞的參數(shù)本例中的參數(shù)為客戶信息的id將數(shù)據(jù)庫中對應id的客戶信息和其他和客戶相關的信息全部刪除程序代碼如下 call client 驗證是否有刪除客戶信息的權限if request "del" "" thenkid 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 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 nextif request "p" "" then 返回用戶操作頁responseRedirect "KeHu_KeHuasp" elseresponseRedirect "KeHu_KeHuaspp "request "p" end ifelseresponseWrite " script language javascript alert 請選擇要刪除的信息 location javascripthistorygo -1 " end if 42 聯(lián)系人信息管理設計聯(lián)系人信息管理的主要功能包括顯示查詢添加修改和刪除聯(lián)系人信息4個部分用戶可以通過功能導航進入聯(lián)系人信息管理頁面頁面設計效果如圖7所示圖7 聯(lián)系人信息管理頁面設計效果1聯(lián)系人信息顯示查詢用戶可以在聯(lián)系人信息管理頁面中的查詢部分輸入一定的查詢條件進行聯(lián)系人信息的查詢用戶在查詢部分輸入條件后單擊查詢按鈕用戶添加的查詢條件將被提交給本頁本頁則將根據(jù)用戶提交的表單信息對數(shù)據(jù)庫進行檢索并將結(jié)果集通過操作區(qū)輸出到瀏覽器中查詢代碼如下 if request "post" "" thenif request "tiao" "模糊查詢" then 聯(lián)系人模糊查詢set rs serverCreateObject "adodbrecordset" sql "select from tb_Linkman where "request "sel" " like "request "search" " order by id desc"rsopen sqlconn11else 聯(lián)系人精確查詢set rs serverCreateObject "adodbrecordset" sql "select from tb_Linkman where "request "sel" " "request "search" " order by id desc" rsopen sqlconn11end ifelse 默認狀態(tài)下顯示聯(lián)系人列表set rs serverCreateObject "adodbrecordset" sql "select from tb_Linkman order by id desc"rsopen sqlconn11end if 分頁代碼請參考41節(jié)中介紹的客戶信息顯示查詢中的相關代碼也可在查看客戶的詳細信息中單擊聯(lián)系人信息就會產(chǎn)生此客戶的聯(lián)系人列表傳參代碼如下 a href "KeHu_Linkmanasppost truesel LinkmanClientsearch rsx "id" dd dd" 聯(lián)系人信息 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" for i 1 to rscrecordcount and not rsceof option value " rsc "id" " rsc "ClientName" rscmovenextnext elseresponseWrite "沒有客戶信息請 a href KeHu_addasp target bo 添加 " end if 添加聯(lián)系人頁面的運行結(jié)果如圖8所示圖8 添加聯(lián)系人的頁面運行結(jié)果也可在客戶的詳細信息中單擊新建按鈕在此添加用戶不用選擇所屬客戶直接就會生成所屬客戶主要是根據(jù)傳遞的參數(shù)本例中的參數(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)系人信息修改的主要功能是用戶修改聯(lián)系人信息方便用戶和客戶之間的聯(lián)系和溝通在顯示聯(lián)系人詳細信息頁面用戶可以更改其聯(lián)系人的信息聯(lián)系人信息修改頁面運行結(jié)果如圖9所示圖9 聯(liá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 sqld next 43 合同信息管理合同信息管理設計主要包括顯示查詢添加修改和刪除合同信息4個部分用戶可以通過功能導航進入合同信息管理頁面頁面設計效果如圖10所示圖10 合同信息管理頁面的運行結(jié)果1合同信息顯示查詢用戶可以在合同信息管理頁面中的查詢部分輸入一定的查詢條件進行合同信息的查詢用戶在查詢部分輸入查詢條件后單擊查詢按鈕用戶所添加的查詢條件將被提交給本頁本頁將根據(jù)用戶提交的表單信息對數(shù)據(jù)庫進行檢索并將結(jié)果集通過操作區(qū)輸出到瀏覽器中合同信息查詢程序代碼如下 if request "post" "" thenif request "tiao" "模糊查詢" then模糊查詢合同信息set rs serverCreateObject "adodbrecordset" sql "select from tb_Pact where "request "sel" " like "request "search" " order by id desc"rsopen sqlconn11else精確查詢合同信息set rs serverCreateObject "adodbrecordset" sql "select from tb_Pact where "request "sel" " "request "search" " order by id desc"rsopen sqlconn11end ifelse 默認狀態(tài)下顯示的合同信息set rs serverCreateObject "adodbrecordset" sql "select from tb_Pact order by id desc"rsopen sqlconn11end if 合同信息顯示查詢頁面運行結(jié)果如圖11所示圖11 合同信息顯示查詢頁面運行結(jié)果也可在查看客戶的詳細信息中單擊合同信息就會產(chǎn)生此客戶的合同列表傳參代碼如下 a href "KeHu_Pactasppost truesel PactClientsearch rsx "id" dd dd" 合同信息 2合同信息添加合同信息添加的主要功能是用戶添加客戶的合同信息在查詢頁面中單擊添加按鈕在展示區(qū)中會顯示添加頁面其運行結(jié)果如圖17上所示也可在客戶的詳細信息頁面單擊新建在展示區(qū)中會顯示添加頁面然后進行合同信息添加合同信息添加頁面的運行結(jié)果如圖12下所示圖12 合同信息添加頁面運行結(jié)果3合同信息修改合同信息修改的主要功能是用戶修改合同信息在顯示合同詳細信息頁面用戶可以更改其合同的信息合同信息修改頁面運行結(jié)果如圖13所示圖13 合同信息修改頁面運行結(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 服務管理服務管理設計的主要功能包括反饋信息的顯示查詢添加修改和刪除4個部分用戶可以通過功能導航進入服務管理頁面頁面設計效果如圖20所示圖20 服務管理頁面的設計效果51 反饋信息添加反饋信息添加的主要功能是用戶添加客戶的反饋信息在查詢頁面中單擊添加按鈕在展示區(qū)中會顯示添加頁面反饋信息添加頁面的設計效果如圖21所示圖21 反饋信息添加頁面的設計效果反饋信息添加頁面涉及的6>HTML表單元素如表3所示表3 反饋信息信息添加頁面涉及的HTML表單元素名稱類型含義重要屬性form1Form表單method "post" action ""posthidden判斷表單是否提交value "true"FeedbackTitletext反饋主題class "in" size "30"FeedbackFulfillradio是否完成 value "未完成" value "已完成"yearselect年 option value " i " i monthselect月 option value " i " i dayselect日 option value " i " i FeedbackClientselect相關客戶 option value " rsc "id" " rsc "ClientName" FeedbackContenttextarea詳細內(nèi)容cols "88" rows "4" class "table"FeedbackResulttextarea處理結(jié)果cols "88" rows "4" class "table"Submitselect添加按鈕class "input" value "添加" onClick "return checks "表單提交之后添加的數(shù)據(jù)將被提交到本頁進行處理數(shù)據(jù)處理的程序代碼如下 call feedbackif request "post" "" thenset rs serverCreateObject "adodbrecordset" sql "select from tb_Feedback"rsopen sqlconn13rsaddnew 主要用于添加客戶反饋信息的數(shù)據(jù)rs "FeedbackTitle" request "FeedbackTitle" rs "FeedbackDate" request "year" "-"request "month" "-"request "day" rs "FeedbackClient" request "FeedbackClient" rs "FeedbackContent" request "FeedbackContent" rs "FeedbackResult" request "FeedbackResult" rs "FeedbackFulfill" request "FeedbackFulfill" rs "SetTime" now rs "SetName" session "admin_name" rsupdaterscloseresponseWrite " script language javascript alert 反饋信息添加成功 " end if 52 反饋信息修改因為反饋信息是客戶的反饋意見所以不得隨意修改用戶只可以修改處理結(jié)果和服務完成兩項信息當服務完成選項選中已完成時那么任何信息都不可以修改也就是說只有在服務未完成的情況下才能修改處理結(jié)果反饋信息頁面設計效果如圖22所示圖22 反饋信息頁面設計效果反饋信息修改頁面涉及的HTML表單元素如表4所示表4 反饋信息信息修改頁面涉及的HTML表單元素名稱類型含義重要屬性form1Form表單method "post" action ""posthidden判斷表單是否提交value "true"FeedbackTitletext反饋主題value " rsx "FeedbackTitle" " size "30" readonly "true" class "in"FeedbackFulfillradio是否完成 value "未完成" if rsx "FeedbackFulfill" "未完成" then checked end if value "已完成" if rsx "FeedbackFulfill" "已完成" then checked end if FeedbackDatetext年value " rsx "FeedbackDate" " size "30" readonly "true" class "in"FeedbackClientselect相關客戶value " rsc "ClientName" " size "30" readonly "true" class "in"FeedbackContenttextarea詳細內(nèi)容cols "88" rows "4" class "table" readonly trueFeedbackResulttextarea處理結(jié)果cols "88" rows "4" class "table" if rsx "FeedbackFulfill" "已完成" then readonly true else onfocus thisselect onmouseover thisfocus end if Submitselect添加按鈕class "input" value "修 改" onClick "return checks "在反饋信息修改頁面當用戶單擊修改按鈕后修改數(shù)據(jù)將被提交到本頁進行處理數(shù)據(jù)處理程序的代碼如下 if request "post" "" thenset rs serverCreateObject "adodbrecordset" sql "select from tb_Feedback where id "request "id" rsopen sqlconn13rs "FeedbackFulfill" request "FeedbackFulfill" rs "FeedbackResult" request "FeedbackResult" rsupdaterscloseresponseWrite " script language javascript alert 反饋信息修改成功 location Feedback_edaspid "request "id" " " end if 7 報表管理報表管理的主要功能是打印各種類型的報表包括客戶報表打印聯(lián)系人報表打印反饋報表打印和庫存報表打印4個部分報表管理頁面設計效果如圖23所示圖23 報表管理頁面設計效果71 客戶報表模塊客戶報表模塊的主要功能包括客戶報表查詢導入Excel和用web打印3個部分1客戶報表查詢客戶報表查詢頁面涉及的HTML表單元素如表5所示表5 客戶報表查詢頁面涉及的HTML表單元素名稱類型含義重要屬性form1Form表單method "post" action ""eeeetHidden判斷表單如何處理ClientCountrySelect國家地區(qū) option value " rsg "ClientCountry" " rsg "ClientCountry" ClientCitySelect城市 option value " rsc "ClientCity" " rsc "ClientCity" SetNameSelect創(chuàng)建者 option value " rss "SetName" " rss "SetName" optionsearchtype類別 option value "ClientName" 公司名稱 option value "ClientAddress" 公司地址 Submitsubmit導入Execulclass "input" value "導入Excul" onClick "fcome excul"Submitsubmit直接打印class "input" value "打印報表" onClick "fcome print_c"用戶可以在報表管理頁面中的客戶報表查詢部分輸入查詢條件進行客戶信息的查詢2導入Excel當用戶在查詢部分輸入條件并單擊導入Excel按鈕后用戶添加的查詢條件將被提交給數(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 ifif request "ClientCity" "全部" then 城市不為全部時sql sql" and ClientCity "request "ClientCity" ""end ifif request "SetName" "全部" then 客戶名稱不為全部時sql sql" and SetName "request "SetName" ""end ifif trim request "search" "" then 當關鍵字不為空時sql sql" and "request "searchtype" " like "request "search" ""end ifsql "select ClientNameClientCountryClientCityClientTelClientFaxClientEmail from tb_Client where "sqlresponseRedirect "Table_print_Cdaspsql "sql"tt excul" 把參數(shù)傳給下載頁面 當數(shù)據(jù)處理頁處理完畢之后會自動轉(zhuǎn)向下載頁在下載頁中單擊左鍵直接用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 "姓名""客戶名稱""部門""職務""電話""手機""E-mail" elseif request "tt" "excul_k" then 當為反饋客戶報表查詢時產(chǎn)生相應字段a array "客戶名稱""反饋日期""是否解決""反饋主題""反饋內(nèi)容""處理結(jié)果" elseif request "tt" "excul_kc" then 當為庫存報表查詢時產(chǎn)生相應字段a array "客戶編號""客戶名稱""產(chǎn)品數(shù)量""單位""庫存類型" end if responseContentType "applicationvndms-excel" 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 rsmovenextlooprsclose 報表下載頁面的運行結(jié)果如圖24所示圖24 報表下載頁面的運行結(jié)果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 ifif request "ClientCity" "全部" then 城市不為全部時sql sql" and ClientCity "request "ClientCity" ""end ifif request "SetName" "全部" then 客戶名稱不為全部時sql sql" and SetName "request "SetName" ""end ifif trim request "search" "" then 當關鍵字不為空時sql sql" and "request "searchtype" " like "request "search" ""end ifsql "select from tb_Client where "sqlresponseRedirect "Table_print_paspsql "sql 把參數(shù)傳給打印頁面 當數(shù)據(jù)處理頁處理完畢之后會自動轉(zhuǎn)向打印頁打印頁是一個框架集包含三個頁面框架頁代碼如下 sql request "sql" if sql "" thensql session "sql" end ifsession "sql" sqlshow request "show" if show "" thenshow 15end ifp request "p" if p "" or p 0 thenp 1end 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 request "sql" show show p p " name "mainFrame" frameborder "no" 控制頁面代碼如下 sql request "sql" 獲取sql語句if sql "" thensql session "sql" end ifsession "sql" sqlshow request "show" set rs serverCreateObject "adodbrecordset" sql sqlrsopen sqlconn11if not rseof thentol rsrecordcountrspagesize showpage rspagecountrequestpage clng request "p" elsepage 0tol 0show 0end if table width "649" border "0" align "center" tr valign "middl