【正文】 nload Form2 End Sub Private Sub Command10_Click() Unload Form2 庫(kù)存查詢 .Show End Sub Private Sub Command2_Click() Unload Form2 End Sub 超市倉(cāng)庫(kù)管理系統(tǒng) 32 Private Sub Command3_Click() Unload Form2 End Sub Private Sub Command4_Click() End End Sub Private Sub Command7_Click() Unload Form2 報(bào)表統(tǒng)計(jì) .Show End Sub Private Sub Command8_Click() Unload Form2 商品錄入 .Show End Sub Private Sub Command9_Click() Unload Form2 商品出庫(kù) .Show End Sub Private Sub MDIFrom_Paint() , 0, 0, , End Sub Private Sub Form_Load() 0, 0, , End Sub 超市倉(cāng)庫(kù)管理系統(tǒng) 33 圖 521 用戶 查詢 界面 FORM 3（歡迎進(jìn)入查詢界面） 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, , 超市倉(cāng)庫(kù)管理系統(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 超市倉(cāng)庫(kù)管理系統(tǒng) 35 圖 523 產(chǎn)品編號(hào)查詢 界面 FORM 5（按產(chǎn)品編號(hào)查詢） Private Sub Command1_Click() Unload Form5 End Sub Private Sub Command2_Click() = select * from 按產(chǎn)品名稱查詢 where 商品編號(hào) =39。 amp。 Set = Adodc1 End Sub Private Sub Form_Load() 0, 0, , End Sub 超市倉(cāng)庫(kù)管理系統(tǒng) 36 圖 524 入庫(kù)商品查詢 界面 FORM 6（入庫(kù)產(chǎn)品查詢） Private Sub Command1_Click() Unload Form6 End Sub Private Sub Form_Load() 0, 0, , End Sub 圖 525 商品出庫(kù)查詢 界面 FORM 7（商品出庫(kù)查詢） Private Sub Command1_Click() 超市倉(cāng)庫(kù)管理系統(tǒng) 37 Unload Form7 End Sub Private Sub Form_Load() 0, 0, , End Sub 圖 526 過(guò)期商品查詢 界面 FORM 8（過(guò)期商品查詢） Private Sub Command4_Click() Unload Form8 End Sub Private Sub Form_Load() 0, 0, , End Sub 超市倉(cāng)庫(kù)管理系統(tǒng) 38 圖527 缺貨查詢 界面 FORM 9（缺貨查詢） Private Sub Command4_Click() Unload Form9 End Sub Private Sub Form_Load() 0, 0, , End Sub 圖528 報(bào)表統(tǒng)計(jì) 界面 FORM 10（報(bào)表統(tǒng)計(jì)） 超市倉(cāng)庫(kù)管理系統(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)品名稱查詢 (商品 編號(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) 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 商品出庫(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 Sub Private Sub Command3_Click() Unload 商品出庫(kù) End Sub Private Sub Command4_Click() answer = MsgBox(是否刪除記錄？ , 1 + 48 + 0, 信息提示！ ) = select * from 按出庫(kù)查 = True End Sub Private 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 = Adodc1 End Sub Private Sub Form_Load() 0, 0, , End Sub 超市倉(cāng)庫(kù)管理系統(tǒng) 42 圖 531 商品庫(kù)存查詢 界面 FORM 14（庫(kù)存查詢） Private Sub Command4_Click() Unload 庫(kù)存查詢 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 超市倉(cāng)庫(kù)管理系統(tǒng) 43 GO ? 計(jì)劃進(jìn)貨視圖 (v_PlanStock)—— 用于查詢進(jìn)貨計(jì)劃的視圖； 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 ? 入庫(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 2020 中調(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ù)制作