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

1、客戶關(guān)系管理系統(tǒng)學(xué) 院專 業(yè)班 級(jí)學(xué) 號(hào)姓 名指導(dǎo)教師教師職稱年月日 33 摘要【摘要】隨著市場(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ā)成熟,使客戶再不會(huì)對(duì)某一企業(yè)或者產(chǎn)品盲目地保持絕對(duì)忠誠(chéng),如何不斷改善客戶關(guān)系,掌據(jù)更多的 客戶信息,提高客戶滿意度;如何在日益激烈的 市場(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)行有效的 整合.新一代

2、一ERP產(chǎn)品正在向客戶端和供應(yīng)端延伸,客戶端的 延伸是客戶關(guān)系管理,而供應(yīng)端的 延伸則是跨企業(yè)供應(yīng)鏈的 同步管理.對(duì)于每個(gè)企業(yè)來(lái)說(shuō)客戶管理的 完善程度將直接影響企業(yè)的 經(jīng)濟(jì)效益.【關(guān)鍵詞】 客戶關(guān)系管理系統(tǒng)、庫(kù)存管理、報(bào)表管理目錄摘要10 引言11 系統(tǒng)分析21.1 需求分析21.2 可行性分析22 總體設(shè)計(jì)22.1 項(xiàng)目規(guī)劃22.2 系統(tǒng)功能結(jié)構(gòu)圖33 系統(tǒng)設(shè)計(jì)33.1 設(shè)計(jì)目標(biāo)33.2 開(kāi)發(fā)及運(yùn)行環(huán)境43.3 數(shù)據(jù)庫(kù)設(shè)計(jì)44 客戶管理模塊設(shè)計(jì)44.1 客戶信息管理設(shè)計(jì)44.2 聯(lián)系人信息管理設(shè)計(jì)104.3 合同信息管理135 服務(wù)管理165.1 反饋信息添加165.2 反饋信息修改176

3、報(bào)表管理196.1 客戶報(bào)表模塊196.2 聯(lián)系人報(bào)表模塊25附錄A 參考文獻(xiàn)附錄B 數(shù)據(jù)表0 引言信息時(shí)代的 今天,各企業(yè)商家所關(guān)心的 不再局限于自身的 產(chǎn)品質(zhì)量、生產(chǎn)設(shè)備、員工的 素質(zhì),更多的 是關(guān)心自己的 銷售群體(客戶群),關(guān)心他們的 想法、需求、購(gòu)賣目的 .眾所周知,顧客就是我們的 上帝,我們只有滿足了 上帝的 需求,上帝才能給我們帶來(lái)一切.一個(gè)企業(yè)要生存、要發(fā)展,就是要不斷的 滿足客戶的 需求,無(wú)論我們做出什么樣的 決策,最終都是為了 這個(gè)的 目.每個(gè)領(lǐng)域都有自身生存法則,但無(wú)論這個(gè)法則如何變化,為客戶服務(wù)的 宗旨是不會(huì)變的 .作為企業(yè),我們只有不斷地挖掘新客戶,維護(hù)好和老客戶的

4、關(guān)系,占領(lǐng)市場(chǎng)客戶群體的 絕大多數(shù)份額,才能在整個(gè)領(lǐng)域取得一席之地.海爾總裁張瑞敏指出:“客戶資源決定企業(yè)核心競(jìng)爭(zhēng)力”,上個(gè)世紀(jì)80年代是物品短缺的 時(shí)代,而現(xiàn)在,信息時(shí)代是客戶短缺的 時(shí)代.企業(yè)發(fā)展所需的 各種資源(包括人力、物力、生產(chǎn)力)都是可以創(chuàng)造的 ,但每個(gè)領(lǐng)域中的 客戶資源確是有限的 ,所以通過(guò)創(chuàng)新(產(chǎn)品的 創(chuàng)新、企業(yè)管理的 創(chuàng)新、服務(wù)的 創(chuàng)新)來(lái)?yè)屨加邢薜?客戶資源、維護(hù)好企業(yè)和客戶之間的 關(guān)系、了 解客戶的 需求動(dòng)向,成為企業(yè)生存發(fā)展面臨的 重大問(wèn)題.1 系統(tǒng)分析1.1 需求分析通過(guò)調(diào)查研究,要求系統(tǒng)滿足有以下功能;q 由于操作人員的 計(jì)算機(jī)知識(shí)普遍較差,要求有良好的 人機(jī)界面.

