【正文】 管理模塊 該模塊主要 管理客戶聯(lián)系人 地址信息，對(duì)企業(yè)客戶之間的 文件進(jìn)行管理，向客戶發(fā)送郵件。 ? 用戶管理 該模塊主要管理用戶信息的添加、刪除等操作，并設(shè)置用戶的使用權(quán)限。 系統(tǒng)功能結(jié)構(gòu)圖 報(bào)表管理聯(lián)系人報(bào)表模塊客戶報(bào)表模塊客戶管理聯(lián)系人信息管理合同信息管理客戶信息管理庫(kù)存管理庫(kù)存管理產(chǎn)品管理服務(wù)管理反饋信息添加反饋信息修改反饋信息查詢em ai l管 理管理發(fā)件人管理客戶關(guān)系管理系統(tǒng)用戶管理用戶權(quán)限用戶管理反饋報(bào)表打印庫(kù)存報(bào)表打印 圖 1 數(shù)據(jù)表樹(shù)型結(jié)構(gòu)圖 3 系統(tǒng)設(shè)計(jì) 設(shè)計(jì)目標(biāo) 本系統(tǒng)是針對(duì)中小型企業(yè)通過(guò)網(wǎng)絡(luò)實(shí)現(xiàn)對(duì)客戶的管理而設(shè)計(jì)的，主要實(shí)現(xiàn)如下目標(biāo)： ? 對(duì)客戶信息（客戶基本信息、聯(lián)系人信息、合同信息）進(jìn)行全面管理。 ? 及時(shí)查看庫(kù)存信息，并通過(guò)網(wǎng)站對(duì)入庫(kù)、出庫(kù)信息進(jìn)行管理。 ? 強(qiáng)大的客戶信息、聯(lián)系人信息報(bào)表導(dǎo)出、打印功能 ? 及時(shí)了解客 戶的反饋信息，并對(duì)其進(jìn)行管理。 ? 實(shí)現(xiàn)各種信息的選擇查詢、模糊查詢功能等。 ? 實(shí)現(xiàn)了和客戶通過(guò)網(wǎng)絡(luò)在線溝通的功能，并對(duì)客戶聯(lián)系人的 地址進(jìn)行管理。 ? 管理員可以添加操作員信息、設(shè)置操作員的權(quán)限。 ? 對(duì)用戶輸入的數(shù)據(jù)，系統(tǒng)進(jìn)行嚴(yán)格的數(shù)據(jù)檢驗(yàn)，盡可能排除人為的錯(cuò)誤。 ? 要求系統(tǒng)的數(shù)據(jù)保密性強(qiáng)，通過(guò)為每個(gè)用戶設(shè)置使用權(quán)限來(lái)實(shí)現(xiàn) 。 ? 系統(tǒng) 運(yùn)行穩(wěn)定、安全可靠。 ? 鍵盤(pán)操作，快速響應(yīng)。 – 4 – 開(kāi)發(fā)及運(yùn)行環(huán)境 硬件平臺(tái)： ? CPU： P41。 8GHz； ? 內(nèi)存： 256MB 以上。 軟件平臺(tái)： ? 操作系統(tǒng)： Windows xp/ Windows 2020/ Windows 2020； ? 數(shù)據(jù)庫(kù)： SQL Server 2020； ? 瀏覽器： ，推薦使用 ； ? Web 服務(wù)器： ； ? 分辨率：最佳效果 1024*768。 數(shù)據(jù)庫(kù)設(shè)計(jì) 本系統(tǒng)數(shù)據(jù)庫(kù)采用 SQLServer2020數(shù)據(jù)庫(kù)，系統(tǒng)數(shù)據(jù)庫(kù)名稱為 db_System。數(shù)據(jù)庫(kù) db_ System中包含 8張表。關(guān)于數(shù)據(jù)庫(kù)中的數(shù)據(jù)表請(qǐng)參見(jiàn)附錄 B。 4 客戶管理模塊設(shè)計(jì) 客戶管理模塊的主要功能是對(duì)客戶信息進(jìn)行管理，主要包括客戶信息管理、聯(lián)系人信息管理和合同信息管理 3 個(gè)部分 。 客戶信息管理設(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)行修改；在選中每條信息前面的復(fù)選框，單擊【刪除】按鈕，選中的客戶信息將被刪除。 1．客戶信息顯示 /查詢 用戶可以在客戶信息管理頁(yè)面中 的查詢部分，輸入一定的查詢條件進(jìn)行客戶信息的查詢。 當(dāng)用戶在查詢部分輸入條件后，并單擊【查詢】按鈕，用戶添加的查詢條件將被提交給本頁(yè)，本頁(yè)將根據(jù)用戶提交的表單信息對(duì)數(shù)據(jù)庫(kù)進(jìn)行檢索，并將結(jié)果集通過(guò)操作區(qū)輸出到瀏覽器中。 客戶信息查詢頁(yè)面涉及的 HTML 表單元素如表 1 所示。 – 5 – 表 1 客戶信息查詢頁(yè)面涉及的 HTML表單元素 名稱 類(lèi)型 含義 重要屬性 form1 Form 表單 method=post action= post hidden 判斷表單是否提交 value=true tiao select 查詢類(lèi)型 option value= 模 糊 查 詢 %if request(tiao)= 模 糊 查 詢 then%selected%end if% 模 糊 查 詢/option option value= 精 確 查 詢 %if request(tiao)= 精 確 查 詢 then%selected%end if% 精 確 查 詢/option sel select 關(guān)鍵字類(lèi)別 option value=ClientName %if request(sel)=ClientName then%selected%end if% 客 戶 名 稱/option ?? option value=ClientHabitude %if request(sel)=ClientHabitude then%selected%end if% 企 業(yè) 性 質(zhì)/option search text 關(guān)鍵字 input name=search type=text id=search value=%=request(search)% Submit submit 查詢按鈕 class=input value= 查 詢 在表單提交之后，在本頁(yè)將數(shù)據(jù)進(jìn)行處理。程序代碼如下： % if request(post) then if request(tiao)=模糊查詢 then ‘條件輸入為模糊查詢時(shí)獲得相應(yīng)的記錄集 set rs=() sql=select * from tb_Client where amp。request(sel)amp。 like 39。%amp。request(search)amp。%39。 order by id desc sql,conn,1,1 else ‘條件輸入為精確查詢時(shí)獲得相應(yīng)的記錄集 set rs=() sql=select * from tb_Client where amp。request(sel)amp。=39。amp。request(search)amp。39。 order by id desc sql,conn,1,1 end if else ‘默認(rèn)狀態(tài)下獲得相應(yīng)的記錄集 set rs=() sql=select * from tb_Client order by id desc sql,conn,1,1 – 6 – end if 39。實(shí)現(xiàn)分頁(yè) if not then tol= 39?？傆涗洈?shù) =15 39。獲取每頁(yè)顯示的記錄數(shù) maxpage= requestpage=clng(request(p)) 39。獲取當(dāng)前頁(yè) if requestpage= or requestpage=0 then 39。當(dāng)接收頁(yè)碼的值為空或者 0時(shí)使其等于 1 requestpage=1 end if if requestpagemaxpage then 39。在接收頁(yè)碼的值大于最大頁(yè)碼時(shí)，使其等于最大頁(yè)碼 requestpage=maxpage end if if requestpage1 then 39。向上或向下移動(dòng)相應(yīng)的記錄 (requestpage1)* end if for i=1 to and not 39。利用循環(huán)輸出數(shù)據(jù) if i mod 2=1 then bg=FFFFFF else bg=efefef end if % tr align=center bgcolor=%=bg% style=cursor: hand onClick=(39。bo39。). = 39。?id=%=rs(id)%39。onMouseOver=HLItem(this) onMouseOut=Re(this) td height=22%=rs(ClientName)%/td td%=rs(ClientCountry)%/td td%=rs(ClientCity)%/td td%=rs(ClientTel)%/td td%=rs(ClientEmail)%/td /tr % if then exit for ’ 如果記錄集為空那么跳出循環(huán) next else (沒(méi)有客戶信息，請(qǐng) a href=39。39。 target=39。bo39。添加 /a) end if% 當(dāng)鼠標(biāo)在某條記錄上懸停時(shí)，其記錄所在行的背景顏色會(huì)發(fā)生改變，此功能用到的 js 代碼如下： – 7 – script language=javascript function HLItem(obj)//鼠標(biāo)經(jīng)過(guò) { =。 =List。 } function Re(obj)//鼠標(biāo)移開(kāi) { = } /script 其調(diào)用的代碼如下： tr align=center bgcolor=%=bg% style=cursor:hand onClick=(39。bo39。). = 39。?id=%=rs(id)%39。 onMouseOver=HLItem(this) onMouseOut=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ù)的代碼如下： script language=javascript – 8 – function checks() { if(==) { alert(公司名稱不能為空 )。 return false。 } ?? //中間過(guò)程不詳細(xì)介紹，因?yàn)閷?shí)現(xiàn)方法類(lèi)似 else if(==) { alert(需求周期不能為空 )。 return false。 } } /script 表單提交之后，添加的數(shù)據(jù)將被提交到本頁(yè)進(jìn)行處理，本頁(yè)數(shù)據(jù)處理的程序代碼如下： % if request(post) then set rs=() sql=select * from tb_Client 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) ‘公司網(wǎng)址 rs(ClientEmail)=request(ClientEmail) ‘公司 rs(ClientCountry)=request(ClientCountry) ‘所屬國(guó)家 /地區(qū) rs(ClientHabitude)=request(ClientHabitude) ‘公司性質(zhì) rs(ClientSize)=request(ClientSize) ‘公司規(guī)模 rs(ClientCity)=request(ClientCity) ‘所屬城市 rs(C