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

1、<p><b>　　客戶關(guān)系管理系統(tǒng)</b></p><p>　學(xué) 院</p><p>　專 業(yè)</p><p>　班 級</p><p>　學(xué) 號</p><p>　姓 名</p><p>　指導(dǎo)教師</p><

2、p>　教師職稱</p><p><b>　　摘要</b></p><p><b>　　【摘要】</b></p><p>　　隨著市場體系的日益完善，我們已經(jīng)進(jìn)入了一個買方市場時代。選擇空間擴大、購買渠道拓寬、消費心態(tài)和購買行為越發(fā)成熟，使客戶再不會對某一企業(yè)或者產(chǎn)品盲目地保持絕對忠誠，如何不斷改善客戶關(guān)系，掌據(jù)更多的

3、客戶信息，提高客戶滿意度；如何在日益激烈的市場競爭中把握機會，占有更大的市場份額；如何建立高效業(yè)務(wù)流程，降低運營成本，獲取更多的利潤，這些已成為每個企業(yè)怕面臨的首要問題。這種情況下，企業(yè)要在激烈的市場競爭中立于不敗之地，就必須找一種全新的管理理念和管理手段，對其內(nèi)部和外部資源進(jìn)行有效的整合。新一代一ERP產(chǎn)品正在向客戶端和供應(yīng)端延伸，客戶端的延伸是客戶關(guān)系管理，而供應(yīng)端的延伸則是跨企業(yè)供應(yīng)鏈的同步管理。對于每個企業(yè)來說客戶管理的完善程度

4、將直接影響企業(yè)的經(jīng)濟效益。</p><p>　　【關(guān)鍵詞】 客戶關(guān)系管理系統(tǒng)、庫存管理、報表管理</p><p><b>　　目錄</b></p><p><b>　　摘要1</b></p><p><b>　　0 引言1</b></p><p>

5、<b>　　1 系統(tǒng)分析2</b></p><p>　　1.1 需求分析2</p><p>　　1.2 可行性分析2</p><p><b>　　2 總體設(shè)計2</b></p><p>　　2.1 項目規(guī)劃2</p><p>　　2.2 系統(tǒng)功能結(jié)構(gòu)圖

6、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>　　3.3 數(shù)據(jù)庫設(shè)計4</p><p>　　4 客戶管理模塊設(shè)計4</p><p>　　4.1

7、 客戶信息管理設(shè)計4</p><p>　　4.2 聯(lián)系人信息管理設(shè)計10</p><p>　　4.3 合同信息管理13</p><p>　　5 服務(wù)管理16</p><p>　　5.1 反饋信息添加16</p><p>　　5.2 反饋信息修改17</p><p>　　6

8、 報表管理19</p><p>　　6.1 客戶報表模塊19</p><p>　　6.2 聯(lián)系人報表模塊25</p><p>　　附錄A 參考文獻(xiàn)</p><p><b>　　附錄B 數(shù)據(jù)表</b></p><p><b>　　0 引言</b></

9、p><p>　　信息時代的今天，各企業(yè)商家所關(guān)心的不再局限于自身的產(chǎn)品質(zhì)量、生產(chǎn)設(shè)備、員工的素質(zhì)，更多的是關(guān)心自己的銷售群體（客戶群），關(guān)心他們的想法、需求、購賣目的。</p><p>　　眾所周知，顧客就是我們的上帝，我們只有滿足了上帝的需求，上帝才能給我們帶來一切。一個企業(yè)要生存、要發(fā)展，就是要不斷的滿足客戶的需求，無論我們做出什么樣的決策，最終都是為了這個的目。每個領(lǐng)域都有自身生存法則，

10、但無論這個法則如何變化，為客戶服務(wù)的宗旨是不會變的。作為企業(yè)，我們只有不斷地挖掘新客戶，維護好和老客戶的關(guān)系，占領(lǐng)市場客戶群體的絕大多數(shù)份額，才能在整個領(lǐng)域取得一席之地。海爾總裁張瑞敏指出：“客戶資源決定企業(yè)核心競爭力”，上個世紀(jì)80年代是物品短缺的時代，而現(xiàn)在，信息時代是客戶短缺的時代。企業(yè)發(fā)展所需的各種資源（包括人力、物力、生產(chǎn)力）都是可以創(chuàng)造的，但每個領(lǐng)域中的客戶資源確是有限的，所以通過創(chuàng)新（產(chǎn)品的創(chuàng)新、企業(yè)管理的創(chuàng)新、服務(wù)的創(chuàng)新

11、）來搶占有限的客戶資源、維護好企業(yè)和客戶之間的關(guān)系、了解客戶的需求動向，成為企業(yè)生存發(fā)展面臨的重大問題。</p><p><b>　　1 系統(tǒng)分析</b></p><p><b>　　1.1 需求分析</b></p><p>　　通過調(diào)查研究，要求系統(tǒng)滿足有以下功能；</p><p>　　由于操

