【文章內(nèi)容簡(jiǎn)介】 圖 3 用戶注冊(cè) 用戶注冊(cè)模塊主要代碼如下： % set conn=() driver={microsoft access driver (*.mdb)}。dbq=amp。(./data/) name=trim(request(name)) password=trim(request(password)) password2=trim(request(password2)) if name= or password= then () 39。 showregmsg() else if request(password)request(password2) then () showregmsg() 第 11 頁(yè) 共 34 頁(yè) else exec=select * from dlk where username=39。amp。nameamp。39。 set rs=() exec,conn,1,1 if not then else ins=insert into dlk(username,password)values(39。+name+39。,39。+password+39。) ins set conn=nothing set rs=nothing script alert(39。注冊(cè)成功，點(diǎn)擊確定立即登錄！39。)。(39。./39。)。/script end if end if end if % 系統(tǒng)主界面 模塊 用戶登錄后，進(jìn)入系統(tǒng)主界面，用戶通過(guò)主界面可以單擊對(duì)應(yīng)各功能模塊的名稱進(jìn)入相應(yīng)功能界面 ,如圖 4所示 : 圖 4 系統(tǒng)主界面 第 12 頁(yè) 共 34 頁(yè) 系統(tǒng)主界面實(shí)現(xiàn)代碼如下： % if session(auth) then % HTML HEAD TITLE杜明金銷售供應(yīng)鏈管理系統(tǒng) /TITLE META equiv=ContentType content=text/html。 charset=gb2312 META equiv=Pragma content=nocache /HEAD BODY table width=751 border=0 align=center cellPadding=0 cellSpacing=0 height=42 tr TD valign=top width=751/TD /tr tr TD valign=top width=751 height=16 /TD /tr tr TD valign=top width=751 p align=centermap name=FPMap0 area href= shape=rect coords=117, 130, 245, 162 area href= shape=rect coords=183, 198, 314, 229 area href= shape=rect coords=253, 268, 384, 302 area href= shape=rect coords=219, 339, 348, 370 area href= shape=rect coords=174, 413, 306, 444 /map img rectangle= (174,413) (306,442) rectangle= (219,339) (348,370) rectangle= (174,413) (306,442) border=0 src=img/ usemap=FPMap0 width=640 height=480/TD /tr tr 第 13 頁(yè) 共 34 頁(yè) TD height=16 valign=top p align=centerimg border=0 src=img/ width=21 height=21font size=2 我的系統(tǒng) /font/p/TD /tr /table /BODY /HTML % end if % 模塊 貨品管理模塊主要用來(lái)維護(hù)用戶貨品的基本信息，系統(tǒng)提供的功能包括貨品的信息列表，新增貨品，修改貨品和刪除貨品。 （ 1）貨品信息 進(jìn)入貨品管理界面，可以看到所有貨品列表，列表中顯示貨品的編碼，名稱，規(guī)格，單價(jià)和單價(jià)信息。當(dāng)貨品記錄比較多時(shí)可以翻頁(yè)瀏覽。還可以按照貨品名稱模糊查詢，過(guò)濾出希望察看的貨品信息 （ 2）新增貨品 在貨品管理頁(yè)面，提供新增貨品的功 能，當(dāng)用戶執(zhí)行新增貨品功能時(shí)，打 開(kāi)貨品信息頁(yè)面，用戶可以在該頁(yè)面輸入增加貨品的編碼，名稱等基本信息，新增貨品的編碼不能與已經(jīng)有貨品的編碼重復(fù)。 輸入貨品基本信息后在貨品信息頁(yè)面保存該貨品信息即可。若新增成功則貨品列表中將會(huì)有新增的貨品信息。 （ 3）修改貨品 當(dāng)用戶需要修改貨品基本信息時(shí)，可以在貨品劉表中單擊貨品對(duì)應(yīng)的編碼，這時(shí)系統(tǒng)打開(kāi)貨品信息頁(yè)面，用戶可以在該頁(yè)面、對(duì)貨品的名稱等基本信息進(jìn)行修改，此時(shí)貨品編碼為只讀，不能修改。 修改貨品基本信息后，在貨品信息頁(yè)面保存對(duì)貨品的修改，若修改成功則貨品列表中將會(huì) 現(xiàn)實(shí)修改后的貨品信息。 （ 4）刪除貨品 貨品管理頁(yè)面中還提供刪除貨品的功能，當(dāng)刪除貨品信息時(shí)，首先在貨品列表中選擇要?jiǎng)h除的復(fù)選框，然后執(zhí)行刪除功能。 第 14 頁(yè) 共 34 頁(yè) 刪除貨品時(shí)系統(tǒng)會(huì)判斷入庫(kù)記錄中是否有該貨品，如果有就不能刪除，否則可以進(jìn)行刪除。貨品刪除成功后，被刪除的貨品從貨品列表中消失。 另外，在貨品管理頁(yè)面中，用戶可以隨時(shí)查看當(dāng)前的系統(tǒng)幫助，也可以返回到系統(tǒng)主界面中。 部分代碼如下 % 39。39。執(zhí)行刪除 if request(act)=del then dim n n = 0 set rs = () For Each item in if Left(item, 6) = deltag then if = 1 then end if Sqlstr = Select * from JHRK Where BM=39。amp。trim(request(item))amp。39。 Sqlstr,3 if not then n = n + 1 else (delete from HPJL where BM=39。amp。trim(request(item))amp。39。) end if end if Next if n 0 then % script language=VBScript msgbox 存在入庫(kù)信息的貨品沒(méi)有刪除！ = /script % 第 15 頁(yè) 共 34 頁(yè) end if Set rs=Nothing end if ListPageSize = request(PageSelect) 39。39。默認(rèn)每頁(yè)顯示 15 條記錄 if ListPageSize = then ListPageSize = 15 end if ListPageSize = Cint(ListPageSize) SelectPage = request(SelPage) 39。39。默認(rèn)顯示第一頁(yè) if SelectPage = then SelectPage = 1 end if SelectPage = Cint(SelectPage) 39。39。處理查詢字符串 SearchText = request(QueryText) SqlSearchText = replace(SearchText,39。,39。39。) SqlSearchText = replace(SearchText,[,[[]) SqlSearchText = replace(SearchText,],[]]) SqlSearchText = replace(SearchText,%,[%]) SqlSearchText = replace(SearchText,_,[_]) 39。39。獲取數(shù)據(jù) Dim Sqlstr Sqlstr = Select * From HPJL if SearchText then sqlstr=sqlstramp。 Where MC like 39。%amp。SqlSearchTextamp。%39。 end if set rs = () 第 16 頁(yè) 共 34 頁(yè) Sqlstr,3 % HTMLHEADTITLE杜明金銷售供應(yīng)鏈管理系統(tǒng)－貨品管理 /TITLE META equiv=ContentType content=text/html。 charset=gb2312 META equiv=Pragma content=nocache /HEAD BODY p align=centerbfont color=FF0000 size=5貨 品 管 理/font/b/p 進(jìn)貨入庫(kù) 模塊 進(jìn)貨入庫(kù)模塊主要用來(lái)維護(hù)貨品入庫(kù)信息，以及對(duì)入庫(kù)記錄的瀏覽查看。系統(tǒng)提供的功能包括入庫(kù)信息列表，添加入庫(kù)記錄和刪除入庫(kù)記錄。 （ 1）入庫(kù)信息列表 進(jìn)入進(jìn)貨入庫(kù)頁(yè)面，可以看到所有入庫(kù)信息列表，列表中顯示貨品的編碼等基本信息和 貨品的入庫(kù)數(shù)量及入庫(kù)日期。當(dāng)入庫(kù)記錄比較多時(shí)，可以翻頁(yè)瀏覽。還可以按照貨品名稱模糊查詢，過(guò)濾顯示希望看到的貨品入庫(kù)信息。 （ 2）添加入庫(kù)信息 在進(jìn)貨入庫(kù)頁(yè)面，提供添加入庫(kù)信息的功能，當(dāng)用戶執(zhí)行添加貨品入庫(kù)功能時(shí)，打開(kāi)貨品入庫(kù)信息頁(yè)面，用戶可以在該頁(yè)面輸入要入庫(kù)的貨品的數(shù)量，然后保存饑渴。若添加成功，則入庫(kù)信息列表中將會(huì)有新增的貨品入庫(kù)信息。 入庫(kù)信息添加時(shí)，貨品的基本信息自動(dòng)從貨品記錄取得，入庫(kù)日期則自動(dòng)由系統(tǒng)自動(dòng)賦值。 （ 3）刪除入庫(kù)信息 貨品管理頁(yè)面中還提供刪除貨品的功能，當(dāng)刪除貨品信息時(shí)，首先在入庫(kù)信息列表中選擇要?jiǎng)h除的復(fù)選框，然后執(zhí)行刪除功能。 刪除貨品時(shí)系統(tǒng)會(huì)判斷是否有與之相關(guān)的出庫(kù)信息，如果有就不能刪除，否則可以進(jìn)行刪除。貨品刪除成功后，被刪除的貨品從入庫(kù)信息列表中消失。 另外，在入庫(kù)頁(yè)面中，用戶可以隨時(shí)查看當(dāng)前的系統(tǒng)幫助，也可以返回到系統(tǒng)主界面中。 部分代碼如下 第 17 頁(yè) 共 34 頁(yè) HTMLHEADTITLE杜明金銷售供應(yīng)鏈管理系統(tǒng)－進(jìn)貨入庫(kù) /TITLE META equiv=ContentType content=text/html。 charset=gb2312 META equiv=Pragma content=nocache /HEAD BODY p align=centerbfont color=FF0000 size=5進(jìn) 貨 入 庫(kù)/font/b/p form action= method=post name=frmJHRK input type=hidden name=act TABLE width=813 border=0 align=center cellPadding=0 cellSpacing=0 TBODY TR TD height=24 valign=top bgcolor=DDDDDDfont size=2 貨品名稱包含： /font input name=QueryText type=text size=25 maxlength=50 value=%=SearchText%font size=2/font input name=Query type=submit value=查詢 font size=2 /font input name=Add type=button value= 添加 onClick=javascript:=39。39。font size=2/font input name=Del type=button value=刪除 font size=2 /font input name=Main type=button value= 返 回 主 界 面 onClick=javascript:=39。39。font size=2/font input name=Help type=