【導(dǎo)讀】獨(dú)立進(jìn)行研究工作所取得的成果。除文中已經(jīng)注明引用的內(nèi)容外，本。文的研究做出重要貢獻(xiàn)的個人和集體，均已在文中以明確方式標(biāo)明。本聲明的法律結(jié)果由本人承擔(dān)。四年美好的大學(xué)生活即將結(jié)束，我將面對又一次征程的開始。涯在師長、親友的大力支持下，走得辛苦卻也收獲滿囊，在論文即將付梓之際，思緒萬千，心情久久不能平靜。我的敬意和贊美獻(xiàn)給一位平凡的人，我的導(dǎo)師。一種良好的精神氛圍。同時也感謝學(xué)院為我提供良好的做畢業(yè)設(shè)計的環(huán)境。信息繼物質(zhì)和能源之后成為人類社會發(fā)展的第三大資源。息系統(tǒng)逐漸在企業(yè)中占據(jù)重要地位。在經(jīng)濟(jì)發(fā)展的過程中受到深刻影響。市信息化是超市經(jīng)營的必由之路。現(xiàn)狀進(jìn)行了詳細(xì)調(diào)查，認(rèn)真分析了其業(yè)務(wù)流程和組織結(jié)構(gòu)以及未來的發(fā)展方向，系統(tǒng)設(shè)計，并最終實(shí)現(xiàn)該系統(tǒng)。上地逐步實(shí)現(xiàn)各系統(tǒng)的應(yīng)用開發(fā)。開發(fā)本系統(tǒng)采用了ASP結(jié)合Access數(shù)據(jù)庫技。和系統(tǒng)管理等功能。

　　

