【正文】 本系統(tǒng)是針對超市進行供銷管理而設(shè)計的，在這個系統(tǒng)中，超市進銷存管理系統(tǒng)研究的內(nèi)容涉及超市進銷存管理的全過程，包括入庫、出庫、退貨 、訂貨、超市統(tǒng)計查詢等等。 超市倉庫管理系統(tǒng) 45 第 七 章 總結(jié) 在此次設(shè)計當中認我認識到開發(fā)一項好的軟件不是某一個人就能完成的任務。改變測試方案來變換另一個角度進行測試，發(fā)現(xiàn)錯誤并記錄，修改代碼，測試條件使程序通過多層分支，判別運行結(jié)果從而完成模塊 測試。 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)—— 用于查詢銷售明細記錄的視圖； 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的視圖。 = select * from 按出庫查 where 職工號 =39。 = select * from 按出庫查 where 備注 =39。 = select * from 按出庫查 where 出庫日期 =39。 = select * from 按出庫查 where 商品數(shù)量 =39。 = select * from 按出庫查 where 商品名稱 =39。 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。 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。 圖 519 用戶登入界面 FORM 1（用戶登入） Private Sub Command1_Click() If = 456 And = 123 Then Unload 用戶登入 Else 超市倉庫管理系統(tǒng) 31 answer = MsgBox(你輸入的密碼和用戶名不符，請重新輸入！ , vbOKOnly, 信息提示！ ) End If End Sub Private Sub MDIFrom_Paint() , 0, 0, , End Sub Private Sub Form_Load() 0, 0, , End Sub 圖 520 用戶 管理 界面 Form2 (歡迎使用超市倉庫管理系統(tǒng) ) Private Sub Command1_Click() Unload 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。基本功能可實現(xiàn)用戶密碼登陸，商品簡單查詢，簡單查詢中包含“名稱查詢”“商品編號查詢”“出、入庫