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

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

2、戶端和供應(yīng)端延伸，客戶端的延伸是客戶關(guān)系管理，而供應(yīng)端的延伸則是跨企業(yè)供應(yīng)鏈的同步管理。對(duì)于每個(gè)企業(yè)來說客戶管理的完善程度將直接影響企業(yè)的經(jīng)濟(jì)效益?！娟P(guān)鍵詞】 客戶關(guān)系管理系統(tǒng)、庫存管理、報(bào)表管理目錄摘要10 引言11 系統(tǒng)分析21.1 需求分析21.2 可行性分析22 總體設(shè)計(jì)22.1 項(xiàng)目規(guī)劃22.2 系統(tǒng)功能結(jié)構(gòu)圖33 系統(tǒng)設(shè)計(jì)33.1 設(shè)計(jì)目標(biāo)33.2 開發(fā)及運(yùn)行環(huán)境43.3 數(shù)據(jù)庫設(shè)計(jì)44 客戶管理模塊設(shè)計(jì)44.1 客戶信息管理設(shè)計(jì)44.2 聯(lián)系人信息管理設(shè)計(jì)104.3 合同信息管理135 服務(wù)管理165.1 反饋信息添加165.2 反饋信息修改176 報(bào)表管理196.1 客戶報(bào)表模

3、塊196.2 聯(lián)系人報(bào)表模塊25附錄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ā)展，就是要不斷的滿足客戶的需求，無論我們做出什么樣的決策，最終都是為了這個(gè)的目。每個(gè)領(lǐng)域都有自身生存法則，但無論這個(gè)法則如何變化，為客戶服務(wù)的宗旨是不會(huì)變的。作為企業(yè)，我們只有不斷地挖掘新客戶，維護(hù)好和老客戶的關(guān)系，占領(lǐng)市場(chǎng)客戶群體的絕大多數(shù)份額，才能在整個(gè)領(lǐng)域取得一席之地。海

4、爾總裁張瑞敏指出：“客戶資源決定企業(yè)核心競(jìng)爭(zhēng)力”，上個(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)分析1.1 需求分析通過調(diào)查研究，要求系統(tǒng)滿足有以下功能；q 由于操作人員的計(jì)算機(jī)知識(shí)普遍較差，要求有良好的人機(jī)界面。q 方便的數(shù)據(jù)選擇查詢，支持模糊查詢功能。q 管理客戶的詳細(xì)信息：包括客戶的基本信息、聯(lián)系人信息、和客

5、戶簽寫的合同信息。q 記錄產(chǎn)品出庫、入庫的詳細(xì)信息。q 為更多的了解客戶的需求，設(shè)計(jì)了服務(wù)模塊，用以記錄客戶的反饋信息，并對(duì)反饋信息進(jìn)行管理。q 和客戶聯(lián)系人之間通過郵件（e-mail）進(jìn)行聯(lián)系，對(duì)聯(lián)系人郵件地址進(jìn)行管理。q 提供信息數(shù)據(jù)導(dǎo)出Excel報(bào)表的功能，提供報(bào)表的打印功能。q 對(duì)用戶信息進(jìn)行管理，并為用戶設(shè)置管理權(quán)限。q 數(shù)據(jù)計(jì)算自動(dòng)完成，盡量減少人工干預(yù)。q 修改當(dāng)前管理員密碼的功能。q 系統(tǒng)退出。1.2 可行性分析q 經(jīng)濟(jì)性通過計(jì)算機(jī)網(wǎng)絡(luò)對(duì)客戶信息進(jìn)行管理，使企業(yè)對(duì)自身擁有的客戶有了一個(gè)更為深該的了解。不僅能全面的統(tǒng)計(jì)客戶的購買數(shù)量，及時(shí)的了解客戶的動(dòng)態(tài)信息，還可以根據(jù)計(jì)算機(jī)記錄