【正文】 （ 3）修改商品 在商品管理頁面中，如果某種商品的信息需要改動，可以點(diǎn)擊該商品的編碼，系統(tǒng)就會展開該商品的基本信息界面，用戶就可以在該頁面中進(jìn)行修改。此時，商品的編碼不可修改。 （ 4）刪除商品 在商品管理頁面中還有刪除商品信息的功能。當(dāng)某種商品在超市中不再進(jìn)行銷售北京大學(xué) 本科畢業(yè)設(shè)計（論文） 19 時，就需要將其信息刪除。刪除時，需選擇該商品編碼前的復(fù)選框，選中之后點(diǎn)擊刪除按鈕即可從數(shù)據(jù)庫中刪除該商品。 進(jìn)貨入庫模塊 進(jìn)貨入庫模塊主要用來維護(hù)商品入庫信息和入庫記錄的瀏覽。功能包括入庫信息列表、查詢、添加和刪除入庫記錄。 （ 1）查詢?nèi)霂煨畔? 進(jìn)入入庫管理界面，即可看到所有入庫信息。其中顯示每條入庫記錄的時間、商品編號、名稱、規(guī)格、單位、單價、入庫的數(shù)量和金額。查詢時，查詢的關(guān)鍵字為某種商品的名稱。既可以查詢某一特定商品的入庫記錄，又可以對某類商品的入庫記錄進(jìn)行模糊查詢。 （ 2）添加入庫信息 在進(jìn)貨入庫管理界面，能進(jìn)行入庫信息的添加操作。當(dāng)用戶需要新增某條入庫信息時，只需點(diǎn)擊管理界面的添加按鈕，系統(tǒng) 彈出添加對話框，用戶需要在添加對話框中填入對應(yīng)商品入庫的數(shù)量，然后點(diǎn)擊保存按鈕即可完成添加操作。添加成功后，入庫記錄數(shù)據(jù)表中會新增該入庫信息，同時入庫信息列表中會在最后顯示。 （ 3）刪除入庫信息 進(jìn)貨入庫管理界面還提供刪除入庫信息的操作。當(dāng)用戶需要刪除某條或者某幾條入庫記錄時，只需在該條記錄或幾條記錄前的復(fù)選框中選中，然后點(diǎn)擊刪除按鈕即可。 在刪除入庫記錄時，系統(tǒng)需要同時判斷是否有對應(yīng)的出庫記錄。如果該入庫記錄有相對應(yīng)的出庫記錄，那么不能完成刪除，沒有 記錄 可以刪除。 銷售出庫模塊 銷售出庫模塊的功能是針對商品銷售出庫進(jìn)行維護(hù)。其中包含的功能有對出庫信息的查詢、刪除和添加。 （ 1）查詢出庫信息 進(jìn)入銷售出庫管理界面，即可看到所有出庫記錄的列表。當(dāng)用戶需要對某一確定的出庫記錄進(jìn)行查詢時，可以在查詢條件文本框中輸入要查詢記錄的商品，然后點(diǎn)擊查詢按鈕 ，就會顯示多要查詢記錄的內(nèi)容?？梢葬槍δ骋惶囟ㄉ唐愤M(jìn)行準(zhǔn)確查詢，也可以對某一類商品進(jìn)行模糊查詢。 （ 2）添加出庫記錄 在銷售出庫管理界面，用戶可以完成出庫記錄的添加工作。當(dāng)用戶需要使用這一操作時，點(diǎn)擊添加按鈕，系統(tǒng)彈出出 庫對話框，用戶需要在相應(yīng)的商品后面填入需要出庫的具體數(shù)量，然后點(diǎn)擊保存按鈕即可完成操作。 添加出庫信息時，系統(tǒng)需要對用戶填入的數(shù)量與數(shù)據(jù)庫中實(shí)際存在的數(shù)量進(jìn)行比 construi elymagp29/If30jb1hv4z5d20 對，如果倉庫中沒有足夠的數(shù)量不能完成出庫，否則可以完成。 （ 3）刪除出庫信息 銷售出庫管理界面中還提供出庫信息的刪除操作。當(dāng)用戶需要對某一條出庫記錄進(jìn)行刪除時，只需選中相應(yīng)記錄前面的復(fù)選框，然后點(diǎn)擊刪除按鈕即可。 需要注意的是，由于數(shù)據(jù)庫中出庫記錄數(shù)據(jù)表和出庫批次數(shù)據(jù)表之間存在關(guān)聯(lián)關(guān)系，所以，在刪除出庫記錄之前，應(yīng)該先刪除在出 庫批次信息中對應(yīng)的記錄。 庫存管理模塊 在庫存管理模塊中，系統(tǒng)提供了對商品的入庫、出庫和庫存信息的查詢功能。進(jìn)入庫存管理界面后，可以對某種商品的庫存信息進(jìn)行查詢。用戶需要在查詢條件文本框中輸入相應(yīng)商品的名稱，然后點(diǎn)擊查詢，即可顯示該商品的庫存信息。 幫助 幫助主要是對用戶提供系統(tǒng)的操作介紹信息。 當(dāng)用戶對某一操作部熟悉時，可以點(diǎn)擊幫助進(jìn)行了解。 北京大學(xué) 本科畢業(yè)設(shè)計（論文） 21 6 系統(tǒng)實(shí)現(xiàn) 創(chuàng)建數(shù)據(jù)庫 根據(jù)之前的數(shù)據(jù)需求分析，可知，在系統(tǒng)中需要建 立的數(shù)據(jù)表有 4 個，分別為商品記錄表、入庫記錄表、出庫記錄表和出庫批次表。 本系統(tǒng)使用 Access 數(shù)據(jù)庫進(jìn)行數(shù)據(jù)庫的創(chuàng)建。首先在 Access 中創(chuàng)建了名為 的數(shù)據(jù)庫，然后在其中建立了商品記錄表 SPJL、入庫記錄表 RKJL、出庫記錄表 CKJL 和出庫批次表 CKPC，并且建立了數(shù)據(jù)表之間的關(guān)聯(lián)關(guān)系。 建立了數(shù)據(jù)庫之后，需要對數(shù)據(jù)庫進(jìn)行連接，創(chuàng)建了 ，用來在其他模塊中調(diào)用數(shù)據(jù)庫。代碼如下： % dim set =() driver={Microsoft Access Driver (*.mdb)}。 amp。 _ Dbq= amp。 (/data/) % 創(chuàng)建系統(tǒng)主界面 進(jìn)入本系統(tǒng)，應(yīng)首先看到一個主界面 ，其中包含有系統(tǒng)各主要功能模塊的鏈接。 圖 系統(tǒng)主界面 在主界面中 ，用戶可以通過鼠標(biāo)點(diǎn)擊各功能模塊的名字進(jìn)入功能模塊界面。主界面主要 代碼如下： construi elymagp29/If30jb1hv4z5d22 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 TD height=16 valign=top p align=centerimg border=0 src=img/ width=21 height=21font size=2 劉文軍 CopyRight 202151/font/p/TD /tr /table /BODY 商品管理模塊 商品管理模塊實(shí)現(xiàn)對商品信息的查詢、新增、修改和刪除操作。其中包含商品管理頁面和商品信息頁面。 北京大學(xué) 本科畢業(yè)設(shè)計（論文） 23 商品管理頁面 在系統(tǒng)主界面中點(diǎn)擊商品管理進(jìn)入商品管理界 面，如圖： 圖 商品管理界面 在圖 所示的界面中可以完成如下功能： （ 1） 查詢 用戶在文本框中輸入查詢條件，點(diǎn)擊查詢按鈕就可對商品進(jìn)行查詢。 （ 2） 新增 單擊 “新增 ”按鈕進(jìn)入新增界面。 （ 3） 修改 單擊 某種商品的編號跳轉(zhuǎn)到商品信息界面，可進(jìn)行修改。 （ 4） 刪除 在所要刪除商品前面的復(fù)選框中選中，單擊 “刪除 ”按鈕即可。 商品管理界面的 主要 代碼如下： % 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 construi elymagp29/If30jb1hv4z5d24 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 SPJL where BM=39。amp。trim(request(item))amp。39。) end if end if Next if n 0 then % script language=VBScript msgbox 存在入庫信息的商品沒有刪除！ = /script % end if Set rs=Nothing end if 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 SPJL if SearchText then sqlstr=sqlstramp。 Where MC like 39。%amp。SqlSearchTextamp。%39。 end if set rs = () Sqlstr,3 % % 39。顯示處理 TotalPages = 1 TotalRecords = 0 TotalFlag = 0 if not( or ) then 北京大學(xué) 本科畢業(yè)設(shè)計（論文） 25 TotalRecords = if ListPageSize = 0 then ListPageSize = TotalRecords TotalFlag = 1 end if = ListPageSize TotalPages = if SelectPage TotalPages then SelectPage = 1 end if = SelectPage for i = 1 to ListPageSize if not( or ) then % 商品信息界面 商品的新增和修改都是通過商品信息界面實(shí) 現(xiàn)的。當(dāng)用戶需要新增商品或者修改商品信息時，就進(jìn)入此界面。 新增商品時，編碼、名稱、規(guī)格、單位和單價都是空白，需要用戶自行填寫。如圖： 圖 商品信息 新增 頁面 修改商品信息時，商品的編碼不能改變，其他內(nèi)容可以修。如圖： construi elymagp29/If30jb1hv4z5d26 圖 商品信息 修改 頁面 商品信息界面 的代碼如下： % 39。39。保存新增商 品 if request(act)=add then Set rs=() sql=SELECT * FROM SPJL WHERE BM=39。amp。trim(request(BM))amp。39。 sql,1,3 if not then % script language=VBScript msgbox 商品編號重復(fù)，請重新輸入！ /script % else 39。添加記錄 rs(BM)=trim(Request(BM)) rs(MC)=Request(MC) rs(GG)=Request(GG) rs(DW)=Request(DW) rs(DJ)=Request(DJ) % script language=VBScript msgbox 商品已經(jīng)成功添加！ = /script % end if 北京大學(xué) 本科畢業(yè)設(shè)計（論文） 27 Set rs=Nothing end if 39。39。保存對商 品信息的修改 if request(act)=save then Set rs=() sql=SELECT * FROM SPJL WHERE BM=39。amp。trim(request(hpbm))amp。39。 sql,2,3 if not th