【正文】 (6)當(dāng)點(diǎn)擊“取消”按鈕時(shí)，頁面上所有的。 (4)當(dāng)點(diǎn)擊“確定”按鈕時(shí)，將頁面上輸入的各項(xiàng)插入到數(shù)據(jù)庫 ruku 表的對應(yīng)字段中。如果沒有全部填寫，顯示出 messagebox，提示時(shí)哪一項(xiàng)未輸入；如果全部填寫完畢，執(zhí)行一下步驟。 倉庫管理 倉庫管理 倉庫管理 倉庫管理 入庫管理 入庫登記模塊 （ ） 入庫一覽模塊 （ ） 西南交通大學(xué) 網(wǎng)絡(luò)教育 畢業(yè)設(shè)計(jì) （ 論文 ） 31 處理 ： (1)進(jìn)入本模塊時(shí)顯示提示信息。 入庫登記模塊 IPO 圖。 , vbOKOnly = False = False Exit Sub End Sub 倉庫管理模塊的設(shè)計(jì)與實(shí)現(xiàn) 本模塊包括三個(gè)子模塊：入庫管理模塊、出庫管理模塊和庫存管理模塊，如圖 3－ 12所示。 End If 西南交通大學(xué) 網(wǎng)絡(luò)教育 畢業(yè)設(shè)計(jì) （ 論文 ） 30 where = Mid(where, 5, Len(where)) Set Glb_MyWkSp = Workspaces(0) Set Glb_MyDB = (Con_DBpath) SQLStr = delete * from s_insert where amp。 riqi amp。 AND riqi = 39。 39。 amp。 End If If changzhi Then where = where amp。 changjia amp。 AND changjia = 39。 39。 amp。 End If If xinghao Then where = where amp。 shangpinming amp。 AND shangpinming = 39。 AND bianhao = amp。設(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 商品編號輸入 有錯誤。定義列標(biāo)題 .TextMatrix(0, 0) = 商品編號 .TextMatrix(0, 1) = 商品名 .TextMatrix(0, 2) = 型號 .TextMatrix(0, 3) = 生產(chǎn)日期 .TextMatrix(0, 4) = 生產(chǎn)廠家 西南交通大學(xué) 網(wǎng)絡(luò)教育 畢業(yè)設(shè)計(jì) （ 論文 ） 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。 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。 where Set db_set = (SQLStr) If (0) = 0 Then 西南交通大學(xué) 網(wǎng)絡(luò)教育 畢業(yè)設(shè)計(jì) （ 論文 ） 27 MsgBox 沒有滿足條件的紀(jì)錄。 End If If where = Then MsgBox 請輸入查詢條件。 riqi amp。 AND riqi = 39。 39。 amp。 End If If changzhi Then where = where amp。 changjia amp。 AND changjia = 39。 39。 amp。 End If If xinghao Then where = where amp。 shangpinming amp。 AND shangpinming = 39。 AND bianhao = amp。 。 當(dāng)進(jìn)入主頁面后，單擊“商品管理”按鈕便會彈出本頁面，點(diǎn)擊“確定”按鈕課將輸入的數(shù)據(jù)對應(yīng)的數(shù)據(jù)庫中的全部對應(yīng)的數(shù)據(jù)顯示出來，點(diǎn)擊“刪除”按鈕時(shí)將對應(yīng)的數(shù)據(jù)從數(shù)據(jù)庫中刪除。 本頁面使用了 數(shù)據(jù)庫中的 S_insert 數(shù)據(jù)表。 當(dāng)輸入商品信息按“確定”按鈕時(shí)，將所有信息顯示出來，如圖 3－ 11 所示。 輸出：顯示滿足條件的語句。 (4)刪除成功后要提示刪除成功，顯示 messagebox“記錄刪除成功。 (2)以填寫的商品信息為條件查找 S_insert 表如果填寫的商品編號存在，將所有的信 息顯示在頁面上，同時(shí)也要顯示出“刪除”按鈕。 輸入：商品編號、商品名稱、商品型號、生產(chǎn)廠家、廠址、日期和備注。 , vbOKOnly = = = = = = End If 西南交通大學(xué) 網(wǎng)絡(luò)教育 畢業(yè)設(shè)計(jì) （ 論文 ） 24 Exit Sub err_en: MsgBox 商品編號輸入有錯誤。 WHERE amp。 riqi1 amp。 ,riqi=39。 beizhu1 amp。 , beizhu=39。 changzhi1 amp。 , changzhi=39。 changjia1 amp。 , changjia=39。 xinghao1 amp。 , xinghao=39。 shangpinming1 amp。 , vbOKOnly Exit Sub Else SQLStr = UPDATE s_insert SET shangpinming=39。 , vbOKOnly Exit Sub 西南交通大學(xué) 網(wǎng)絡(luò)教育 畢業(yè)設(shè)計(jì) （ 論文 ） 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。 39。 amp。 End If If riqi Then where = where amp。 changzhi amp。 AND changzhi = 39。 39。 amp。 End If If changjia Then where = where amp。 xinghao amp。 AND xinghao = 39。 39。 amp。 bianhao End If If shangpinming Then where = where amp。 單擊菜單的“商品信息錄入”輸入如下代碼： Private Sub S_insert_Click() = True = False = False 西南交通大學(xué) 網(wǎng)絡(luò)教育 畢業(yè)設(shè)計(jì) （ 論文 ） 21 = False = False MsgBox 商品編號處請輸入數(shù)字，生產(chǎn)日期處請按“ YYYYMMDD”格式輸入 , vbOKOnly Exit Sub End Sub 在“確定”按鈕的 Click 事件中輸入如下代碼： On Error GoTo err_en Dim bianhao1 Dim shangpinming1 Dim xinghao1 Dim changjia1 Dim changzhi1 Dim riqi1 Dim beizhu1 Dim where where = bianhao = shangpinming = xinghao = changjia = changzhi = riqi = beizhu = 西南交通大學(xué) 網(wǎng)絡(luò)教育 畢業(yè)設(shè)計(jì) （ 論文 ） 22 shangpinming1 = xinghao1 = changjia1 = changzhi1 = riqi1 = beizhu1 = If bianhao Then where = where amp?！叭∠?按鈕的作用是清空本頁面各 Text 框中的數(shù)據(jù)。 。 圖 3－ 9 商品信息更新界面 。 輸出：更新后的商品信息，包括：商品編號、商品名稱、商品型號、生產(chǎn)廠家、廠址、日期和備注?！薄? (3)點(diǎn)擊“確定”按鈕時(shí)，將“請?zhí)顚懸碌纳唐沸畔ⅰ碧幪顚懙臄?shù)據(jù)作為 SQL語句的 where 條件更新數(shù)據(jù)庫中的 S_insert 表，更新值從“請?zhí)顚懜潞笊唐沸畔ⅰ碧幦〉谩? 處理： (1)進(jìn)入本模塊是，顯示提示信息，如圖 5－ 9。定義列標(biāo)題 .TextMatrix(0, 0) = 商品編號 .TextMatrix(0, 1) = 商品名 .TextMatrix(0, 2) = 型號 .TextMatrix(0, 3) = 生產(chǎn)日期 .TextMatrix(0, 4) = 生產(chǎn)廠家 西南交通大學(xué) 網(wǎng)絡(luò)教育 畢業(yè)設(shè)計(jì) （ 論文 ） 19 .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) = changzhi .FixedRows = 1 .FillStyle = flexFillRepeat .Col = 0 .Row = 0 .RowSel = 1 .ColSel = .Cols 1 .CellAlignment = 4 .ColWidth(0) = 1500 .ColWidth(1) = 1500 .ColWidth(2) = 1500 .ColWidth(3) = 1500 .ColWidth(4) = 3000 .ColWidth(5) = 3000 End With Loop 商品信息錄入模塊 IPO 圖。 where Set db_set = (SQLStr) Dim line line = 0 Do While = False line = line + 1 bianhao = (0) shan