【正文】 ............... 0 引言 信息時(shí)代的今天，各企業(yè)商家所關(guān)心的不再局限于自身的產(chǎn)品質(zhì)量、生 產(chǎn)設(shè)備、員工的素質(zhì)，更多的是關(guān)心自己的銷售群體（客戶群），關(guān)心他們的想法、需求、購(gòu)賣(mài)目的。選擇空間擴(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)行有效的整合。 眾所周知，顧客就是我們的上帝，我們只有滿足了上帝的需求，上帝才能給我們帶來(lái)一切。海爾總裁張瑞敏指出：“客戶資源決定企業(yè)核心競(jìng) 爭(zhēng)力”，上個(gè)世紀(jì) 80 年代是物品短缺的時(shí)代，而現(xiàn)在，信息時(shí)代是客戶短缺的時(shí)代。 ? 管理 客戶的詳細(xì)信息：包括客戶的基本信息、聯(lián)系人信息、和客戶簽寫(xiě)的合同信息。 ? 提供信息數(shù)據(jù)導(dǎo)出 Excel報(bào)表的功能，提供報(bào)表的打印功能。 ? 系統(tǒng)退出。設(shè)置導(dǎo)入 Excel功能、 Web 打印功能，方便用戶報(bào)表打印。 ? 報(bào)表管理模塊 – 3 – 該模塊主要通過(guò)查詢條件，對(duì)各種信息進(jìn)行查詢，并將得到的結(jié)果導(dǎo)出 Excul 表、進(jìn)行打印報(bào)表等操作（其中信息包括：客戶信息、聯(lián)系人信息、反饋客戶信息、庫(kù)存信息）。 ? 及時(shí)查看庫(kù)存信息，并通過(guò)網(wǎng)站對(duì)入庫(kù)、出庫(kù)信息進(jìn)行管理。 ? 管理員可以添加操作員信息、設(shè)置操作員的權(quán)限。 ? 鍵盤(pán)操作，快速響應(yīng)。 數(shù)據(jù)庫(kù)設(shè)計(jì) 本系統(tǒng)數(shù)據(jù)庫(kù)采用 SQLServer2020數(shù)據(jù)庫(kù)，系統(tǒng)數(shù)據(jù)庫(kù)名稱為 db_System。 客戶信息管理設(shè)計(jì) 客戶信息管理設(shè)計(jì)主要包括對(duì)客戶信息進(jìn)行顯示 /查詢、添加、修改和刪除 4 個(gè)部分的功能。 當(dāng)用戶在查詢部分輸入條件后，并單擊【查詢】按鈕，用戶添加的查詢條件將被提交給本頁(yè)，本頁(yè)將根據(jù)用戶提交的表單信息對(duì)數(shù)據(jù)庫(kù)進(jìn)行檢索，并將結(jié)果集通過(guò)操作區(qū)輸出到瀏覽器中。request(sel)amp。%39。amp。實(shí)現(xiàn)分頁(yè) if not then tol= 39。當(dāng)接收頁(yè)碼的值為空或者 0時(shí)使其等于 1 requestpage=1 end if if requestpagemaxpage then 39。bo39。39。 =List。?id=%=rs(id)%39。 return false。進(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)，將在后面的章節(jié)中進(jìn)行講解）。 客戶信息刪除主要是根據(jù)傳遞的參數(shù)（本例中的參數(shù)為客戶信息的 id），將數(shù)據(jù)庫(kù)中對(duì)應(yīng) id的客戶信息和其他和客戶相關(guān)的信息全部刪除，程序代碼如下： % call client 39。clng(kid(i))39。clng(kid(i))39。返回用戶操作頁(yè) () else (?p=amp。location=39。 圖 7 聯(lián)系人信息管理頁(yè)面設(shè)計(jì)效果 1．聯(lián)系人信息顯示 /查詢 用戶可以在聯(lián)系人信息管理頁(yè)面中的查詢部分，輸入一定的查詢條件進(jìn)行聯(lián)系人信息的查詢。 like 39。 order by id desc sql,conn,1,1 else ‘聯(lián)系人精確查詢 set rs=() sql=select * from tb_Linkman where amp。request(search)amp。sel=LinkmanClientamp。在添寫(xiě)表單選擇所屬客戶時(shí)， – 12 – 所屬客戶是在數(shù)據(jù)庫(kù)中直接讀取出來(lái)的。bo39。 order by id desc sqlc,conn,1,1 (rsc(ClientName)) % – 13 – 3．聯(lián)系人信息修改 聯(lián)系人信息修改的主要功能是用戶修改聯(lián)系人信息，方便用戶和客戶之間的聯(lián)系和溝通。其程序代碼如下： % kid=Split(Request(del),) ‘分解字符串成數(shù)組 (正在刪除 ...) for i=0 to ubound(kid) sqld=delete from tb_Linkman where id=amp。 用戶在查詢部分輸入查詢條件后，單擊【查詢】按鈕，用戶所添加的查詢條件將被提交給本頁(yè)，本頁(yè)將根據(jù)用戶提交的表單信息對(duì)數(shù)據(jù)庫(kù)進(jìn)行檢索，并將結(jié)果集通過(guò)操作區(qū)輸出到瀏覽器中。%amp。request(sel)amp。39。search=%=rsx(id)%amp。 – 15 – 圖 12 合同信息添加頁(yè)面運(yùn)行結(jié)果 3．合同信息修改 合同信息修改的主要功能是用戶修改合同信息。clng(kid(i)) (sqld) next % – 16 – 5 服務(wù)管理 服務(wù)管理設(shè)計(jì)的主要功能包括反饋信息的顯示 /查詢、添加、修改和刪除 4個(gè)部分。反饋信息添加頁(yè)面的設(shè)計(jì)效果如圖 21 所示。主要用于添加客戶反饋信息的數(shù)據(jù) rs(FeedbackTitle)=request(FeedbackTitle) rs(FeedbackDate)=request(year)amp。request(day) rs(FeedbackClient)=request(FeedbackClient) rs(FeedbackContent)=request(FeedbackContent) rs(FeedbackResult)=request(FeedbackResult) rs(FeedbackFulfill)=request(FeedbackFulfill) rs(SetTime)=now() rs(SetName)=session(admin_name) () end if % 反饋信息修改 因?yàn)榉答佇畔⑹强蛻舻姆答佉庖?jiàn)所以不得 隨意修改，用戶只可以修改“處理結(jié)果”和“服務(wù)完成”兩項(xiàng)信息。 表 4 反饋信息信息修改頁(yè)面涉及的 HTML表單元素 名稱 類型 含義 重要屬性 form1 Form 表單 method=post action= post hidden 判斷表單是否提交 value=true FeedbackTitle text 反饋主題 value=%=rsx(FeedbackTitle)% size=30 readonly=true class=in FeedbackFulfill radio 是否完成 value=未完成 %if rsx(FeedbackFulfill)=未完成 then%checked %end if% value=已完成 %if rsx(FeedbackFulfill)=已完成 then%checked%end if% FeedbackDate text 年 value=%=rsx(FeedbackDate)% size=30 readonly=true class=in FeedbackClient select 相關(guān)客戶 value=%=rsc(ClientName)% size=30 readonly=true class=in FeedbackContent textarea 詳細(xì)內(nèi)容 cols=88 rows=4 class=table readonly=true FeedbackResult textarea 處理結(jié)果 cols=88 rows=4 class=table %if rsx(FeedbackFulfill)= 已完成 then% readonly=true%else%onfocus=()。反饋信息修改成功39。request(id)amp。 1．客戶報(bào)表查詢 客戶報(bào)表查詢頁(yè)面涉及的 HTML 表單元素如表 5 所示。print_c39。國(guó)家 /地區(qū)不為全部時(shí) sql=sqlamp。39。amp?？蛻裘Q不為全部時(shí) sql=sqlamp。39。request(searchtype)amp。%39。amp。當(dāng)為客戶報(bào)表查詢時(shí)產(chǎn)生相應(yīng)字段 a=array(公司名稱 ,所在國(guó)家 /地區(qū) ,所在城市 ,公司電話 ,公司傳真 ,Email) elseif request(tt)=excul_l then 39。 圖 24 報(bào)表下載頁(yè)面的運(yùn)行結(jié)果 3．用 web打印 用戶在查詢部分輸入查詢條件后，單擊【打印報(bào)表】按鈕，用戶添加的查詢條件將被提交給 – 22 – 數(shù)據(jù)處理頁(yè)，處理頁(yè)用 select case 判斷隱藏域的值，進(jìn)而確定怎樣處理。 and ClientCountry=39。 end if if request(ClientCity)全部 then 39。request(ClientCity)amp。 and SetName=39。 end if if trim(request(search)) then 39。 like 39。 end if sql=select * from tb_Client where amp?？蚣茼?yè)代碼如下： % sql=request(sql) if sql= then sql=session(sql) end if session(sql)=sql show=request(show) if show= then show=15 end if p=request(p) if p= or p=0 then p=1 end if % frameset rows=42,* framespacing=0 frameborder=NO border=0 frame src=?sql=%=request(sql)%amp。p=%=p% name=mainFrame frameborder=no – 23 – /framesetnoframes/noframes /frames 控制頁(yè)面代碼如下： % sql=request(sql)39。39。()。 圖 25 客戶報(bào)表打印頁(yè)面的運(yùn)行結(jié)果 聯(lián)系人報(bào)表模塊 1．聯(lián)系報(bào)表查詢 聯(lián)系人報(bào)表查詢頁(yè)面涉及的 HTML 表單元素如表 6 所示。print_c39。amp。 and =39。 end if if request(select2)全部 then sql=sqlamp。39。 3．用 web打印 用戶在查詢部分輸入查詢條件后，單擊【打印報(bào)表】按鈕，用戶所添加的查詢條件將被提交給數(shù)據(jù)處理頁(yè)，處理頁(yè)用 。sql (?sql=amp。amp。request(LinkmanDuty)amp。39。 2．導(dǎo)入 Excul 用戶在查詢部分輸入查詢條件后，單擊【導(dǎo)入 Excul】按鈕，用戶所添加的查詢條件將被提交給數(shù)據(jù)處理頁(yè)，處理頁(yè)用 select case 判斷隱藏域的值，進(jìn)而確定怎樣處理，傳值的程序代碼如下： % sql= is not null if request(LinkmanDept)全部 then sql=sqlamp。excul39。style239。show=%=show%amp。parent39。p=%=p% name=topFrame frameborder=no scrolling=NO noresize frame src=?sql=%=request(sql)%amp。sql)39。request(search)amp。 and amp。request(SetName)amp。 end if if request(SetName)全部 then 39。 and ClientCity=39。request(ClientCountry)amp。程序 代碼