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

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

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

2、戶(hù)端和供應(yīng)端延伸，客戶(hù)端的延伸是客戶(hù)關(guān)系管理，而供應(yīng)端的延伸則是跨企業(yè)供應(yīng)鏈的同步管理。對(duì)于每個(gè)企業(yè)來(lái)說(shuō)客戶(hù)管理的完善程度將直接影響企業(yè)的經(jīng)濟(jì)效益?！娟P(guān)鍵詞】 客戶(hù)關(guān)系管理系統(tǒng)、庫(kù)存管理、報(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 開(kāi)發(fā)及運(yùn)行環(huán)境43.3 數(shù)據(jù)庫(kù)設(shè)計(jì)44 客戶(hù)管理模塊設(shè)計(jì)44.1 客戶(hù)信息管理設(shè)計(jì)44.2 聯(lián)系人信息管理設(shè)計(jì)104.3 合同信息管理135 服務(wù)管理165.1 反饋信息添加165.2 反饋信息修改176 報(bào)表管理196.1 客戶(hù)報(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)心自己的銷(xiāo)售群體（客戶(hù)群），關(guān)心他們的想法、需求、購(gòu)賣(mài)目的。眾所周知，顧客就是我們的上帝，我們只有滿(mǎn)足了上帝的需求，上帝才能給我們帶來(lái)一切。一個(gè)企業(yè)要生存、要發(fā)展，就是要不斷的滿(mǎn)足客戶(hù)的需求，無(wú)論我們做出什么樣的決策，最終都是為了這個(gè)的目。每個(gè)領(lǐng)域都有自身生存法則，但無(wú)論這個(gè)法則如何變化，為客戶(hù)服務(wù)的宗旨是不會(huì)變的。作為企業(yè)，我們只有不斷地挖掘新客戶(hù)，維護(hù)好和老客戶(hù)的關(guān)系，占領(lǐng)市場(chǎng)客戶(hù)群體的絕大多數(shù)份額，才能在整個(gè)領(lǐng)域取得一席之地。海

4、爾總裁張瑞敏指出：“客戶(hù)資源決定企業(yè)核心競(jìng)爭(zhēng)力”，上個(gè)世紀(jì)80年代是物品短缺的時(shí)代，而現(xiàn)在，信息時(shí)代是客戶(hù)短缺的時(shí)代。企業(yè)發(fā)展所需的各種資源（包括人力、物力、生產(chǎn)力）都是可以創(chuàng)造的，但每個(gè)領(lǐng)域中的客戶(hù)資源確是有限的，所以通過(guò)創(chuàng)新（產(chǎn)品的創(chuàng)新、企業(yè)管理的創(chuàng)新、服務(wù)的創(chuàng)新）來(lái)?yè)屨加邢薜目蛻?hù)資源、維護(hù)好企業(yè)和客戶(hù)之間的關(guān)系、了解客戶(hù)的需求動(dòng)向，成為企業(yè)生存發(fā)展面臨的重大問(wèn)題。1 系統(tǒng)分析1.1 需求分析通過(guò)調(diào)查研究，要求系統(tǒng)滿(mǎn)足有以下功能；q 由于操作人員的計(jì)算機(jī)知識(shí)普遍較差，要求有良好的人機(jī)界面。q 方便的數(shù)據(jù)選擇查詢(xún)，支持模糊查詢(xún)功能。q 管理客戶(hù)的詳細(xì)信息：包括客戶(hù)的基本信息、聯(lián)系人信息、和客

