客戶(hù)關(guān)系管理系統(tǒng)畢業(yè)設(shè)計(jì)

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

2、p>　教師職稱(chēng)</p><p><b>　　摘要</b></p><p><b>　　【摘要】</b></p><p>　　隨著市場(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ù)更多的

3、客戶(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)品正在向客戶(hù)端和供應(yīng)端延伸，客戶(hù)端的延伸是客戶(hù)關(guān)系管理，而供應(yīng)端的延伸則是跨企業(yè)供應(yīng)鏈的同步管理。對(duì)于每個(gè)企業(yè)來(lái)說(shuō)客戶(hù)管理的完善程度

4、將直接影響企業(yè)的經(jīng)濟(jì)效益。</p><p>　　【關(guān)鍵詞】 客戶(hù)關(guān)系管理系統(tǒng)、庫(kù)存管理、報(bào)表管理</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è)計(jì)2</b></p><p>　　2.1 項(xiàng)目規(guī)劃2</p><p>　　2.2 系統(tǒng)功能結(jié)構(gòu)圖

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

7、 客戶(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>　　5.1 反饋信息添加26</p><p>　　5.2 反饋信息修改27</p><p><

8、;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><p><b>　　附錄B 數(shù)據(jù)表</b></p><p><b>　　0 引言&

9、lt;/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>　　眾所周知，顧客就是我們的上帝，我們只有滿(mǎn)足了上帝的需求，上帝才能給我們帶來(lái)一切。一個(gè)企業(yè)要生存、要發(fā)展，就是要不斷的滿(mǎn)足客戶(hù)的需求，無(wú)論我們做出什么樣的決策，最終都是為了這個(gè)的目

10、。每個(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í)代，而現(xiàn)在，信息時(shí)代是客戶(hù)短缺的時(shí)代。企業(yè)發(fā)展所需的各種資源（包括人力、物力、生產(chǎn)力）都是可以創(chuàng)造的，但每個(gè)領(lǐng)域中的客戶(hù)資源確是有限的，所以通過(guò)創(chuàng)新（產(chǎn)品的創(chuàng)新

11、、企業(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>　　1.1 需求分析</b></p><p>　　通過(guò)調(diào)查研究，要求系統(tǒng)滿(mǎn)足有以下功能；</p>

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

13、塊，用以記錄客戶(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)表的打印功能。</p><p>　　對(duì)用戶(hù)信息進(jìn)行管理，并為用戶(hù)設(shè)置管理權(quán)限。</p><p>　　數(shù)據(jù)計(jì)算自動(dòng)完成，盡量減少人工

14、干預(yù)。</p><p>　　修改當(dāng)前管理員密碼的功能。</p><p><b>　　系統(tǒng)退出。</b></p><p>　　1.2 可行性分析</p><p><b>　　經(jīng)濟(jì)性</b></p><p>　　通過(guò)計(jì)算機(jī)網(wǎng)絡(luò)對(duì)客戶(hù)信息進(jìn)行管理，使企業(yè)對(duì)自身?yè)碛械目蛻?hù)有了一個(gè)更

15、為深該的了解。不僅能全面的統(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è)置了email管理模塊，此模塊大大的方便了企業(yè)和客戶(hù)聯(lián)系人之間的溝通。設(shè)置導(dǎo)入Excel功能、Web打印功能，方便用戶(hù)報(bào)表打印。</p><p

16、><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ù)存管理模塊、服務(wù)管理模塊、報(bào)表管理模塊、email管理模塊、用戶(hù)管理模塊組成，規(guī)劃系統(tǒng)功能模塊如下：</p><p><b>　

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

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

19、人信息、反饋客戶(hù)信息、庫(kù)存信息）。</p><p><b>　　email管理模塊</b></p><p>　　該模塊主要管理客戶(hù)聯(lián)系人email地址信息，對(duì)企業(yè)客戶(hù)之間的email文件進(jìn)行管理，向客戶(hù)發(fā)送郵件。</p><p><b>　　用戶(hù)管理</b></p><p>　　該模塊主要管理用戶(hù)信

