1、小型超市進銷存系統(tǒng)設(shè)計報告1 小型超市系統(tǒng)分析1.1需求分析(1)物流管理方式落后，很難根據(jù)銷售、庫存情況，及時進行配貨、補貨、退貨、調(diào)撥。經(jīng)過我們的調(diào)查發(fā)現(xiàn)，小型超市在物流管理方面，仍使用傳統(tǒng)的人工管理模式，浪費人力資源，效率低，準確率低。有些商品緊缺，顧客要排隊購買或商品供不應(yīng)求，使顧客大為不滿，還有一些商品，長期積壓，損壞嚴重，造成重大經(jīng)濟損失，引起銷售人員的極大不滿，以多次向超市管理人員反映，但此類問題仍屢屢發(fā)生，得不到根本性的解決。(2)顧客難與超市互動，使購物效率大大降低。顧客購物，最想了解的就是商品的價格和質(zhì)量。而在超市里面，銷售人員數(shù)量很少，顧客無法詢問到商品的優(yōu)缺點，不能就商

2、品的價格和質(zhì)量進行對比，這樣就降低了顧客的購買欲。還有，很多顧客對超市貨物擺放的位置不了解，常常會因為要去找某個商品而耽誤大量時間，給顧客購物造成了很大的不便。1.2業(yè)務(wù)流程分析（1）系統(tǒng)的業(yè)務(wù)流程：小型超市的進銷存系統(tǒng)主要包括有銷售信息管理，倉庫信息管理和采購信息管理三個部分工作內(nèi)容。其中的中介單位及倉庫管理在整個業(yè)務(wù)流程中起到過度兩個信息管理的工作。銷售信息管理的主要過程，銷售部門的主要工作是每次銷售信息的記錄，尤其針對每位銷售員下的銷售明細記錄，同員工的基本信息一一對應(yīng)，以此作為對銷售人員的績效管理憑證。此外針對收銀員則要核對顧客購買信息，及將顧客的購買偏好以及熱銷產(chǎn)品信息及時登入，經(jīng)過

3、系統(tǒng)的處理數(shù)字化之后，存入數(shù)據(jù)庫，有利于將來采購工作的進行。倉庫信息管理的主要過程，在銷售部門的顧客購買信息基礎(chǔ)上，對貨架供不應(yīng)求的產(chǎn)品及時向倉庫部門發(fā)出領(lǐng)貨單，由倉庫核對系統(tǒng)信息審核是否需要針對此商品進一步采購，而后針對信息將批準的領(lǐng)貨單和未批準的領(lǐng)貨單分別交給采購單位和退送回銷售部門，同時針對庫存量及時登入庫存信息賬。采購信息管理的主要過程，這個信息管理過程相對簡單，直接根據(jù)倉庫發(fā)出的進貨單，進一步交放任務(wù)到采購員的手中，在此過程中，注意采購員及員工信息的登入和供應(yīng)商信息的登入，并把這些信息資料匯總存入數(shù)據(jù)庫便利采購部門日后采購工作的順利進行。超市主要業(yè)務(wù)流程圖如下：圖例示意：表示業(yè)務(wù)處理

4、單位表示表單箭頭表示信息傳遞 （2）業(yè)務(wù)流程分析，本系統(tǒng)對整個業(yè)務(wù)流程的幫助特點如下：將采購和倉庫管理信息分開，便于數(shù)據(jù)的整合，可以在整個業(yè)務(wù)流程過程中針對需要的信息正確的登入，為超市的整體運作順暢以及以后的信息數(shù)據(jù)發(fā)展奠下基礎(chǔ)。 銷售部門管理信息細化，分別于其他小超市的銷售一體化，將財務(wù)類的收銀信息分出，作為銷售部門的一個重要分支，整體將銷售部門人力資源細化分配和信息管理細化分配做好，使信息管理的過程更加順暢有層次。將每個管理信息的登入尤其是售賣和采購?fù)瑔T工信息一一對應(yīng)，有利于超市重點培養(yǎng)優(yōu)秀員工鼓勵員工發(fā)展和同采購商建立長久的友好合作關(guān)系，同時將這些信息系統(tǒng)化整理記錄更方便超市的整體運營。

