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

1、<p>　　本科畢業(yè)論文（設(shè)計(jì)）</p><p><b>　　客戶(hù)關(guān)系管理系統(tǒng)</b></p><p>　　學(xué) 院: 信息學(xué)院 </p><p>　　專(zhuān) 業(yè)：計(jì)算機(jī)科學(xué)與技術(shù)</p><p>　　班 級(jí)： 計(jì)算機(jī) </p><p>　　學(xué) 號(hào)：

2、 </p><p>　　學(xué)生姓名: </p><p>　　指導(dǎo)教師： </p><p><b>　　摘要</b></p><p><b>　　【摘要】</b></p><p>　　隨著市場(chǎng)體系的日益完善，我們已經(jīng)進(jìn)入了

3、一個(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ù)滿意度；如何在日益激烈的市場(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)行有效

4、的整合。新一代一ERP產(chǎn)品正在向客戶(hù)端和供應(yīng)端延伸，客戶(hù)端的延伸是客戶(hù)關(guān)系管理，而供應(yīng)端的延伸則是跨企業(yè)供應(yīng)鏈的同步管理。對(duì)于每個(gè)企業(yè)來(lái)說(shuō)客戶(hù)管理的完善程度將直接影響企業(yè)的經(jīng)濟(jì)效益。</p><p>　　【關(guān)鍵詞】 客戶(hù)關(guān)系管理系統(tǒng)、庫(kù)存管理、報(bào)表管理</p><p><b>　　目錄</b></p><p><b>　　摘要1&l

5、t;/b></p><p><b>　　0 引言1</b></p><p><b>　　1 系統(tǒng)分析2</b></p><p>　　1.1 需求分析2</p><p>　　1.2 可行性分析2</p><p><b>　　2 總體設(shè)計(jì)2&l

6、t;/b></p><p>　　2.1 項(xiàng)目規(guī)劃2</p><p>　　2.2 系統(tǒng)功能結(jié)構(gòu)圖3</p><p><b>　　3 系統(tǒng)設(shè)計(jì)3</b></p><p>　　3.1 設(shè)計(jì)目標(biāo)3</p><p>　　3.2 開(kāi)發(fā)及運(yùn)行環(huán)境4</p><p&g

7、t;　　3.3 數(shù)據(jù)庫(kù)設(shè)計(jì)4</p><p>　　4 客戶(hù)管理模塊設(shè)計(jì)5</p><p>　　4.1 客戶(hù)信息管理設(shè)計(jì)5</p><p>　　4.2 聯(lián)系人信息管理設(shè)計(jì)11</p><p>　　4.3 合同信息管理14</p><p>　　5 服務(wù)管理25</p><p>

8、;　　5.1 反饋信息添加26</p><p>　　5.2 反饋信息修改27</p><p><b>　　6 報(bào)表管理9</b></p><p>　　6.1 客戶(hù)報(bào)表模塊</p><p>　　6.2 聯(lián)系人報(bào)表模塊</p><p>　　附錄A 參考文獻(xiàn)</p>

9、<p><b>　　附錄B 數(shù)據(jù)表</b></p><p><b>　　0 引言</b></p><p>　　信息時(shí)代的今天，各企業(yè)商家所關(guān)心的不再局限于自身的產(chǎn)品質(zhì)量、生產(chǎn)設(shè)備、員工的素質(zhì)，更多的是關(guān)心自己的銷(xiāo)售群體（客戶(hù)群），關(guān)心他們的想法、需求、購(gòu)賣(mài)目的。</p><p>　　眾所周知，顧客就是我們

10、的上帝，我們只有滿足了上帝的需求，上帝才能給我們帶來(lái)一切。一個(gè)企業(yè)要生存、要發(fā)展，就是要不斷的滿足客戶(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)域取得一席之地。海爾總裁張瑞敏指出：“客戶(hù)資源決定企業(yè)核心競(jìng)爭(zhēng)力”，上個(gè)世紀(jì)80年代是物品短缺的時(shí)代，

11、而現(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)題。</p><p><b>　　1 系統(tǒng)分析</b></p><p><b&

12、gt;　　1.1 需求分析</b></p><p>　　通過(guò)調(diào)查研究，要求系統(tǒng)滿足有以下功能；</p><p>　　由于操作人員的計(jì)算機(jī)知識(shí)普遍較差，要求有良好的人機(jī)界面。</p><p>　　方便的數(shù)據(jù)選擇查詢(xún)，支持模糊查詢(xún)功能。</p><p>　　管理客戶(hù)的詳細(xì)信息：包括客戶(hù)的基本信息、聯(lián)系人信息、和客戶(hù)簽寫(xiě)的合同信息。&

13、lt;/p><p>　　記錄產(chǎn)品出庫(kù)、入庫(kù)的詳細(xì)信息。</p><p>　　為更多的了解客戶(hù)的需求，設(shè)計(jì)了服務(wù)模塊，用以記錄客戶(hù)的反饋信息，并對(duì)反饋信息進(jìn)行管理。</p><p>　　和客戶(hù)聯(lián)系人之間通過(guò)郵件（e-mail）進(jìn)行聯(lián)系，對(duì)聯(lián)系人郵件地址進(jìn)行管理。</p><p>　　提供信息數(shù)據(jù)導(dǎo)出Excel報(bào)表的功能，提供報(bào)表的打印功能。<

14、/p><p>　　對(duì)用戶(hù)信息進(jìn)行管理，并為用戶(hù)設(shè)置管理權(quán)限。</p><p>　　數(shù)據(jù)計(jì)算自動(dòng)完成，盡量減少人工干預(yù)。</p><p>　　修改當(dāng)前管理員密碼的功能。</p><p><b>　　系統(tǒng)退出。</b></p><p>　　1.2 可行性分析</p><p>&l

