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

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

1、客戶關(guān)系管理系統(tǒng)論文范例 客戶關(guān)系管理系統(tǒng)學(xué) 院專 業(yè)班 級學(xué) 號姓 名指導(dǎo)教師教師職稱年月日摘要摘要隨著市場體系的日益完善我們已經(jīng)進入了一個買方市場時代選擇空間擴大購買渠道拓寬消費心態(tài)和購買行為越發(fā)成熟使客戶再不會對某一企業(yè)或者產(chǎn)品盲目地保持絕對忠誠如何不斷改善客戶關(guān)系掌據(jù)更多的客戶信息提高客戶滿意度如何在日益激烈的市場競爭中把握機會占有更大的市場份額如何建立高效業(yè)務(wù)流程降低運營成本獲取更多的利潤這些已成為每個企業(yè)怕面臨的首要問題這種情況下企業(yè)要在激烈的市場競爭中立于不敗之地就必須找一種全新的管理理念和管理手段對其內(nèi)部和外部資源進行有效的整合新一代一ERP產(chǎn)品正在向客戶端和供應(yīng)端延伸客戶端的

2、延伸是客戶關(guān)系管理而供應(yīng)端的延伸則是跨企業(yè)供應(yīng)鏈的同步管理對于每個企業(yè)來說客戶管理的完善程度將直接影響企業(yè)的經(jīng)濟效益關(guān)鍵詞 客戶關(guān)系管理系統(tǒng)庫存管理報表管理目錄摘要10 引言11 系統(tǒng)分析211 需求分析212 可行性分析22 總體設(shè)計221 項目規(guī)劃222 系統(tǒng)功能結(jié)構(gòu)圖33 系統(tǒng)設(shè)計331 設(shè)計目標(biāo)332 開發(fā)及運行環(huán)境433 數(shù)據(jù)庫設(shè)計44 客戶管理模塊設(shè)計541 客戶信息管理設(shè)計542 聯(lián)系人信息管理設(shè)計1143 合同信息管理145 服務(wù)管理2551 反饋信息添加2652 反饋信息修改276 報表管理961 客戶報表模塊62 聯(lián)系人報表模塊附錄A 參考文獻(xiàn)附錄B 數(shù)據(jù)表0 引言信息時代

3、的今天各企業(yè)商家所關(guān)心的不再局限于自身的產(chǎn)品質(zhì)量生產(chǎn)設(shè)備員工的素質(zhì)更多的是關(guān)心自己的銷售群體客戶群關(guān)心他們的想法需求購賣目的眾所周知顧客就是我們的上帝我們只有滿足了上帝的需求上帝才能給我們帶來一切一個企業(yè)要生存要發(fā)展就是要不斷的滿足客戶的需求無論我們做出什么樣的決策最終都是為了這個的目每個領(lǐng)域都有自身生存法則但無論這個法則如何變化為客戶服務(wù)的宗旨是不會變的作為企業(yè)我們只有不斷地挖掘新客戶維護好和老客戶的關(guān)系占領(lǐng)市場客戶群體的絕大多數(shù)份額才能在整個領(lǐng)域取得一席之地海爾總裁張瑞敏指出客戶資源決定企業(yè)核心競爭力上個世紀(jì)80年代是物品短缺的時代而現(xiàn)在信息時代是客戶短缺的時代企業(yè)發(fā)展所需的各種資源包括人

4、力物力生產(chǎn)力都是可以創(chuàng)造的但每個領(lǐng)域中的客戶資源確是有限的所以通過創(chuàng)新產(chǎn)品的創(chuàng)新企業(yè)管理的創(chuàng)新服務(wù)的創(chuàng)新來搶占有限的客戶資源維護好企業(yè)和客戶之間的關(guān)系了解客戶的需求動向成為企業(yè)生存發(fā)展面臨的重大問題1 系統(tǒng)分析11 需求分析通過調(diào)查研究要求系統(tǒng)滿足有以下功能由于操作人員的計算機知識普遍較差要求有良好的人機界面方便的數(shù)據(jù)選擇查詢支持模糊查詢功能管理客戶的詳細(xì)信息包括客戶的基本信息聯(lián)系人信息和客戶簽寫的合同信息記錄產(chǎn)品出庫入庫的詳細(xì)信息為更多的了解客戶的需求設(shè)計了服務(wù)模塊用以記錄客戶的反饋信息并對反饋信息進行管理和客戶聯(lián)系人之間通過郵件e-mail進行聯(lián)系對聯(lián)系人郵件地址進行管理提供信息數(shù)據(jù)導(dǎo)出E

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