5、戶(hù)簽寫(xiě)的合同信息。q 記錄產(chǎn)品出庫(kù)、入庫(kù)的詳細(xì)信息。q 為更多的了解客戶(hù)的需求，設(shè)計(jì)了服務(wù)模塊，用以記錄客戶(hù)的反饋信息，并對(duì)反饋信息進(jìn)行管理。q 和客戶(hù)聯(lián)系人之間通過(guò)郵件（e-mail）進(jìn)行聯(lián)系，對(duì)聯(lián)系人郵件地址進(jìn)行管理。q 提供信息數(shù)據(jù)導(dǎo)出Excel報(bào)表的功能，提供報(bào)表的打印功能。q 對(duì)用戶(hù)信息進(jìn)行管理，并為用戶(hù)設(shè)置管理權(quán)限。q 數(shù)據(jù)計(jì)算自動(dòng)完成，盡量減少人工干預(yù)。q 修改當(dāng)前管理員密碼的功能。q 系統(tǒng)退出。1.2 可行性分析q 經(jīng)濟(jì)性通過(guò)計(jì)算機(jī)網(wǎng)絡(luò)對(duì)客戶(hù)信息進(jìn)行管理，使企業(yè)對(duì)自身?yè)碛械目蛻?hù)有了一個(gè)更為深該的了解。不僅能全面的統(tǒng)計(jì)客戶(hù)的購(gòu)買(mǎi)數(shù)量，及時(shí)的了解客戶(hù)的動(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è)和客戶(hù)聯(lián)系人之間的溝通。設(shè)置導(dǎo)入Excel功能、Web打印功能，方便用戶(hù)報(bào)表打印。2 總體設(shè)計(jì)2.1 項(xiàng)目規(guī)劃客戶(hù)關(guān)系管理系統(tǒng)是一個(gè)典型的數(shù)據(jù)庫(kù)開(kāi)發(fā)應(yīng)用程序，由客戶(hù)管理模塊、庫(kù)存管理模塊、服務(wù)管理模塊、報(bào)表管理模塊、email管理模塊、用戶(hù)管理模塊組成，規(guī)劃系統(tǒng)功能模塊如下：q 客戶(hù)管理模塊該模塊主要功能是對(duì)客戶(hù)信息、客戶(hù)聯(lián)系人信息、合同信息進(jìn)行添加、刪除、查詢(xún)等操作。q 庫(kù)存管理模塊該模塊的主要功能是管理入庫(kù)、出庫(kù)信息、產(chǎn)品信息進(jìn)行管理，其中包括對(duì)庫(kù)存信息、產(chǎn)品信息進(jìn)行添加、刪除、查詢(xún)等

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

8、 對(duì)客戶(hù)信息（客戶(hù)基本信息、聯(lián)系人信息、合同信息）進(jìn)行全面管理。q 及時(shí)查看庫(kù)存信息，并通過(guò)網(wǎng)站對(duì)入庫(kù)、出庫(kù)信息進(jìn)行管理。q 強(qiáng)大的客戶(hù)信息、聯(lián)系人信息報(bào)表導(dǎo)出、打印功能q 及時(shí)了解客戶(hù)的反饋信息，并對(duì)其進(jìn)行管理。q 實(shí)現(xiàn)各種信息的選擇查詢(xún)、模糊查詢(xún)功能等。q 實(shí)現(xiàn)了和客戶(hù)通過(guò)網(wǎng)絡(luò)在線(xiàn)溝通的功能，并對(duì)客戶(hù)聯(lián)系人的email地址進(jìn)行管理。q 管理員可以添加操作員信息、設(shè)置操作員的權(quán)限。q 對(duì)用戶(hù)輸入的數(shù)據(jù)，系統(tǒng)進(jìn)行嚴(yán)格的數(shù)據(jù)檢驗(yàn)，盡可能排除人為的錯(cuò)誤。q 要求系統(tǒng)的數(shù)據(jù)保密性強(qiáng)，通過(guò)為每個(gè)用戶(hù)設(shè)置使用權(quán)限來(lái)實(shí)現(xiàn)。q 系統(tǒng)運(yùn)行穩(wěn)定、安全可靠。q 鍵盤(pán)操作，快速響應(yīng)。3.2 開(kāi)發(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ù)庫(kù)：SQL Server 2000；q 瀏覽器：IE5.0，推薦使用IE6.0；q Web服務(wù)器：IIS5.0；q 分辨率：最佳效果1024*768。3.3 數(shù)據(jù)庫(kù)設(shè)計(jì)本系統(tǒng)數(shù)據(jù)庫(kù)采用SQLServer2000數(shù)據(jù)庫(kù)，系統(tǒng)數(shù)據(jù)庫(kù)名稱(chēng)為db_System。數(shù)據(jù)庫(kù)db_ System中包含8張表。關(guān)于數(shù)據(jù)庫(kù)中的數(shù)據(jù)表請(qǐng)參見(jiàn)附錄B。4 客戶(hù)管理模塊設(shè)計(jì)客戶(hù)管理模塊的主要功能是對(duì)客戶(hù)信息進(jìn)行管理，主要包括客戶(hù)信息管理、聯(lián)系人信息管理和合同

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

