【正文】 nd SubPrivate Sub Command3_Click()Unload Form2 End SubPrivate Sub Command4_Click()EndEnd SubPrivate Sub Command7_Click()Unload Form2超市倉(cāng)庫(kù)管理系統(tǒng)33 End SubPrivate Sub Command8_Click()Unload Form2 End SubPrivate Sub Command9_Click()Unload Form2 End SubPrivate Sub MDIFrom_Paint() , 0, 0, , End SubPrivate Sub Form_Load() 0, 0, , End Sub 用戶查詢界面圖 521 用戶查詢界面FORM 3（歡迎進(jìn)入查詢界面）Private Sub Command1_Click()Unload Form3 End SubPrivate Sub Command2_Click()超市倉(cāng)庫(kù)管理系統(tǒng)34Unload Form3 End SubPrivate Sub Command3_Click()Unload Form3 End SubPrivate Sub Command4_Click()Unload Form3 End SubPrivate Sub Command5_Click()Unload Form3 End SubPrivate Sub Form_Load() 0, 0, , End Sub 產(chǎn)品名稱查詢界面圖 522 產(chǎn)品名稱查詢界面FORM 4（按產(chǎn)品名稱查詢）Private Sub Command1_Click() = select * from 按產(chǎn)品名稱查詢 where 商品名稱=39。 amp。Set = Adodc1End SubPrivate Sub Command2_Click()Unload Form4 End Sub超市倉(cāng)庫(kù)管理系統(tǒng)35Private Sub Form_Load() 0, 0, , End Sub 產(chǎn)品編號(hào)查詢界面圖 523 產(chǎn)品編號(hào)查詢界面FORM 5（按產(chǎn)品編號(hào)查詢）Private Sub Command1_Click()Unload Form5 End SubPrivate Sub Command2_Click() = select * from 按產(chǎn)品名稱查詢 where 商品編號(hào)=39。 amp。Set = Adodc1End SubPrivate Sub Form_Load() 0, 0, , End Sub超市倉(cāng)庫(kù)管理系統(tǒng)36 入庫(kù)商品查詢界面圖 524 入庫(kù)商品查詢界面FORM 6（入庫(kù)產(chǎn)品查詢）Private Sub Command1_Click()Unload Form6 End SubPrivate Sub Form_Load() 0, 0, , End Sub 商品出庫(kù)查詢界面圖 525 商品出庫(kù)查詢界面FORM 7（商品出庫(kù)查詢）Private Sub Command1_Click()超市倉(cāng)庫(kù)管理系統(tǒng)37Unload Form7 End SubPrivate Sub Form_Load() 0, 0, , End Sub 過(guò)期商品查詢界面圖 526 過(guò)期商品查詢界面FORM 8（過(guò)期商品查詢）Private Sub Command4_Click()Unload Form8 End SubPrivate Sub Form_Load() 0, 0, , End Sub超市倉(cāng)庫(kù)管理系統(tǒng)38 缺貨查詢界面圖 527 缺貨查詢界面FORM 9（缺貨查詢）Private Sub Command4_Click()Unload Form9 End SubPrivate Sub Form_Load() 0, 0, , End Sub 報(bào)表統(tǒng)計(jì)界面圖 528 報(bào)表統(tǒng)計(jì)界面FORM 10（報(bào)表統(tǒng)計(jì)）超市倉(cāng)庫(kù)管理系統(tǒng)39Private Sub Command4_Click()Unload Form9 End SubPrivate Sub Form_Load() 0, 0, , End Sub 商品錄入界面圖 529 商品錄入界面FORM 12（商品錄入）Private Sub Command1_Click() = select * from 按產(chǎn)品名稱查詢(商品編號(hào)) = Trim()(商品名稱) = Trim()(商品數(shù)量) = Trim()(備注) = Trim()(職工號(hào)) = Trim()(商品規(guī)格) = Trim()(商品進(jìn)價(jià)) = Trim()(商品售價(jià)) = Trim()(供貨商(編號(hào))) = Trim()answer = MsgBox(用戶添加成功?。?！, 1 + 48 + 0, 信息提示！)超市倉(cāng)庫(kù)管理系統(tǒng)40End SubPrivate Sub Command4_Click()Unload 商品錄入 End SubPrivate Sub Command5_Click()answer = MsgBox(是否刪除記錄？, 1 + 48 + 0, 信息提示！) = select * from 按產(chǎn)品名稱查詢 = TrueEnd SubPrivate Sub Form_Load() 0, 0, , End Sub 商品出庫(kù)界面圖 530 商品出庫(kù)界面FORM 13（商品出庫(kù)）Private Sub Command1_Click() = select * from 按出庫(kù)查(商品編號(hào)) = Trim()(商品名稱) = Trim()(商品數(shù)量) = Trim()超市倉(cāng)庫(kù)管理系統(tǒng)41(出庫(kù)日期) = Trim()(備注) = Trim()(職工號(hào)) = Trim()answer = MsgBox(用戶添加成功?。?！, 1 + 48 + 0, 信息提示！)End SubPrivate Sub Command3_Click()Unload 商品出庫(kù) End SubPrivate Sub Command4_Click()answer = MsgBox(是否刪除記錄？, 1 + 48 + 0, 信息提示！) = select * from 按出庫(kù)查 = TrueEnd SubPrivate Sub Command5_Click() = select * from 按出庫(kù)查 where 商品編號(hào) =39。 amp。 = select * from 按出庫(kù)查 where 商品名稱 =39。 amp。 = select * from 按出庫(kù)查 where 商品數(shù)量 =39。 amp。 = select * from 按出庫(kù)查 where 出庫(kù)日期 =39。 amp。 = select * from 按出庫(kù)查 where 備注 =39。 amp。 = select * from 按出庫(kù)查 where 職工號(hào) =39。 amp。Set = Adodc1End SubPrivate Sub Form_Load() 0, 0, , End Sub超市倉(cāng)庫(kù)管理系統(tǒng)42 庫(kù)存查詢界面圖 531 商品庫(kù)存查詢界面FORM 14（庫(kù)存查詢）Private Sub Command4_Click()Unload 庫(kù)存查詢 End SubPrivate Sub Form_Load() 0, 0, , End Sub 數(shù)據(jù)庫(kù)設(shè)計(jì)? 交易視圖(v_Dealing)——用于查詢交易情況的視圖；CREATE VIEW [dbo].v_DealingASSELECT AS Expr1, AS Expr2, , , , , , FROM CROSS JOIN 超市倉(cāng)庫(kù)管理系統(tǒng)43GO? 計(jì)劃進(jìn)貨視圖(v_PlanStock)——用于查詢進(jìn)貨計(jì)劃的視圖；CREATE VIEW [dbo].v_PlanStockASSELECT , , , , , AS Expr1, , AS Expr2, , , , FROM CROSS JOIN CROSS JOIN GO? 銷售視圖(v_Sale)——用于查詢銷售明細(xì)記錄的視圖；CREATE VIEW [dbo].v_SaleASSELECT , , , , , , , , , .[desc], , dbo.[User].UserID, dbo.[User].UserNameFROM CROSS JOIN CROSS JOIN CROSS JOIN dbo.[User]GO? 入庫(kù)視圖(v_Stock)——用于查詢?nèi)霂?kù)情況的視圖。 模塊測(cè)試在模塊測(cè)試時(shí)我們主要從以下幾個(gè)方面考慮：1. 模塊接口；2. 局部數(shù)據(jù)結(jié)構(gòu)；3. 重要執(zhí)行通道；4. 出錯(cuò)處理通道；5. 影響上述方面的邊界條件。改變測(cè)試方案來(lái)變換另一個(gè)角度進(jìn)行測(cè)試，發(fā)現(xiàn)錯(cuò)誤并記錄，修改代碼，測(cè)試條件使程序通過(guò)多層分支，判別運(yùn)行結(jié)果從而完成模塊測(cè)試。在測(cè)試過(guò)程中使用到調(diào)試技術(shù)：1. 采用 debug 調(diào)試語(yǔ)句，跟蹤數(shù)據(jù)；2. 嵌入打印語(yǔ)句，輸出中間結(jié)果；3. 利用 Visual Studio 2022 中調(diào)試工具，從調(diào)試窗口觀測(cè)變量的變化；4. 設(shè)置斷點(diǎn)，觀察程序在斷點(diǎn)附近的狀況。超市倉(cāng)庫(kù)管理系統(tǒng)45第七章 總結(jié)在此次設(shè)計(jì)當(dāng)中認(rèn)我認(rèn)識(shí)到開(kāi)發(fā)一項(xiàng)好的軟件不是某一個(gè)人就能完成的任務(wù)。所以小組中的每個(gè)成員的能力與協(xié)作能力也是致關(guān)重要的。本系統(tǒng)是針對(duì)超市進(jìn)行供銷管理而設(shè)計(jì)的，在這個(gè)系統(tǒng)中，超市進(jìn)銷存管理系統(tǒng)研究的內(nèi)容涉及超市進(jìn)銷存管理的全過(guò)程，包括入庫(kù)、出庫(kù)、退貨、訂貨、超市統(tǒng)計(jì)查詢等等。小組分工：劉珊珊：系統(tǒng)詳細(xì)設(shè)計(jì)、ppt 制作、word 制作李云：代碼設(shè)計(jì)、PPT 演講周翔宇：總體設(shè)計(jì)、ACCESS 表制作錢冬梅：需求分析和可行性分析王樂(lè)葉：SQL 數(shù)據(jù)庫(kù)制作