15、t;b>　　經(jīng)濟(jì)性</b></p><p>　　通過(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ī)記錄的數(shù)據(jù)信息，不斷的調(diào)整企業(yè)的生產(chǎn)發(fā)展動(dòng)向。</p><p><b>　　技術(shù)性</b></p><p>　　系統(tǒng)中設(shè)置了e

16、mail管理模塊，此模塊大大的方便了企業(yè)和客戶(hù)聯(lián)系人之間的溝通。設(shè)置導(dǎo)入Excel功能、Web打印功能，方便用戶(hù)報(bào)表打印。</p><p><b>　　2 總體設(shè)計(jì)</b></p><p><b>　　2.1 項(xiàng)目規(guī)劃</b></p><p>　　客戶(hù)關(guān)系管理系統(tǒng)是一個(gè)典型的數(shù)據(jù)庫(kù)開(kāi)發(fā)應(yīng)用程序，由客戶(hù)管理模塊、庫(kù)存管理

17、模塊、服務(wù)管理模塊、報(bào)表管理模塊、email管理模塊、用戶(hù)管理模塊組成，規(guī)劃系統(tǒng)功能模塊如下：</p><p><b>　　客戶(hù)管理模塊</b></p><p>　　該模塊主要功能是對(duì)客戶(hù)信息、客戶(hù)聯(lián)系人信息、合同信息進(jìn)行添加、刪除、查詢(xún)等操作。</p><p><b>　　庫(kù)存管理模塊</b></p>&l

18、t;p>　　該模塊的主要功能是管理入庫(kù)、出庫(kù)信息、產(chǎn)品信息進(jìn)行管理，其中包括對(duì)庫(kù)存信息、產(chǎn)品信息進(jìn)行添加、刪除、查詢(xún)等操作。</p><p><b>　　服務(wù)管理模塊</b></p><p>　　該模塊主要功能是對(duì)客戶(hù)反饋信息進(jìn)行添加、刪除、查詢(xún)等操作。</p><p><b>　　報(bào)表管理模塊</b></p&

19、gt;<p>　　該模塊主要通過(guò)查詢(xún)條件，對(duì)各種信息進(jìn)行查詢(xún)，并將得到的結(jié)果導(dǎo)出Excul表、進(jìn)行打印報(bào)表等操作（其中信息包括：客戶(hù)信息、聯(lián)系人信息、反饋客戶(hù)信息、庫(kù)存信息）。</p><p><b>　　email管理模塊</b></p><p>　　該模塊主要管理客戶(hù)聯(lián)系人email地址信息，對(duì)企業(yè)客戶(hù)之間的email文件進(jìn)行管理，向客戶(hù)發(fā)送郵件。&

20、lt;/p><p><b>　　用戶(hù)管理</b></p><p>　　該模塊主要管理用戶(hù)信息的添加、刪除等操作，并設(shè)置用戶(hù)的使用權(quán)限。</p><p>　　2.2 系統(tǒng)功能結(jié)構(gòu)圖</p><p>　　圖1 數(shù)據(jù)表樹(shù)型結(jié)構(gòu)圖</p><p><b>　　3 系統(tǒng)設(shè)計(jì)</b>&

21、lt;/p><p><b>　　3.1 設(shè)計(jì)目標(biāo)</b></p><p>　　本系統(tǒng)是針對(duì)中小型企業(yè)通過(guò)網(wǎng)絡(luò)實(shí)現(xiàn)對(duì)客戶(hù)的管理而設(shè)計(jì)的，主要實(shí)現(xiàn)如下目標(biāo)：</p><p>　　對(duì)客戶(hù)信息（客戶(hù)基本信息、聯(lián)系人信息、合同信息）進(jìn)行全面管理。</p><p>　　及時(shí)查看庫(kù)存信息，并通過(guò)網(wǎng)站對(duì)入庫(kù)、出庫(kù)信息進(jìn)行管理。</p

22、><p>　　強(qiáng)大的客戶(hù)信息、聯(lián)系人信息報(bào)表導(dǎo)出、打印功能</p><p>　　及時(shí)了解客戶(hù)的反饋信息，并對(duì)其進(jìn)行管理。</p><p>　　實(shí)現(xiàn)各種信息的選擇查詢(xún)、模糊查詢(xún)功能等。</p><p>　　實(shí)現(xiàn)了和客戶(hù)通過(guò)網(wǎng)絡(luò)在線溝通的功能，并對(duì)客戶(hù)聯(lián)系人的email地址進(jìn)行管理。</p><p>　　管理員可以添加操作員信

23、息、設(shè)置操作員的權(quán)限。</p><p>　　對(duì)用戶(hù)輸入的數(shù)據(jù)，系統(tǒng)進(jìn)行嚴(yán)格的數(shù)據(jù)檢驗(yàn)，盡可能排除人為的錯(cuò)誤。</p><p>　　要求系統(tǒng)的數(shù)據(jù)保密性強(qiáng)，通過(guò)為每個(gè)用戶(hù)設(shè)置使用權(quán)限來(lái)實(shí)現(xiàn)。</p><p>　　系統(tǒng)運(yùn)行穩(wěn)定、安全可靠。</p><p>　　鍵盤(pán)操作，快速響應(yīng)。</p><p>　　3.2 開(kāi)發(fā)及運(yùn)行環(huán)

24、境</p><p><b>　　硬件平臺(tái)：</b></p><p>　　CPU：P41。8GHz；</p><p>　　內(nèi)存：256MB以上。</p><p><b>　　軟件平臺(tái)：</b></p><p>　　操作系統(tǒng)：Windows xp/ Windows 2000/ W

