【正文】 ................... 45 超市倉(cāng)庫(kù)管理系統(tǒng) 4 第一章 緒論 超市背景 在我國(guó)超市形成在 20 世紀(jì) 90 年代初期，現(xiàn)在已經(jīng)成為我國(guó)零售業(yè)的一種重要形態(tài)，為國(guó)民經(jīng)濟(jì)的發(fā)展發(fā)揮了重要的作用。 超市倉(cāng)庫(kù)管理系統(tǒng) 5 第 二 章 系統(tǒng) 需求分析 功能需求 本設(shè)計(jì)要實(shí)現(xiàn)的是倉(cāng)庫(kù)管理系統(tǒng)，在設(shè)計(jì)該系統(tǒng)時(shí)，應(yīng)盡可能便于用戶管理和操作。 2. 3 系統(tǒng)需求 現(xiàn)在的普通計(jì)算機(jī)已經(jīng)完全能夠滿足本系統(tǒng)運(yùn)行時(shí)的性能要求，因此普通的計(jì)算機(jī)就可以達(dá)到系統(tǒng)需求的要求。 另外實(shí)施該系統(tǒng)也能給公司帶來(lái)長(zhǎng)期效益，它可幫助領(lǐng)導(dǎo)實(shí)現(xiàn)管理方法的現(xiàn)代化、科學(xué)化，極大地提高超市的工作質(zhì)量與工作效率，減少管理支出的費(fèi)用，從而保證超市管理的可持續(xù)的良好發(fā)展。 (2)分層的模塊化程序設(shè)計(jì)思想，整個(gè)系統(tǒng)采用模塊化結(jié)構(gòu)設(shè)計(jì)。每個(gè)模塊的功能如下： 超市信息管理 進(jìn)貨管理 銷售管理 人事管理 庫(kù)存管理 進(jìn)貨信息查詢 維護(hù)進(jìn)貨信息 銷售信息查詢 銷售信息維護(hù) 銷售信息更新 職工信息管理 供貨商信息管理 庫(kù)存信息查詢 庫(kù)存信息更新 超市倉(cāng)庫(kù)管理系統(tǒng) 15 進(jìn)貨管理模塊 功能：該模塊主要是實(shí)現(xiàn)進(jìn)行進(jìn)貨信息查詢功能。 供貨商信息管理：該模塊用來(lái)管理供貨商發(fā)貨時(shí)間、聯(lián)系方式等信息。在登錄模塊中，對(duì)系統(tǒng)的嘗試登錄次數(shù)進(jìn)行了限制，禁止用戶無(wú)終止的進(jìn)行系統(tǒng)登錄嘗試，在本系統(tǒng)中，當(dāng)用戶對(duì)系統(tǒng)的三次登錄失敗后，系統(tǒng)將自動(dòng)機(jī)制登錄，突出登錄模塊。 銷售信息盤(pán)點(diǎn)：可以按照需要對(duì)在一定時(shí)期內(nèi)的銷售情況進(jìn)行盤(pán)點(diǎn)。 輸入項(xiàng)、輸出項(xiàng)：本模塊的數(shù)據(jù)輸入項(xiàng)主要是商品編號(hào)?；竟δ芸蓪?shí)現(xiàn)用戶密碼登陸，商品簡(jiǎn)單查詢，簡(jiǎn)單查詢中包含“名稱查詢”“商品編號(hào)查詢”“出、入庫(kù)查詢”等。 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。 = select * from 按出庫(kù)查 where 商品名稱 =39。 = select * from 按出庫(kù)查 where 出庫(kù)日期 =39。 = select * from 按出庫(kù)查 where 職工號(hào) =39。改變測(cè)試方案來(lái)變換另一個(gè)角度進(jìn)行測(cè)試，發(fā)現(xiàn)錯(cuò)誤并記錄，修改代碼，測(cè)試條件使程序通過(guò)多層分支，判別運(yùn)行結(jié)果從而完成模塊 測(cè)試。 本系統(tǒng)是針對(duì)超市進(jìn)行供銷管理而設(shè)計(jì)的，在這個(gè)系統(tǒng)中，超市進(jìn)銷存管理系統(tǒng)研究的內(nèi)容涉及超市進(jìn)銷存管理的全過(guò)程，包括入庫(kù)、出庫(kù)、退貨 、訂貨、超市統(tǒng)計(jì)查詢等等。 超市倉(cāng)庫(kù)管理系統(tǒng) 45 第 七 章 總結(jié) 在此次設(shè)計(jì)當(dāng)中認(rèn)我認(rèn)識(shí)到開(kāi)發(fā)一項(xiàng)好的軟件不是某一個(gè)人就能完成的任務(wù)。 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ù)情況的視圖。 = select * from 按出庫(kù)查 where 備注 =39。 = select * from 按出庫(kù)查 where 商品數(shù)量 =39。 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。 圖 519 用戶登入界面 FORM 1（用戶登入） Private Sub Command1_Click() If = 456 And = 123 Then Unload 用戶登入 Else 超市倉(cāng)庫(kù)管理系統(tǒng) 31 answer = MsgBox(你輸入的密碼和用戶名不符，請(qǐng)重新輸入！ , vbOKOnly, 信息提示！ ) End If End Sub Private Sub MDIFrom_Paint() , 0, 0, , End Sub Private Sub Form_Load() 0, 0, , End Sub 圖 520 用戶 管理 界面 Form2 (歡迎使用超市倉(cāng)庫(kù)管理系統(tǒng) ) Private Sub Command1_Click() Unload 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 Command