【文章內(nèi)容簡介】 圖 3 用戶注冊 用戶注冊模塊主要代碼如下： % 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 頁 共 34 頁 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。注冊成功，點擊確定立即登錄！39。)。(39。./39。)。/script end if end if end if % 系統(tǒng)主界面 模塊 用戶登錄后，進入系統(tǒng)主界面，用戶通過主界面可以單擊對應各功能模塊的名稱進入相應功能界面 ,如圖 4所示 : 圖 4 系統(tǒng)主界面 第 12 頁 共 34 頁 系統(tǒng)主界面實現(xiàn)代碼如下： % if session(auth) then % HTML HEAD TITLE杜明金銷售供應鏈管理系統(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 頁 共 34 頁 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 % 模塊 貨品管理模塊主要用來維護用戶貨品的基本信息，系統(tǒng)提供的功能包括貨品的信息列表，新增貨品，修改貨品和刪除貨品。 （ 1）貨品信息 進入貨品管理界面，可以看到所有貨品列表，列表中顯示貨品的編碼，名稱，規(guī)格，單價和單價信息。當貨品記錄比較多時可以翻頁瀏覽。還可以按照貨品名稱模糊查詢，過濾出希望察看的貨品信息 （ 2）新增貨品 在貨品管理頁面，提供新增貨品的功 能，當用戶執(zhí)行新增貨品功能時，打 開貨品信息頁面，用戶可以在該頁面輸入增加貨品的編碼，名稱等基本信息，新增貨品的編碼不能與已經(jīng)有貨品的編碼重復。 輸入貨品基本信息后在貨品信息頁面保存該貨品信息即可。若新增成功則貨品列表中將會有新增的貨品信息。 （ 3）修改貨品 當用戶需要修改貨品基本信息時，可以在貨品劉表中單擊貨品對應的編碼，這時系統(tǒng)打開貨品信息頁面，用戶可以在該頁面、對貨品的名稱等基本信息進行修改，此時貨品編碼為只讀，不能修改。 修改貨品基本信息后，在貨品信息頁面保存對貨品的修改，若修改成功則貨品列表中將會 現(xiàn)實修改后的貨品信息。 （ 4）刪除貨品 貨品管理頁面中還提供刪除貨品的功能，當刪除貨品信息時，首先在貨品列表中選擇要刪除的復選框，然后執(zhí)行刪除功能。 第 14 頁 共 34 頁 刪除貨品時系統(tǒ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 存在入庫信息的貨品沒有刪除！ = /script % 第 15 頁 共 34 頁 end if Set rs=Nothing end if ListPageSize = request(PageSelect) 39。39。默認每頁顯示 15 條記錄 if ListPageSize = then ListPageSize = 15 end if ListPageSize = Cint(ListPageSize) SelectPage = request(SelPage) 39。39。默認顯示第一頁 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 頁 共 34 頁 Sqlstr,3 % HTMLHEADTITLE杜明金銷售供應鏈管理系統(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 進貨入庫 模塊 進貨入庫模塊主要用來維護貨品入庫信息，以及對入庫記錄的瀏覽查看。系統(tǒng)提供的功能包括入庫信息列表，添加入庫記錄和刪除入庫記錄。 （ 1）入庫信息列表 進入進貨入庫頁面，可以看到所有入庫信息列表，列表中顯示貨品的編碼等基本信息和 貨品的入庫數(shù)量及入庫日期。當入庫記錄比較多時，可以翻頁瀏覽。還可以按照貨品名稱模糊查詢，過濾顯示希望看到的貨品入庫信息。 （ 2）添加入庫信息 在進貨入庫頁面，提供添加入庫信息的功能，當用戶執(zhí)行添加貨品入庫功能時，打開貨品入庫信息頁面，用戶可以在該頁面輸入要入庫的貨品的數(shù)量，然后保存饑渴。若添加成功，則入庫信息列表中將會有新增的貨品入庫信息。 入庫信息添加時，貨品的基本信息自動從貨品記錄取得，入庫日期則自動由系統(tǒng)自動賦值。 （ 3）刪除入庫信息 貨品管理頁面中還提供刪除貨品的功能，當刪除貨品信息時，首先在入庫信息列表中選擇要刪除的復選框，然后執(zhí)行刪除功能。 刪除貨品時系統(tǒng)會判斷是否有與之相關(guān)的出庫信息，如果有就不能刪除，否則可以進行刪除。貨品刪除成功后，被刪除的貨品從入庫信息列表中消失。 另外，在入庫頁面中，用戶可以隨時查看當前的系統(tǒng)幫助，也可以返回到系統(tǒng)主界面中。 部分代碼如下 第 17 頁 共 34 頁 HTMLHEADTITLE杜明金銷售供應鏈管理系統(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 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=