25、indows 2003；</p><p>　　數(shù)據(jù)庫(kù)：SQL Server 2000；</p><p>　　瀏覽器：IE5.0，推薦使用IE6.0；</p><p>　　Web服務(wù)器：IIS5.0；</p><p>　　分辨率：最佳效果1024*768。</p><p>　　3.3 數(shù)據(jù)庫(kù)設(shè)計(jì)</p>

26、<p>　　本系統(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。</p><p>　　4 客戶(hù)管理模塊設(shè)計(jì)</p><p>　　客戶(hù)管理模塊的主要功能是對(duì)客戶(hù)信息進(jìn)行管理，主要包括客戶(hù)信息管理、聯(lián)系人信息管理和合同信息管理3個(gè)部分。</p><p>

27、;　　4.1 客戶(hù)信息管理設(shè)計(jì)</p><p>　　客戶(hù)信息管理設(shè)計(jì)主要包括對(duì)客戶(hù)信息進(jìn)行顯示/查詢(xún)、添加、修改和刪除4個(gè)部分的功能。用戶(hù)可以通過(guò)功能導(dǎo)航進(jìn)入客戶(hù)信息管理頁(yè)面，頁(yè)面設(shè)計(jì)效果如圖3所示。</p><p>　　圖3 客戶(hù)信息管理頁(yè)面的設(shè)計(jì)效果</p><p>　　在客戶(hù)信息管理頁(yè)面中，用戶(hù)可以在查詢(xún)區(qū)域輸入查詢(xún)條件，并選擇查詢(xún)方式，查找相關(guān)的客戶(hù)信息

28、；也可以單擊客戶(hù)信息，在展示區(qū)會(huì)顯示此客戶(hù)的詳細(xì)信息，也可對(duì)客戶(hù)信息進(jìn)行修改；在選中每條信息前面的復(fù)選框，單擊【刪除】按鈕，選中的客戶(hù)信息將被刪除。</p><p>　　1．客戶(hù)信息顯示/查詢(xún)</p><p>　　用戶(hù)可以在客戶(hù)信息管理頁(yè)面中的查詢(xún)部分，輸入一定的查詢(xún)條件進(jìn)行客戶(hù)信息的查詢(xún)。</p><p>　　當(dāng)用戶(hù)在查詢(xún)部分輸入條件后，并單擊【查詢(xún)】按鈕，用戶(hù)添

29、加的查詢(xún)條件將被提交給本頁(yè)，本頁(yè)將根據(jù)用戶(hù)提交的表單信息對(duì)數(shù)據(jù)庫(kù)進(jìn)行檢索，并將結(jié)果集通過(guò)操作區(qū)輸出到瀏覽器中。</p><p>　　客戶(hù)信息查詢(xún)頁(yè)面涉及的HTML表單元素如表1所示。</p><p>　　表1 客戶(hù)信息查詢(xún)頁(yè)面涉及的HTML表單元素</p><p>　　在表單提交之后，在本頁(yè)將數(shù)據(jù)進(jìn)行處理。程序代碼如下：&l

30、t;/p><p><b>　　<%</b></p><p>　　if request("post")<>"" then</p><p>　　if request("tiao")="模糊查詢(xún)" then ‘條件輸入為模糊查詢(xún)時(shí)獲得相應(yīng)的記錄集</p

31、><p>　　set rs=server.CreateObject("adodb.recordset")</p><p>　　sql="select * from tb_Client where "&request("sel")&" like '%"&request("se

32、arch")&"%' order by id desc"</p><p>　　rs.open sql,conn,1,1</p><p>　　else ‘條件輸入為精確查詢(xún)時(shí)獲得相應(yīng)的記錄集</p><p>　　set rs=server.CreateObject(

33、"adodb.recordset")</p><p>　　sql="select * from tb_Client where "&request("sel")&"='"&request("search")&"' order by id desc"

34、</p><p>　　rs.open sql,conn,1,1</p><p><b>　　end if</b></p><p>　　else ‘默認(rèn)狀態(tài)下獲得相應(yīng)的記錄集</p><p>　　set rs=server.CreateObject("adodb.records

35、et")</p><p>　　sql="select * from tb_Client order by id desc"</p><p>　　rs.open sql,conn,1,1</p><p><b>　　end if</b></p><p><b>　　'實(shí)現(xiàn)分頁(yè)

36、</b></p><p>　　if not rs.eof then</p><p>　　tol=rs.recordcount '總記錄數(shù)</p><p>　　rs.pagesize=15 '獲取每頁(yè)顯示的記錄數(shù)</p><p>　　maxpage=rs.p

37、agecount </p><p>　　requestpage=clng(request("p")) '獲取當(dāng)前頁(yè)</p><p>　　if requestpage="" or requestpage=0 then '當(dāng)接收頁(yè)碼的值為空或者0時(shí)使其等于1</p><p>　　reque

38、stpage=1</p><p><b>　　end if</b></p><p>　　if requestpage>maxpage then '在接收頁(yè)碼的值大于最大頁(yè)碼時(shí)，使其等于最大頁(yè)碼</p><p>　　requestpage=maxpage</p><p><b>　　end if&l

39、t;/b></p><p>　　if requestpage<>1 then '向上或向下移動(dòng)相應(yīng)的記錄</p><p>　　rs.move (requestpage-1)*rs.pagesize</p><p><b>　　end if</b></p><p>　　for i=1 to rs

40、.pagesize and not rs.eof '利用循環(huán)輸出數(shù)據(jù)</p><p>　　if i mod 2=1 then</p><p>　　bg="#FFFFFF"</p><p><b>　　else</b></p><p>　　bg="#efefef"</

41、p><p><b>　　end if</b></p><p><b>　　%></b></p><p>　　<tr align="center" bgcolor=<%=bg%> style="cursor: hand" onClick="window.p

42、arent.frames('bo').window.location = 'KeHu_ed.asp?id=<%=rs("id")%>'"onMouseOver="HLItem(this)" onMouseOut="Re(this)"></p><p>　　<td height="

43、22"><%=rs("ClientName")%></td></p><p>　　<td><%=rs("ClientCountry")%></td></p><p>　　<td><%=rs("ClientCity")%></t

44、d></p><p>　　<td><%=rs("ClientTel")%></td></p><p>　　<td><%=rs("ClientEmail")%></td></p><p><b>　　</tr></b>

45、</p><p><b>　　<%</b></p><p>　　rs.movenext</p><p>　　if rs.eof then exit for ’ 如果記錄集為空那么跳出循環(huán)</p><p><b>　　next</b></p><p><b

46、>　　else</b></p><p>　　response.Write("沒(méi)有客戶(hù)信息，請(qǐng)<a href='KeHu_add.asp' target='bo'>添加</a>")</p><p><b>　　end if%></b></p><p&g

47、t;　　當(dāng)鼠標(biāo)在某條記錄上懸停時(shí)，其記錄所在行的背景顏色會(huì)發(fā)生改變，此功能用到的js代碼如下：</p><p>　　<script language="javascript"></p><p>　　function HLItem(obj)//鼠標(biāo)經(jīng)過(guò)</p><p><b>　　{</b></p>

48、<p>　　obj.oldClassName=obj.className;</p><p>　　obj.className="List";</p><p><b>　　}</b></p><p>　　function Re(obj)//鼠標(biāo)移開(kāi)</p><p><b>　　{<

49、;/b></p><p>　　obj.className=obj.oldClassName</p><p><b>　　}</b></p><p><b>　　</script></b></p><p><b>　　其調(diào)用的代碼如下：</b></p>