12、作人員的計算機知識普遍較差，要求有良好的人機界面。</p><p>　　方便的數(shù)據(jù)選擇查詢，支持模糊查詢功能。</p><p>　　管理客戶的詳細(xì)信息：包括客戶的基本信息、聯(lián)系人信息、和客戶簽寫的合同信息。</p><p>　　記錄產(chǎn)品出庫、入庫的詳細(xì)信息。</p><p>　　為更多的了解客戶的需求，設(shè)計了服務(wù)模塊，用以記錄客戶的反饋信息，

13、并對反饋信息進(jìn)行管理。</p><p>　　和客戶聯(lián)系人之間通過郵件（e-mail）進(jìn)行聯(lián)系，對聯(lián)系人郵件地址進(jìn)行管理。</p><p>　　提供信息數(shù)據(jù)導(dǎo)出Excel報表的功能，提供報表的打印功能。</p><p>　　對用戶信息進(jìn)行管理，并為用戶設(shè)置管理權(quán)限。</p><p>　　數(shù)據(jù)計算自動完成，盡量減少人工干預(yù)。</p>

14、<p>　　修改當(dāng)前管理員密碼的功能。</p><p><b>　　系統(tǒng)退出。</b></p><p>　　1.2 可行性分析</p><p><b>　　經(jīng)濟性</b></p><p>　　通過計算機網(wǎng)絡(luò)對客戶信息進(jìn)行管理，使企業(yè)對自身擁有的客戶有了一個更為深該的了解。不僅能全面的統(tǒng)

15、計客戶的購買數(shù)量，及時的了解客戶的動態(tài)信息，還可以根據(jù)計算機記錄的數(shù)據(jù)信息，不斷的調(diào)整企業(yè)的生產(chǎn)發(fā)展動向。</p><p><b>　　技術(shù)性</b></p><p>　　系統(tǒng)中設(shè)置了email管理模塊，此模塊大大的方便了企業(yè)和客戶聯(lián)系人之間的溝通。設(shè)置導(dǎo)入Excel功能、Web打印功能，方便用戶報表打印。</p><p><b>　

16、　2 總體設(shè)計</b></p><p><b>　　2.1 項目規(guī)劃</b></p><p>　　客戶關(guān)系管理系統(tǒng)是一個典型的數(shù)據(jù)庫開發(fā)應(yīng)用程序，由客戶管理模塊、庫存管理模塊、服務(wù)管理模塊、報表管理模塊、email管理模塊、用戶管理模塊組成，規(guī)劃系統(tǒng)功能模塊如下：</p><p><b>　　客戶管理模塊</b&

17、gt;</p><p>　　該模塊主要功能是對客戶信息、客戶聯(lián)系人信息、合同信息進(jìn)行添加、刪除、查詢等操作。</p><p><b>　　庫存管理模塊</b></p><p>　　該模塊的主要功能是管理入庫、出庫信息、產(chǎn)品信息進(jìn)行管理，其中包括對庫存信息、產(chǎn)品信息進(jìn)行添加、刪除、查詢等操作。</p><p><b&

18、gt;　　服務(wù)管理模塊</b></p><p>　　該模塊主要功能是對客戶反饋信息進(jìn)行添加、刪除、查詢等操作。</p><p><b>　　報表管理模塊</b></p><p>　　該模塊主要通過查詢條件，對各種信息進(jìn)行查詢，并將得到的結(jié)果導(dǎo)出Excul表、進(jìn)行打印報表等操作（其中信息包括：客戶信息、聯(lián)系人信息、反饋客戶信息、庫存信

19、息）。</p><p><b>　　email管理模塊</b></p><p>　　該模塊主要管理客戶聯(lián)系人email地址信息，對企業(yè)客戶之間的email文件進(jìn)行管理，向客戶發(fā)送郵件。</p><p><b>　　用戶管理</b></p><p>　　該模塊主要管理用戶信息的添加、刪除等操作，并設(shè)置