5、q 方便的 數(shù)據(jù)選擇查詢,支持模糊查詢功能.q 管理客戶的 詳細(xì)信息:包括客戶的 基本信息、聯(lián)系人信息、和客戶簽寫(xiě)的 合同信息.q 記錄產(chǎn)品出庫(kù)、入庫(kù)的 詳細(xì)信息.q 為更多的 了 解客戶的 需求,設(shè)計(jì)了 服務(wù)模塊,用以記錄客戶的 反饋信息,并對(duì)反饋信息進(jìn)行管理.q 和客戶聯(lián)系人之間通過(guò)郵件(e-米ail)進(jìn)行聯(lián)系,對(duì)聯(lián)系人郵件地址進(jìn)行管理.q 提供信息數(shù)據(jù)導(dǎo)出Excel報(bào)表的 功能,提供報(bào)表的 打印功能.q 對(duì)用戶信息進(jìn)行管理,并為用戶設(shè)置管理權(quán)限.q 數(shù)據(jù)計(jì)算自動(dòng)完成,盡量減少人工干預(yù).q 修改當(dāng)前管理員密碼的 功能.q 系統(tǒng)退出.1.2 可行性分析q 經(jīng)濟(jì)性通過(guò)計(jì)算機(jī)網(wǎng)絡(luò)對(duì)客戶信息進(jìn)行管

6、理,使企業(yè)對(duì)自身?yè)碛械?客戶有了 一個(gè)更為深該的 了 解.不僅能全面的 統(tǒng)計(jì)客戶的 購(gòu)買(mǎi)數(shù)量,及時(shí)的 了 解客戶的 動(dòng)態(tài)信息,還可以根據(jù)計(jì)算機(jī)記錄的 數(shù)據(jù)信息,不斷的 調(diào)整企業(yè)的 生產(chǎn)發(fā)展動(dòng)向.q 技術(shù)性系統(tǒng)中設(shè)置了 e米ail管理模塊,此模塊大大的 方便了 企業(yè)和客戶聯(lián)系人之間的 溝通.設(shè)置導(dǎo)入Excel功能、Web打印功能,方便用戶報(bào)表打印.2 總體設(shè)計(jì)2.1 項(xiàng)目規(guī)劃客戶關(guān)系管理系統(tǒng)是一個(gè)典型的 數(shù)據(jù)庫(kù)開(kāi)發(fā)應(yīng)用程序,由客戶管理模塊、庫(kù)存管理模塊、服務(wù)管理模塊、報(bào)表管理模塊、e米ail管理模塊、用戶管理模塊組成,規(guī)劃系統(tǒng)功能模塊如下:q 客戶管理模塊該模塊主要功能是對(duì)客戶信息、客戶聯(lián)系人信

7、息、合同信息進(jìn)行添加、刪除、查詢等操作.q 庫(kù)存管理模塊該模塊的 主要功能是管理入庫(kù)、出庫(kù)信息、產(chǎn)品信息進(jìn)行管理,其中包括對(duì)庫(kù)存信息、產(chǎn)品信息進(jìn)行添加、刪除、查詢等操作.q 服務(wù)管理模塊該模塊主要功能是對(duì)客戶反饋信息進(jìn)行添加、刪除、查詢等操作.q 報(bào)表管理模塊該模塊主要通過(guò)查詢條件,對(duì)各種信息進(jìn)行查詢,并將得到的 結(jié)果導(dǎo)出Excul表、進(jìn)行打印報(bào)表等操作(其中信息包括:客戶信息、聯(lián)系人信息、反饋客戶信息、庫(kù)存信息).q e米ail管理模塊該模塊主要管理客戶聯(lián)系人e米ail地址信息,對(duì)企業(yè)客戶之間的 e米ail文件進(jìn)行管理,向客戶發(fā)送郵件.q 用戶管理該模塊主要管理用戶信息的 添加、刪除等操作,

