客戶關(guān)系管理系統(tǒng)畢業(yè)設(shè)計(jì)論文范例-資料下載頁

【導(dǎo)讀】隨著市場(chǎng)體系的日益完善，我們已經(jīng)進(jìn)入了一個(gè)買方市場(chǎng)時(shí)代。選擇空間擴(kuò)大、購(gòu)買渠道拓。已成為每個(gè)企業(yè)怕面臨的首要問題。這種情況下，企業(yè)要在激烈的市場(chǎng)競(jìng)爭(zhēng)中立于不敗之地，就。必須找一種全新的管理理念和管理手段，對(duì)其內(nèi)部和外部資源進(jìn)行有效的整合。對(duì)于每個(gè)企業(yè)來說客戶管理的完善程度將直接影響企業(yè)的經(jīng)濟(jì)效益。

　　

【正文】 mp。sql (?sql=amp。sqlamp。amp。tt=excul)39。把參數(shù)傳給下載頁面 % 當(dāng)數(shù)據(jù)處理頁處理完畢之后，會(huì)自動(dòng)轉(zhuǎn)向下載頁，在下載頁中單擊左鍵，直接用 web 打開Excel, 右鍵單擊 “ 下載 ” 選擇 “ 目標(biāo)另存為 ...”把 Excel保存在相應(yīng)的路徑下。處理 Excel的頁面代碼如下： % if request(tt)=excul then 39。當(dāng)為客戶報(bào)表查詢時(shí)產(chǎn)生相應(yīng)字段 a=array(公司名稱 ,所在國(guó)家 /地區(qū) ,所在城市 ,公司電話 ,公司傳真 ,Email) elseif request(tt)=excul_l then 39。當(dāng)為聯(lián)系人報(bào)表查詢時(shí)產(chǎn)生相應(yīng)字段 a=array(姓名 ,客戶名稱 ,部門 ,職務(wù) ,電話 ,手機(jī) ,Email) elseif request(tt)=excul_k then 39。當(dāng)為反饋客戶報(bào)表查詢時(shí)產(chǎn)生相應(yīng)字段 a=array(客戶名稱 ,反饋日期 ,是否解決 ,反饋主題 ,反饋內(nèi)容 ,處理結(jié)果 ) – 21 – elseif request(tt)=excul_kc then 39。當(dāng)為庫存報(bào)表查詢時(shí)產(chǎn)生相應(yīng)字段 a=array(客戶編號(hào) ,客戶名稱 ,產(chǎn)品數(shù)量 ,單位 ,庫存類型 ) end if % %=application/% % set rs=(request(sql)) % table width=100 border=1 cellspacing=0 tr % for i=0 to % td align=center%=a(i)%/td %next% /tr %do while not % tr %for i=0 to % td align=center class=table%=rs(i)%/td %next% /tr % loop % 報(bào)表下載頁面的運(yùn)行結(jié)果如圖 24 所示。 圖 24 報(bào)表下載頁面的運(yùn)行結(jié)果 3．用 web打印 用戶在查詢部分輸入查詢條件后，單擊【打印報(bào)表】按鈕，用戶添加的查詢條件將被提交給 – 22 – 數(shù)據(jù)處理頁，處理頁用 select case 判斷隱藏域的值，進(jìn)而確定怎樣處理。 數(shù)據(jù)處理頁對(duì)查詢條件經(jīng)過處理，產(chǎn)生相應(yīng)的 SQL 查詢語句。程序 代碼如下： % sql=id is not null if request(ClientCountry)全部 then39。國(guó)家 /地區(qū)不為全部時(shí) sql=sqlamp。 and ClientCountry=39。amp。request(ClientCountry)amp。39。 end if if request(ClientCity)全部 then 39。城市不為全部時(shí) sql=sqlamp。 and ClientCity=39。amp。request(ClientCity)amp。39。 end if if request(SetName)全部 then 39。客戶名稱不為全部時(shí) sql=sqlamp。 and SetName=39。amp。request(SetName)amp。39。 end if if trim(request(search)) then 39。當(dāng)關(guān)鍵字不為空時(shí) sql=sqlamp。 and amp。request(searchtype)amp。 like 39。%amp。request(search)amp。%39。 end if sql=select * from tb_Client where amp。sql (?sql=amp。sql)39。把參數(shù)傳給打印頁面 % 當(dāng)數(shù)據(jù)處理頁處理完畢之后，會(huì)自動(dòng)轉(zhuǎn)向打印頁，打印頁是一個(gè)框架集，包含三個(gè)頁面。框架頁代碼如下： % 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。show=%=show%amp。p=%=p% name=topFrame frameborder=no scrolling=NO noresize frame src=?sql=%=request(sql)%amp。show=%=show%amp。p=%=p% name=mainFrame frameborder=no – 23 – /framesetnoframes/noframes /frames 控制頁面代碼如下： % sql=request(sql)39。獲取 sql語句 if sql= then sql=session(sql) end if session(sql)=sql show=request(show) set rs=() sql=sql sql,conn,1,1 if not then tol= =show maxpage= requestpage=clng(request(p)) else maxpage=0 tol=0 show=0 end if % table width=649 border=0 align=center tr valign=middle form name=form1 td width=14% valign=middle select name=menu1 onChange=MM_jumpMenu(39。parent39。,this,0) %for i=1 to 200% option value=?show=%=i% %if i=int(show) then%selected%end if%每頁顯示 %=i%條記錄 /option %next% /select /td/form form name=form2 td width=7% valign=middle select name=menu3 onChange=MM_jumpMenu(39。39。,this,0) %for i=1 to maxpage% option value=?p=%=i%amp。show=%=show%amp。sql=%=request(sql)% 第%=i%頁 /option – 24 – %next% /select /td td width=64% height=23 valign=middle 總頁數(shù)： %=maxpage% 總條數(shù)：%=tol%/td td width=15% align=righta href=javascript:。()。打印 /a/td /form /tr /table 打印預(yù)覽頁面代碼如下： % sql=request(sql) if request(sql)= then sql=session(sql) end if session(sql)=sql show=request(show) set rs=() sql=session(sql) sql,conn,1,1 % % if not then tol= =show maxpage= requestpage=clng(request(p)) if requestpage= or requestpage=0 then requestpage=1 end if if requestpagemaxpage then requestpage=maxpage end if if requestpage1 then (requestpage1)* end if for i=1 to and not % tr align=center td height=30%=rs(ClientName)%/td td%=rs(ClientCountry)%/td td%=rs(ClientCity)%/td – 25 – td%=rs(ClientTel)%/td td%=rs(ClientFax)%/td td%=rs(ClientEmail)%/td /tr % if then exit for next else (span class=39。style239。沒有找到相關(guān)信息 /span) end if % 客戶報(bào)表打印頁面運(yùn)行結(jié)果如圖 25 所示。 圖 25 客戶報(bào)表打印頁面的運(yùn)行結(jié)果 聯(lián)系人報(bào)表模塊 1．聯(lián)系報(bào)表查詢 聯(lián)系人報(bào)表查詢頁面涉及的 HTML 表單元素如表 6 所示。 表 6 聯(lián)系人報(bào)表查詢頁面涉及的 HTML表單元素 名稱 類型 含義 重要屬性 form1 Form 表單 method=post action= eeeet hidden 判斷表單如何處理 LinkmanDept select 國(guó)家 /地區(qū) option value=%=rsg(ClientCountry)% %=rsg(ClientCountry)%/option LinkmanDuty select 城市 option value=%=rsc(ClientCity)% %=rsc(ClientCity)%/option select2 select 創(chuàng)建者 option value=%=rss(SetName)% – 26 – %=rss(SetName)%/option Submit submit 導(dǎo)入 Execul class=input value= 導(dǎo)入 Excul onClick==39。excul39。 Submit submit 直接打印 class=input value= 打印報(bào)表 onClick==39。print_c39。 用戶可以在報(bào)表管理頁面 中的聯(lián)系人報(bào)表查詢部分，輸入一定的查詢條件，進(jìn)行聯(lián)系人信息的查詢。 2．導(dǎo)入 Excul 用戶在查詢部分輸入查詢條件后，單擊【導(dǎo)入 Excul】按鈕，用戶所添加的查詢條件將被提交給數(shù)據(jù)處理頁，處理頁用 select case 判斷隱藏域的值，進(jìn)而確定怎樣處理，傳值的程序代碼如下： % sql= is not null if request(LinkmanDept)全部 then sql=sqlamp。 and =39。amp。request(LinkmanDept)amp。39。 end if if request(LinkmanDuty)全部 then sql=sqlamp。 and =39。amp。request(LinkmanDuty)amp。39。 end if if request(select2)全部 then sql=sqlamp。 and =39。amp。request(SetName)amp。39。 end if sql=SELECT , , , FROM INNER JOIN ON = where amp。sql (?sql=amp。sql) % 由于查詢和導(dǎo)入的實(shí)現(xiàn)方法和客戶報(bào)表的實(shí)現(xiàn)方法相似，在此不再詳細(xì)介紹，請(qǐng)讀者參考 節(jié)中介紹的導(dǎo)入 Excel的程序代碼。 3．用 web打印 用戶在查詢部分輸入查詢條件后，單擊【打印報(bào)表】按鈕，用戶所添加的查詢條件將被提交給數(shù)據(jù)處理頁，處