20、用戶的使用權(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></p><p><b>　　3.1 設(shè)計目標(biāo)</b></p><p>　　本系統(tǒng)是針對中小型企業(yè)通過網(wǎng)絡(luò)實現(xiàn)對客

21、戶的管理而設(shè)計的，主要實現(xiàn)如下目標(biāo)：</p><p>　　對客戶信息（客戶基本信息、聯(lián)系人信息、合同信息）進(jìn)行全面管理。</p><p>　　及時查看庫存信息，并通過網(wǎng)站對入庫、出庫信息進(jìn)行管理。</p><p>　　強大的客戶信息、聯(lián)系人信息報表導(dǎo)出、打印功能</p><p>　　及時了解客戶的反饋信息，并對其進(jìn)行管理。</p>

22、<p>　　實現(xiàn)各種信息的選擇查詢、模糊查詢功能等。</p><p>　　實現(xiàn)了和客戶通過網(wǎng)絡(luò)在線溝通的功能，并對客戶聯(lián)系人的email地址進(jìn)行管理。</p><p>　　管理員可以添加操作員信息、設(shè)置操作員的權(quán)限。</p><p>　　對用戶輸入的數(shù)據(jù)，系統(tǒng)進(jìn)行嚴(yán)格的數(shù)據(jù)檢驗，盡可能排除人為的錯誤。</p><p>　　要求系

23、統(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)境</p><p><b>　　硬件平臺：</b></p><p>　　CPU：P41。8GHz；</p&g

24、t;<p>　　內(nèi)存：256MB以上。</p><p><b>　　軟件平臺：</b></p><p>　　操作系統(tǒng)：Windows xp/ Windows 2000/ Windows 2003；</p><p>　　數(shù)據(jù)庫：SQL Server 2000；</p><p>　　瀏覽器：IE5.0，推薦使用

25、IE6.0；</p><p>　　Web服務(wù)器：IIS5.0；</p><p>　　分辨率：最佳效果1024*768。</p><p>　　3.3 數(shù)據(jù)庫設(shè)計</p><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。&

26、lt;/p><p>　　4 客戶管理模塊設(shè)計</p><p>　　客戶管理模塊的主要功能是對客戶信息進(jìn)行管理，主要包括客戶信息管理、聯(lián)系人信息管理和合同信息管理3個部分。</p><p>　　4.1 客戶信息管理設(shè)計</p><p>　　客戶信息管理設(shè)計主要包括對客戶信息進(jìn)行顯示/查詢、添加、修改和刪除4個部分的功能。用戶可以通過功能導(dǎo)航進(jìn)入

27、客戶信息管理頁面，頁面設(shè)計效果如圖3所示。</p><p>　　圖3 客戶信息管理頁面的設(shè)計效果</p><p>　　在客戶信息管理頁面中，用戶可以在查詢區(qū)域輸入查詢條件，并選擇查詢方式，查找相關(guān)的客戶信息；也可以單擊客戶信息，在展示區(qū)會顯示此客戶的詳細(xì)信息，也可對客戶信息進(jìn)行修改；在選中每條信息前面的復(fù)選框，單擊【刪除】按鈕，選中的客戶信息將被刪除。</p><p&

28、gt;　　1．客戶信息顯示/查詢</p><p>　　用戶可以在客戶信息管理頁面中的查詢部分，輸入一定的查詢條件進(jìn)行客戶信息的查詢。</p><p>　　當(dāng)用戶在查詢部分輸入條件后，并單擊【查詢】按鈕，用戶添加的查詢條件將被提交給本頁，本頁將根據(jù)用戶提交的表單信息對數(shù)據(jù)庫進(jìn)行檢索，并將結(jié)果集通過操作區(qū)輸出到瀏覽器中。</p><p>　　客戶信息查詢頁面涉及的HTM

29、L表單元素如表1所示。</p><p>　　表1 客戶信息查詢頁面涉及的HTML表單元素</p><p>　　在表單提交之后，在本頁將數(shù)據(jù)進(jìn)行處理。程序代碼如下：</p><p><b>　　<%</b></p><p>　　if request("post&qu

30、ot;)<>"" then</p><p>　　if request("tiao")="模糊查詢" then ‘條件輸入為模糊查詢時獲得相應(yīng)的記錄集</p><p>　　set rs=server.CreateObject("adodb.recordset")</p><p>

31、;　　sql="select * from tb_Client where "&request("sel")&" like '%"&request("search")&"%' order by id desc"</p><p>　　rs.open sql,conn,1

32、,1</p><p>　　else ‘條件輸入為精確查詢時獲得相應(yīng)的記錄集</p><p>　　set rs=server.CreateObject("adodb.recordset")</p><p>　　sql="select * from tb_Client where &

33、quot;&request("sel")&"='"&request("search")&"' order by id desc"</p><p>　　rs.open sql,conn,1,1</p><p><b>　　end if</b>&

34、lt;/p><p>　　else ‘默認(rèn)狀態(tài)下獲得相應(yīng)的記錄集</p><p>　　set rs=server.CreateObject("adodb.recordset")</p><p>　　sql="select * from tb_Client order by id desc"<

35、/p><p>　　rs.open sql,conn,1,1</p><p><b>　　end if</b></p><p><b>　　'實現(xiàn)分頁</b></p><p>　　if not rs.eof then</p><p>　　tol=rs.recordcount

36、 '總記錄數(shù)</p><p>　　rs.pagesize=15 '獲取每頁顯示的記錄數(shù)</p><p>　　maxpage=rs.pagecount </p><p>　　requestpage=clng(request("p")) '獲

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

38、e>maxpage then '在接收頁碼的值大于最大頁碼時，使其等于最大頁碼</p><p>　　requestpage=maxpage</p><p><b>　　end if</b></p><p>　　if requestpage<>1 then '向上或向下移動相應(yīng)的記錄</p>&l

39、t;p>　　rs.move (requestpage-1)*rs.pagesize</p><p><b>　　end if</b></p><p>　　for i=1 to rs.pagesize and not rs.eof '利用循環(huán)輸出數(shù)據(jù)</p><p>　　if i mod 2=1 then</p>&

40、lt;p>　　bg="#FFFFFF"</p><p><b>　　else</b></p><p>　　bg="#efefef"</p><p><b>　　end if</b></p><p><b>　　%></b>&l

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

42、t;'"onMouseOver="HLItem(this)" onMouseOut="Re(this)"></p><p>　　<td height="22"><%=rs("ClientName")%></td></p><p>　　<td>

43、;<%=rs("ClientCountry")%></td></p><p>　　<td><%=rs("ClientCity")%></td></p><p>　　<td><%=rs("ClientTel")%></td></p&

44、gt;<p>　　<td><%=rs("ClientEmail")%></td></p><p><b>　　</tr></b></p><p><b>　　<%</b></p><p>　　rs.movenext</p>

45、<p>　　if rs.eof then exit for ’ 如果記錄集為空那么跳出循環(huán)</p><p><b>　　next</b></p><p><b>　　else</b></p><p>　　response.Write("沒有客戶信息，請<a href='KeHu

46、_add.asp' target='bo'>添加</a>")</p><p><b>　　end if%></b></p><p>　　當(dāng)鼠標(biāo)在某條記錄上懸停時，其記錄所在行的背景顏色會發(fā)生改變，此功能用到的js代碼如下：</p><p>　　<script language=&q

47、uot;javascript"></p><p>　　function HLItem(obj)//鼠標(biāo)經(jīng)過</p><p><b>　　{</b></p><p>　　obj.oldClassName=obj.className;</p><p>　　obj.className="List&qu

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

49、}</b></p><p><b>　　</script></b></p><p><b>　　其調(diào)用的代碼如下：</b></p><p>　　<tr align="center" bgcolor=<%=bg%> style="cursor:hand&

50、quot; onClick="window.parent.frames('bo').window.location = 'KeHu_ed.asp?id=<%=rs("id")%>'" onMouseOver="HLItem(this)" onMouseOut="Re(this)"></p>&l

51、t;p>　　客戶信息顯示/查詢頁面的運行結(jié)果如圖4所示：</p><p>　　圖4 客戶信息查詢頁面的運行結(jié)果</p><p><b>　　2．客戶信息添加</b></p><p>　　客戶信息添加的主要功能是用于用戶添加客戶信息。在查詢頁面中單擊【添加】按鈕，在展示區(qū)中會顯示添加頁面，其設(shè)計效果如圖5所示。</p>&l

52、t;p>　　如圖5 客戶信息添加頁面設(shè)計效果</p><p>　　當(dāng)單擊添加頁面中的【添加】按鈕時，調(diào)用js編寫的自定義函數(shù)（checks()），通過函數(shù)驗證填寫的數(shù)據(jù)是否正確，該函數(shù)的代碼如下：</p><p>　　<script language="javascript"></p><p>　　function checks

53、()</p><p><b>　　{</b></p><p>　　if(form1.ClientName.value=="")</p><p><b>　　{</b></p><p>　　alert("公司名稱不能為空");</p><p&

54、gt;　　return false;</p><p><b>　　}</b></p><p>　　……//中間過程不詳細(xì)介紹，因為實現(xiàn)方法類似</p><p>　　else if(form1.ClientCyc.value=="")</p><p><b>　　{</b><

55、/p><p>　　alert("需求周期不能為空");</p><p>　　return false;</p><p><b>　　}</b></p><p><b>　　}</b></p><p><b>　　</script><