6、塊email管理模塊用戶管理模塊組成規(guī)劃系統(tǒng)功能模塊如下客戶管理模塊該模塊主要功能是對客戶信息客戶聯(lián)系人信息合同信息進行添加刪除查詢等操作庫存管理模塊該模塊的主要功能是管理入庫出庫信息產(chǎn)品信息進行管理其中包括對庫存信息產(chǎn)品信息進行添加刪除查詢等操作服務(wù)管理模塊該模塊主要功能是對客戶反饋信息進行添加刪除查詢等操作報表管理模塊該模塊主要通過查詢條件對各種信息進行查詢并將得到的結(jié)果導(dǎo)出Excul表進行打印報表等操作其中信息包括客戶信息聯(lián)系人信息反饋客戶信息庫存信息email管理模塊該模塊主要管理客戶聯(lián)系人email地址信息對企業(yè)客戶之間的email文件進行管理向客戶發(fā)送郵件用戶管理該模塊主要管理用戶

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

8、action posthidden判斷表單是否提交value truetiaoselect查詢類型 option value 模糊查詢 if request tiao 模糊查詢 then selected end if 模糊查詢 option value 精確查詢 if request tiao 精確查詢 then selected end if 精確查詢 selselect關(guān)鍵字類別 option value ClientName if request sel ClientName then selected end if 客戶名稱 option value ClientHabitude i

9、f request sel ClientHabitude then selected end if 企業(yè)性質(zhì) searchtext關(guān)鍵字 input name search type text id search value request search Submitsubmit查詢按鈕class input value 查詢在表單提交之后在本頁將數(shù)據(jù)進行處理程序代碼如下 if request post thenif request tiao 模糊查詢 then 條件輸入為模糊查詢時獲得相應(yīng)的記錄集set rs serverCreateObject adodbrecordset sql sel

10、ect from tb_Client where request sel like request search order by id descrsopen sqlconn11else 條件輸入為精確查詢時獲得相應(yīng)的記錄集set rs serverCreateObject adodbrecordset sql select from tb_Client where request sel request search order by id descrsopen sqlconn11end ifelse 默認(rèn)狀態(tài)下獲得相應(yīng)的記錄集set rs serverCreateObject adodbr

11、ecordset sql select from tb_Client order by id descrsopen sqlconn11end if實現(xiàn)分頁if not rseof thentol rsrecordcount 總記錄數(shù)rspagesize 15 獲取每頁顯示的記錄數(shù)page rspagecount requestpage clng request p 獲取當(dāng)前頁if requestpage or requestpage 0 then 當(dāng)接收頁碼的值為空或者0時使其等于1requestpage 1end ifif requestpage page then 在接收頁碼的值大于最大頁

12、碼時使其等于最大頁碼requestpage pageend ifif requestpage 1 then 向上或向下移動相應(yīng)的記錄rsmove requestpage-1 rspagesizeend iffor i 1 to rspagesize and not rseof 利用循環(huán)輸出數(shù)據(jù)if i mod 2 1 thenbg FFFFFFelsebg efefefend if tr align center bgcolor bg style cursor hand onClick wicomes bo windowlocation KeHu_edaspid rs id onMouseOv

13、er 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 當(dāng)鼠標(biāo)在某條記錄上懸停時其記錄所在行的背景顏色會發(fā)生改變此功能用到的js代碼如下 script language javascri

