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