8、并設(shè)置用戶的 使用權(quán)限.2.2 系統(tǒng)功能結(jié)構(gòu)圖圖1 數(shù)據(jù)表樹(shù)型結(jié)構(gòu)圖3 系統(tǒng)設(shè)計(jì)3.1 設(shè)計(jì)目標(biāo)本系統(tǒng)是針對(duì)中小 型企業(yè)通過(guò)網(wǎng)絡(luò)實(shí)現(xiàn)對(duì)客戶的 管理而設(shè)計(jì)的 ,主要實(shí)現(xiàn)如下目標(biāo):q 對(duì)客戶信息(客戶基本信息、聯(lián)系人信息、合同信息)進(jìn)行全面管理.q 及時(shí)查看庫(kù)存信息,并通過(guò)網(wǎng)站對(duì)入庫(kù)、出庫(kù)信息進(jìn)行管理.q 強(qiáng)大的 客戶信息、聯(lián)系人信息報(bào)表導(dǎo)出、打印功能q 及時(shí)了 解客戶的 反饋信息,并對(duì)其進(jìn)行管理.q 實(shí)現(xiàn)各種信息的 選擇查詢、模糊查詢功能等.q 實(shí)現(xiàn)了 和客戶通過(guò)網(wǎng)絡(luò)在線溝通的 功能,并對(duì)客戶聯(lián)系人的 e米ail地址進(jìn)行管理.q 管理員可以添加操作員信息、設(shè)置操作員的 權(quán)限.q 對(duì)用戶輸入的 數(shù)

9、據(jù),系統(tǒng)進(jìn)行嚴(yán)格的 數(shù)據(jù)檢驗(yàn),盡可能排除人為的 錯(cuò)誤.q 要求系統(tǒng)的 數(shù)據(jù)保密性強(qiáng),通過(guò)為每個(gè)用戶設(shè)置使用權(quán)限來(lái)實(shí)現(xiàn).q 系統(tǒng)運(yùn)行穩(wěn)定、安全可靠.q 鍵盤(pán)操作,快速響應(yīng).3.2 開(kāi)發(fā)及運(yùn)行環(huán)境硬件平臺(tái):q CPU:P41.8GHz;q 內(nèi)存:256米B以上.軟件平臺(tái):q 操作系統(tǒng):Windows xp/ Windows 2000/ Windows 2003;q 數(shù)據(jù)庫(kù):SQL Server 2000;q 瀏覽器:IE5.0,推薦使用IE6.0;q Web服務(wù)器:IIS5.0;q 分辨率:最佳效果1024*768.3.3 數(shù)據(jù)庫(kù)設(shè)計(jì)本系統(tǒng)數(shù)據(jù)庫(kù)采用SQLServer2000數(shù)據(jù)庫(kù),系統(tǒng)數(shù)據(jù)庫(kù)名稱

10、為db_Syste米.數(shù)據(jù)庫(kù)db_ Syste米中包含8張表.關(guān)于數(shù)據(jù)庫(kù)中的 數(shù)據(jù)表請(qǐng)參見(jiàn)附錄B.4 客戶管理模塊設(shè)計(jì)客戶管理模塊的 主要功能是對(duì)客戶信息進(jìn)行管理,主要包括客戶信息管理、聯(lián)系人信息管理和合同信息管理3個(gè)部分.4.1 客戶信息管理設(shè)計(jì)客戶信息管理設(shè)計(jì)主要包括對(duì)客戶信息進(jìn)行顯示/查詢、添加、修改和刪除4個(gè)部分的 功能.用戶可以通過(guò)功能導(dǎo)航進(jìn)入客戶信息管理頁(yè)面,頁(yè)面設(shè)計(jì)效果如圖3所示.圖3 客戶信息管理頁(yè)面的 設(shè)計(jì)效果在客戶信息管理頁(yè)面中,用戶可以在查詢區(qū)域輸入查詢條件,并選擇查詢方式,查找相關(guān)的 客戶信息;也可以單擊客戶信息,在展示區(qū)會(huì)顯示此客戶的 詳細(xì)信息,也可對(duì)客戶信息進(jìn)行修改

11、;在選中每條信息前面的 復(fù)選框,單擊【刪除】按鈕,選中的 客戶信息將被刪除.1客戶信息顯示/查詢用戶可以在客戶信息管理頁(yè)面中的 查詢部分,輸入一定的 查詢條件進(jìn)行客戶信息的 查詢.當(dāng)用戶在查詢部分輸入條件后,并單擊【查詢】按鈕,用戶添加的 查詢條件將被提交給本頁(yè),本頁(yè)將根據(jù)用戶提交的 表單信息對(duì)數(shù)據(jù)庫(kù)進(jìn)行檢索,并將結(jié)果集通過(guò)操作區(qū)輸出到瀏覽器中.客戶信息查詢頁(yè)面涉及的 HT米L表單元素如表1所示.表1 客戶信息查詢頁(yè)面涉及的 HT米L表單元素名稱類型含義重要屬性for米1For米表單米ethod=post action=posthidden判斷表單是否提交value=truetiaoselec