50、;<p>　　<tr align="center" bgcolor=<%=bg%> style="cursor:hand" onClick="window.parent.frames('bo').window.location = 'KeHu_ed.asp?id=<%=rs("id")%>'&

51、quot; onMouseOver="HLItem(this)" onMouseOut="Re(this)"></p><p>　　客戶(hù)信息顯示/查詢(xún)頁(yè)面的運(yùn)行結(jié)果如圖4所示：</p><p>　　圖4 客戶(hù)信息查詢(xún)頁(yè)面的運(yùn)行結(jié)果</p><p><b>　　2．客戶(hù)信息添加</b></p&

52、gt;<p>　　客戶(hù)信息添加的主要功能是用于用戶(hù)添加客戶(hù)信息。在查詢(xún)頁(yè)面中單擊【添加】按鈕，在展示區(qū)中會(huì)顯示添加頁(yè)面，其設(shè)計(jì)效果如圖5所示。</p><p>　　如圖5 客戶(hù)信息添加頁(yè)面設(shè)計(jì)效果</p><p>　　當(dāng)單擊添加頁(yè)面中的【添加】按鈕時(shí)，調(diào)用js編寫(xiě)的自定義函數(shù)（checks()），通過(guò)函數(shù)驗(yàn)證填寫(xiě)的數(shù)據(jù)是否正確，該函數(shù)的代碼如下：</p><

53、;p>　　<script language="javascript"></p><p>　　function checks()</p><p><b>　　{</b></p><p>　　if(form1.ClientName.value=="")</p><p>

54、;<b>　　{</b></p><p>　　alert("公司名稱(chēng)不能為空");</p><p>　　return false;</p><p><b>　　}</b></p><p>　　……//中間過(guò)程不詳細(xì)介紹，因?yàn)閷?shí)現(xiàn)方法類(lèi)似</p><p>　

55、　else if(form1.ClientCyc.value=="")</p><p><b>　　{</b></p><p>　　alert("需求周期不能為空");</p><p>　　return false;</p><p><b>　　}</b>&l

56、t;/p><p><b>　　}</b></p><p><b>　　</script></b></p><p>　　表單提交之后，添加的數(shù)據(jù)將被提交到本頁(yè)進(jìn)行處理，本頁(yè)數(shù)據(jù)處理的程序代碼如下：</p><p><b>　　<%</b></p>&l

57、t;p>　　if request("post")<>"" then</p><p>　　set rs=server.CreateObject("adodb.recordset")</p><p>　　sql="select * from tb_Client"</p><p&

58、gt;　　rs.open sql,conn,1,3</p><p><b>　　rs.addnew</b></p><p>　　rs("ClientName")=request("ClientName") ‘添加公司名稱(chēng)</p><p>　　rs("ClientAddress&quo

59、t;)=request("ClientAddress") ‘公司地址</p><p>　　rs("ClientTel")=request("ClientTel") ‘公司電話</p><p>　　rs("ClientFax")=request("ClientFax")

60、 ‘公司傳真</p><p>　　rs("ClientNumber")=request("ClientNumber") ‘郵政編碼</p><p>　　rs("ClientPage")=request("ClientPage") ‘公司網(wǎng)址</p><p&