6、的數(shù)據(jù)信息，不斷的調(diào)整企業(yè)的生產(chǎn)發(fā)展動(dòng)向。q 技術(shù)性系統(tǒng)中設(shè)置了email管理模塊，此模塊大大的方便了企業(yè)和客戶聯(lián)系人之間的溝通。設(shè)置導(dǎo)入Excel功能、Web打印功能，方便用戶報(bào)表打印。2 總體設(shè)計(jì)2.1 項(xiàng)目規(guī)劃客戶關(guān)系管理系統(tǒng)是一個(gè)典型的數(shù)據(jù)庫開發(fā)應(yīng)用程序，由客戶管理模塊、庫存管理模塊、服務(wù)管理模塊、報(bào)表管理模塊、email管理模塊、用戶管理模塊組成，規(guī)劃系統(tǒng)功能模塊如下：q 客戶管理模塊該模塊主要功能是對(duì)客戶信息、客戶聯(lián)系人信息、合同信息進(jìn)行添加、刪除、查詢等操作。q 庫存管理模塊該模塊的主要功能是管理入庫、出庫信息、產(chǎn)品信息進(jìn)行管理，其中包括對(duì)庫存信息、產(chǎn)品信息進(jìn)行添加、刪除、查詢等

7、操作。q 服務(wù)管理模塊該模塊主要功能是對(duì)客戶反饋信息進(jìn)行添加、刪除、查詢等操作。q 報(bào)表管理模塊該模塊主要通過查詢條件，對(duì)各種信息進(jìn)行查詢，并將得到的結(jié)果導(dǎo)出Excul表、進(jìn)行打印報(bào)表等操作（其中信息包括：客戶信息、聯(lián)系人信息、反饋客戶信息、庫存信息）。q email管理模塊該模塊主要管理客戶聯(lián)系人email地址信息，對(duì)企業(yè)客戶之間的email文件進(jìn)行管理，向客戶發(fā)送郵件。q 用戶管理該模塊主要管理用戶信息的添加、刪除等操作，并設(shè)置用戶的使用權(quán)限。2.2 系統(tǒng)功能結(jié)構(gòu)圖圖1 數(shù)據(jù)表樹型結(jié)構(gòu)圖3 系統(tǒng)設(shè)計(jì)3.1 設(shè)計(jì)目標(biāo)本系統(tǒng)是針對(duì)中小型企業(yè)通過網(wǎng)絡(luò)實(shí)現(xiàn)對(duì)客戶的管理而設(shè)計(jì)的，主要實(shí)現(xiàn)如下目標(biāo)：q

8、 對(duì)客戶信息（客戶基本信息、聯(lián)系人信息、合同信息）進(jìn)行全面管理。q 及時(shí)查看庫存信息，并通過網(wǎng)站對(duì)入庫、出庫信息進(jìn)行管理。q 強(qiáng)大的客戶信息、聯(lián)系人信息報(bào)表導(dǎo)出、打印功能q 及時(shí)了解客戶的反饋信息，并對(duì)其進(jìn)行管理。q 實(shí)現(xiàn)各種信息的選擇查詢、模糊查詢功能等。q 實(shí)現(xiàn)了和客戶通過網(wǎng)絡(luò)在線溝通的功能，并對(duì)客戶聯(lián)系人的email地址進(jìn)行管理。q 管理員可以添加操作員信息、設(shè)置操作員的權(quán)限。q 對(duì)用戶輸入的數(shù)據(jù)，系統(tǒng)進(jìn)行嚴(yán)格的數(shù)據(jù)檢驗(yàn)，盡可能排除人為的錯(cuò)誤。q 要求系統(tǒng)的數(shù)據(jù)保密性強(qiáng)，通過為每個(gè)用戶設(shè)置使用權(quán)限來實(shí)現(xiàn)。q 系統(tǒng)運(yùn)行穩(wěn)定、安全可靠。q 鍵盤操作，快速響應(yīng)。3.2 開發(fā)及運(yùn)行環(huán)境硬件平臺(tái)：

