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

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

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

3、一個買方市場時代。選擇空間擴大、購買渠道拓寬、消費心態(tài)和購買行為越發(fā)成熟，使客戶再不會對某一企業(yè)或者產(chǎn)品盲目地保持絕對忠誠，如何不斷改善客戶關(guān)系，掌據(jù)更多的客戶信息，提高客戶滿意度；如何在日益激烈的市場競爭中把握機會，占有更大的市場份額；如何建立高效業(yè)務(wù)流程，降低運營成本，獲取更多的利潤，這些已成為每個企業(yè)怕面臨的首要問題。這種情況下，企業(yè)要在激烈的市場競爭中立于不敗之地，就必須找一種全新的管理理念和管理手段，對其內(nèi)部和外部資源進行有效

4、的整合。新一代一ERP產(chǎn)品正在向客戶端和供應(yīng)端延伸，客戶端的延伸是客戶關(guān)系管理，而供應(yīng)端的延伸則是跨企業(yè)供應(yīng)鏈的同步管理。對于每個企業(yè)來說客戶管理的完善程度將直接影響企業(yè)的經(jīng)濟效益。</p><p>　　【關(guān)鍵詞】 客戶關(guān)系管理系統(tǒng)、庫存管理、報表管理</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è)計2&l

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

7、t;　　3.3 數(shù)據(jù)庫設(shè)計4</p><p>　　4 客戶管理模塊設(shè)計5</p><p>　　4.1 客戶信息管理設(shè)計5</p><p>　　4.2 聯(lián)系人信息管理設(shè)計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 報表管理9</b></p><p>　　6.1 客戶報表模塊</p><p>　　6.2 聯(lián)系人報表模塊</p><p>　　附錄A 參考文獻</p>

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

10、的上帝，我們只有滿足了上帝的需求，上帝才能給我們帶來一切。一個企業(yè)要生存、要發(fā)展，就是要不斷的滿足客戶的需求，無論我們做出什么樣的決策，最終都是為了這個的目。每個領(lǐng)域都有自身生存法則，但無論這個法則如何變化，為客戶服務(wù)的宗旨是不會變的。作為企業(yè)，我們只有不斷地挖掘新客戶，維護好和老客戶的關(guān)系，占領(lǐng)市場客戶群體的絕大多數(shù)份額，才能在整個領(lǐng)域取得一席之地。海爾總裁張瑞敏指出：“客戶資源決定企業(yè)核心競爭力”，上個世紀(jì)80年代是物品短缺的時代，

11、而現(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ā)展面臨的重大問題。</p><p><b>　　1 系統(tǒng)分析</b></p><p><b&

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

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

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

15、t;b>　　經(jīng)濟性</b></p><p>　　通過計算機網(wǎng)絡(luò)對客戶信息進行管理，使企業(yè)對自身擁有的客戶有了一個更為深該的了解。不僅能全面的統(tǒng)計客戶的購買數(shù)量，及時的了解客戶的動態(tài)信息，還可以根據(jù)計算機記錄的數(shù)據(jù)信息，不斷的調(diào)整企業(yè)的生產(chǎn)發(fā)展動向。</p><p><b>　　技術(shù)性</b></p><p>　　系統(tǒng)中設(shè)置了e

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

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

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

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

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

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

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

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

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

25、indows 2003；</p><p>　　數(shù)據(jù)庫：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ù)庫設(shè)計</p>

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

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

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

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