61、gt;　　rs("ClientEmail")=request("ClientEmail") ‘公司email</p><p>　　rs("ClientCountry")=request("ClientCountry") ‘所屬?lài)?guó)家/地區(qū)</p><p>　　rs("ClientHabi

62、tude")=request("ClientHabitude") ‘公司性質(zhì)</p><p>　　rs("ClientSize")=request("ClientSize") ‘公司規(guī)模</p><p>　　rs("ClientCity")=request("Client

63、City") ‘所屬城市</p><p>　　rs("ClientPay")=request("ClientPay") ‘結(jié)款方式</p><p>　　rs("ClientCredit")=request("ClientCredit") ‘結(jié)款信用&l

64、t;/p><p>　　rs("ClientList")=request("ClientList") ‘最高訂單‘</p><p>　　rs("ClientYear")=request("ClientYear") ‘年度訂單</p><p>　　rs(&q

65、uot;ClientCyc")=request("ClientCyc") ‘需求周期</p><p>　　rs("SetTime")=now() ‘創(chuàng)建時(shí)間</p><p>　　rs("EditTime")=now() ‘修改時(shí)間&

66、lt;/p><p>　　rs("SetName")=session("admin_name") ‘創(chuàng)建人</p><p><b>　　rs.update</b></p><p><b>　　rs.close</b></p><p>　　conn.

67、close</p><p>　　response.Write("<script language=javascript>alert('客戶(hù)信息添加成功')</script>")‘彈出成功對(duì)話框</p><p><b>　　end if%></b></p><p><b>

68、;　　3．客戶(hù)信息修改</b></p><p>　　在顯示客戶(hù)詳細(xì)信息頁(yè)面，用戶(hù)可以瀏覽、修改其客戶(hù)的詳細(xì)信息。進(jìn)行客戶(hù)詳細(xì)信息瀏覽和修改的頁(yè)面設(shè)計(jì)效果如圖6所示：</p><p>　　圖6 客戶(hù)信息修改頁(yè)面設(shè)計(jì)效果</p><p>　　在客戶(hù)信息修改頁(yè)面，用戶(hù)可以瀏覽客戶(hù)詳細(xì)的信息，也可以修改客戶(hù)的信息（當(dāng)用戶(hù)有修改的權(quán)限時(shí)，那么用戶(hù)可以進(jìn)行修改，至

69、于用戶(hù)權(quán)限的實(shí)現(xiàn)，將在后面的章節(jié)中進(jìn)行講解）。當(dāng)用戶(hù)單擊【修改】按鈕后，修改的數(shù)據(jù)將被提交到本頁(yè)進(jìn)行處理。數(shù)據(jù)處理的代碼如下：</p><p><b>　　<%</b></p><p>　　if request("post")<>"" and (rsr("Client")="可寫(xiě)&

70、quot; or rsr("chaoji")="是") then </p><p>　　set rs=server.CreateObject("adodb.recordset")</p><p>　　sql="select * from tb_Client where id="&request(&quo

71、t;id")</p><p>　　rs.open sql,conn,1,3</p><p>　　rs("ClientName")=request("ClientName") ‘添加公司名稱(chēng)</p><p>　　rs("ClientAddress")=request("Clien

72、tAddress") ‘公司地址</p><p>　　rs("ClientTel")=request("ClientTel") ‘公司電話</p><p>　　rs("ClientFax")=request("ClientFax") ‘公司傳真</p>

73、;<p>　　rs("ClientNumber")=request("ClientNumber") ‘郵政編碼</p><p>　　rs("ClientPage")=request("ClientPage") ‘公司網(wǎng)址</p><p>　　rs("ClientEma

74、il")=request("ClientEmail") ‘公司email</p><p>　　rs("ClientCountry")=request("ClientCountry") ‘所屬?lài)?guó)家/地區(qū)</p><p>　　rs("ClientHabitude")=request(&qu

75、ot;ClientHabitude") ‘公司性質(zhì)</p><p>　　rs("ClientSize")=request("ClientSize") ‘公司規(guī)模</p><p>　　rs("ClientCity")=request("ClientCity") ‘所

76、屬城市</p><p>　　rs("ClientPay")=request("ClientPay") ‘結(jié)款方式</p><p>　　rs("ClientCredit")=request("ClientCredit") ‘結(jié)款信用</p><p>　　rs

77、("ClientList")=request("ClientList") ‘最高訂單‘</p><p>　　rs("ClientYear")=request("ClientYear") ‘年度訂單</p><p>　　rs("ClientCyc")=re

78、quest("ClientCyc") ‘需求周期</p><p>　　rs("EditTime")=now() ‘修改時(shí)間</p><p>　　rs("SetName")=session("admin_name") ‘創(chuàng)建人&l

79、t;/p><p><b>　　rs.update</b></p><p><b>　　rs.close</b></p><p>　　response.Write("<script language=javascript>alert('客戶(hù)信息修改成功')</script>&qu

80、ot;)‘彈出成功對(duì)話框</p><p><b>　　end if</b></p><p><b>　　%></b></p><p><b>　　4．客戶(hù)信息刪除</b></p><p>　　在客戶(hù)信息管理頁(yè)面，用戶(hù)可以點(diǎn)選任意一條客戶(hù)信息前面的復(fù)選框，然后單擊頁(yè)面下方的

81、【刪除】按鈕，被選擇的客戶(hù)信息將被刪除。</p><p>　　客戶(hù)信息刪除主要是根據(jù)傳遞的參數(shù)（本例中的參數(shù)為客戶(hù)信息的id），將數(shù)據(jù)庫(kù)中對(duì)應(yīng)id的客戶(hù)信息和其他和客戶(hù)相關(guān)的信息全部刪除，程序代碼如下：</p><p><b>　　<%</b></p><p>　　call client '驗(yàn)證是否有刪除客戶(hù)信息的權(quán)限</p

82、><p>　　if request("del")<>"" then</p><p>　　kid=Split(Request("del"),",") ‘分解字符串成數(shù)組</p><p>　　for i=0 to ubound(kid)</p><p>　　s

83、qld="delete from tb_Client where id="&clng(kid(i))'刪除客戶(hù)信息</p><p>　　conn.execute(sqld)</p><p>　　sqll="delete from tb_Linkman where LinkmanClient="&clng(kid(i))'

84、;刪除客戶(hù)的聯(lián)系人信息</p><p>　　conn.execute(sqll)</p><p>　　sqlp="delete from tb_Pact where PactClient="&clng(kid(i))'刪除客戶(hù)的合同信息</p><p>　　conn.execute(sqlp)</p><p&g

85、t;　　sqlp="delete from tb_Feedback where FeedbackClient="&clng(kid(i))'刪除客戶(hù)反饋信息</p><p>　　conn.execute(sqlp)</p><p>　　sqlp="delete from tb_Product where ProductProvider=&quo

86、t;&clng(kid(i))'刪除客戶(hù)的產(chǎn)品信息</p><p>　　conn.execute(sqlp)</p><p><b>　　next</b></p><p>　　if request("p")="" then

87、 '返回用戶(hù)操作頁(yè)</p><p>　　response.Redirect("KeHu_KeHu.asp")</p><p><b>　　else</b></p><p>　　response.Redirect("KeHu_KeHu.asp?p="&request("p"

88、;))</p><p><b>　　end if</b></p><p><b>　　else</b></p><p>　　response.Write("<script language=javascript>alert('請(qǐng)選擇要?jiǎng)h除的信息');location='java

89、script:history.go(-1)'</script>")</p><p><b>　　end if%></b></p><p>　　4.2 聯(lián)系人信息管理設(shè)計(jì)</p><p>　　聯(lián)系人信息管理的主要功能包括顯示/查詢(xún)、添加、修改和刪除聯(lián)系人信息4個(gè)部分。用戶(hù)可以通過(guò)功能導(dǎo)航進(jìn)入聯(lián)系人信息管理頁(yè)面

90、，頁(yè)面設(shè)計(jì)效果如圖7所示。</p><p>　　圖7 聯(lián)系人信息管理頁(yè)面設(shè)計(jì)效果</p><p>　　1．聯(lián)系人信息顯示/查詢(xún)</p><p>　　用戶(hù)可以在聯(lián)系人信息管理頁(yè)面中的查詢(xún)部分，輸入一定的查詢(xún)條件進(jìn)行聯(lián)系人信息的查詢(xún)。</p><p>　　用戶(hù)在查詢(xún)部分輸入條件后，單擊【查詢(xún)】按鈕，用戶(hù)添加的查詢(xún)條件將被提交給本頁(yè)，本頁(yè)則將根據(jù)

91、用戶(hù)提交的表單信息對(duì)數(shù)據(jù)庫(kù)進(jìn)行檢索，并將結(jié)果集通過(guò)操作區(qū)輸出到瀏覽器中。</p><p><b>　　查詢(xún)代碼如下：</b></p><p><b>　　<%</b></p><p>　　if request("post")<>"" then</p>

92、<p>　　if request("tiao")="模糊查詢(xún)" then’ 聯(lián)系人模糊查詢(xún)</p><p>　　set rs=server.CreateObject("adodb.recordset")</p><p>　　sql="select * from tb_Linkman where "&a

93、mp;request("sel")&" like '%"&request("search")&"%' order by id desc"</p><p>　　rs.open sql,conn,1,1</p><p>　　else ‘聯(lián)系人精確查詢(xún)</p>&

94、lt;p>　　set rs=server.CreateObject("adodb.recordset")</p><p>　　sql="select * from tb_Linkman where "&request("sel")&"='"&request("search")&

95、amp;"' order by id desc" </p><p>　　rs.open sql,conn,1,1</p><p><b>　　end if</b></p><p>　　else’ 默認(rèn)狀態(tài)下顯示聯(lián)系人列表</p><p>　　set rs=server.CreateObject

96、("adodb.recordset")</p><p>　　sql="select * from tb_Linkman order by id desc"</p><p>　　rs.open sql,conn,1,1</p><p><b>　　end if</b></p><p>

97、;<b>　　%></b></p><p>　　分頁(yè)代碼請(qǐng)參考4.1節(jié)中介紹的客戶(hù)信息顯示/查詢(xún)中的相關(guān)代碼。</p><p>　　也可在查看客戶(hù)的詳細(xì)信息中，單擊“聯(lián)系人信息”，就會(huì)產(chǎn)生此客戶(hù)的聯(lián)系人列表，傳參代碼如下：</p><p>　　<a href="KeHu_Linkman.asp?post=true&

98、sel=LinkmanClient&search=<%=rsx("id")%>&dd=dd">聯(lián)系人信息</a></p><p><b>　　2．聯(lián)系人信息添加</b></p><p>　　聯(lián)系人信息添加的主要功能是添加客戶(hù)的聯(lián)系人信息。</p><p>　　在查詢(xún)頁(yè)面

99、中單擊【添加】按鈕，在展示區(qū)中會(huì)顯示添加頁(yè)面。在添寫(xiě)表單選擇所屬客戶(hù)時(shí)，所屬客戶(hù)是在數(shù)據(jù)庫(kù)中直接讀取出來(lái)的。其代碼如下：</p><p><b>　　<% </b></p><p>　　set rsc=server.CreateObject("adodb.recordset")</p><p>　　sqlc="

100、;select * from tb_Client order by id desc"</p><p>　　rsc.open sqlc,conn,1,1 </p><p>　　if not rsc.eof then</p><p><b>　　%></b></p><p>　　<select name

101、="LinkmanClient" id="LinkmanClient"></p><p><b>　　<%</b></p><p>　　for i=1 to rsc.recordcount and not rsc.eof</p><p><b>　　%></b>&l

102、t;/p><p>　　<option value="<%=rsc("id")%>"><%=rsc("ClientName")%></option></p><p><b>　　<%</b></p><p>　　rsc.movenext&

103、lt;/p><p><b>　　next%></b></p><p><b>　　</select></b></p><p><b>　　<%</b></p><p><b>　　else</b></p><p>

104、;　　response.Write("沒(méi)有客戶(hù)信息，請(qǐng)<a href='KeHu_add.asp' target='bo'>添加</a>")</p><p><b>　　end if%></b></p><p>　　添加聯(lián)系人頁(yè)面的運(yùn)行結(jié)果如圖8所示。</p><p&

105、gt;　　圖8 添加聯(lián)系人的頁(yè)面運(yùn)行結(jié)果</p><p>　　也可在客戶(hù)的詳細(xì)信息中單擊【新建】按鈕，在此添加用戶(hù)不用選擇所屬客戶(hù)，直接就會(huì)生成所屬客戶(hù)，主要是根據(jù)傳遞的參數(shù)（本例中的參數(shù)為客戶(hù)信息的id），傳參代碼如下：</p><p>　　<a href="KeHu_Linkman_addy.asp?id=<%=rsx("id")%>&

106、quot;><span class="style2">新建</span></a></p><p><b>　　其顯示代碼如下：</b></p><p><b>　　<%</b></p><p>　　set rsc=server.CreateObject(&

107、quot;adodb.recordset")</p><p>　　sqlc="select * from tb_Client where id="&request("id")&" order by id desc"</p><p>　　rsc.open sqlc,conn,1,1 </p>

108、<p>　　response.Write(rsc("ClientName"))</p><p><b>　　%></b></p><p><b>　　3．聯(lián)系人信息修改</b></p><p>　　聯(lián)系人信息修改的主要功能是用戶(hù)修改聯(lián)系人信息，方便用戶(hù)和客戶(hù)之間的聯(lián)系和溝通。</p

109、><p>　　在顯示聯(lián)系人詳細(xì)信息頁(yè)面，用戶(hù)可以更改其聯(lián)系人的信息。聯(lián)系人信息修改頁(yè)面運(yùn)行結(jié)果如圖9所示。</p><p>　　圖9 聯(lián)系人信息修改頁(yè)面運(yùn)行結(jié)果</p><p><b>　　4．聯(lián)系人信息刪除</b></p><p>　　聯(lián)系人信息刪除的主要功能是刪除聯(lián)系人的信息。，其程序代碼如下：</p>

110、<p><b>　　<%</b></p><p>　　kid=Split(Request("del"),",") ‘分解字符串成數(shù)組</p><p>　　response.Write("正在刪除...")</p><p>　　for i=0 to ubound(kid)

111、</p><p>　　sqld="delete from tb_Linkman where id="&clng(kid(i)) ‘刪除指定的記錄</p><p>　　conn.execute(sqld)</p><p><b>　　next</b></p><p><b>　　%&g

112、t;</b></p><p>　　4.3 合同信息管理</p><p>　　合同信息管理設(shè)計(jì)主要包括顯示/查詢(xún)、添加、修改和刪除合同信息4個(gè)部分。用戶(hù)可以通過(guò)功能導(dǎo)航進(jìn)入合同信息管理頁(yè)面，頁(yè)面設(shè)計(jì)效果如圖10所示。</p><p>　　圖10 合同信息管理頁(yè)面的運(yùn)行結(jié)果</p><p>　　1．合同信息顯示/查詢(xún)</p&g

113、t;<p>　　用戶(hù)可以在合同信息管理頁(yè)面中的查詢(xún)部分，輸入一定的查詢(xún)條件，進(jìn)行合同信息的查詢(xún)。</p><p>　　用戶(hù)在查詢(xún)部分輸入查詢(xún)條件后，單擊【查詢(xún)】按鈕，用戶(hù)所添加的查詢(xún)條件將被提交給本頁(yè)，本頁(yè)將根據(jù)用戶(hù)提交的表單信息對(duì)數(shù)據(jù)庫(kù)進(jìn)行檢索，并將結(jié)果集通過(guò)操作區(qū)輸出到瀏覽器中。</p><p>　　合同信息查詢(xún)程序代碼如下：</p><p>&l

114、t;b>　　<%</b></p><p>　　if request("post")<>"" then</p><p>　　if request("tiao")="模糊查詢(xún)" then‘模糊查詢(xún)合同信息</p><p>　　set rs=server.C

115、reateObject("adodb.recordset")</p><p>　　sql="select * from tb_Pact where "&request("sel")&" like '%"&request("search")&"%' order

116、 by id desc"</p><p>　　rs.open sql,conn,1,1</p><p>　　else’精確查詢(xún)合同信息</p><p>　　set rs=server.CreateObject("adodb.recordset")</p><p>　　sql="select * from

117、 tb_Pact where "&request("sel")&"='"&request("search")&"' order by id desc"</p><p>　　rs.open sql,conn,1,1</p><p><b>　　e

118、nd if</b></p><p>　　else’ 默認(rèn)狀態(tài)下顯示的合同信息</p><p>　　set rs=server.CreateObject("adodb.recordset")</p><p>　　sql="select * from tb_Pact order by id desc"</p>

119、;<p>　　rs.open sql,conn,1,1</p><p><b>　　end if</b></p><p><b>　　%></b></p><p>　　合同信息顯示/查詢(xún)頁(yè)面運(yùn)行結(jié)果如圖11所示。</p><p>　　圖11 合同信息顯示/查詢(xún)頁(yè)面運(yùn)行結(jié)果<

120、;/p><p>　　也可在查看客戶(hù)的詳細(xì)信息中，單擊“合同信息”，就會(huì)產(chǎn)生此客戶(hù)的合同列表，傳參代碼如下：</p><p>　　<a href="KeHu_Pact.asp?post=true&sel=PactClient&search=<%=rsx("id")%>&dd=dd" >合同信息</a&g

121、t;</p><p><b>　　2．合同信息添加</b></p><p>　　合同信息添加的主要功能是用戶(hù)添加客戶(hù)的合同信息。</p><p>　　在查詢(xún)頁(yè)面中單擊【添加】按鈕，在展示區(qū)中會(huì)顯示添加頁(yè)面，其運(yùn)行結(jié)果如圖17（上）所示；也可在客戶(hù)的詳細(xì)信息頁(yè)面單擊“新建”，在展示區(qū)中會(huì)顯示添加頁(yè)面，然后進(jìn)行合同信息添加。合同信息添加頁(yè)面的運(yùn)行結(jié)

122、果如圖12（下）所示。</p><p>　　圖12 合同信息添加頁(yè)面運(yùn)行結(jié)果</p><p><b>　　3．合同信息修改</b></p><p>　　合同信息修改的主要功能是用戶(hù)修改合同信息。</p><p>　　在顯示合同詳細(xì)信息頁(yè)面，用戶(hù)可以更改其合同的信息。合同信息修改頁(yè)面運(yùn)行結(jié)果如圖13所示。</p&g

123、t;<p>　　圖13 合同信息修改頁(yè)面運(yùn)行結(jié)果</p><p><b>　　4．合同信息的刪除</b></p><p>　　合同信息刪除的主要功能是刪除合同信息，其代碼如下：</p><p><b>　　<%</b></p><p>　　kid=Split(Request(&

124、quot;del"),",") </p><p>　　response.Write("正在刪除...")</p><p>　　for i=0 to ubound(kid)</p><p>　　sqld="delete from tb_Pact where id="&clng(kid(i))

125、</p><p>　　conn.execute(sqld)</p><p><b>　　next</b></p><p><b>　　%></b></p><p><b>　　5 服務(wù)管理</b></p><p>　　服務(wù)管理設(shè)計(jì)的主要功能包括反

126、饋信息的顯示/查詢(xún)、添加、修改和刪除4個(gè)部分。用戶(hù)可以通過(guò)功能導(dǎo)航進(jìn)入服務(wù)管理頁(yè)面，頁(yè)面設(shè)計(jì)效果如圖20所示。</p><p>　　圖20 服務(wù)管理頁(yè)面的設(shè)計(jì)效果</p><p>　　5.1 反饋信息添加</p><p>　　反饋信息添加的主要功能是用戶(hù)添加客戶(hù)的反饋信息。在查詢(xún)頁(yè)面中單擊【添加】按鈕，在展示區(qū)中會(huì)顯示添加頁(yè)面。反饋信息添加頁(yè)面的設(shè)計(jì)效果如圖21

127、所示。</p><p>　　圖21 反饋信息添加頁(yè)面的設(shè)計(jì)效果</p><p>　　反饋信息添加頁(yè)面涉及的HTML表單元素如表3所示。</p><p>　　表3 反饋信息信息添加頁(yè)面涉及的HTML表單元素</p><p>　　表單提交之后，添加的數(shù)據(jù)將被提交到本頁(yè)進(jìn)行處理。數(shù)據(jù)處理的程序代碼如下：&

128、lt;/p><p><b>　　<%</b></p><p>　　call feedback</p><p>　　if request("post")<>"" then</p><p>　　set rs=server.CreateObject("adodb.

129、recordset")</p><p>　　sql="select * from tb_Feedback"</p><p>　　rs.open sql,conn,1,3</p><p>　　rs.addnew '主要用于添加客戶(hù)反饋信息的數(shù)據(jù)</p><p>　　rs("FeedbackTit

130、le")=request("FeedbackTitle")</p><p>　　rs("FeedbackDate")=request("year")&"-"&request("month")&"-"&request("day")<

131、;/p><p>　　rs("FeedbackClient")=request("FeedbackClient")</p><p>　　rs("FeedbackContent")=request("FeedbackContent")</p><p>　　rs("FeedbackRes

132、ult")=request("FeedbackResult")</p><p>　　rs("FeedbackFulfill")=request("FeedbackFulfill")</p><p>　　rs("SetTime")=now()</p><p>　　rs("

133、;SetName")=session("admin_name")</p><p><b>　　rs.update</b></p><p><b>　　rs.close</b></p><p>　　response.Write("<script language=javascr

134、ipt>alert('反饋信息添加成功')</script>")</p><p><b>　　end if</b></p><p><b>　　%></b></p><p>　　5.2 反饋信息修改</p><p>　　因?yàn)榉答佇畔⑹强蛻?hù)的反饋意見(jiàn)

135、所以不得隨意修改，用戶(hù)只可以修改“處理結(jié)果”和“服務(wù)完成”兩項(xiàng)信息。當(dāng)服務(wù)完成選項(xiàng)，選中“已完成”時(shí)，那么任何信息都不可以修改，也就是說(shuō)只有在服務(wù)“未完成”的情況下才能修改“處理結(jié)果”。</p><p>　　反饋信息頁(yè)面設(shè)計(jì)效果如圖22所示。</p><p>　　圖22 反饋信息頁(yè)面設(shè)計(jì)效果</p><p>　　反饋信息修改頁(yè)面涉及的HTML表單元素如表4所示。&

136、lt;/p><p>　　表4 反饋信息信息修改頁(yè)面涉及的HTML表單元素</p><p>　　在反饋信息修改頁(yè)面，當(dāng)用戶(hù)單擊【修改】按鈕后，修改數(shù)據(jù)將被提交到本頁(yè)進(jìn)行處理，數(shù)據(jù)處理程序的代碼如下：</p><p><b>　　<%</b></p><p>　　if reques

137、t("post")<>"" then</p><p>　　set rs=server.CreateObject("adodb.recordset")</p><p>　　sql="select * from tb_Feedback where id="&request("id&qu

138、ot;)</p><p>　　rs.open sql,conn,1,3</p><p>　　rs("FeedbackFulfill")=request("FeedbackFulfill")</p><p>　　rs("FeedbackResult")=request("FeedbackResult

139、")</p><p><b>　　rs.update</b></p><p><b>　　rs.close</b></p><p>　　response.Write("<script language=javascript>alert('反饋信息修改成功');location

140、='Feedback_ed.asp?id="&request("id")&"</script>")</p><p><b>　　end if</b></p><p><b>　　%></b></p><p><b>　　7