9、q CPU：P41。8GHz；q 內(nèi)存：256MB以上。軟件平臺(tái)：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è)計(jì)本系統(tǒng)數(shù)據(jù)庫采用SQLServer2000數(shù)據(jù)庫，系統(tǒng)數(shù)據(jù)庫名稱為db_System。數(shù)據(jù)庫db_ System中包含8張表。關(guān)于數(shù)據(jù)庫中的數(shù)據(jù)表請(qǐng)參見附錄B。4 客戶管理模塊設(shè)計(jì)客戶管理模塊的主要功能是對(duì)客戶信息進(jìn)行管理，主要包括客戶信息管理、聯(lián)系人信息管理和合同

10、信息管理3個(gè)部分。4.1 客戶信息管理設(shè)計(jì)客戶信息管理設(shè)計(jì)主要包括對(duì)客戶信息進(jìn)行顯示/查詢、添加、修改和刪除4個(gè)部分的功能。用戶可以通過功能導(dǎo)航進(jìn)入客戶信息管理頁面，頁面設(shè)計(jì)效果如圖3所示。圖3 客戶信息管理頁面的設(shè)計(jì)效果在客戶信息管理頁面中，用戶可以在查詢區(qū)域輸入查詢條件，并選擇查詢方式，查找相關(guān)的客戶信息；也可以單擊客戶信息，在展示區(qū)會(huì)顯示此客戶的詳細(xì)信息，也可對(duì)客戶信息進(jìn)行修改；在選中每條信息前面的復(fù)選框，單擊【刪除】按鈕，選中的客戶信息將被刪除。1客戶信息顯示/查詢用戶可以在客戶信息管理頁面中的查詢部分，輸入一定的查詢條件進(jìn)行客戶信息的查詢。當(dāng)用戶在查詢部分輸入條件后，并單擊【查詢】按

11、鈕，用戶添加的查詢條件將被提交給本頁，本頁將根據(jù)用戶提交的表單信息對(duì)數(shù)據(jù)庫進(jìn)行檢索，并將結(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客戶名稱o

12、ption value=ClientHabitude selected企業(yè)性質(zhì)searchtext關(guān)鍵字input name=search type=text id=search value=Submitsubmit查詢按鈕class=input value=查詢?cè)诒韱翁峤恢螅诒卷搶?shù)據(jù)進(jìn)行處理。程序代碼如下：%if request(post) thenif request(tiao)=模糊查詢 then 條件輸入為模糊查詢時(shí)獲得相應(yīng)的記錄集set rs=server.CreateObject(adodb.recordset)sql=select * from tb_Client wher