5、1.3數(shù)據(jù)流程分析圖例示意：表示外部實體名稱表示處理邏輯和均表示數(shù)據(jù)儲存表示數(shù)據(jù)流名（一）頂層數(shù)據(jù)流程圖（6）圖（6）（二）第一層數(shù)據(jù)流程圖（7）圖（7）（三）子系統(tǒng)數(shù)據(jù)圖1、采購子系統(tǒng)如圖（8）圖（8）2、銷售子系統(tǒng)如圖（9）圖（9）3、倉庫存儲子系統(tǒng)圖（10）2 小型超市進銷存系統(tǒng)設(shè)計2.1 系統(tǒng)目標設(shè)計根據(jù)系統(tǒng)分析的描述以及與小型超市人員的溝通，實現(xiàn)目標如下：1.使廣大的超市工作者脫離手工勞動，通過計算機使超市貨物管理信息化 2.提高小型超市競爭力，保持小型超市持續(xù)發(fā)展的優(yōu)勢 3.提供靈魂、方便的操作 4.節(jié)約商品管理的成本，提高商品管理的效率 5.為超市實現(xiàn)整體信息化的其他相關(guān)系統(tǒng)提供

6、必要的數(shù)據(jù)支持 2.2 系統(tǒng)功能結(jié)構(gòu)設(shè)計一般的超市商品管理系統(tǒng)，主要由五大模塊組成，即商品信息管理模塊，人事管理模塊，銷售管理模塊，進貨管理模塊，庫存管理模塊，此系統(tǒng)也不例外，主要有此五大模塊組成。圖4-1系統(tǒng)功能結(jié)構(gòu)圖。 2.3數(shù)據(jù)庫設(shè)計交易（jy）信息表字段名 數(shù)據(jù)類型 長度 描述 DealingID int (1,1) 交易ID（主鍵） DealingDate int 20 交易日期 DealingPrice int 20 交易金額 UserName char 25 用戶名 字段名數(shù)據(jù)類型長度說明描述GysID char8主鍵供應(yīng)商編號GysName char8供應(yīng)商名稱GysAddre

7、ss char20供應(yīng)商地址GysPhone vachar15供應(yīng)商電話 供應(yīng)商(gys)信息表商品（sp）信息表字段名 數(shù)據(jù)類型 長度 描述 SpID int identity (1,1) 商品ID（主鍵） SpName varchar 50 商品名稱 SpPrice money 商品價格 BarCode varchar 30 條形碼 SpNum int identity 16 庫存量 用戶（User）信息表字段名 數(shù)據(jù)類型 長度 描述 UserID varchar 10 用戶ID（主鍵） UserName varchar 25 用戶姓名 UserStyle Int 用戶類型 倉庫信息表字段

8、名 數(shù)據(jù)類型 長度 描述 StockID int identity (1,1) 倉庫ID（主鍵） MerchID int 商品條形碼 Stocknumber Int 入庫數(shù)量 StockDate datetime 入庫日期 StockState Char 4 入庫狀態(tài) 數(shù)據(jù)庫表格2.4 輸入、輸出設(shè)計主界面內(nèi)部界面登錄界面代碼Private Sub xpbutton1_Click()On Error GoTo finishSet cg1 = cnn.Execute(select * from 用戶管理 where 用戶名= & Text1.Text & and 密碼= & Text2.Text

9、 & )If cg1.EOF = True Then If pnum 2 Then pnum = pnum + 1 MsgBox 用戶名或密碼錯誤!, vbInformation, 錯誤次數(shù)： & pnum Text1.Text = Text2.Text = Text1.SetFocus Exit Sub Else MsgBox 用戶名或密碼錯誤超過三次,系統(tǒng)會自動退出, vbInformation, 提示 End End IfElse loginname = cg1.Fields(0) Unload Me MDIForm1.ShowEnd IfExit Subfinish: MsgBox E

10、rr.DescriptionEnd SubPrivate Sub Text2_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenCall xpbutton1_ClickEnd IfEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenCall xpbutton1_ClickEnd IfEnd SubPrivate Sub XPButton2_Click()EndEnd SubPublic Sub addtrans(tkFileName As Stri

11、ng)buff = String(255, 0)backFile = Date + 30Dim backfila As Stringbackfila = DateDim backfilb As Dateret = GetPrivateProfileString(OKxj, yesno, , buff, 256, c:cg.ini)If ret 0 Thenret1 = GetPrivateProfileString(Bakxj, qs, , buff, 256, c:cg.ini)Label13.Caption = buffIf Label13.Caption = NO Then ret1 =

12、 GetPrivateProfileString(Bakxj, yy, , buff, 256, c:cg.ini) Label13.Caption = buff MsgBox Label13.CaptionElseIf Label13.Caption = Date Then ret1 = GetPrivateProfileString(Bakxj, yy, , buff, 256, c:cg.ini) Label13.Caption = buff MsgBox Label13.Caption success1 = WritePrivateProfileString(Bakxj, qs, NO, c:cg.ini)End IfElsesuccess = WritePrivateProfileString(OKxj, yesno, yes, c:cg.ini)success1 = WritePrivateProfileString(Bakxj, qs, backFile, c:cg.ini)success2 = WritePrivateProfileString(Bakxj, yy, Label13.Caption, c:cg.ini)End IfEnd Su