20、息的添加、刪除等操作，并設(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></p><p><b>　　3.1 設(shè)計(jì)目標(biāo)</b></p><p>　　本系統(tǒng)是針

21、對(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><p>　　強(qiáng)大的客戶(hù)信息、聯(lián)系人信息報(bào)表導(dǎo)出、打印功能</p><p>　　及時(shí)了解客戶(hù)的反饋信息，并對(duì)其進(jìn)

22、行管理。</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>　　管理員可以添加操作員信息、設(shè)置操作員的權(quán)限。</p><p>　　對(duì)用戶(hù)輸入的數(shù)據(jù)，系統(tǒng)進(jìn)行嚴(yán)格的數(shù)據(jù)檢驗(yàn)，盡可能排除人為的錯(cuò)誤。</p>

23、<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)境</p><p><b>　　硬件平臺(tái)：</b></p><p>　　CPU：P41

24、。8GHz；</p><p>　　內(nèi)存：256MB以上。</p><p><b>　　軟件平臺(tái)：</b></p><p>　　操作系統(tǒng)：Windows xp/ Windows 2000/ Windows 2003；</p><p>　　數(shù)據(jù)庫(kù)：SQL Server 2000；</p><p>　　

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

26、庫(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>　　4.1 客戶(hù)信息管理設(shè)計(jì)</p><p>　　客戶(hù)信息管理設(shè)計(jì)主要包括對(duì)客戶(hù)信息進(jìn)行顯示/查詢(xún)、添加、修改和刪除4個(gè)部分的功

27、能。用戶(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ù)信息；也可以單擊客戶(hù)信息，在展示區(qū)會(huì)顯示此客戶(hù)的詳細(xì)信息，也可對(duì)客戶(hù)信息進(jìn)行修改；在選中每條信息前面的復(fù)選框，單擊【刪除】按鈕，選中的客戶(hù)信息將被刪除。<

28、/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ù)添加的查詢(xún)條件將被提交給本頁(yè)，本頁(yè)將根據(jù)用戶(hù)提交的表單信息對(duì)數(shù)據(jù)庫(kù)進(jìn)行檢索，并將結(jié)果集通過(guò)操作區(qū)輸出到瀏覽器中。</p><p>　　

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

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

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

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

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

34、 if</b></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

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

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

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

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

39、</p><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 the

40、n</p><p>　　bg="#FFFFFF"</p><p><b>　　else</b></p><p>　　bg="#efefef"</p><p><b>　　end if</b></p><p><b>　　%&g

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

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

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

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

45、ext</p><p>　　if rs.eof then exit for ’ 如果記錄集為空那么跳出循環(huán)</p><p><b>　　next</b></p><p><b>　　else</b></p><p>　　response.Write("沒(méi)有客戶(hù)信息，請(qǐng)<a

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

47、pt language="javascript"></p><p>　　function HLItem(obj)//鼠標(biāo)經(jīng)過(guò)</p><p><b>　　{</b></p><p>　　obj.oldClassName=obj.className;</p><p>　　obj.className

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

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

50、t;cursor:hand" onClick="window.parent.frames('bo').window.location = 'KeHu_ed.asp?id=<%=rs("id")%>'" onMouseOver="HLItem(this)" onMouseOut="Re(this)">

51、</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><p>　　客戶(hù)信息添加的主要功能是用于用戶(hù)添加客戶(hù)信息。在查詢(xún)頁(yè)面中單擊【添加】按鈕，在展示區(qū)中會(huì)顯示添加頁(yè)面，其設(shè)計(jì)效果如圖5所示。

52、</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><p>　　<script language="javascript"></p><p>　　f

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

54、/p><p>　　return false;</p><p><b>　　}</b></p><p>　　……//中間過(guò)程不詳細(xì)介紹，因?yàn)閷?shí)現(xiàn)方法類(lèi)似</p><p>　　else if(form1.ClientCyc.value=="")</p><p><b>　　{

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

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

57、p>　　set rs=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>&

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

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

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

61、il</p><p>　　rs("ClientCountry")=request("ClientCountry") ‘所屬?lài)?guó)家/地區(qū)</p><p>　　rs("ClientHabitude")=request("ClientHabitude") ‘公司性質(zhì)</p><p>　　r

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

63、uest("ClientPay") ‘結(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>

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

66、 ‘創(chuàng)建人</p><p><b>　　rs.update</b></p><p><b>　　rs.close</b></p><p>　　conn.close</p><p>　　response.Write("<script language=javascrip

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

68、詳細(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)行修改，至于用戶(hù)權(quán)限的實(shí)現(xiàn)，將在后面的章節(jié)中進(jìn)行講解）。當(dāng)用戶(hù)單擊【修改】按鈕后，修改的數(shù)據(jù)將被提交到本頁(yè)進(jìn)行處理。數(shù)據(jù)處理的代碼如下：</p><

69、;p><b>　　<%</b></p><p>　　if request("post")<>"" and (rsr("Client")="可寫(xiě)" or rsr("chaoji")="是") then </p><p>　　se

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

71、s("ClientName")=request("ClientName") ‘添加公司名稱(chēng)</p><p>　　rs("ClientAddress")=request("ClientAddress") ‘公司地址</p><p>　　rs("ClientTel")=reques

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

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

74、　　rs("ClientCountry")=request("ClientCountry") ‘所屬?lài)?guó)家/地區(qū)</p><p>　　rs("ClientHabitude")=request("ClientHabitude") ‘公司性質(zhì)</p><p>　　rs("ClientSize"

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

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

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

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

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

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

81、據(jù)庫(kù)中對(duì)應(yīng)id的客戶(hù)信息和其他和客戶(hù)相關(guān)的信息全部刪除，程序代碼如下：</p><p><b>　　<%</b></p><p>　　call client '驗(yàn)證是否有刪除客戶(hù)信息的權(quán)限</p><p>　　if request("del")<>"" then</p>

82、;<p>　　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))'刪除客戶(hù)信息<

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

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

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

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

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

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