56、/b></p><p>　　表單提交之后，添加的數(shù)據(jù)將被提交到本頁進(jìn)行處理，本頁數(shù)據(jù)處理的程序代碼如下：</p><p><b>　　<%</b></p><p>　　if request("post")<>"" then</p><p>　　set rs=

57、server.CreateObject("adodb.recordset")</p><p>　　sql="select * from tb_Client"</p><p>　　rs.open sql,conn,1,3</p><p><b>　　rs.addnew</b></p><

58、;p>　　rs("ClientName")=request("ClientName") ‘添加公司名稱</p><p>　　rs("ClientAddress")=request("ClientAddress") ‘公司地址</p><p>　　rs("ClientTel"

59、;)=request("ClientTel") ‘公司電話</p><p>　　rs("ClientFax")=request("ClientFax") ‘公司傳真</p><p>　　rs("ClientNumber")=request("ClientNumber

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

61、<p>　　rs("ClientCountry")=request("ClientCountry") ‘所屬國家/地區(qū)</p><p>　　rs("ClientHabitude")=request("ClientHabitude") ‘公司性質(zhì)</p><p>　　rs("Client

62、Size")=request("ClientSize") ‘公司規(guī)模</p><p>　　rs("ClientCity")=request("ClientCity") ‘所屬城市</p><p>　　rs("ClientPay")=request("Cli

63、entPay") ‘結(jié)款方式</p><p>　　rs("ClientCredit")=request("ClientCredit") ‘結(jié)款信用</p><p>　　rs("ClientList")=request("ClientList") ‘最

64、高訂單‘</p><p>　　rs("ClientYear")=request("ClientYear") ‘年度訂單</p><p>　　rs("ClientCyc")=request("ClientCyc") ‘需求周期</p><p>　　rs

65、("SetTime")=now() ‘創(chuàng)建時間</p><p>　　rs("EditTime")=now() ‘修改時間</p><p>　　rs("SetName")=session("admin_name") ‘創(chuàng)建人&

66、lt;/p><p><b>　　rs.update</b></p><p><b>　　rs.close</b></p><p>　　conn.close</p><p>　　response.Write("<script language=javascript>alert(

67、9;客戶信息添加成功')</script>")‘彈出成功對話框</p><p><b>　　end if%></b></p><p><b>　　3．客戶信息修改</b></p><p>　　在顯示客戶詳細(xì)信息頁面，用戶可以瀏覽、修改其客戶的詳細(xì)信息。進(jìn)行客戶詳細(xì)信息瀏覽和修改的頁面設(shè)計

68、效果如圖6所示：</p><p>　　圖6 客戶信息修改頁面設(shè)計效果</p><p>　　在客戶信息修改頁面，用戶可以瀏覽客戶詳細(xì)的信息，也可以修改客戶的信息（當(dāng)用戶有修改的權(quán)限時，那么用戶可以進(jìn)行修改，至于用戶權(quán)限的實現(xiàn)，將在后面的章節(jié)中進(jìn)行講解）。當(dāng)用戶單擊【修改】按鈕后，修改的數(shù)據(jù)將被提交到本頁進(jìn)行處理。數(shù)據(jù)處理的代碼如下：</p><p><b>

69、;　　<%</b></p><p>　　if request("post")<>"" and (rsr("Client")="可寫" or rsr("chaoji")="是") then </p><p>　　set rs=server.Cr

70、eateObject("adodb.recordset")</p><p>　　sql="select * from tb_Client where id="&request("id")</p><p>　　rs.open sql,conn,1,3</p><p>　　rs("Client

71、Name")=request("ClientName") ‘添加公司名稱</p><p>　　rs("ClientAddress")=request("ClientAddress") ‘公司地址</p><p>　　rs("ClientTel")=request("Client

72、Tel") ‘公司電話</p><p>　　rs("ClientFax")=request("ClientFax") ‘公司傳真</p><p>　　rs("ClientNumber")=request("ClientNumber") ‘郵政編碼</p&g

73、t;<p>　　rs("ClientPage")=request("ClientPage") ‘公司網(wǎng)址</p><p>　　rs("ClientEmail")=request("ClientEmail") ‘公司email</p><p>　　rs("Cli

74、entCountry")=request("ClientCountry") ‘所屬國家/地區(qū)</p><p>　　rs("ClientHabitude")=request("ClientHabitude") ‘公司性質(zhì)</p><p>　　rs("ClientSize")=request(&qu

75、ot;ClientSize") ‘公司規(guī)模</p><p>　　rs("ClientCity")=request("ClientCity") ‘所屬城市</p><p>　　rs("ClientPay")=request("ClientPay")

76、 ‘結(jié)款方式</p><p>　　rs("ClientCredit")=request("ClientCredit") ‘結(jié)款信用</p><p>　　rs("ClientList")=request("ClientList") ‘最高訂單‘</p><p&g

77、t;　　rs("ClientYear")=request("ClientYear") ‘年度訂單</p><p>　　rs("ClientCyc")=request("ClientCyc") ‘需求周期</p><p>　　rs("EditTime")=

78、now() ‘修改時間</p><p>　　rs("SetName")=session("admin_name") ‘創(chuàng)建人</p><p><b>　　rs.update</b></p><p><b>　　rs.close<

79、;/b></p><p>　　response.Write("<script language=javascript>alert('客戶信息修改成功')</script>")‘彈出成功對話框</p><p><b>　　end if</b></p><p><b>　　

80、%></b></p><p><b>　　4．客戶信息刪除</b></p><p>　　在客戶信息管理頁面，用戶可以點選任意一條客戶信息前面的復(fù)選框，然后單擊頁面下方的【刪除】按鈕，被選擇的客戶信息將被刪除。</p><p>　　客戶信息刪除主要是根據(jù)傳遞的參數(shù)（本例中的參數(shù)為客戶信息的id），將數(shù)據(jù)庫中對應(yīng)id的客戶信息和其

81、他和客戶相關(guān)的信息全部刪除，程序代碼如下：</p><p><b>　　<%</b></p><p>　　call client '驗證是否有刪除客戶信息的權(quán)限</p><p>　　if request("del")<>"" then</p><p>　　

82、kid=Split(Request("del"),",") ‘分解字符串成數(shù)組</p><p>　　for i=0 to ubound(kid)</p><p>　　sqld="delete from tb_Client where id="&clng(kid(i))'刪除客戶信息</p><p

83、>　　conn.execute(sqld)</p><p>　　sqll="delete from tb_Linkman where LinkmanClient="&clng(kid(i))'刪除客戶的聯(lián)系人信息</p><p>　　conn.execute(sqll)</p><p>　　sqlp="delete

84、 from tb_Pact where PactClient="&clng(kid(i))'刪除客戶的合同信息</p><p>　　conn.execute(sqlp)</p><p>　　sqlp="delete from tb_Feedback where FeedbackClient="&clng(kid(i))'刪除客戶

85、反饋信息</p><p>　　conn.execute(sqlp)</p><p>　　sqlp="delete from tb_Product where ProductProvider="&clng(kid(i))'刪除客戶的產(chǎn)品信息</p><p>　　conn.execute(sqlp)</p><p&

86、gt;<b>　　next</b></p><p>　　if request("p")="" then '返回用戶操作頁</p><p>　　response.Redirect("KeHu_KeHu.asp")</p>

87、<p><b>　　else</b></p><p>　　response.Redirect("KeHu_KeHu.asp?p="&request("p"))</p><p><b>　　end if</b></p><p><b>　　else</

88、b></p><p>　　response.Write("<script language=javascript>alert('請選擇要刪除的信息');location='javascript:history.go(-1)'</script>")</p><p><b>　　end if%>&

89、lt;/b></p><p>　　4.2 聯(lián)系人信息管理設(shè)計</p><p>　　聯(lián)系人信息管理的主要功能包括顯示/查詢、添加、修改和刪除聯(lián)系人信息4個部分。用戶可以通過功能導(dǎo)航進(jìn)入聯(lián)系人信息管理頁面，頁面設(shè)計效果如圖7所示。</p><p>　　圖7 聯(lián)系人信息管理頁面設(shè)計效果</p><p>　　1．聯(lián)系人信息顯示/查詢<

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

91、gt;<p><b>　　<%</b></p><p>　　if request("post")<>"" then</p><p>　　if request("tiao")="模糊查詢" then’ 聯(lián)系人模糊查詢</p><p>　

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

93、;"%' order by id desc"</p><p>　　rs.open sql,conn,1,1</p><p>　　else ‘聯(lián)系人精確查詢</p><p>　　set rs=server.CreateObject("adodb.recordset")</p><p>　　sql=

94、"select * from tb_Linkman where "&request("sel")&"='"&request("search")&"' order by id desc" </p><p>　　rs.open sql,conn,1,1</p>

95、<p><b>　　end if</b></p><p>　　else’ 默認(rèn)狀態(tài)下顯示聯(lián)系人列表</p><p>　　set rs=server.CreateObject("adodb.recordset")</p><p>　　sql="select * from tb_Linkman order

96、 by id desc"</p><p>　　rs.open sql,conn,1,1</p><p><b>　　end if</b></p><p><b>　　%></b></p><p>　　分頁代碼請參考4.1節(jié)中介紹的客戶信息顯示/查詢中的相關(guān)代碼。</p>

97、<p>　　也可在查看客戶的詳細(xì)信息中，單擊“聯(lián)系人信息”，就會產(chǎn)生此客戶的聯(lián)系人列表，傳參代碼如下：</p><p>　　<a href="KeHu_Linkman.asp?post=true&sel=LinkmanClient&search=<%=rsx("id")%>&dd=dd">聯(lián)系人信息</a&g

98、t;</p><p><b>　　2．聯(lián)系人信息添加</b></p><p>　　聯(lián)系人信息添加的主要功能是添加客戶的聯(lián)系人信息。</p><p>　　在查詢頁面中單擊【添加】按鈕，在展示區(qū)中會顯示添加頁面。在添寫表單選擇所屬客戶時，所屬客戶是在數(shù)據(jù)庫中直接讀取出來的。其代碼如下：</p><p><b>　　

99、<% </b></p><p>　　set rsc=server.CreateObject("adodb.recordset")</p><p>　　sqlc="select * from tb_Client order by id desc"</p><p>　　rsc.open sqlc,conn,1,1

100、 </p><p>　　if not rsc.eof then</p><p><b>　　%></b></p><p>　　<select name="LinkmanClient" id="LinkmanClient"></p><p><b>　　&

101、lt;%</b></p><p>　　for i=1 to rsc.recordcount and not rsc.eof</p><p><b>　　%></b></p><p>　　<option value="<%=rsc("id")%>"><%=rs

102、c("ClientName")%></option></p><p><b>　　<%</b></p><p>　　rsc.movenext</p><p><b>　　next%></b></p><p><b>　　</selec

103、t></b></p><p><b>　　<%</b></p><p><b>　　else</b></p><p>　　response.Write("沒有客戶信息，請<a href='KeHu_add.asp' target='bo'>添加&

104、lt;/a>")</p><p><b>　　end if%></b></p><p>　　添加聯(lián)系人頁面的運行結(jié)果如圖8所示。</p><p>　　圖8 添加聯(lián)系人的頁面運行結(jié)果</p><p>　　也可在客戶的詳細(xì)信息中單擊【新建】按鈕，在此添加用戶不用選擇所屬客戶，直接就會生成所屬客戶，主要

105、是根據(jù)傳遞的參數(shù)（本例中的參數(shù)為客戶信息的id），傳參代碼如下：</p><p>　　<a href="KeHu_Linkman_addy.asp?id=<%=rsx("id")%>"><span class="style2">新建</span></a></p><p>

106、<b>　　其顯示代碼如下：</b></p><p><b>　　<%</b></p><p>　　set rsc=server.CreateObject("adodb.recordset")</p><p>　　sqlc="select * from tb_Client where i

107、d="&request("id")&" order by id desc"</p><p>　　rsc.open sqlc,conn,1,1 </p><p>　　response.Write(rsc("ClientName"))</p><p><b>　　%>&

108、lt;/b></p><p><b>　　3．聯(lián)系人信息修改</b></p><p>　　聯(lián)系人信息修改的主要功能是用戶修改聯(lián)系人信息，方便用戶和客戶之間的聯(lián)系和溝通。</p><p>　　在顯示聯(lián)系人詳細(xì)信息頁面，用戶可以更改其聯(lián)系人的信息。聯(lián)系人信息修改頁面運行結(jié)果如圖9所示。</p><p>　　圖9 聯(lián)系

109、人信息修改頁面運行結(jié)果</p><p><b>　　4．聯(lián)系人信息刪除</b></p><p>　　聯(lián)系人信息刪除的主要功能是刪除聯(lián)系人的信息。，其程序代碼如下：</p><p><b>　　<%</b></p><p>　　kid=Split(Request("del")

110、,",") ‘分解字符串成數(shù)組</p><p>　　response.Write("正在刪除...")</p><p>　　for i=0 to ubound(kid)</p><p>　　sqld="delete from tb_Linkman where id="&clng(kid(i)) ‘刪

111、除指定的記錄</p><p>　　conn.execute(sqld)</p><p><b>　　next</b></p><p><b>　　%></b></p><p>　　4.3 合同信息管理</p><p>　　合同信息管理設(shè)計主要包括顯示/查詢、添加、修改

112、和刪除合同信息4個部分。用戶可以通過功能導(dǎo)航進(jìn)入合同信息管理頁面，頁面設(shè)計效果如圖10所示。</p><p>　　圖10 合同信息管理頁面的運行結(jié)果</p><p>　　1．合同信息顯示/查詢</p><p>　　用戶可以在合同信息管理頁面中的查詢部分，輸入一定的查詢條件，進(jìn)行合同信息的查詢。</p><p>　　用戶在查詢部分輸入查詢條件后

113、，單擊【查詢】按鈕，用戶所添加的查詢條件將被提交給本頁，本頁將根據(jù)用戶提交的表單信息對數(shù)據(jù)庫進(jìn)行檢索，并將結(jié)果集通過操作區(qū)輸出到瀏覽器中。</p><p>　　合同信息查詢程序代碼如下：</p><p><b>　　<%</b></p><p>　　if request("post")<>"&qu

114、ot; then</p><p>　　if request("tiao")="模糊查詢" then‘模糊查詢合同信息</p><p>　　set rs=server.CreateObject("adodb.recordset")</p><p>　　sql="select * from tb_Pa

115、ct where "&request("sel")&" like '%"&request("search")&"%' order by id desc"</p><p>　　rs.open sql,conn,1,1</p><p>　　else’精確查詢

116、合同信息</p><p>　　set rs=server.CreateObject("adodb.recordset")</p><p>　　sql="select * from tb_Pact where "&request("sel")&"='"&request("

117、search")&"' 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)下顯示的合同信息</p><p>　　set rs=server

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

119、<p><b>　　%></b></p><p>　　合同信息顯示/查詢頁面運行結(jié)果如圖11所示。</p><p>　　圖11 合同信息顯示/查詢頁面運行結(jié)果</p><p>　　也可在查看客戶的詳細(xì)信息中，單擊“合同信息”，就會產(chǎn)生此客戶的合同列表，傳參代碼如下：</p><p>　　<a

120、href="KeHu_Pact.asp?post=true&sel=PactClient&search=<%=rsx("id")%>&dd=dd" >合同信息</a></p><p><b>　　2．合同信息添加</b></p><p>　　合同信息添加的主要功能是用戶添加客

121、戶的合同信息。</p><p>　　在查詢頁面中單擊【添加】按鈕，在展示區(qū)中會顯示添加頁面，其運行結(jié)果如圖17（上）所示；也可在客戶的詳細(xì)信息頁面單擊“新建”，在展示區(qū)中會顯示添加頁面，然后進(jìn)行合同信息添加。合同信息添加頁面的運行結(jié)果如圖12（下）所示。</p><p>　　圖12 合同信息添加頁面運行結(jié)果</p><p><b>　　3．合同信息修改&

122、lt;/b></p><p>　　合同信息修改的主要功能是用戶修改合同信息。</p><p>　　在顯示合同詳細(xì)信息頁面，用戶可以更改其合同的信息。合同信息修改頁面運行結(jié)果如圖13所示。</p><p>　　圖13 合同信息修改頁面運行結(jié)果</p><p><b>　　4．合同信息的刪除</b></p>

123、;<p>　　合同信息刪除的主要功能是刪除合同信息，其代碼如下：</p><p><b>　　<%</b></p><p>　　kid=Split(Request("del"),",") </p><p>　　response.Write("正在刪除...")<

124、;/p><p>　　for i=0 to ubound(kid)</p><p>　　sqld="delete from tb_Pact where id="&clng(kid(i))</p><p>　　conn.execute(sqld)</p><p><b>　　next</b></

125、p><p><b>　　%></b></p><p><b>　　5 服務(wù)管理</b></p><p>　　服務(wù)管理設(shè)計的主要功能包括反饋信息的顯示/查詢、添加、修改和刪除4個部分。用戶可以通過功能導(dǎo)航進(jìn)入服務(wù)管理頁面，頁面設(shè)計效果如圖20所示。</p><p>　　圖20 服務(wù)管理頁面的設(shè)計

126、效果</p><p>　　5.1 反饋信息添加</p><p>　　反饋信息添加的主要功能是用戶添加客戶的反饋信息。在查詢頁面中單擊【添加】按鈕，在展示區(qū)中會顯示添加頁面。反饋信息添加頁面的設(shè)計效果如圖21所示。</p><p>　　圖21 反饋信息添加頁面的設(shè)計效果</p><p>　　反饋信息添加頁面涉及的HTML表單元素如表3所示。

127、</p><p>　　表3 反饋信息信息添加頁面涉及的HTML表單元素</p><p>　　表單提交之后，添加的數(shù)據(jù)將被提交到本頁進(jìn)行處理。數(shù)據(jù)處理的程序代碼如下：</p><p><b>　　<%</b></p><p>　　call feedback</p>

128、<p>　　if request("post")<>"" then</p><p>　　set rs=server.CreateObject("adodb.recordset")</p><p>　　sql="select * from tb_Feedback"</p>

129、<p>　　rs.open sql,conn,1,3</p><p>　　rs.addnew '主要用于添加客戶反饋信息的數(shù)據(jù)</p><p>　　rs("FeedbackTitle")=request("FeedbackTitle")</p><p>　　rs("FeedbackDate&quo

130、t;)=request("year")&"-"&request("month")&"-"&request("day")</p><p>　　rs("FeedbackClient")=request("FeedbackClient")</p

131、><p>　　rs("FeedbackContent")=request("FeedbackContent")</p><p>　　rs("FeedbackResult")=request("FeedbackResult")</p><p>　　rs("FeedbackFulfil

132、l")=request("FeedbackFulfill")</p><p>　　rs("SetTime")=now()</p><p>　　rs("SetName")=session("admin_name")</p><p><b>　　rs.update<

133、/b></p><p><b>　　rs.close</b></p><p>　　response.Write("<script language=javascript>alert('反饋信息添加成功')</script>")</p><p><b>　　end if

134、</b></p><p><b>　　%></b></p><p>　　5.2 反饋信息修改</p><p>　　因為反饋信息是客戶的反饋意見所以不得隨意修改，用戶只可以修改“處理結(jié)果”和“服務(wù)完成”兩項信息。當(dāng)服務(wù)完成選項，選中“已完成”時，那么任何信息都不可以修改，也就是說只有在服務(wù)“未完成”的情況下才能修改“處理結(jié)果”

135、。</p><p>　　反饋信息頁面設(shè)計效果如圖22所示。</p><p>　　圖22 反饋信息頁面設(shè)計效果</p><p>　　反饋信息修改頁面涉及的HTML表單元素如表4所示。</p><p>　　表4 反饋信息信息修改頁面涉及的HTML表單元素</p><p>　　在反

136、饋信息修改頁面，當(dāng)用戶單擊【修改】按鈕后，修改數(shù)據(jù)將被提交到本頁進(jìn)行處理，數(shù)據(jù)處理程序的代碼如下：</p><p><b>　　<%</b></p><p>　　if request("post")<>"" then</p><p>　　set rs=server.CreateObjec

137、t("adodb.recordset")</p><p>　　sql="select * from tb_Feedback where id="&request("id")</p><p>　　rs.open sql,conn,1,3</p><p>　　rs("FeedbackFulfi

138、ll")=request("FeedbackFulfill")</p><p>　　rs("FeedbackResult")=request("FeedbackResult")</p><p><b>　　rs.update</b></p><p><b>　　rs

139、.close</b></p><p>　　response.Write("<script language=javascript>alert('反饋信息修改成功');location='Feedback_ed.asp?id="&request("id")&"</script>")

140、</p><p><b>　　end if</b></p><p><b>　　%></b></p><p><b>　　7 報表管理</b></p><p>　　報表管理的主要功能是打印各種類型的報表，包括客戶報表打印、聯(lián)系人報表打印、反饋報表打印和庫存報表打印4個部