30、t;/p><p><b>　　<%</b></p><p>　　if request("post")<>"" then</p><p>　　if request("tiao")="模糊查詢" then ‘條件輸入為模糊查詢時獲得相應(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 ‘條件輸入為精確查詢時獲得相應(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>　　'實現(xiàn)分頁

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

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

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

39、t;/b></p><p>　　if requestpage<>1 then '向上或向下移動相應(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("沒有客戶信息，請<a href='KeHu_add.asp' target='bo'>添加</a>")</p><p><b>　　end if%></b></p><p&g

47、t;　　當(dāng)鼠標(biāo)在某條記錄上懸停時，其記錄所在行的背景顏色會發(fā)生改變，此功能用到的js代碼如下：</p><p>　　<script language="javascript"></p><p>　　function HLItem(obj)//鼠標(biāo)經(jīng)過</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)移開</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>　　客戶信息顯示/查詢頁面的運行結(jié)果如圖4所示：</p><p>　　圖4 客戶信息查詢頁面的運行結(jié)果</p><p><b>　　2．客戶信息添加</b></p&

52、gt;<p>　　客戶信息添加的主要功能是用于用戶添加客戶信息。在查詢頁面中單擊【添加】按鈕，在展示區(qū)中會顯示添加頁面，其設(shè)計效果如圖5所示。</p><p>　　如圖5 客戶信息添加頁面設(shè)計效果</p><p>　　當(dāng)單擊添加頁面中的【添加】按鈕時，調(diào)用js編寫的自定義函數(shù)（checks()），通過函數(shù)驗證填寫的數(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("公司名稱不能為空");</p><p>　　return false;</p><p><b>　　}</b></p><p>　　……//中間過程不詳細(xì)介紹，因為實現(xiàn)方法類似</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ù)將被提交到本頁進行處理，本頁數(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") ‘添加公司名稱</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") ‘所屬國家/地區(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)建時間</p><p>　　rs("EditTime")=now() ‘修改時間&

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('客戶信息添加成功')</script>")‘彈出成功對話框</p><p><b>　　end if%></b></p><p><b>

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

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

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") ‘添加公司名稱</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") ‘所屬國家/地區(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() ‘修改時間</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('客戶信息修改成功')</script>&qu

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

81、【刪除】按鈕，被選擇的客戶信息將被刪除。</p><p>　　客戶信息刪除主要是根據(jù)傳遞的參數(shù)（本例中的參數(shù)為客戶信息的id），將數(shù)據(jù)庫中對應(yīng)id的客戶信息和其他和客戶相關(guān)的信息全部刪除，程序代碼如下：</p><p><b>　　<%</b></p><p>　　call client '驗證是否有刪除客戶信息的權(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))'刪除客戶信息</p><p>　　conn.execute(sqld)</p><p>　　sqll="delete from tb_Linkman where LinkmanClient="&clng(kid(i))'

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

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

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

87、 '返回用戶操作頁</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('請選擇要刪除的信息');location='java

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

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

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

92、<p>　　if request("tiao")="模糊查詢" then’ 聯(liá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)系人精確查詢</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>　　分頁代碼請參考4.1節(jié)中介紹的客戶信息顯示/查詢中的相關(guān)代碼。</p><p>　　也可在查看客戶的詳細(xì)信息中，單擊“聯(lián)系人信息”，就會產(chǎn)生此客戶的聯(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)系人信息添加的主要功能是添加客戶的聯(lián)系人信息。</p><p>　　在查詢頁面

99、中單擊【添加】按鈕，在展示區(qū)中會顯示添加頁面。在添寫表單選擇所屬客戶時，所屬客戶是在數(shù)據(jù)庫中直接讀取出來的。其代碼如下：</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("沒有客戶信息，請<a href='KeHu_add.asp' target='bo'>添加</a>")</p><p><b>　　end if%></b></p><p>　　添加聯(lián)系人頁面的運行結(jié)果如圖8所示。</p><p&

105、gt;　　圖8 添加聯(lián)系人的頁面運行結(jié)果</p><p>　　也可在客戶的詳細(xì)信息中單擊【新建】按鈕，在此添加用戶不用選擇所屬客戶，直接就會生成所屬客戶，主要是根據(jù)傳遞的參數(shù)（本例中的參數(shù)為客戶信息的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)系人信息修改的主要功能是用戶修改聯(lián)系人信息，方便用戶和客戶之間的聯(lián)系和溝通。</p

109、><p>　　在顯示聯(lián)系人詳細(xì)信息頁面，用戶可以更改其聯(lián)系人的信息。聯(lián)系人信息修改頁面運行結(jié)果如圖9所示。</p><p>　　圖9 聯(liá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è)計主要包括顯示/查詢、添加、修改和刪除合同信息4個部分。用戶可以通過功能導(dǎo)航進入合同信息管理頁面，頁面設(shè)計效果如圖10所示。</p><p>　　圖10 合同信息管理頁面的運行結(jié)果</p><p>　　1．合同信息顯示/查詢</p&g

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

114、t;b>　　<%</b></p><p>　　if request("post")<>"" then</p><p>　　if request("tiao")="模糊查詢" then‘模糊查詢合同信息</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’精確查詢合同信息</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>　　合同信息顯示/查詢頁面運行結(jié)果如圖11所示。</p><p>　　圖11 合同信息顯示/查詢頁面運行結(jié)果<

120、;/p><p>　　也可在查看客戶的詳細(xì)信息中，單擊“合同信息”，就會產(chǎn)生此客戶的合同列表，傳參代碼如下：</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>　　合同信息添加的主要功能是用戶添加客戶的合同信息。</p><p>　　在查詢頁面中單擊【添加】按鈕，在展示區(qū)中會顯示添加頁面，其運行結(jié)果如圖17（上）所示；也可在客戶的詳細(xì)信息頁面單擊“新建”，在展示區(qū)中會顯示添加頁面，然后進行合同信息添加。合同信息添加頁面的運行結(jié)

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

123、t;<p>　　圖13 合同信息修改頁面運行結(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è)計的主要功能包括反

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

127、所示。</p><p>　　圖21 反饋信息添加頁面的設(shè)計效果</p><p>　　反饋信息添加頁面涉及的HTML表單元素如表3所示。</p><p>　　表3 反饋信息信息添加頁面涉及的HTML表單元素</p><p>　　表單提交之后，添加的數(shù)據(jù)將被提交到本頁進行處理。數(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 '主要用于添加客戶反饋信息的數(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>　　因為反饋信息是客戶的反饋意見

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

136、lt;/p><p>　　表4 反饋信息信息修改頁面涉及的HTML表單元素</p><p>　　在反饋信息修改頁面，當(dāng)用戶單擊【修改】按鈕后，修改數(shù)據(jù)將被提交到本頁進行處理，數(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