13、e &request(sel)& like %&request(search)&% order by id descrs.open sql,conn,1,1else 條件輸入為精確查詢時(shí)獲得相應(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 默認(rèn)狀態(tài)下獲得相應(yīng)的記錄集set rs=server.CreateObject(ad

14、odb.recordset)sql=select * from tb_Client order by id descrs.open sql,conn,1,1end if實(shí)現(xiàn)分頁if not rs.eof thentol=rs.recordcount 總記錄數(shù)rs.pagesize=15 獲取每頁顯示的記錄數(shù)maxpage=rs.pagecount requestpage=clng(request(p) 獲取當(dāng)前頁if requestpage= or requestpage=0 then 當(dāng)接收頁碼的值為空或者0時(shí)使其等于1requestpage=1end ifif requestpagemax

15、page then 在接收頁碼的值大于最大頁碼時(shí)，使其等于最大頁碼requestpage=maxpageend ifif requestpage1 then 向上或向下移動(dòng)相應(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(

16、bo).window.location = KeHu_ed.asp?id=onMouseOver=HLItem(this) onMouseOut=Re(this) %rs.movenextif rs.eof then exit for 如果記錄集為空那么跳出循環(huán)nextelseresponse.Write(沒有客戶信息，請(qǐng)?zhí)砑?end if%當(dāng)鼠標(biāo)在某條記錄上懸停時(shí)，其記錄所在行的背景顏色會(huì)發(fā)生改變，此功能用到的js代碼如下：function HLItem(obj)/鼠標(biāo)經(jīng)過obj.oldClassName=obj.className;obj.className=List;function R

17、e(obj)/鼠標(biāo)移開 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)客戶信息顯示/查詢頁面的運(yùn)行結(jié)果如圖4所示：圖4 客戶信息查詢頁面的運(yùn)行結(jié)果2客戶信息添加客戶信息添加的主要功能是用于用戶添加客戶信息。在查詢頁面中單擊【添加】按鈕，在展示區(qū)中會(huì)顯示添加頁面

18、，其設(shè)計(jì)效果如圖5所示。如圖5 客戶信息添加頁面設(shè)計(jì)效果當(dāng)單擊添加頁面中的【添加】按鈕時(shí)，調(diào)用js編寫的自定義函數(shù)（checks()），通過函數(shù)驗(yàn)證填寫的數(shù)據(jù)是否正確，該函數(shù)的代碼如下：function checks() if(form1.ClientName.value=)alert(公司名稱不能為空);return false;/中間過程不詳細(xì)介紹，因?yàn)閷?shí)現(xiàn)方法類似 else if(form1.ClientCyc.value=)alert(需求周期不能為空);return false;表單提交之后，添加的數(shù)據(jù)將被提交到本頁進(jìn)行處理，本頁數(shù)據(jù)處理的程序代碼如下：%if request(pos

19、t) 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(ClientNum

20、ber) 郵政編碼rs(ClientPage)=request(ClientPage) 公司網(wǎng)址rs(ClientEmail)=request(ClientEmail) 公司emailrs(ClientCountry)=request(ClientCountry) 所屬國(guó)家/地區(qū)rs(ClientHabitude)=request(ClientHabitude) 公司性質(zhì)rs(ClientSize)=request(ClientSize) 公司規(guī)模rs(ClientCity)=request(ClientCity) 所屬城市rs(ClientPay)=request(ClientPay) 結(jié)款

