客戶關系管理系統畢業設計論文范例(編輯修改稿)

　

【文章內容簡介】 lientPay)=request(ClientPay) ‘結款方式 rs(ClientCredit)=request(ClientCredit) ‘結款信用 rs(ClientList)=request(ClientList) ‘最高訂單 ‘ rs(ClientYear)=request(ClientYear) ‘年度訂單 rs(ClientCyc)=request(ClientCyc) ‘需求周期 rs(SetTime)=now() ‘創建時間 rs(EditTime)=now() ‘修改時間 rs(SetName)=session(admin_name) ‘創建人 – 9 – ()‘彈出成功對話框 end if% 3．客戶信息 修改 在顯示客戶詳細信息頁面，用戶可以瀏覽、修改其客戶的詳細信息。進行客戶詳細信息瀏覽和修改的頁面設計效果如圖 6 所示： 圖 6 客戶信息修改頁面設計效果 在客戶信息修改頁面，用戶可以瀏覽客戶詳細的信息，也可以修改客戶的信息（當用戶有修改的權限時，那么用戶可以進行修改，至于用戶權限的實現，將在后面的章節中進行講解）。當用戶單擊【修改】按鈕后，修改的數據將被提交到本頁進行處理。數據處理的代碼如下： % if request(post) and (rsr(Client)=可寫 or rsr(chaoji)=是 ) then set rs=() sql=select * from tb_Client where id=amp。request(id) sql,conn,1,3 rs(ClientName)=request(ClientName) ‘添加公司名稱 rs(ClientAddress)=request(ClientAddress) ‘公司地址 rs(ClientTel)=request(ClientTel) ‘公司電話 rs(ClientFax)=request(ClientFax) ‘公司傳真 rs(ClientNumber)=request(ClientNumber) ‘郵政編碼 rs(ClientPage)=request(ClientPage) ‘公司網址 rs(ClientEmail)=request(ClientEmail) ‘公司 rs(ClientCountry)=request(ClientCountry) ‘所屬國家 /地區 rs(ClientHabitude)=request(ClientHabitude) ‘公司性質 rs(ClientSize)=request(ClientSize) ‘公司規模 rs(ClientCity)=request(ClientCity) ‘所屬城市 rs(ClientPay)=request(ClientPay) ‘結款方式 rs(ClientCredit)=request(ClientCredit) ‘結款信用 rs(ClientList)=request(ClientList) ‘最高訂單 ‘ rs(ClientYear)=request(ClientYear) ‘年度訂單 – 10 – rs(ClientCyc)=request(ClientCyc) ‘需求周期 rs(EditTime)=now() ‘修改時間 rs(SetName)=session(admin_name) ‘創建人 ()‘彈出成功對話框 end if % 4．客戶信息刪除 在客戶信息管理頁面，用戶可以點選任意一條客戶信息前面的復選框，然后 單擊頁面下方的【刪除】按鈕，被選擇的客戶信息將被刪除。 客戶信息刪除主要是根據傳遞的參數（本例中的參數為客戶信息的 id），將數據庫中對應 id的客戶信息和其他和客戶相關的信息全部刪除，程序代碼如下： % call client 39。驗證是否有刪除客戶信息的權限 if request(del) then kid=Split(Request(del),) ‘分解字符串成數組 for i=0 to ubound(kid) sqld=delete from tb_Client where id=amp。clng(kid(i))39。刪除客戶信息 (sqld) sqll=delete from tb_Linkman where LinkmanClient=amp。clng(kid(i))39。刪除客戶的聯系人信息 (sqll) sqlp=delete from tb_Pact where PactClient=amp。clng(kid(i))39。刪除客戶的合同信息 (sqlp) sqlp=delete from tb_Feedback where FeedbackClient=amp。clng(kid(i))39。刪除客戶反饋信息 (sqlp) sqlp=delete from tb_Product where ProductProvider=amp。clng(kid(i))39。刪除客戶的產品信息 (sqlp) next if request(p)= then 39。返回用戶操作頁 () else (?p=amp。request(p)) end if else (script language=javascriptalert(39。請選擇要刪除的信息39。)。location=39。javascript:(1)39。/script) end if% 聯系人信息管理設計 聯系人信息管理的主要功能包括顯示 /查詢、添加、修改 和刪除聯系人信息 4 個部分。用戶可 – 11 – 以通過功能導航進入聯系人信息管理頁面，頁面設計效果如圖 7 所示。 圖 7 聯系人信息管理頁面設計效果 1．聯系人信息顯示 /查詢 用戶可以在聯系人信息管理頁面中的查詢部分，輸入一定的查詢條件進行聯系人信息的查詢。 用戶在查詢部分輸入條件后，單擊【查詢】按鈕，用戶添加的查詢條件將被提交給本頁，本頁則將根據用戶提交的表單信息對數據庫進行檢索，并將結果集通過操作區輸出到瀏覽器中。 查詢代碼如下： % if request(post) then if request(tiao)=模糊查詢 then’ 聯系人模糊查詢 set rs=() sql=select * from tb_Linkman where amp。request(sel)amp。 like 39。%amp。request(search)amp。%39。 order by id desc sql,conn,1,1 else ‘聯系人精確查詢 set rs=() sql=select * from tb_Linkman where amp。request(sel)amp。=39。amp。request(search)amp。39。 order by id desc sql,conn,1,1 end if else’ 默認狀態下顯示聯系人列表 set rs=() sql=select * from tb_Linkman order by id desc sql,conn,1,1 end if % 分頁代碼請參考 節中介紹的客戶信息顯示 /查詢中的相關代碼。 也可在查看客戶的詳細信息中，單擊“聯系人信息”，就會產生此客戶的聯系人列表，傳參代碼如下： a href=?post=trueamp。sel=LinkmanClientamp。search=%=rsx(id)%amp。dd=dd聯系人信息 /a 2．聯系人信息添加 聯系人信息添加的主要功能是添加客戶的聯系人信息。 在查詢頁面中單擊【添加】按鈕， 在展示區中會顯示添加頁面。在添寫表單選擇所屬客戶時， – 12 – 所屬客戶是在數據庫中直接讀取出來的。其代碼如下： % set rsc=() sqlc=select * from tb_Client order by id desc sqlc,conn,1,1 if not then % select name=LinkmanClient id=LinkmanClient % for i=1 to and not % option value=%=rsc(id)%%=rsc(ClientName)%/option % next% /select % else (沒有客戶信息，請 a href=39。39。 target=39。bo39。添加 /a) end if% 添加聯系人頁面的運行結果如圖 8 所示。 圖 8 添加聯系人的頁面運行結果 也可在客戶的詳細信息中單擊【新建】按鈕，在此添加用戶不用選擇所屬客戶，直接就會生成所屬客戶，主要是根據傳遞的參數（本例中的參數為客戶信息的 id），傳參代碼如下： a href=?id=%=rsx(id)%span class=style2新建 /span/a 其顯示代碼如下： % set rsc=() sqlc=select * from tb_Client where id=amp。request(id)amp。 order by id desc sqlc,conn,1,1 (rsc(ClientName)) % – 13 – 3．聯系人信息修改 聯系人信息修改的主要功能是用戶修改聯系人信息，方便用戶和客戶之間的聯系和溝通。 在顯示聯系人詳細信息頁面，用戶可以更改其聯系人的信息。聯系人信息修改頁面運行結果如圖 9 所示。 圖 9 聯系人信息修改頁面運行結果 4．聯系人信息刪除 聯系人信息刪 除的主要功能是刪除聯系人的信息。，其程序代碼如下： % kid=Split(Request(del),) ‘分解字符串成數組 (正在刪除 ...) for i=0 to ubound(kid) sqld=delete from tb_Linkman where id=amp。clng(kid(i)) ‘刪除指定的記錄 (sqld) next % 合同信息管理 合同信息管理設計主要包括顯示 /查詢、添加、修改和刪除合同信息 4個部分。用戶 可以通過功能導航進入合同信息管理頁面，頁面設計效果如圖 10 所示。 圖 10 合同信息管理頁面的運行結果 1．合同信息顯示 /查詢 用戶可以在合同信息管理頁面中的查詢部分，輸入一定的查詢條件，進行合同信息的查詢。 用戶在查詢部分輸入查詢條件后，單擊【查詢】按鈕，用戶所添加的查詢條件將被提交給本頁，本頁將根據用戶提交的表單信息對數據庫進行檢索，并將結果集通過操作區輸出到瀏覽器中。 合同信息查詢程序代碼如下： % – 14 – if request(post) then if request(tiao)=模糊查詢 then‘模糊查詢合同信息 set rs=() sql=select * from tb_Pact where amp。request(sel)amp。 like 39。%amp。request(search)amp。%39。 order by id desc sql,conn,1,1 else’精確查詢合同信息 set rs=() sql=select * from tb_Pact where amp。request(sel)amp。=39。amp。request(search)amp。39。 order by id des