畢業(yè)論文——客戶關(guān)系管理系統(tǒng)

本科畢業(yè)論文（設(shè)計）客戶關(guān)系管理系統(tǒng) 學(xué) 院: 信息學(xué)院 專 業(yè)：計算機科學(xué)與技術(shù) 班 級： 計算機 學(xué) 號： 學(xué)生姓名: 指導(dǎo)教師： 31 摘要【摘要】隨著市場體系的日益完善，我們已經(jīng)進入了一個買方市場時代。選擇空間擴大、購買渠道拓寬、消費心態(tài)和購買行為越發(fā)成熟，使客戶再不會對某一企業(yè)或者產(chǎn)品盲目地保持絕對忠誠，如何不斷改善客戶關(guān)系，掌據(jù)更多的客戶信息，提高客戶滿意度；如何在日益激烈的市場競爭中把握機會，占有更大的市場份額；如何建立高效業(yè)務(wù)流程，降低運營成本，獲取更多的利潤，這些已成為每個企業(yè)怕面臨的首要問題。這種情況下，企業(yè)要在激烈的市場競爭中立于不敗之地，就必須找一種全新的管理理念和管理手段，對其內(nèi)部和外部資源進行有效的整合。新一代一ERP產(chǎn)品正在向客戶端和供應(yīng)端延伸，客戶端的延伸是客戶關(guān)系管理，而供應(yīng)端的延伸則是跨企業(yè)供應(yīng)鏈的同步管理。對于每個企業(yè)來說客戶管理的完善程度將直接影響企業(yè)的經(jīng)濟效益?！娟P(guān)鍵詞】 客戶關(guān)系管理系統(tǒng)、庫存管理、報表管理目錄摘要10 引言11 系統(tǒng)分析21.1 需求分析21.2 可行性分析22 總體設(shè)計22.1 項目規(guī)劃22.2 系統(tǒng)功能結(jié)構(gòu)圖33 系統(tǒng)設(shè)計33.1 設(shè)計目標33.2 開發(fā)及運行環(huán)境43.3 數(shù)據(jù)庫設(shè)計44 客戶管理模塊設(shè)計54.1 客戶信息管理設(shè)計54.2 聯(lián)系人信息管理設(shè)計114.3 合同信息管理145 服務(wù)管理255.1 反饋信息添加265.2 反饋信息修改276 報表管理96.1 客戶報表模塊6.2 聯(lián)系人報表模塊附錄A 參考文獻附錄B 數(shù)據(jù)表0 引言信息時代的今天，各企業(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è)核心競爭力”，上個世紀80年代是物品短缺的時代，而現(xiàn)在，信息時代是客戶短缺的時代。企業(yè)發(fā)展所需的各種資源（包括人力、物力、生產(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)分析1.1 需求分析通過調(diào)查研究，要求系統(tǒng)滿足有以下功能；q 由于操作人員的計算機知識普遍較差，要求有良好的人機界面。q 方便的數(shù)據(jù)選擇查詢，支持模糊查詢功能。q 管理客戶的詳細信息：包括客戶的基本信息、聯(lián)系人信息、和客戶簽寫的合同信息。q 記錄產(chǎn)品出庫、入庫的詳細信息。q 為更多的了解客戶的需求，設(shè)計了服務(wù)模塊，用以記錄客戶的反饋信息，并對反饋信息進行管理。q 和客戶聯(lián)系人之間通過郵件（e-mail）進行聯(lián)系，對聯(lián)系人郵件地址進行管理。q 提供信息數(shù)據(jù)導(dǎo)出Excel報表的功能，提供報表的打印功能。q 對用戶信息進行管理，并為用戶設(shè)置管理權(quán)限。q 數(shù)據(jù)計算自動完成，盡量減少人工干預(yù)。q 修改當前管理員密碼的功能。q 系統(tǒng)退出。1.2 可行性分析q 經(jīng)濟性通過計算機網(wǎng)絡(luò)對客戶信息進行管理，使企業(yè)對自身擁有的客戶有了一個更為深該的了解。不僅能全面的統(tǒng)計客戶的購買數(shù)量，及時的了解客戶的動態(tài)信息，還可以根據(jù)計算機記錄的數(shù)據(jù)信息，不斷的調(diào)整企業(yè)的生產(chǎn)發(fā)展動向。q 技術(shù)性系統(tǒng)中設(shè)置了email管理模塊，此模塊大大的方便了企業(yè)和客戶聯(lián)系人之間的溝通。設(shè)置導(dǎo)入Excel功能、Web打印功能，方便用戶報表打印。2 總體設(shè)計2.1 項目規(guī)劃客戶關(guān)系管理系統(tǒng)是一個典型的數(shù)據(jù)庫開發(fā)應(yīng)用程序，由客戶管理模塊、庫存管理模塊、服務(wù)管理模塊、報表管理模塊、email管理模塊、用戶管理模塊組成，規(guī)劃系統(tǒng)功能模塊如下：q 客戶管理模塊該模塊主要功能是對客戶信息、客戶聯(lián)系人信息、合同信息進行添加、刪除、查詢等操作。q 庫存管理模塊該模塊的主要功能是管理入庫、出庫信息、產(chǎn)品信息進行管理，其中包括對庫存信息、產(chǎn)品信息進行添加、刪除、查詢等操作。q 服務(wù)管理模塊該模塊主要功能是對客戶反饋信息進行添加、刪除、查詢等操作。q 報表管理模塊該模塊主要通過查詢條件，對各種信息進行查詢，并將得到的結(jié)果導(dǎo)出Excul表、進行打印報表等操作（其中信息包括：客戶信息、聯(lián)系人信息、反饋客戶信息、庫存信息）。q email管理模塊該模塊主要管理客戶聯(lián)系人email地址信息，對企業(yè)客戶之間的email文件進行管理，向客戶發(fā)送郵件。q 用戶管理該模塊主要管理用戶信息的添加、刪除等操作，并設(shè)置用戶的使用權(quán)限。2.2 系統(tǒng)功能結(jié)構(gòu)圖圖1 數(shù)據(jù)表樹型結(jié)構(gòu)圖3 系統(tǒng)設(shè)計3.1 設(shè)計目標本系統(tǒng)是針對中小型企業(yè)通過網(wǎng)絡(luò)實現(xiàn)對客戶的管理而設(shè)計的，主要實現(xiàn)如下目標：q 對客戶信息（客戶基本信息、聯(lián)系人信息、合同信息）進行全面管理。q 及時查看庫存信息，并通過網(wǎng)站對入庫、出庫信息進行管理。q 強大的客戶信息、聯(lián)系人信息報表導(dǎo)出、打印功能q 及時了解客戶的反饋信息，并對其進行管理。q 實現(xiàn)各種信息的選擇查詢、模糊查詢功能等。q 實現(xiàn)了和客戶通過網(wǎng)絡(luò)在線溝通的功能，并對客戶聯(lián)系人的email地址進行管理。q 管理員可以添加操作員信息、設(shè)置操作員的權(quán)限。q 對用戶輸入的數(shù)據(jù)，系統(tǒng)進行嚴格的數(shù)據(jù)檢驗，盡可能排除人為的錯誤。q 要求系統(tǒng)的數(shù)據(jù)保密性強，通過為每個用戶設(shè)置使用權(quán)限來實現(xiàn)。q 系統(tǒng)運行穩(wěn)定、安全可靠。q 鍵盤操作，快速響應(yīng)。3.2 開發(fā)及運行環(huán)境硬件平臺：q CPU：P41。8GHz；q 內(nèi)存：256MB以上。軟件平臺：q 操作系統(tǒng)：Windows xp/ Windows 2000/ Windows 2003；q 數(shù)據(jù)庫：SQL Server 2000；q 瀏覽器：IE5.0，推薦使用IE6.0；q Web服務(wù)器：IIS5.0；q 分辨率：最佳效果1024*768。3.3 數(shù)據(jù)庫設(shè)計本系統(tǒng)數(shù)據(jù)庫采用SQLServer2000數(shù)據(jù)庫，系統(tǒng)數(shù)據(jù)庫名稱為db_System。數(shù)據(jù)庫db_ System中包含8張表。關(guān)于數(shù)據(jù)庫中的數(shù)據(jù)表請參見附錄B。4 客戶管理模塊設(shè)計客戶管理模塊的主要功能是對客戶信息進行管理，主要包括客戶信息管理、聯(lián)系人信息管理和合同信息管理3個部分。4.1 客戶信息管理設(shè)計客戶信息管理設(shè)計主要包括對客戶信息進行顯示/查詢、添加、修改和刪除4個部分的功能。用戶可以通過功能導(dǎo)航進入客戶信息管理頁面，頁面設(shè)計效果如圖3所示。圖3 客戶信息管理頁面的設(shè)計效果在客戶信息管理頁面中，用戶可以在查詢區(qū)域輸入查詢條件，并選擇查詢方式，查找相關(guān)的客戶信息；也可以單擊客戶信息，在展示區(qū)會顯示此客戶的詳細信息，也可對客戶信息進行修改；在選中每條信息前面的復(fù)選框，單擊【刪除】按鈕，選中的客戶信息將被刪除。1客戶信息顯示/查詢用戶可以在客戶信息管理頁面中的查詢部分，輸入一定的查詢條件進行客戶信息的查詢。當用戶在查詢部分輸入條件后，并單擊【查詢】按鈕，用戶添加的查詢條件將被提交給本頁，本頁將根據(jù)用戶提交的表單信息對數(shù)據(jù)庫進行檢索，并將結(jié)果集通過操作區(qū)輸出到瀏覽器中?？蛻粜畔⒉樵冺撁嫔婕暗腍TML表單元素如表1所示。表1 客戶信息查詢頁面涉及的HTML表單元素名稱類型含義重要屬性form1Form表單method=post action=posthidden判斷表單是否提交value=truetiaoselect查詢類型option value=模糊查詢 selected模糊查詢option value=精確查詢 selected精確查詢selselect關(guān)鍵字類別option value=ClientName selected客戶名稱option value=ClientHabitude selected企業(yè)性質(zhì)searchtext關(guān)鍵字input name=search type=text id=search value=Submitsubmit查詢按鈕class=input value=查詢在表單提交之后，在本頁將數(shù)據(jù)進行處理。程序代碼如下：%if request(post) thenif request(tiao)=模糊查詢 then 條件輸入為模糊查詢時獲得相應(yīng)的記錄集set rs=server.CreateObject(adodb.recordset)sql=select * from tb_Client where &request(sel)& like %&request(search)&% order by id descrs.open sql,conn,1,1else 條件輸入為精確查詢時獲得相應(yīng)的記錄集set rs=server.CreateObject(adodb.recordset)sql=select * from tb_Client where &request(sel)&=&request(search)& order by id descrs.open sql,conn,1,1end ifelse 默認狀態(tài)下獲得相應(yīng)的記錄集set rs=server.CreateObject(adodb.recordset)sql=select * from tb_Client order by id descrs.open sql,conn,1,1end if實現(xiàn)分頁if not rs.eof thentol=rs.recordcount 總記錄數(shù)rs.pagesize=15 獲取每頁顯示的記錄數(shù)maxpage=rs.pagecount requestpage=clng(request(p) 獲取當前頁if requestpage= or requestpage=0 then 當接收頁碼的值為空或者0時使其等于1requestpage=1end ifif requestpagemaxpage then 在接收頁碼的值大于最大頁碼時，使其等于最大頁碼requestpage=maxpageend ifif requestpage1 then 向上或向下移動相應(yīng)的記錄rs.move (requestpage-1)*rs.pagesizeend iffor i=1 to rs.pagesize and not rs.eof 利用循環(huán)輸出數(shù)據(jù)if i mod 2=1 thenbg=#FFFFFFelsebg=#efefefend if% tr align=center bgcolor= style=cursor: hand onClick=window.parent.frames(bo).window.location = KeHu_ed.asp?id=onMouseOver=HLItem(this) onMouseOut=Re(this) %rs.movenextif rs.eof then exit for 如果記錄集為空那么跳出循環(huán)nextelseresponse.Write(沒有客戶信息，請?zhí)砑?end if%當鼠標在某條記錄上懸停時，其記錄所在行的背景顏色會發(fā)生改變，此功能用到的js代碼如下：function HLItem(obj)/鼠標經(jīng)過obj.oldClassName=obj.className;obj.className=List;function Re(obj)/鼠標移開 obj.className=obj.oldClassName其調(diào)用的代碼如下：tr align=center bgcolor= style=cursor:hand onClick=window.parent.frames(bo).window.location = KeHu_ed.asp?id= onMouseOver=HLItem(this) onMouseOut=Re(this)客戶信息顯示/查詢頁面的運行結(jié)果如圖4所示：圖4 客戶信息查詢頁面的運行結(jié)果2客戶信息添加客戶信息添加的主要功能是用于用戶添加客戶信息。在查詢頁面中單擊【添加】按鈕，在展示區(qū)中會顯示添加頁面，其設(shè)計效果如圖5所示。如圖5 客戶信息添加頁面設(shè)計效果當單擊添加頁面中的【添加】按鈕時，調(diào)用js編寫的自定義函數(shù)（checks()），通過函數(shù)驗證填寫的數(shù)據(jù)是否正確，該函數(shù)的代碼如下：function checks() if(form1.ClientName.value=)alert(公司名稱不能為空);return false;/中間過程不詳細介紹，因為實現(xiàn)方法類似 else if(form1.ClientCyc.value=)alert(需求周期不能為空);return false;表單提交之后，添加的數(shù)據(jù)將被提交到本頁進行處理，本頁數(shù)據(jù)處理的程序代碼如下：%if request(post) thenset rs=server.CreateObject(adodb.recordset)sql=select * from tb_Clientrs.open sql,conn,1,3rs.addnewrs(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)建人rs.updaters.closeconn.closeresponse.Write(alert(客戶信息添加成功)彈出成功對話框end if%3客戶信息修改在顯示客戶詳細信息頁面，用戶可以瀏覽、修改其客戶的詳細信息。進行客戶詳細信息瀏覽和修改的頁面設(shè)計效果如圖6所示：圖6 客戶信息修改頁面設(shè)計效果在客戶信息修改頁面，用戶可以瀏覽客戶詳細的信息，也可以修改客戶的信息（當用戶有修改的權(quán)限時，那么用戶可以進行修改，至于用戶權(quán)限的實現(xiàn)，將在后面的章節(jié)中進行講解）。當用戶單擊【修改】按鈕后，修改的數(shù)據(jù)將被提交到本頁進行處理。數(shù)據(jù)處理的代碼如下：% if request(post) and (rsr(Client)=可寫 or rsr(chaoji)=是) then set rs=server.CreateObject(adodb.recordset)sql=select * from tb_Client where id=&request(id)rs.open sql,conn,1,3rs(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)建人rs.updaters.closeresponse.Write(alert(客戶信息修改成功)彈出成功對話框end if%4客戶信息刪除在客戶信息管理頁面，用戶可以點選任意一條客戶信息前面的復(fù)選框，然后單擊頁面下方的【刪除】按鈕，被選擇的客戶信息將被刪除?？蛻粜畔h除主要是根據(jù)傳遞的參數(shù)（本例中的參數(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)刪除客戶信息conn.execute(sqld)sqll=delete from tb_Linkman where LinkmanClient=&clng(kid(i)刪除客戶的聯(lián)系人信息conn.execute(sqll)sqlp=delete from tb_Pact where PactClient=&clng(kid(i)刪除客戶的合同信息conn.execute(sqlp)sqlp=delete from tb_Feedback where FeedbackClient=&clng(kid(i)刪除客戶反饋信息conn.execute(sqlp)sqlp=delete from tb_Product where ProductProvider=&clng(kid(i)刪除客戶的產(chǎn)品信息conn.execute(sqlp)nextif request(p)= then 返回用戶操作頁response.Redirect(KeHu_KeHu.asp)elseresponse.Redirect(KeHu_KeHu.asp?p=&request(p)end ifelseresponse.Write(alert(請選擇要刪除的信息);location=javascript:history.go(-1)end if%4.2 聯(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)系人信息的查詢。用戶在查詢部分輸入條件后，單擊【查詢】按鈕，用戶添加的查詢條件將被提交給本頁，本頁則將根據(jù)用戶提交的表單信息對數(shù)據(jù)庫進行檢索，并將結(jié)果集通過操作區(qū)輸出到瀏覽器中。查詢代碼如下：%if request(post) thenif request(tiao)=模糊查詢 then 聯(lián)系人模糊查詢set rs=server.CreateObject(adodb.recordset)sql=select * from tb_Linkman where &request(sel)& like %&request(search)&% order by id descrs.open sql,conn,1,1else 聯(lián)系人精確查詢set rs=server.CreateObject(adodb.recordset)sql=select * from tb_Linkman where &request(sel)&=&request(search)& order by id desc rs.open sql,conn,1,1end ifelse 默認狀態(tài)下顯示聯(lián)系人列表set rs=server.CreateObject(adodb.recordset)sql=select * from tb_Linkman order by id descrs.open sql,conn,1,1end if%分頁代碼請參考4.1節(jié)中介紹的客戶信息顯示/查詢中的相關(guān)代碼。也可在查看客戶的詳細信息中，單擊“聯(lián)系人信息”，就會產(chǎn)生此客戶的聯(lián)系人列表，傳參代碼如下：a href=KeHu_Linkman.asp?post=true&sel=LinkmanClient&search=&dd=dd聯(lián)系人信息2聯(lián)系人信息添加聯(lián)系人信息添加的主要功能是添加客戶的聯(lián)系人信息。在查詢頁面中單擊【添加】按鈕，在展示區(qū)中會顯示添加頁面。在添寫表單選擇所屬客戶時，所屬客戶是在數(shù)據(jù)庫中直接讀取出來的。其代碼如下： option value=%elseresponse.Write(沒有客戶信息，請?zhí)砑?end if%添加聯(lián)系人頁面的運行結(jié)果如圖8所示。圖8 添加聯(lián)系人的頁面運行結(jié)果也可在客戶的詳細信息中單擊【新建】按鈕，在此添加用戶不用選擇所屬客戶，直接就會生成所屬客戶，主要是根據(jù)傳遞的參數(shù)（本例中的參數(shù)為客戶信息的id），傳參代碼如下：a href=KeHu_Linkman_addy.asp?id=新建其顯示代碼如下：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)系人的信息。，其程序代碼如下：4.3 合同信息管理合同信息管理設(shè)計主要包括顯示/查詢、添加、修改和刪除合同信息4個部分。用戶可以通過功能導(dǎo)航進入合同信息管理頁面，頁面設(shè)計效果如圖10所示。圖10 合同信息管理頁面的運行結(jié)果1合同信息顯示/查詢用戶可以在合同信息管理頁面中的查詢部分，輸入一定的查詢條件，進行合同信息的查詢。用戶在查詢部分輸入查詢條件后，單擊【查詢】按鈕，用戶所添加的查詢條件將被提交給本頁，本頁將根據(jù)用戶提交的表單信息對數(shù)據(jù)庫進行檢索，并將結(jié)果集通過操作區(qū)輸出到瀏覽器中。合同信息查詢程序代碼如下：%if request(post) thenif request(tiao)=模糊查詢 then模糊查詢合同信息set rs=server.CreateObject(adodb.recordset)sql=select * from tb_Pact where &request(sel)& like %&request(search)&% order by id descrs.open sql,conn,1,1else精確查詢合同信息set rs=server.CreateObject(adodb.recordset)sql=select * from tb_Pact where &request(sel)&=&request(search)& order by id descrs.open sql,conn,1,1end ifelse 默認狀態(tài)下顯示的合同信息set rs=server.CreateObject(adodb.recordset)sql=select * from tb_Pact order by id descrs.open sql,conn,1,1end if%合同信息顯示/查詢頁面運行結(jié)果如圖11所示。圖11 合同信息顯示/查詢頁面運行結(jié)果也可在查看客戶的詳細信息中，單擊“合同信息”，就會產(chǎn)生此客戶的合同列表，傳參代碼如下：a href=KeHu_Pact.asp?post=true&sel=PactClient&search=&dd=dd 合同信息2合同信息添加合同信息添加的主要功能是用戶添加客戶的合同信息。在查詢頁面中單擊【添加】按鈕，在展示區(qū)中會顯示添加頁面，其運行結(jié)果如圖17（上）所示；也可在客戶的詳細信息頁面單擊“新建”，在展示區(qū)中會顯示添加頁面，然后進行合同信息添加。合同信息添加頁面的運行結(jié)果如圖12（下）所示。圖12 合同信息添加頁面運行結(jié)果3合同信息修改合同信息修改的主要功能是用戶修改合同信息。在顯示合同詳細信息頁面，用戶可以更改其合同的信息。合同信息修改頁面運行結(jié)果如圖13所示。圖13 合同信息修改頁面運行結(jié)果4合同信息的刪除合同信息刪除的主要功能是刪除合同信息，其代碼如下：5 服務(wù)管理服務(wù)管理設(shè)計的主要功能包括反饋信息的顯示/查詢、添加、修改和刪除4個部分。用戶可以通過功能導(dǎo)航進入服務(wù)管理頁面，頁面設(shè)計效果如圖20所示。圖20 服務(wù)管理頁面的設(shè)計效果5.1 反饋信息添加反饋信息添加的主要功能是用戶添加客戶的反饋信息。在查詢頁面中單擊【添加】按鈕，在展示區(qū)中會顯示添加頁面。反饋信息添加頁面的設(shè)計效果如圖21所示。圖21 反饋信息添加頁面的設(shè)計效果反饋信息添加頁面涉及的HTML表單元素如表3所示。表3 反饋信息信息添加頁面涉及的HTML表單元素名稱類型含義重要屬性form1Form表單method=post action=posthidden判斷表單是否提交value=trueFeedbackTitletext反饋主題class=in size=30FeedbackFulfillradio是否完成 value=未完成 value=已完成yearselect年option value=monthselect月option value=dayselect日option value=FeedbackClientselect相關(guān)客戶option value=FeedbackContenttextarea詳細內(nèi)容cols=88 rows=4 class=tableFeedbackResulttextarea處理結(jié)果cols=88 rows=4 class=tableSubmitselect添加按鈕class=input value=添加 onClick=return checks()表單提交之后，添加的數(shù)據(jù)將被提交到本頁進行處理。數(shù)據(jù)處理的程序代碼如下：%call feedbackif request(post) thenset rs=server.CreateObject(adodb.recordset)sql=select * from tb_Feedbackrs.open sql,conn,1,3rs.addnew 主要用于添加客戶反饋信息的數(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)rs.updaters.closeresponse.Write(alert(反饋信息添加成功)end if%5.2 反饋信息修改因為反饋信息是客戶的反饋意見所以不得隨意修改，用戶只可以修改“處理結(jié)果”和“服務(wù)完成”兩項信息。當服務(wù)完成選項，選中“已完成”時，那么任何信息都不可以修改，也就是說只有在服務(wù)“未完成”的情況下才能修改“處理結(jié)果”。反饋信息頁面設(shè)計效果如圖22所示。圖22 反饋信息頁面設(shè)計效果反饋信息修改頁面涉及的HTML表單元素如表4所示。表4 反饋信息信息修改頁面涉及的HTML表單元素名稱類型含義重要屬性form1Form表單method=post action=posthidden判斷表單是否提交value=trueFeedbackTitletext反饋主題value= size=30 readonly=true class=inFeedbackFulfillradio是否完成 value=未完成 checked value=已完成 checkedFeedbackDatetext年value= size=30 readonly=true class=inFeedbackClientselect相關(guān)客戶value= size=30 readonly=true class=inFeedbackContenttextarea詳細內(nèi)容cols=88 rows=4 class=table readonly=trueFeedbackResulttextarea處理結(jié)果cols=88 rows=4 class=table readonly=trueonfocus=this.select(); onmouseover=this.focus();Submitselect添加按鈕class=input value=修 改 onClick=return checks()在反饋信息修改頁面，當用戶單擊【修改】按鈕后，修改數(shù)據(jù)將被提交到本頁進行處理，數(shù)據(jù)處理程序的代碼如下：%if request(post) thenset rs=server.CreateObject(adodb.recordset)sql=select * from tb_Feedback where id=&request(id)rs.open sql,conn,1,3rs(FeedbackFulfill)=request(FeedbackFulfill)rs(FeedbackResult)=request(FeedbackResult)rs.updaters.closeresponse.Write(alert(反饋信息修改成功);location=Feedback_ed.asp?id=&request(id)&)end if%7 報表管理報表管理的主要功能是打印各種類型的報表，包括客戶報表打印、聯(lián)系人報表打印、反饋報表打印和庫存報表打印4個部分。報表管理頁面設(shè)計效果如圖23所示。圖23 報表管理頁面設(shè)計效果7.1 客戶報表模塊客戶報表模塊的主要功能包括客戶報表查詢、導(dǎo)入Excel和用web打印3個部分。1客戶報表查詢客戶報表查詢頁面涉及的HTML表單元素如表5所示。表5 客戶報表查詢頁面涉及的HTML表單元素名稱類型含義重要屬性form1Form表單method=post action=eeeetHidden判斷表單如何處理ClientCountrySelect國家/地區(qū)option value=ClientCitySelect城市option value=SetNameSelect創(chuàng)建者option value=/optionsearchtype類別公司名稱公司地址Submitsubmit導(dǎo)入Execulclass=input value=導(dǎo)入Excul onClick=form1.eeeet.value=exculSubmitsubmit直接打印class=input value=打印報表 onClick=form1.eeeet.value=print_c用戶可以在報表管理頁面中的客戶報表查詢部分，輸入查詢條件，進行客戶信息的查詢。2導(dǎo)入Excel當用戶在查詢部分輸入條件，并單擊【導(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 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 當關(guān)鍵字不為空時sql=sql& and &request(searchtype)& like %&request(search)&%end ifsql=select ClientName,ClientCountry,ClientCity,ClientTel,ClientFax,ClientEmail from tb_Client where &sqlresponse.Redirect(Table_print_Cd.asp?sql=&sql&tt=excul)把參數(shù)傳給下載頁面