89、　　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è)面，頁(yè)面設(shè)計(jì)效果如圖7所示。</p><p>　　圖7 聯(lián)系人信息管理頁(yè)面設(shè)計(jì)效果</p><p>　　1．

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

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

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

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

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

95、,1,1</p><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

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

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

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

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

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

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

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

103、t;　　</select></b></p><p><b>　　<%</b></p><p><b>　　else</b></p><p>　　response.Write("沒(méi)有客戶(hù)信息，請(qǐng)<a href='KeHu_add.asp' target='

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

105、，直接就會(huì)生成所屬客戶(hù)，主要是根據(jù)傳遞的參數(shù)（本例中的參數(shù)為客戶(hù)信息的id），傳參代碼如下：</p><p>　　<a href="KeHu_Linkman_addy.asp?id=<%=rsx("id")%>"><span class="style2">新建</span></a></p&

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

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

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

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

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

111、lng(kid(i)) ‘刪除指定的記錄</p><p>　　conn.execute(sqld)</p><p><b>　　next</b></p><p><b>　　%></b></p><p>　　4.3 合同信息管理</p><p>　　合同信息管理設(shè)計(jì)主

112、要包括顯示/查詢(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><p>　　用戶(hù)可以在合同信息管理頁(yè)面中的查詢(xún)部分，輸入一定的查詢(xún)條件，進(jìn)行合同信息的查詢(xún)。</p><p>　　

113、用戶(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><b>　　<%</b></p><p>　　if request("post")<

114、;>"" then</p><p>　　if request("tiao")="模糊查詢(xún)" then‘模糊查詢(xún)合同信息</p><p>　　set rs=server.CreateObject("adodb.recordset")</p><p>　　sql="selec

115、t * from tb_Pact where "&request("sel")&" like '%"&request("search")&"%' order by id desc"</p><p>　　rs.open sql,conn,1,1</p><p&

116、gt;　　else’精確查詢(xún)合同信息</p><p>　　set rs=server.CreateObject("adodb.recordset")</p><p>　　sql="select * from tb_Pact where "&request("sel")&"='"&

117、request("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>　

118、　set rs=server.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

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

120、;p>　　<a href="KeHu_Pact.asp?post=true&sel=PactClient&search=<%=rsx("id")%>&dd=dd" >合同信息</a></p><p><b>　　2．合同信息添加</b></p><p>　　合同信

121、息添加的主要功能是用戶(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é)果如圖12（下）所示。</p><p>　　圖12 合同信息添加頁(yè)面運(yùn)行結(jié)果</p><p><b&

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

123、b></p><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&

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

126、圖20 服務(wù)管理頁(yè)面的設(shè)計(jì)效果</p><p>　　5.1 反饋信息添加</p><p>　　反饋信息添加的主要功能是用戶(hù)添加客戶(hù)的反饋信息。在查詢(xún)頁(yè)面中單擊【添加】按鈕，在展示區(qū)中會(huì)顯示添加頁(yè)面。反饋信息添加頁(yè)面的設(shè)計(jì)效果如圖21所示。</p><p>　　圖21 反饋信息添加頁(yè)面的設(shè)計(jì)效果</p><p>　　反饋信息添加頁(yè)面涉及的

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

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

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

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

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

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

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

134、;b>　　end if</b></p><p><b>　　%></b></p><p>　　5.2 反饋信息修改</p><p>　　因?yàn)榉答佇畔⑹强蛻?hù)的反饋意見(jiàn)所以不得隨意修改，用戶(hù)只可以修改“處理結(jié)果”和“服務(wù)完成”兩項(xiàng)信息。當(dāng)服務(wù)完成選項(xiàng)，選中“已完成”時(shí)，那么任何信息都不可以修改，也就是說(shuō)只有在服務(wù)“未完成”

135、的情況下才能修改“處理結(jié)果”。</p><p>　　反饋信息頁(yè)面設(shè)計(jì)效果如圖22所示。</p><p>　　圖22 反饋信息頁(yè)面設(shè)計(jì)效果</p><p>　　反饋信息修改頁(yè)面涉及的HTML表單元素如表4所示。</p><p>　　表4 反饋信息信息修改頁(yè)面涉及的HTML表單元素</p>

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

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

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

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

140、ipt>")</p><p><b>　　end if</b></p><p><b>　　%></b></p><p><b>　　7 報(bào)表管理</b></p><p>　　報(bào)表管理的主要功能是打印各種類(lèi)型的報(bào)表，包括客戶(hù)報(bào)表打印、聯(lián)系人報(bào)表打印、反饋