【導讀】1．隨著社會的發(fā)展，計算機應用日益普及，用計算機管理已經(jīng)成為管理的重要的手段。倉儲管理，作為企業(yè)管理中的重要一環(huán)，也對我們提出了新的要求。理水平，企業(yè)的倉庫也有必要引入倉儲管理系統(tǒng)，實現(xiàn)倉庫的計算機管理。2．倉儲管理包括入庫管理、出庫管理、庫存管理等幾個方面。3．Access、資料，數(shù)據(jù)庫的連接；數(shù)據(jù)庫軟件的安裝與配置等。置好軟件系統(tǒng)，并解決一些基本的軟件開發(fā)技術(shù)問題。第二部分編寫程序以及調(diào)試。第三部分論文撰寫與軟件測試和改進。發(fā)軟件總體上的約束和限制，分析確定了系統(tǒng)所需要的功能。在總體設(shè)計中按軟件工程的理論和方法進一步分析確定軟件的模塊及結(jié)構(gòu)、數(shù)據(jù)結(jié)。構(gòu)和系統(tǒng)功能的具體實現(xiàn)方案，并附有參考文獻及主要源代碼。進行查詢，對庫存數(shù)量進行查詢，用戶通過簡單的操作即可輕松的管理倉庫。

　　

【正文】 。 End If If riqi Then where = where amp。 AND riqi = 39。 amp。 riqi amp。 39。 End If If where = Then MsgBox 請輸入要更新的商品信息。 , vbOKOnly Exit Sub 西南交通大學 網(wǎng)絡(luò)教育 畢業(yè)設(shè)計 （ 論文 ） 23 End If where = Mid(where, 5, Len(where)) Set Glb_MyWkSp = Workspaces(0) Set Glb_MyDB = (Con_DBpath) SQLStr = SELECT COUNT(*) FROM s_insert WHERE amp。 where Set db_set = (SQLStr) If (0) = 0 Then MsgBox 數(shù)據(jù)庫中沒有此條紀錄。 , vbOKOnly Exit Sub Else SQLStr = UPDATE s_insert SET shangpinming=39。 amp。 shangpinming1 amp。 39。 , xinghao=39。 amp。 xinghao1 amp。 39。 , changjia=39。 amp。 changjia1 amp。 39。 , changzhi=39。 amp。 changzhi1 amp。 39。 , beizhu=39。 amp。 beizhu1 amp。 39。 ,riqi=39。 amp。 riqi1 amp。 39。 WHERE amp。 where SQLStr MsgBox 商品信息更新成功。 , vbOKOnly = = = = = = End If 西南交通大學 網(wǎng)絡(luò)教育 畢業(yè)設(shè)計 （ 論文 ） 24 Exit Sub err_en: MsgBox 商品編號輸入有錯誤。 , vbOKOnly End Sub 商品信息刪除模塊 IPO 圖。 輸入：商品編號、商品名稱、商品型號、生產(chǎn)廠家、廠址、日期和備注。 處理： (1)進入本模塊是，顯示提示信息，如圖 3－ 5所示。 (2)以填寫的商品信息為條件查找 S_insert 表如果填寫的商品編號存在，將所有的信 息顯示在頁面上，同時也要顯示出“刪除”按鈕。 (3)當點擊“取消”按鈕時，頁面上所有的 Text 框全部從數(shù)據(jù)庫表 S_insert 中刪除，同時“刪除”按鈕消失。 (4)刪除成功后要提示刪除成功，顯示 messagebox“記錄刪除成功。 (5)當點擊“取消”按鈕時，頁面上所有的 Text 框全部清空，同時也要顯示出“刪除”按鈕。 輸出：顯示滿足條件的語句。 3－ 10 所示。 當輸入商品信息按“確定”按鈕時，將所有信息顯示出來，如圖 3－ 11 所示。 圖 3－ 10 商品信息刪除界面 西南交通大學 網(wǎng)絡(luò)教育 畢業(yè)設(shè)計 （ 論文 ） 25 圖 3－ 11 查詢待刪 除商品界面 。 本頁面使用了 數(shù)據(jù)庫中的 S_insert 數(shù)據(jù)表。 。 當進入主頁面后，單擊“商品管理”按鈕便會彈出本頁面，點擊“確定”按鈕課將輸入的數(shù)據(jù)對應的數(shù)據(jù)庫中的全部對應的數(shù)據(jù)顯示出來，點擊“刪除”按鈕時將對應的數(shù)據(jù)從數(shù)據(jù)庫中刪除。“取消”按鈕的作用是清空本頁面各 Text 框中的數(shù)據(jù)。 。 在“確定”按鈕的 Click 事件中輸入如下代碼： On Error GoTo err_en Dim where where = bianhao = shangpinming = xinghao = changjia = changzhi = riqi = If bianhao Then where = where amp。 AND bianhao = amp。 bianhao End If If shangpinming Then 西南交通大學 網(wǎng)絡(luò)教育 畢業(yè)設(shè)計 （ 論文 ） 26 where = where amp。 AND shangpinming = 39。 amp。 shangpinming amp。 39。 End If If xinghao Then where = where amp。 AND xinghao = 39。 amp。 xinghao amp。 39。 End If If changjia Then where = where amp。 AND changjia = 39。 amp。 changjia amp。 39。 End If If changzhi Then where = where amp。 AND changzhi = 39。 amp。 changzhi amp。 39。 End If If riqi Then where = where amp。 AND riqi = 39。 amp。 riqi amp。 39。 End If If where = Then MsgBox 請輸入查詢條件。 , vbOKOnly Exit Sub End If where = Mid(where, 5, Len(where)) Set Glb_MyWkSp = Workspaces(0) Set Glb_MyDB = (Con_DBpath) SQLStr = SELECT COUNT(*) FROM s_insert WHERE amp。 where Set db_set = (SQLStr) If (0) = 0 Then 西南交通大學 網(wǎng)絡(luò)教育 畢業(yè)設(shè)計 （ 論文 ） 27 MsgBox 沒有滿足條件的紀錄。 , vbOKOnly Exit Sub Else = True = True SQLStr = SELECT * FROM s_insert WHERE amp。 where Set db_set = (SQLStr) Dim line line = 0 Do While = False line = line + 1 bianhao = (0) shangpinming = (1) xinghao = (2) changjia = (3) changzhi = (4) riqi = (5) With MSHFlexGrid2 39。定義列數(shù) .Cols = 6 39。定義列標題 .TextMatrix(0, 0) = 商品編號 .TextMatrix(0, 1) = 商品名 .TextMatrix(0, 2) = 型號 .TextMatrix(0, 3) = 生產(chǎn)日期 .TextMatrix(0, 4) = 生產(chǎn)廠家 西南交通大學 網(wǎng)絡(luò)教育 畢業(yè)設(shè)計 （ 論文 ） 28 .TextMatrix(0, 5) = 廠址 .TextMatrix(line, 0) = bianhao .TextMatrix(line, 1) = shangpinming .TextMatrix(line, 2) = xinghao .TextMatrix(line, 3) = riqi .TextMatrix(line, 4) = changjia .TextMatrix(line, 5) = hangzhi 39。固定表頭 .FixedRows = 1 39。設(shè)置單元大小 .ColWidth(0) = 1500 .ColWidth(1) = 1500 .ColWidth(2) = 1500 .ColWidth(3) = 1500 .ColWidth(4) = 3000 .ColWidth(5) = 3000 End With Loop End If Exit Sub err_en: MsgBox 商品編號輸入 有錯誤。 , vbOKOnly End Sub 在“刪除”按鈕的 Click 事件中輸入如下代碼： Private Sub Command9_Click() 西南交通大學 網(wǎng)絡(luò)教育 畢業(yè)設(shè)計 （ 論文 ） 29 Dim where where = bianhao = shangpinming = xinghao = changjia = changzhi = riqi = If bianhao Then where = where amp。 AND bianhao = amp。 bianhao End If If shangpinming Then where = where amp。 AND shangpinming = 39。 amp。 shangpinming amp。 39。 End If If xinghao Then where = where amp。 AND xinghao = 39。 amp。 xinghao amp。 39。 End If If changjia Then where = where amp。 AND changjia = 39。 amp。 changjia amp。 39。 End If If changzhi Then where = where amp。 AND changzhi = 39。 amp。 changzhi amp。 39。 End If If riqi Then where = where amp。 AND riqi = 39。 amp。 riqi amp。 39。 End If 西南交通大學 網(wǎng)絡(luò)教育 畢業(yè)設(shè)計 （ 論文 ） 30 where = Mid(where, 5, Len(where)) Set Glb_MyWkSp = Workspaces(0) Set Glb_MyDB = (Con_DBpath) SQLStr = delete * from s_insert where amp。 where SQLStr MsgBox 記錄刪除成功。 , vbOKOnly = False = False Exit Sub End Sub 倉庫管理模塊的設(shè)計與實現(xiàn) 本模塊包括三個子模塊：入庫管理模塊、出庫管理模塊和庫存管理模塊，如圖 3－ 12所示。 圖 3－ 12 倉庫管理模塊 圖 3－ 13 入庫管理模塊 入庫管理模塊 本模塊包括兩個子模塊：入庫登記模塊和入庫一覽模塊，如圖： 5－ 13。 入庫登記模塊 IPO 圖。 輸入：貨物編號、貨物名稱、貨物型號、單價、數(shù)量、總價、入庫時間和備注。 倉庫管理 倉庫管理 倉庫管理 倉庫管理 入庫管理 入庫登記模塊 （ ） 入庫一覽模塊 （ ） 西南交通大學 網(wǎng)絡(luò)教育 畢業(yè)設(shè)計 （ 論文 ） 31 處理 ： (1)進入本模塊時顯示提示信息。 (2)檢查是否有的貨物信息都填寫了。如果沒有全部填寫，顯示出 messagebox，提示時哪一項未輸入；如果全部填寫完畢，執(zhí)行一下步驟。 (3)以填寫的貨物編號未條件查找 ruku 表，如果填寫的商品編號存在，顯示messagebox，提示當前數(shù)據(jù)庫中擁有的最大編號。 (4)當點擊“確定”按鈕時，將頁面上輸入的各項插入到數(shù)據(jù)庫 ruku 表的對應字段中。 (5)輸入成功后要提示輸入成功。 (6)當點擊“取消”按鈕時，頁面