14、pt function HLItem obj 鼠標(biāo)經(jīng)過 objoldClassName objclassNameobjclassName 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 客戶信息顯示查詢頁面的運行結(jié)果如圖4所示圖4 客戶信息

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

16、到本頁進行處理本頁數(shù)據(jù)處理的程序代碼如下 if request post thenset rs serverCreateObject adodbrecordset sql select from tb_Clientrsopen sqlconn13rsaddnewrs ClientName request ClientName 添加公司名稱rs ClientAddress request ClientAddress 公司地址rs ClientTel request ClientTel 公司電話rs ClientFax request ClientFax 公司傳真rs ClientNumber r

17、equest 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é)款

18、方式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 客戶信息添

19、加成功 彈出成功對話框end if 3客戶信息修改在顯示客戶詳細(xì)信息頁面用戶可以瀏覽修改其客戶的詳細(xì)信息進行客戶詳細(xì)信息瀏覽和修改的頁面設(shè)計效果如圖6所示圖6 客戶信息修改頁面設(shè)計效果在客戶信息修改頁面用戶可以瀏覽客戶詳細(xì)的信息也可以修改客戶的信息當(dāng)用戶有修改的權(quán)限時那么用戶可以進行修改至于用戶權(quán)限的實現(xiàn)將在后面的章節(jié)中進行講解當(dāng)用戶單擊修改按鈕后修改的數(shù)據(jù)將被提交到本頁進行處理數(shù)據(jù)處理的代碼如下 if request post and rsr Client 可寫 or rsr chaoji 是 then set rs serverCreateObject adodbrecordset sql

20、 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 ClientEm

21、ail 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 ClientL

22、ist 最高訂單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客戶信息刪除在客戶信息管理頁面用戶可以點選任意一條客戶信息前面的復(fù)選框然后單擊頁面下方的刪除按鈕被選擇的客戶信息將被刪除客戶信息刪除主要是根據(jù)傳遞的參數(shù)本例中的參

23、數(shù)為客戶信息的id將數(shù)據(jù)庫中對應(yīng)id的客戶信息和其他和客戶相關(guān)的信息全部刪除程序代碼如下 call client 驗證是否有刪除客戶信息的權(quán)限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 sq

24、lp 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

25、_KeHuasp elseresponseRedirect KeHu_KeHuaspp request p end ifelseresponseWrite script language javascript alert 請選擇要刪除的信息 location javascripthistorygo -1 end if 42 聯(lián)系人信息管理設(shè)計聯(lián)系人信息管理的主要功能包括顯示查詢添加修改和刪除聯(lián)系人信息4個部分用戶可以通過功能導(dǎo)航進入聯(lián)系人信息管理頁面頁面設(shè)計效果如圖7所示圖7 聯(lián)系人信息管理頁面設(shè)計效果1聯(lián)系人信息顯示查詢用戶可以在聯(lián)系人信息管理頁面中的查詢部分輸入一定的查詢條件進行聯(lián)系人信息