21、方式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() 修改時(shí)間rs(SetName)=session(admin_name) 創(chuàng)建人rs.updaters.closeconn.closeresponse.Write(alert(客戶信息添加成功)彈出成

22、功對(duì)話框end if%3客戶信息修改在顯示客戶詳細(xì)信息頁面，用戶可以瀏覽、修改其客戶的詳細(xì)信息。進(jìn)行客戶詳細(xì)信息瀏覽和修改的頁面設(shè)計(jì)效果如圖6所示：圖6 客戶信息修改頁面設(shè)計(jì)效果在客戶信息修改頁面，用戶可以瀏覽客戶詳細(xì)的信息，也可以修改客戶的信息（當(dāng)用戶有修改的權(quán)限時(shí)，那么用戶可以進(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=server.CreateObject(a

23、dodb.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

24、)=request(ClientPage) 公司網(wǎng)址rs(ClientEmail)=request(ClientEmail) 公司emailrs(ClientCountry)=request(ClientCountry) 所屬國(guó)家/地區(qū)rs(ClientHabitude)=request(ClientHabitude) 公司性質(zhì)rs(ClientSize)=request(ClientSize) 公司規(guī)模rs(ClientCity)=request(ClientCity) 所屬城市rs(ClientPay)=request(ClientPay) 結(jié)款方式rs(ClientCredit)=req

25、uest(ClientCredit) 結(jié)款信用rs(ClientList)=request(ClientList) 最高訂單rs(ClientYear)=request(ClientYear) 年度訂單rs(ClientCyc)=request(ClientCyc) 需求周期rs(EditTime)=now() 修改時(shí)間rs(SetName)=session(admin_name) 創(chuàng)建人rs.updaters.closeresponse.Write(alert(客戶信息修改成功)彈出成功對(duì)話框end if%4客戶信息刪除在客戶信息管理頁面，用戶可以點(diǎn)選任意一條客戶信息前面的復(fù)選框，然后單擊頁

26、面下方的【刪除】按鈕，被選擇的客戶信息將被刪除?？蛻粜畔h除主要是根據(jù)傳遞的參數(shù)（本例中的參數(shù)為客戶信息的id），將數(shù)據(jù)庫中對(duì)應(yīng)id的客戶信息和其他和客戶相關(guān)的信息全部刪除，程序代碼如下：%call client 驗(yàn)證是否有刪除客戶信息的權(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 wher

27、e 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

28、.execute(sqlp)nextif request(p)= then 返回用戶操作頁response.Redirect(KeHu_KeHu.asp)elseresponse.Redirect(KeHu_KeHu.asp?p=&request(p)end ifelseresponse.Write(alert(請(qǐng)選擇要?jiǎng)h除的信息);location=javascript:history.go(-1)end if%4.2 聯(lián)系人信息管理設(shè)計(jì)聯(lián)系人信息管理的主要功能包括顯示/查詢、添加、修改和刪除聯(lián)系人信息4個(gè)部分。用戶可以通過功能導(dǎo)航進(jìn)入聯(lián)系人信息管理頁面，頁面設(shè)計(jì)效果如圖7所示。圖7 聯(lián)系人

29、信息管理頁面設(shè)計(jì)效果1聯(lián)系人信息顯示/查詢用戶可以在聯(lián)系人信息管理頁面中的查詢部分，輸入一定的查詢條件進(jìn)行聯(lián)系人信息的查詢。用戶在查詢部分輸入條件后，單擊【查詢】按鈕，用戶添加的查詢條件將被提交給本頁，本頁則將根據(jù)用戶提交的表單信息對(duì)數(shù)據(jù)庫進(jìn)行檢索，并將結(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)& l

30、ike %&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 默認(rèn)狀態(tài)下顯示聯(lián)系人列表set rs=server.CreateObject(adodb.recordset)sql=select * f

31、rom tb_Linkman order by id descrs.open sql,conn,1,1end if%分頁代碼請(qǐng)參考4.1節(jié)中介紹的客戶信息顯示/查詢中的相關(guān)代碼。也可在查看客戶的詳細(xì)信息中，單擊“聯(lián)系人信息”，就會(huì)產(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ū)中會(huì)顯示添加頁面。在添寫表單選擇所屬客戶時(shí)，所屬客戶是在數(shù)據(jù)庫中直接讀取出來的。其代碼如下

32、： option value=%elseresponse.Write(沒有客戶信息，請(qǐng)?zhí)砑?end if%添加聯(lián)系人頁面的運(yùn)行結(jié)果如圖8所示。圖8 添加聯(lián)系人的頁面運(yùn)行結(jié)果也可在客戶的詳細(xì)信息中單擊【新建】按鈕，在此添加用戶不用選擇所屬客戶，直接就會(huì)生成所屬客戶，主要是根據(jù)傳遞的參數(shù)（本例中的參數(shù)為客戶信息的id），傳參代碼如下：a href=KeHu_Linkman_addy.asp?id=新建其顯示代碼如下：3聯(lián)系人信息修改聯(lián)系人信息修改的主要功能是用戶修改聯(lián)系人信息，方便用戶和客戶之間的聯(lián)系和溝通。在顯示聯(lián)系人詳細(xì)信息頁面，用戶可以更改其聯(lián)系人的信息。聯(lián)系人信息修改頁面運(yùn)行結(jié)果如圖9所示

33、。圖9 聯(lián)系人信息修改頁面運(yùn)行結(jié)果4聯(lián)系人信息刪除聯(lián)系人信息刪除的主要功能是刪除聯(lián)系人的信息。，其程序代碼如下：4.3 合同信息管理合同信息管理設(shè)計(jì)主要包括顯示/查詢、添加、修改和刪除合同信息4個(gè)部分。用戶可以通過功能導(dǎo)航進(jìn)入合同信息管理頁面，頁面設(shè)計(jì)效果如圖10所示。圖10 合同信息管理頁面的運(yùn)行結(jié)果1合同信息顯示/查詢用戶可以在合同信息管理頁面中的查詢部分，輸入一定的查詢條件，進(jìn)行合同信息的查詢。用戶在查詢部分輸入查詢條件后，單擊【查詢】按鈕，用戶所添加的查詢條件將被提交給本頁，本頁將根據(jù)用戶提交的表單信息對(duì)數(shù)據(jù)庫進(jìn)行檢索，并將結(jié)果集通過操作區(qū)輸出到瀏覽器中。合同信息查詢程序代碼如下：%i

34、f 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

35、(sel)&=&request(search)& order by id descrs.open sql,conn,1,1end ifelse 默認(rèn)狀態(tài)下顯示的合同信息set rs=server.CreateObject(adodb.recordset)sql=select * from tb_Pact order by id descrs.open sql,conn,1,1end if%合同信息顯示/查詢頁面運(yùn)行結(jié)果如圖11所示。圖11 合同信息顯示/查詢頁面運(yùn)行結(jié)果也可在查看客戶的詳細(xì)信息中，單擊“合同信息”，就會(huì)產(chǎn)生此客戶的合同列表，傳參代碼如下：a href=KeHu_Pact.asp

36、?post=true&sel=PactClient&search=&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 合同信息修改頁面運(yùn)行結(jié)果4合同信息的刪除合同信息

37、刪除的主要功能是刪除合同信息，其代碼如下：5 服務(wù)管理服務(wù)管理設(shè)計(jì)的主要功能包括反饋信息的顯示/查詢、添加、修改和刪除4個(gè)部分。用戶可以通過功能導(dǎo)航進(jìn)入服務(wù)管理頁面，頁面設(shè)計(jì)效果如圖20所示。圖20 服務(wù)管理頁面的設(shè)計(jì)效果5.1 反饋信息添加反饋信息添加的主要功能是用戶添加客戶的反饋信息。在查詢頁面中單擊【添加】按鈕，在展示區(qū)中會(huì)顯示添加頁面。反饋信息添加頁面的設(shè)計(jì)效果如圖21所示。圖21 反饋信息添加頁面的設(shè)計(jì)效果反饋信息添加頁面涉及的HTML表單元素如表3所示。表3 反饋信息信息添加頁面涉及的HTML表單元素名稱類型含義重要屬性form1Form表單method=post action=p

38、osthidden判斷表單是否提交value=trueFeedbackTitletext反饋主題class=in size=30FeedbackFulfillradio是否完成 value=未完成 value=已完成yearselect年option value=monthselect月option value=dayselect日option value=FeedbackClientselect相關(guān)客戶option value=FeedbackContenttextarea詳細(xì)內(nèi)容cols=88 rows=4 class=tableFeedbackResulttextarea處理結(jié)果cols

39、=88 rows=4 class=tableSubmitselect添加按鈕class=input value=添加 onClick=return checks()表單提交之后，添加的數(shù)據(jù)將被提交到本頁進(jìn)行處理。數(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(Feed

40、backTitle)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.updat

41、ers.closeresponse.Write(alert(反饋信息添加成功)end if%5.2 反饋信息修改因?yàn)榉答佇畔⑹强蛻舻姆答佉庖娝圆坏秒S意修改，用戶只可以修改“處理結(jié)果”和“服務(wù)完成”兩項(xiàng)信息。當(dāng)服務(wù)完成選項(xiàng)，選中“已完成”時(shí)，那么任何信息都不可以修改，也就是說只有在服務(wù)“未完成”的情況下才能修改“處理結(jié)果”。反饋信息頁面設(shè)計(jì)效果如圖22所示。圖22 反饋信息頁面設(shè)計(jì)效果反饋信息修改頁面涉及的HTML表單元素如表4所示。表4 反饋信息信息修改頁面涉及的HTML表單元素名稱類型含義重要屬性form1Form表單method=post action=posthidden判斷表單是否提

42、交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詳細(xì)內(nèi)容cols=88 rows=4 class=table re

43、adonly=trueFeedbackResulttextarea處理結(jié)果cols=88 rows=4 class=table readonly=trueonfocus=this.select(); onmouseover=this.focus();Submitselect添加按鈕class=input value=修 改 onClick=return checks()在反饋信息修改頁面，當(dāng)用戶單擊【修改】按鈕后，修改數(shù)據(jù)將被提交到本頁進(jìn)行處理，數(shù)據(jù)處理程序的代碼如下：%if request(post) thenset rs=server.CreateObject(adodb.recordse

44、t)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 報(bào)表管理報(bào)表管理的主要功能是打印各種類型的報(bào)表，包括客戶報(bào)表打印、聯(lián)系人報(bào)表打印、反

45、饋報(bào)表打印和庫存報(bào)表打印4個(gè)部分。報(bào)表管理頁面設(shè)計(jì)效果如圖23所示。圖23 報(bào)表管理頁面設(shè)計(jì)效果7.1 客戶報(bào)表模塊客戶報(bào)表模塊的主要功能包括客戶報(bào)表查詢、導(dǎo)入Excel和用web打印3個(gè)部分。1客戶報(bào)表查詢客戶報(bào)表查詢頁面涉及的HTML表單元素如表5所示。表5 客戶報(bào)表查詢頁面涉及的HTML表單元素名稱類型含義重要屬性form1Form表單method=post action=eeeetHidden判斷表單如何處理ClientCountrySelect國(guó)家/地區(qū)option value=ClientCitySelect城市option value=SetNameSelect創(chuàng)建者option

46、 value=/optionsearchtype類別公司名稱公司地址Submitsubmit導(dǎo)入Execulclass=input value=導(dǎo)入Excul onClick=form1.eeeet.value=exculSubmitsubmit直接打印class=input value=打印報(bào)表 onClick=form1.eeeet.value=print_c用戶可以在報(bào)表管理頁面中的客戶報(bào)表查詢部分，輸入查詢條件，進(jìn)行客戶信息的查詢。2導(dǎo)入Excel當(dāng)用戶在查詢部分輸入條件，并單擊【導(dǎo)入Excel】按鈕后，用戶添加的查詢條件將被提交給數(shù)據(jù)處理頁，處理頁用select case判斷隱藏域的

47、值，進(jìn)而確定怎樣處理。數(shù)據(jù)處理頁對(duì)查詢條件經(jīng)過處理，產(chǎn)生相應(yīng)的SQL查詢語句，其代碼如下：%sql=id is not nullif request(ClientCountry)全部 then 國(guó)家/地區(qū)不為全部時(shí)sql=sql& and ClientCountry=&request(ClientCountry)&end ifif request(ClientCity)全部 then 城市不為全部時(shí)sql=sql& and ClientCity=&request(ClientCity)&end ifif request(SetName)全部 then 客戶名稱不為全部時(shí)sql=sql& and

48、 SetName=&request(SetName)&end ifif trim(request(search) then 當(dāng)關(guān)鍵字不為空時(shí)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ù)傳給下載頁面%當(dāng)數(shù)據(jù)處理頁處理完畢之后，會(huì)自動(dòng)轉(zhuǎn)向下載頁，在下載頁中單擊左鍵，直接用web打開Excel, 右鍵單擊“下載”選擇“目標(biāo)另存為.”把Excel保存在相應(yīng)的路徑下。處理Excel的頁面代碼如下：%if request(