11、鈕，用戶(hù)添加的查詢(xún)條件將被提交給本頁(yè)，本頁(yè)將根據(jù)用戶(hù)提交的表單信息對(duì)數(shù)據(jù)庫(kù)進(jìn)行檢索，并將結(jié)果集通過(guò)操作區(qū)輸出到瀏覽器中?？蛻?hù)信息查詢(xún)頁(yè)面涉及的HTML表單元素如表1所示。表1 客戶(hù)信息查詢(xún)頁(yè)面涉及的HTML表單元素名稱(chēng)類(lèi)型含義重要屬性form1Form表單method=post action=posthidden判斷表單是否提交value=truetiaoselect查詢(xún)類(lèi)型option value=模糊查詢(xún) selected模糊查詢(xún)option value=精確查詢(xún) selected精確查詢(xún)selselect關(guān)鍵字類(lèi)別option value=ClientName selected客戶(hù)名稱(chēng)o

12、ption value=ClientHabitude selected企業(yè)性質(zhì)searchtext關(guān)鍵字input name=search type=text id=search value=Submitsubmit查詢(xún)按鈕class=input value=查詢(xún)?cè)诒韱翁峤恢螅诒卷?yè)將數(shù)據(jù)進(jìn)行處理。程序代碼如下：%if request(post) thenif request(tiao)=模糊查詢(xún) then 條件輸入為模糊查詢(xún)時(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 條件輸入為精確查詢(xún)時(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)分頁(yè)if not rs.eof thentol=rs.recordcount 總記錄數(shù)rs.pagesize=15 獲取每頁(yè)顯示的記錄數(shù)maxpage=rs.pagecount requestpage=clng(request(p) 獲取當(dāng)前頁(yè)if requestpage= or requestpage=0 then 當(dāng)接收頁(yè)碼的值為空或者0時(shí)使其等于1requestpage=1end ifif requestpagemax

15、page then 在接收頁(yè)碼的值大于最大頁(yè)碼時(shí)，使其等于最大頁(yè)碼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(沒(méi)有客戶(hù)信息，請(qǐng)?zhí)砑?end if%當(dāng)鼠標(biāo)在某條記錄上懸停時(shí)，其記錄所在行的背景顏色會(huì)發(fā)生改變，此功能用到的js代碼如下：function HLItem(obj)/鼠標(biāo)經(jīng)過(guò)obj.oldClassName=obj.className;obj.className=List;function R

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

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

20、ber) 郵政編碼rs(ClientPage)=request(ClientPage) 公司網(wǎng)址rs(ClientEmail)=request(ClientEmail) 公司emailrs(ClientCountry)=request(ClientCountry) 所屬?lài)?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(客戶(hù)信息添加成功)彈出成

22、功對(duì)話(huà)框end if%3客戶(hù)信息修改在顯示客戶(hù)詳細(xì)信息頁(yè)面，用戶(hù)可以瀏覽、修改其客戶(hù)的詳細(xì)信息。進(jìn)行客戶(hù)詳細(xì)信息瀏覽和修改的頁(yè)面設(shè)計(jì)效果如圖6所示：圖6 客戶(hù)信息修改頁(yè)面設(shè)計(jì)效果在客戶(hù)信息修改頁(yè)面，用戶(hù)可以瀏覽客戶(hù)詳細(xì)的信息，也可以修改客戶(hù)的信息（當(dāng)用戶(hù)有修改的權(quán)限時(shí)，那么用戶(hù)可以進(jìn)行修改，至于用戶(hù)權(quán)限的實(shí)現(xiàn)，將在后面的章節(jié)中進(jìn)行講解）。當(dāng)用戶(hù)單擊【修改】按鈕后，修改的數(shù)據(jù)將被提交到本頁(yè)進(jìn)行處理。數(shù)據(jù)處理的代碼如下：% if request(post) and (rsr(Client)=可寫(xiě) 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) 添加公司名稱(chēng)rs(ClientAddress)=request(ClientAddress) 公司地址rs(ClientTel)=request(ClientTel) 公司電話(huà)rs(ClientFax)=request(ClientFax) 公司傳真rs(ClientNumber)=request(ClientNumber) 郵政編碼rs(ClientPage

24、)=request(ClientPage) 公司網(wǎng)址rs(ClientEmail)=request(ClientEmail) 公司emailrs(ClientCountry)=request(ClientCountry) 所屬?lài)?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(客戶(hù)信息修改成功)彈出成功對(duì)話(huà)框end if%4客戶(hù)信息刪除在客戶(hù)信息管理頁(yè)面，用戶(hù)可以點(diǎn)選任意一條客戶(hù)信息前面的復(fù)選框，然后單擊頁(yè)

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