26、的查詢用戶在查詢部分輸入條件后單擊查詢按鈕用戶添加的查詢條件將被提交給本頁本頁則將根據(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 descrsopen sqlconn11else 聯(lián)系人精確查詢set rs server

27、CreateObject adodbrecordset sql select from tb_Linkman where request sel request search order by id desc rsopen sqlconn11end ifelse 默認(rèn)狀態(tài)下顯示聯(lián)系人列表set rs serverCreateObject adodbrecordset sql select from tb_Linkman order by id descrsopen sqlconn11end if 分頁代碼請參考41節(jié)中介紹的客戶信息顯示查詢中的相關(guān)代碼也可在查看客戶的詳細(xì)信息中單擊聯(lián)系人信息就

28、會產(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 descrscopen sqlcconn11 if not rsceof

29、 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é)果也可在客戶的詳細(xì)信息中單擊新建按鈕在此添加用戶不用選擇所屬客戶直接就會生成所屬客戶主要是根據(jù)傳遞的參數(shù)本例中的參數(shù)為客戶信息

30、的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 descrscopen sqlcconn11 responseWrite rsc ClientName 3聯(lián)系人信息修改聯(lián)系人信息修改的主要功能是用戶修改聯(lián)系人信息方便用戶和客戶之間的聯(lián)系和溝通在顯示聯(lián)系人詳細(xì)信息頁面用戶可以更改其聯(lián)系人的信息聯(lián)

31、系人信息修改頁面運行結(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 合同信息管理合同信息管理設(shè)計主要包括顯示查詢添加修改和刪除合同信息4個部分用戶可以通過功能導(dǎo)航進入合同信息管理頁面頁面設(shè)計效果如圖10所示圖10 合同信息管理

32、頁面的運行結(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 or

33、der by id descrsopen sqlconn11else精確查詢合同信息set rs serverCreateObject adodbrecordset sql select from tb_Pact where request sel request search order by id descrsopen sqlconn11end ifelse 默認(rèn)狀態(tài)下顯示的合同信息set rs serverCreateObject adodbrecordset sql select from tb_Pact order by id descrsopen sqlconn11end if 合

34、同信息顯示查詢頁面運行結(jié)果如圖11所示圖11 合同信息顯示查詢頁面運行結(jié)果也可在查看客戶的詳細(xì)信息中單擊合同信息就會產(chǎn)生此客戶的合同列表傳參代碼如下 a href KeHu_Pactasppost truesel PactClientsearch rsx id dd dd 合同信息 2合同信息添加合同信息添加的主要功能是用戶添加客戶的合同信息在查詢頁面中單擊添加按鈕在展示區(qū)中會顯示添加頁面其運行結(jié)果如圖17上所示也可在客戶的詳細(xì)信息頁面單擊新建在展示區(qū)中會顯示添加頁面然后進行合同信息添加合同信息添加頁面的運行結(jié)果如圖12下所示圖12 合同信息添加頁面運行結(jié)果3合同信息修改合同信息修改的主要功能

35、是用戶修改合同信息在顯示合同詳細(xì)信息頁面用戶可以更改其合同的信息合同信息修改頁面運行結(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 服務(wù)管理服務(wù)管理設(shè)計的主要功能包括反饋信息的顯示查詢添加修改和刪除4個部分用戶可以通過功能導(dǎo)航進入服務(wù)管理頁面頁面設(shè)計效果如圖20所示圖20

36、 服務(wù)管理頁面的設(shè)計效果51 反饋信息添加反饋信息添加的主要功能是用戶添加客戶的反饋信息在查詢頁面中單擊添加按鈕在展示區(qū)中會顯示添加頁面反饋信息添加頁面的設(shè)計效果如圖21所示圖21 反饋信息添加頁面的設(shè)計效果反饋信息添加頁面涉及的6HTML表單元素如表3所示表3 反饋信息信息添加頁面涉及的HTML表單元素名稱類型含義重要屬性form1Form表單method post action posthidden判斷表單是否提交value trueFeedbackTitletext反饋主題class in size 30FeedbackFulfillradio是否完成 value 未完成 value 已

37、完成yearselect年 option value i i monthselect月 option value i i dayselect日 option value i i FeedbackClientselect相關(guān)客戶 option value rsc id rsc ClientName FeedbackContenttextarea詳細(xì)內(nèi)容cols 88 rows 4 class tableFeedbackResulttextarea處理結(jié)果cols 88 rows 4 class tableSubmitselect添加按鈕class input value 添加 onClick r

38、eturn checks 表單提交之后添加的數(shù)據(jù)將被提交到本頁進行處理數(shù)據(jù)處理的程序代碼如下 call feedbackif request post thenset rs serverCreateObject adodbrecordset sql select from tb_Feedbackrsopen sqlconn13rsaddnew 主要用于添加客戶反饋信息的數(shù)據(jù)rs FeedbackTitle request FeedbackTitle rs FeedbackDate request year -request month -request day rs FeedbackClien

39、t 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 反饋信息修改因為反饋信息是客戶的反饋意見所以

40、不得隨意修改用戶只可以修改處理結(jié)果和服務(wù)完成兩項信息當(dāng)服務(wù)完成選項選中已完成時那么任何信息都不可以修改也就是說只有在服務(wù)未完成的情況下才能修改處理結(jié)果反饋信息頁面設(shè)計效果如圖22所示圖22 反饋信息頁面設(shè)計效果反饋信息修改頁面涉及的HTML表單元素如表4所示表4 反饋信息信息修改頁面涉及的HTML表單元素名稱類型含義重要屬性form1Form表單method post action posthidden判斷表單是否提交value trueFeedbackTitletext反饋主題value rsx FeedbackTitle size 30 readonly true class inFeed

41、backFulfillradio是否完成 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 inFeedbackClientselect相關(guān)客戶value rsc ClientName size 30 readonly true class inFeedbackContenttexta

42、rea詳細(xì)內(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 在反饋信息修改頁面當(dāng)用戶單擊修改按鈕后修改數(shù)據(jù)將被提交到本頁進行處理數(shù)據(jù)處理程序的

43、代碼如下 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 Feedba

44、ck_edaspid request id end if 7 報表管理報表管理的主要功能是打印各種類型的報表包括客戶報表打印聯(lián)系人報表打印反饋報表打印和庫存報表打印4個部分報表管理頁面設(shè)計效果如圖23所示圖23 報表管理頁面設(shè)計效果71 客戶報表模塊客戶報表模塊的主要功能包括客戶報表查詢導(dǎo)入Excel和用web打印3個部分1客戶報表查詢客戶報表查詢頁面涉及的HTML表單元素如表5所示表5 客戶報表查詢頁面涉及的HTML表單元素名稱類型含義重要屬性form1Form表單method post action eeeetHidden判斷表單如何處理ClientCountrySelect國家地區(qū) op

45、tion 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導(dǎo)入Execulclass input value 導(dǎo)入Excul onClick fco

46、me exculSubmitsubmit直接打印class input value 打印報表 onClick fcome print_c用戶可以在報表管理頁面中的客戶報表查詢部分輸入查詢條件進行客戶信息的查詢2導(dǎo)入Excel當(dāng)用戶在查詢部分輸入條件并單擊導(dǎo)入Excel按鈕后用戶添加的查詢條件將被提交給數(shù)據(jù)處理頁處理頁用select case判斷隱藏域的值進而確定怎樣處理數(shù)據(jù)處理頁對查詢條件經(jīng)過處理產(chǎn)生相應(yīng)的SQL查詢語句其代碼如下 sql id is not nullif request ClientCountry 全部 then 國家地區(qū)不為全部時sql sql and ClientCoun

47、try 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 當(dāng)關(guān)鍵字不為空時sql sql and request searchtype like request search end ifsql select C

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

49、cul_l then 當(dāng)為聯(lián)系人報表查詢時產(chǎn)生相應(yīng)字段a array 姓名客戶名稱部門職務(wù)電話手機E-mail elseif request tt excul_k then 當(dāng)為反饋客戶報表查詢時產(chǎn)生相應(yīng)字段a array 客戶名稱反饋日期是否解決反饋主題反饋內(nèi)容處理結(jié)果 elseif request tt excul_kc then 當(dāng)為庫存報表查詢時產(chǎn)生相應(yīng)字段a array 客戶編號客戶名稱產(chǎn)品數(shù)量單位庫存類型 end if responseContentType applicationvndms-excel set rs connexecute request sql table wi

50、dth 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)生相應(yīng)的

51、SQL查詢語句程序代碼如下 sql id is not nullif 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 re

52、quest search then 當(dāng)關(guān)鍵字不為空時sql sql and request searchtype like request search end ifsql select from tb_Client where sqlresponseRedirect Table_print_paspsql sql 把參數(shù)傳給打印頁面 當(dāng)數(shù)據(jù)處理頁處理完畢之后會自動轉(zhuǎn)向打印頁打印頁是一個框架集包含三個頁面框架頁代碼如下 sql request sql if sql thensql session sql end ifsession sql sqlshow request show if sho

53、w 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 framebord

54、er 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