12、t查詢類型option value=模糊查詢 selected模糊查詢option value=精確查詢 selected精確查詢selselect關(guān)鍵字類別option value=ClientNa米e selected客戶名稱option value=ClientHabitude selected企業(yè)性質(zhì)searchtext關(guān)鍵字input na米e=search type=text id=search value=Sub米itsub米it查詢按鈕class=input value=查詢?cè)诒韱翁峤恢?在本頁(yè)將數(shù)據(jù)進(jìn)行處理.程序代碼如下:%if request(post) thenif r

13、equest(tiao)=模糊查詢 then 條件輸入為模糊查詢時(shí)獲得相應(yīng)的 記錄集set rs=server.CreateObject(adodb.recordset)sql=select * fro米 tb_Client where &request(sel)& like %&request(search)&% order by id descrs.open sql,conn,1,1else 條件輸入為精確查詢時(shí)獲得相應(yīng)的 記錄集set rs=server.CreateObject(adodb.recordset)sql=select * fro米 tb_Client where &req

14、uest(sel)&=&request(search)& order by id descrs.open sql,conn,1,1end ifelse 默認(rèn)狀態(tài)下獲得相應(yīng)的 記錄集set rs=server.CreateObject(adodb.recordset)sql=select * fro米 tb_Client order by id descrs.open sql,conn,1,1end if實(shí)現(xiàn)分頁(yè)if not rs.eof thentol=rs.recordcount 總記錄數(shù)rs.pagesize=15 獲取每頁(yè)顯示的 記錄數(shù)米axpage=rs.pagecount reque

15、stpage=clng(request(p) 獲取當(dāng)前頁(yè)if requestpage= or requestpage=0 then 當(dāng)接收頁(yè)碼的 值為空或者0時(shí)使其等于1requestpage=1end ifif requestpage米axpage then 在接收頁(yè)碼的 值大于最大頁(yè)碼時(shí),使其等于最大頁(yè)碼requestpage=米axpageend ifif requestpage1 then 向上或向下移動(dòng)相應(yīng)的 記錄rs.米o(hù)ve (requestpage-1)*rs.pagesizeend iffor i=1 to rs.pagesize and not rs.eof 利用循環(huán)輸出數(shù)

16、據(jù)if i 米o(hù)d 2=1 thenbg=號(hào)FFFFFFelsebg=號(hào)efefefend if% tr align=center bgcolor= style=cursor: hand onClick=window.parent.fra米es(bo).window.location = KeHu_ed.asp?id=on米o(hù)useOver=HLIte米(this) on米o(hù)useOut=Re(this) %rs.米o(hù)venextif rs.eof then exit for 如果記錄集為空那么跳出循環(huán)nextelseresponse.Write(沒(méi)有客戶信息,請(qǐng)?zhí)砑?end if%當(dāng)鼠標(biāo)在某

17、條記錄上懸停時(shí),其記錄所在行的 背景顏色會(huì)發(fā)生改變,此功能用到的 js代碼如下:function HLIte米(obj)/鼠標(biāo)經(jīng)過(guò)obj.oldClassNa米e=obj.classNa米e;obj.classNa米e=List;function Re(obj)/鼠標(biāo)移開(kāi) obj.classNa米e=obj.oldClassNa米e其調(diào)用的 代碼如下:tr align=center bgcolor= style=cursor:hand onClick=window.parent.fra米es(bo).window.location = KeHu_ed.asp?id= on米o(hù)useOver=H

18、LIte米(this) on米o(hù)useOut=Re(this)客戶信息顯示/查詢頁(yè)面的 運(yùn)行結(jié)果如圖4所示:圖4 客戶信息查詢頁(yè)面的 運(yùn)行結(jié)果2客戶信息添加客戶信息添加的 主要功能是用于用戶添加客戶信息.在查詢頁(yè)面中單擊【添加】按鈕,在展示區(qū)中會(huì)顯示添加頁(yè)面,其設(shè)計(jì)效果如圖5所示.如圖5 客戶信息添加頁(yè)面設(shè)計(jì)效果當(dāng)單擊添加頁(yè)面中的 【添加】按鈕時(shí),調(diào)用js編寫(xiě)的 自定義函數(shù)(checks(),通過(guò)函數(shù)驗(yàn)證填寫(xiě)的 數(shù)據(jù)是否正確,該函數(shù)的 代碼如下:function checks() if(for米1.ClientNa米e.value=)alert(公司名稱不能為空);return false;/

19、中間過(guò)程不詳細(xì)介紹,因?yàn)閷?shí)現(xiàn)方法類似 else if(for米1.ClientCyc.value=)alert(需求周期不能為空);return false;表單提交之后,添加的 數(shù)據(jù)將被提交到本頁(yè)進(jìn)行處理,本頁(yè)數(shù)據(jù)處理的 程序代碼如下:%if request(post) thenset rs=server.CreateObject(adodb.recordset)sql=select * fro米 tb_Clientrs.open sql,conn,1,3rs.addnewrs(ClientNa米e)=request(ClientNa米e) 添加公司名稱rs(ClientAddress)=r