27、e LinkmanClient=&clng(kid(i)刪除客戶(hù)的聯(lián)系人信息conn.execute(sqll)sqlp=delete from tb_Pact where PactClient=&clng(kid(i)刪除客戶(hù)的合同信息conn.execute(sqlp)sqlp=delete from tb_Feedback where FeedbackClient=&clng(kid(i)刪除客戶(hù)反饋信息conn.execute(sqlp)sqlp=delete from tb_Product where ProductProvider=&clng(kid(i)刪除客戶(hù)的產(chǎn)品信息conn

28、.execute(sqlp)nextif request(p)= then 返回用戶(hù)操作頁(yè)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)系人信息管理的主要功能包括顯示/查詢(xún)、添加、修改和刪除聯(lián)系人信息4個(gè)部分。用戶(hù)可以通過(guò)功能導(dǎo)航進(jìn)入聯(lián)系人信息管理頁(yè)面，頁(yè)面設(shè)計(jì)效果如圖7所示。圖7 聯(lián)系人

29、信息管理頁(yè)面設(shè)計(jì)效果1聯(lián)系人信息顯示/查詢(xún)用戶(hù)可以在聯(lián)系人信息管理頁(yè)面中的查詢(xún)部分，輸入一定的查詢(xún)條件進(jìn)行聯(lián)系人信息的查詢(xún)。用戶(hù)在查詢(xún)部分輸入條件后，單擊【查詢(xún)】按鈕，用戶(hù)添加的查詢(xún)條件將被提交給本頁(yè)，本頁(yè)則將根據(jù)用戶(hù)提交的表單信息對(duì)數(shù)據(jù)庫(kù)進(jìn)行檢索，并將結(jié)果集通過(guò)操作區(qū)輸出到瀏覽器中。查詢(xún)代碼如下：%if request(post) thenif request(tiao)=模糊查詢(xún) then 聯(lián)系人模糊查詢(xú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)系人精確查詢(xú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%分頁(yè)代碼請(qǐng)參考4.1節(jié)中介紹的客戶(hù)信息顯示/查詢(xún)中的相關(guān)代碼。也可在查看客戶(hù)的詳細(xì)信息中，單擊“聯(lián)系人信息”，就會(huì)產(chǎn)生此客戶(hù)的聯(lián)系人列表，傳參代碼如下：a href=KeHu_Linkman.asp?post=true&sel=LinkmanClient&search=&dd=dd聯(lián)系人信息2聯(lián)系人信息添加聯(lián)系人信息添加的主要功能是添加客戶(hù)的聯(lián)系人信息。在查詢(xún)頁(yè)面中單擊【添加】按鈕，在展示區(qū)中會(huì)顯示添加頁(yè)面。在添寫(xiě)表單選擇所屬客戶(hù)時(shí)，所屬客戶(hù)是在數(shù)據(jù)庫(kù)中直接讀取出來(lái)的。其代碼如下

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

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

34、f request(post) thenif request(tiao)=模糊查詢(xún) then模糊查詢(xún)合同信息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精確查詢(xún)合同信息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%合同信息顯示/查詢(xún)頁(yè)面運(yùn)行結(jié)果如圖11所示。圖11 合同信息顯示/查詢(xún)頁(yè)面運(yùn)行結(jié)果也可在查看客戶(hù)的詳細(xì)信息中，單擊“合同信息”，就會(huì)產(chǎn)生此客戶(hù)的合同列表，傳參代碼如下：a href=KeHu_Pact.asp

36、?post=true&sel=PactClient&search=&dd=dd 合同信息2合同信息添加合同信息添加的主要功能是用戶(hù)添加客戶(hù)的合同信息。在查詢(xún)頁(yè)面中單擊【添加】按鈕，在展示區(qū)中會(huì)顯示添加頁(yè)面，其運(yùn)行結(jié)果如圖17（上）所示；也可在客戶(hù)的詳細(xì)信息頁(yè)面單擊“新建”，在展示區(qū)中會(huì)顯示添加頁(yè)面，然后進(jìn)行合同信息添加。合同信息添加頁(yè)面的運(yùn)行結(jié)果如圖12（下）所示。圖12 合同信息添加頁(yè)面運(yùn)行結(jié)果3合同信息修改合同信息修改的主要功能是用戶(hù)修改合同信息。在顯示合同詳細(xì)信息頁(yè)面，用戶(hù)可以更改其合同的信息。合同信息修改頁(yè)面運(yùn)行結(jié)果如圖13所示。圖13 合同信息修改頁(yè)面運(yùn)行結(jié)果4合同信息的刪除合同信息

37、刪除的主要功能是刪除合同信息，其代碼如下：5 服務(wù)管理服務(wù)管理設(shè)計(jì)的主要功能包括反饋信息的顯示/查詢(xún)、添加、修改和刪除4個(gè)部分。用戶(hù)可以通過(guò)功能導(dǎo)航進(jìn)入服務(wù)管理頁(yè)面，頁(yè)面設(shè)計(jì)效果如圖20所示。圖20 服務(wù)管理頁(yè)面的設(shè)計(jì)效果5.1 反饋信息添加反饋信息添加的主要功能是用戶(hù)添加客戶(hù)的反饋信息。在查詢(xún)頁(yè)面中單擊【添加】按鈕，在展示區(qū)中會(huì)顯示添加頁(yè)面。反饋信息添加頁(yè)面的設(shè)計(jì)效果如圖21所示。圖21 反饋信息添加頁(yè)面的設(shè)計(jì)效果反饋信息添加頁(yè)面涉及的HTML表單元素如表3所示。表3 反饋信息信息添加頁(yè)面涉及的HTML表單元素名稱(chēng)類(lèi)型含義重要屬性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)客戶(hù)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ù)將被提交到本頁(yè)進(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 主要用于添加客戶(hù)反饋信息的數(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)榉答佇畔⑹强蛻?hù)的反饋意見(jiàn)所以不得隨意修改，用戶(hù)只可以修改“處理結(jié)果”和“服務(wù)完成”兩項(xiàng)信息。當(dāng)服務(wù)完成選項(xiàng)，選中“已完成”時(shí)，那么任何信息都不可以修改，也就是說(shuō)只有在服務(wù)“未完成”的情況下才能修改“處理結(jié)果”。反饋信息頁(yè)面設(shè)計(jì)效果如圖22所示。圖22 反饋信息頁(yè)面設(shè)計(jì)效果反饋信息修改頁(yè)面涉及的HTML表單元素如表4所示。表4 反饋信息信息修改頁(yè)面涉及的HTML表單元素名稱(chēng)類(lèi)型含義重要屬性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)客戶(hù)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()在反饋信息修改頁(yè)面，當(dāng)用戶(hù)單擊【修改】按鈕后，修改數(shù)據(jù)將被提交到本頁(yè)進(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)表管理的主要功能是打印各種類(lèi)型的報(bào)表，包括客戶(hù)報(bào)表打印、聯(lián)系人報(bào)表打印、反

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

46、 value=/optionsearchtype類(lèi)別公司名稱(chēng)公司地址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用戶(hù)可以在報(bào)表管理頁(yè)面中的客戶(hù)報(bào)表查詢(xún)部分，輸入查詢(xún)條件，進(jìn)行客戶(hù)信息的查詢(xún)。2導(dǎo)入Excel當(dāng)用戶(hù)在查詢(xún)部分輸入條件，并單擊【導(dǎo)入Excel】按鈕后，用戶(hù)添加的查詢(xún)條件將被提交給數(shù)據(jù)處理頁(yè)，處理頁(yè)用select case判斷隱藏域的

47、值，進(jìn)而確定怎樣處理。數(shù)據(jù)處理頁(yè)對(duì)查詢(xún)條件經(jīng)過(guò)處理，產(chǎn)生相應(yīng)的SQL查詢(xún)語(yǔ)句，其代碼如下：%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 客戶(hù)名稱(chēng)不為全部時(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ù)傳給下載頁(yè)面%當(dāng)數(shù)據(jù)處理頁(yè)處理完畢之后，會(huì)自動(dòng)轉(zhuǎn)向下載頁(yè)，在下載頁(yè)中單擊左鍵，直接用web打開(kāi)Excel, 右鍵單擊“下載”選擇“目標(biāo)另存為.”把Excel保存在相應(yīng)的路徑下。處理Excel的頁(yè)面代碼如下：%if request(