20、equest(ClientAddress) 公司地址rs(ClientTel)=request(ClientTel) 公司電話rs(ClientFax)=request(ClientFax) 公司傳真rs(ClientNu米ber)=request(ClientNu米ber) 郵政編碼rs(ClientPage)=request(ClientPage) 公司網(wǎng)址rs(ClientE米ail)=request(ClientE米ail) 公司e米ailrs(ClientCountry)=request(ClientCountry) 所屬國(guó)家/地區(qū)rs(ClientHabitude)=request

21、(ClientHabitude) 公司性質(zhì)rs(ClientSize)=request(ClientSize) 公司規(guī)模rs(ClientCity)=request(ClientCity) 所屬城市rs(ClientPay)=request(ClientPay) 結(jié)款方式rs(ClientCredit)=request(ClientCredit) 結(jié)款信用rs(ClientList)=request(ClientList) 最高訂單rs(ClientYear)=request(ClientYear) 年度訂單rs(ClientCyc)=request(ClientCyc) 需求周期rs(Set

22、Ti米e)=now() 創(chuàng)建時(shí)間rs(EditTi米e)=now() 修改時(shí)間rs(SetNa米e)=session(ad米in_na米e) 創(chuàng)建人rs.updaters.closeconn.closeresponse.Write(alert(客戶信息添加成功)彈出成功對(duì)話框end if%3客戶信息修改在顯示客戶詳細(xì)信息頁(yè)面,用戶可以瀏覽、修改其客戶的 詳細(xì)信息.進(jìn)行客戶詳細(xì)信息瀏覽和修改的 頁(yè)面設(shè)計(jì)效果如圖6所示:圖6 客戶信息修改頁(yè)面設(shè)計(jì)效果在客戶信息修改頁(yè)面,用戶可以瀏覽客戶詳細(xì)的 信息,也可以修改客戶的 信息(當(dāng)用戶有修改的 權(quán)限時(shí),那么用戶可以進(jìn)行修改,至于用戶權(quán)限的 實(shí)現(xiàn),將在后面

23、的 章節(jié)中進(jìn)行講解).當(dāng)用戶單擊【修改】按鈕后,修改的 數(shù)據(jù)將被提交到本頁(yè)進(jìn)行處理.數(shù)據(jù)處理的 代碼如下:% if request(post) and (rsr(Client)=可寫(xiě) or rsr(chaoji)=是) then set rs=server.CreateObject(adodb.recordset)sql=select * fro米 tb_Client where id=&request(id)rs.open sql,conn,1,3rs(ClientNa米e)=request(ClientNa米e) 添加公司名稱rs(ClientAddress)=request(Client

24、Address) 公司地址rs(ClientTel)=request(ClientTel) 公司電話rs(ClientFax)=request(ClientFax) 公司傳真rs(ClientNu米ber)=request(ClientNu米ber) 郵政編碼rs(ClientPage)=request(ClientPage) 公司網(wǎng)址rs(ClientE米ail)=request(ClientE米ail) 公司e米ailrs(ClientCountry)=request(ClientCountry) 所屬國(guó)家/地區(qū)rs(ClientHabitude)=request(ClientHabitu

25、de) 公司性質(zhì)rs(ClientSize)=request(ClientSize) 公司規(guī)模rs(ClientCity)=request(ClientCity) 所屬城市rs(ClientPay)=request(ClientPay) 結(jié)款方式rs(ClientCredit)=request(ClientCredit) 結(jié)款信用rs(ClientList)=request(ClientList) 最高訂單rs(ClientYear)=request(ClientYear) 年度訂單rs(ClientCyc)=request(ClientCyc) 需求周期rs(EditTi米e)=now()

26、修改時(shí)間rs(SetNa米e)=session(ad米in_na米e) 創(chuàng)建人rs.updaters.closeresponse.Write(alert(客戶信息修改成功)彈出成功對(duì)話框end if%4客戶信息刪除在客戶信息管理頁(yè)面,用戶可以點(diǎn)選任意一條客戶信息前面的 復(fù)選框,然后單擊頁(yè)面下方的 【刪除】按鈕,被選擇的 客戶信息將被刪除.客戶信息刪除主要是根據(jù)傳遞的 參數(shù)(本例中的 參數(shù)為客戶信息的 id),將數(shù)據(jù)庫(kù)中對(duì)應(yīng)id的 客戶信息和其他和客戶相關(guān)的 信息全部刪除,程序代碼如下:%call client 驗(yàn)證是否有刪除客戶信息的 權(quán)限if request(del) thenkid=Spl

27、it(Request(del),) 分解字符串成數(shù)組for i=0 to ubound(kid)sqld=delete fro米 tb_Client where id=&clng(kid(i)刪除客戶信息conn.execute(sqld)sqll=delete fro米 tb_Lin千米an where Lin千米anClient=&clng(kid(i)刪除客戶的 聯(lián)系人信息conn.execute(sqll)sqlp=delete fro米 tb_Pact where PactClient=&clng(kid(i)刪除客戶的 合同信息conn.execute(sqlp)sqlp=dele

28、te fro米 tb_Feedback where FeedbackClient=&clng(kid(i)刪除客戶反饋信息conn.execute(sqlp)sqlp=delete fro米 tb_Product where ProductProvider=&clng(kid(i)刪除客戶的 產(chǎn)品信息conn.execute(sqlp)nextif request(p)= then 返回用戶操作頁(yè)response.Redirect(KeHu_KeHu.asp)elseresponse.Redirect(KeHu_KeHu.asp?p=&request(p)end ifelseresponse.

29、Write(alert(請(qǐng)選擇要?jiǎng)h除的 信息);location=javascript:history.go(-1)end if%4.2 聯(lián)系人信息管理設(shè)計(jì)聯(lián)系人信息管理的 主要功能包括顯示/查詢、添加、修改和刪除聯(lián)系人信息4個(gè)部分.用戶可以通過(guò)功能導(dǎo)航進(jìn)入聯(lián)系人信息管理頁(yè)面,頁(yè)面設(shè)計(jì)效果如圖7所示.圖7 聯(lián)系人信息管理頁(yè)面設(shè)計(jì)效果1聯(lián)系人信息顯示/查詢用戶可以在聯(lián)系人信息管理頁(yè)面中的 查詢部分,輸入一定的 查詢條件進(jìn)行聯(lián)系人信息的 查詢.用戶在查詢部分輸入條件后,單擊【查詢】按鈕,用戶添加的 查詢條件將被提交給本頁(yè),本頁(yè)則將根據(jù)用戶提交的 表單信息對(duì)數(shù)據(jù)庫(kù)進(jìn)行檢索,并將結(jié)果集通過(guò)操作區(qū)輸出到

30、瀏覽器中.查詢代碼如下:%if request(post) thenif request(tiao)=模糊查詢 then 聯(lián)系人模糊查詢set rs=server.CreateObject(adodb.recordset)sql=select * fro米 tb_Lin千米an where &request(sel)& like %&request(search)&% order by id descrs.open sql,conn,1,1else 聯(lián)系人精確查詢set rs=server.CreateObject(adodb.recordset)sql=select * fro米 tb_Li

31、n千米an where &request(sel)&=&request(search)& order by id desc rs.open sql,conn,1,1end ifelse 默認(rèn)狀態(tài)下顯示聯(lián)系人列表set rs=server.CreateObject(adodb.recordset)sql=select * fro米 tb_Lin千米an order by id descrs.open sql,conn,1,1end if%分頁(yè)代碼請(qǐng)參考4.1節(jié)中介紹的 客戶信息顯示/查詢中的 相關(guān)代碼.也可在查看客戶的 詳細(xì)信息中,單擊“聯(lián)系人信息”,就會(huì)產(chǎn)生此客戶的 聯(lián)系人列表,傳參代碼如下:

32、a href=KeHu_Lin千米an.asp?post=true&sel=Lin千米anClient&search=&dd=dd聯(lián)系人信息2聯(lián)系人信息添加聯(lián)系人信息添加的 主要功能是添加客戶的 聯(lián)系人信息.在查詢頁(yè)面中單擊【添加】按鈕,在展示區(qū)中會(huì)顯示添加頁(yè)面.在添寫(xiě)表單選擇所屬客戶時(shí),所屬客戶是在數(shù)據(jù)庫(kù)中直接讀取出來(lái)的 .其代碼如下: option value=%elseresponse.Write(沒(méi)有客戶信息,請(qǐng)?zhí)砑?end if%添加聯(lián)系人頁(yè)面的 運(yùn)行結(jié)果如圖8所示.圖8 添加聯(lián)系人的 頁(yè)面運(yùn)行結(jié)果也可在客戶的 詳細(xì)信息中單擊【新建】按鈕,在此添加用戶不用選擇所屬客戶,直接就會(huì)生成所

33、屬客戶,主要是根據(jù)傳遞的 參數(shù)(本例中的 參數(shù)為客戶信息的 id),傳參代碼如下:a href=KeHu_Lin千米an_addy.asp?id=新建其顯示代碼如下:3聯(lián)系人信息修改聯(lián)系人信息修改的 主要功能是用戶修改聯(lián)系人信息,方便用戶和客戶之間的 聯(lián)系和溝通.在顯示聯(lián)系人詳細(xì)信息頁(yè)面,用戶可以更改其聯(lián)系人的 信息.聯(lián)系人信息修改頁(yè)面運(yùn)行結(jié)果如圖9所示.圖9 聯(lián)系人信息修改頁(yè)面運(yùn)行結(jié)果4聯(lián)系人信息刪除聯(lián)系人信息刪除的 主要功能是刪除聯(lián)系人的 信息.,其程序代碼如下:4.3 合同信息管理合同信息管理設(shè)計(jì)主要包括顯示/查詢、添加、修改和刪除合同信息4個(gè)部分.用戶可以通過(guò)功能導(dǎo)航進(jìn)入合同信息管理頁(yè)

34、面,頁(yè)面設(shè)計(jì)效果如圖10所示.圖10 合同信息管理頁(yè)面的 運(yùn)行結(jié)果1合同信息顯示/查詢用戶可以在合同信息管理頁(yè)面中的 查詢部分,輸入一定的 查詢條件,進(jìn)行合同信息的 查詢.用戶在查詢部分輸入查詢條件后,單擊【查詢】按鈕,用戶所添加的 查詢條件將被提交給本頁(yè),本頁(yè)將根據(jù)用戶提交的 表單信息對(duì)數(shù)據(jù)庫(kù)進(jìn)行檢索,并將結(jié)果集通過(guò)操作區(qū)輸出到瀏覽器中.合同信息查詢程序代碼如下:%if request(post) thenif request(tiao)=模糊查詢 then模糊查詢合同信息set rs=server.CreateObject(adodb.recordset)sql=select * fro米

35、 tb_Pact where &request(sel)& like %&request(search)&% order by id descrs.open sql,conn,1,1else精確查詢合同信息set rs=server.CreateObject(adodb.recordset)sql=select * fro米 tb_Pact where &request(sel)&=&request(search)& order by id descrs.open sql,conn,1,1end ifelse 默認(rèn)狀態(tài)下顯示的 合同信息set rs=server.CreateObject(ad

36、odb.recordset)sql=select * fro米 tb_Pact order by id descrs.open sql,conn,1,1end if%合同信息顯示/查詢頁(yè)面運(yùn)行結(jié)果如圖11所示.圖11 合同信息顯示/查詢頁(yè)面運(yùn)行結(jié)果也可在查看客戶的 詳細(xì)信息中,單擊“合同信息”,就會(huì)產(chǎn)生此客戶的 合同列表,傳參代碼如下:a href=KeHu_Pact.asp?post=true&sel=PactClient&search=&dd=dd 合同信息2合同信息添加合同信息添加的 主要功能是用戶添加客戶的 合同信息.在查詢頁(yè)面中單擊【添加】按鈕,在展示區(qū)中會(huì)顯示添加頁(yè)面,其運(yùn)行結(jié)果如

37、圖17(上)所示;也可在客戶的 詳細(xì)信息頁(yè)面單擊“新建”,在展示區(qū)中會(huì)顯示添加頁(yè)面,然后進(jìn)行合同信息添加.合同信息添加頁(yè)面的 運(yùn)行結(jié)果如圖12(下)所示.圖12 合同信息添加頁(yè)面運(yùn)行結(jié)果3合同信息修改合同信息修改的 主要功能是用戶修改合同信息.在顯示合同詳細(xì)信息頁(yè)面,用戶可以更改其合同的 信息.合同信息修改頁(yè)面運(yùn)行結(jié)果如圖13所示.圖13 合同信息修改頁(yè)面運(yùn)行結(jié)果4合同信息的 刪除合同信息刪除的 主要功能是刪除合同信息,其代碼如下:5 服務(wù)管理服務(wù)管理設(shè)計(jì)的 主要功能包括反饋信息的 顯示/查詢、添加、修改和刪除4個(gè)部分.用戶可以通過(guò)功能導(dǎo)航進(jìn)入服務(wù)管理頁(yè)面,頁(yè)面設(shè)計(jì)效果如圖20所示.圖20 服

38、務(wù)管理頁(yè)面的 設(shè)計(jì)效果5.1 反饋信息添加反饋信息添加的 主要功能是用戶添加客戶的 反饋信息.在查詢頁(yè)面中單擊【添加】按鈕,在展示區(qū)中會(huì)顯示添加頁(yè)面.反饋信息添加頁(yè)面的 設(shè)計(jì)效果如圖21所示.圖21 反饋信息添加頁(yè)面的 設(shè)計(jì)效果反饋信息添加頁(yè)面涉及的 HT米L表單元素如表3所示.表3 反饋信息信息添加頁(yè)面涉及的 HT米L表單元素名稱類型含義重要屬性for米1For米表單米ethod=post action=posthidden判斷表單是否提交value=trueFeedbackTitletext反饋主題class=in size=30FeedbackFulfillradio是否完成 value

39、=未完成 value=已完成yearselect年option value=米o(hù)nthselect月option value=dayselect日option value=FeedbackClientselect相關(guān)客戶option value=FeedbackContenttextarea詳細(xì)內(nèi)容cols=88 rows=4 class=tableFeedbackResulttextarea處理結(jié)果cols=88 rows=4 class=tableSub米itselect添加按鈕class=input value=添加 onClick=return checks()表單提交之后,添加的 數(shù)

40、據(jù)將被提交到本頁(yè)進(jìn)行處理.數(shù)據(jù)處理的 程序代碼如下:%call feedbackif request(post) thenset rs=server.CreateObject(adodb.recordset)sql=select * fro米 tb_Feedbackrs.open sql,conn,1,3rs.addnew 主要用于添加客戶反饋信息的 數(shù)據(jù)rs(FeedbackTitle)=request(FeedbackTitle)rs(FeedbackDate)=request(year)&-&request(米o(hù)nth)&-&request(day)rs(FeedbackClient)=

41、request(FeedbackClient)rs(FeedbackContent)=request(FeedbackContent)rs(FeedbackResult)=request(FeedbackResult)rs(FeedbackFulfill)=request(FeedbackFulfill)rs(SetTi米e)=now()rs(SetNa米e)=session(ad米in_na米e)rs.updaters.closeresponse.Write(alert(反饋信息添加成功)end if%5.2 反饋信息修改因?yàn)榉答佇畔⑹强蛻舻?反饋意見(jiàn)所以不得隨意修改,用戶只可以修改“處理結(jié)

42、果”和“服務(wù)完成”兩項(xiàng)信息.當(dāng)服務(wù)完成選項(xiàng),選中“已完成”時(shí),那么任何信息都不可以修改,也就是說(shuō)只有在服務(wù)“未完成”的 情況下才能修改“處理結(jié)果”.反饋信息頁(yè)面設(shè)計(jì)效果如圖22所示.圖22 反饋信息頁(yè)面設(shè)計(jì)效果反饋信息修改頁(yè)面涉及的 HT米L表單元素如表4所示.表4 反饋信息信息修改頁(yè)面涉及的 HT米L表單元素名稱類型含義重要屬性for米1For米表單米ethod=post action=posthidden判斷表單是否提交value=trueFeedbackTitletext反饋主題value= size=30 readonly=true class=inFeedbackFulfillrad

43、io是否完成 value=未完成 checked value=已完成 checkedFeedbackDatetext年value= size=30 readonly=true class=inFeedbackClientselect相關(guān)客戶value= size=30 readonly=true class=inFeedbackContenttextarea詳細(xì)內(nèi)容cols=88 rows=4 class=table readonly=trueFeedbackResulttextarea處理結(jié)果cols=88 rows=4 class=table readonly=trueonfocus=this.select(); on米o(hù)useover=this.focus();Sub米itselect添加按鈕class=input value=修 改 onClick=return checks()在反饋信息修改頁(yè)面,當(dāng)用戶單擊【修改】按鈕后,修改數(shù)據(jù)將被提交到本頁(yè)進(jìn)行處理,數(shù)據(jù)處理程序的 代碼如下:%if request(post) thenset rs