小型超市系统设计报告

.小型超市进销存系统设计报告1 小型超市系统分析1.1需求分析(1)物流管理方式落后，很难根据销售、库存情况，及时进行配货、补货、退货、调拨。经过我们的调查发现，小型超市在物流管理方面，仍使用传统的人工管理模式，浪费人力资源，效率低，准确率低。有些商品紧缺，顾客要排队购买或商品供不应求，使顾客大为不满，还有一些商品，长期积压，损坏严重，造成重大经济损失，引起销售人员的极大不满，以多次向超市管理人员反映，但此类问题仍屡屡发生，得不到根本性的解决。(2)顾客难与超市互动，使购物效率大大降低。顾客购物，最想了解的就是商品的价格和质量。而在超市里面，销售人员数量很少，顾客无法询问到商品的优缺点，不能就商品的价格和质量进行对比，这样就降低了顾客的购买欲。还有，很多顾客对超市货物摆放的位置不了解，常常会因为要去找某个商品而耽误大量时间，给顾客购物造成了很大的不便。1.2业务流程分析（1）系统的业务流程：小型超市的进销存系统主要包括有销售信息管理，仓库信息管理和采购信息管理三个部分工作内容。其中的中介单位及仓库管理在整个业务流程中起到过度两个信息管理的工作。销售信息管理的主要过程，销售部门的主要工作是每次销售信息的记录，尤其针对每位销售员下的销售明细记录，同员工的基本信息一一对应，以此作为对销售人员的绩效管理凭证。此外针对收银员则要核对顾客购买信息，及将顾客的购买偏好以及热销产品信息及时登入，经过系统的处理数字化之后，存入数据库，有利于将来采购工作的进行。仓库信息管理的主要过程，在销售部门的顾客购买信息基础上，对货架供不应求的产品及时向仓库部门发出领货单，由仓库核对系统信息审核是否需要针对此商品进一步采购，而后针对信息将批准的领货单和未批准的领货单分别交给采购单位和退送回销售部门，同时针对库存量及时登入库存信息账。采购信息管理的主要过程，这个信息管理过程相对简单，直接根据仓库发出的进货单，进一步交放任务到采购员的手中，在此过程中，注意采购员及员工信息的登入和供应商信息的登入，并把这些信息资料汇总存入数据库便利采购部门日后采购工作的顺利进行。超市主要业务流程图如下：图例示意：表示业务处理单位表示表单箭头表示信息传递 （2）业务流程分析，本系统对整个业务流程的帮助特点如下：将采购和仓库管理信息分开，便于数据的整合，可以在整个业务流程过程中针对需要的信息正确的登入，为超市的整体运作顺畅以及以后的信息数据发展奠下基础。 销售部门管理信息细化，分别于其他小超市的销售一体化，将财务类的收银信息分出，作为销售部门的一个重要分支，整体将销售部门人力资源细化分配和信息管理细化分配做好，使信息管理的过程更加顺畅有层次。将每个管理信息的登入尤其是售卖和采购同员工信息一一对应，有利于超市重点培养优秀员工鼓励员工发展和同采购商建立长久的友好合作关系，同时将这些信息系统化整理记录更方便超市的整体运营。1.3数据流程分析图例示意：表示外部实体名称表示处理逻辑和均表示数据储存表示数据流名（一）顶层数据流程图（6）图（6）（二）第一层数据流程图（7）图（7）（三）子系统数据图1、采购子系统如图（8）图（8）2、销售子系统如图（9）图（9）3、仓库存储子系统图（10）2 小型超市进销存系统设计2.1 系统目标设计根据系统分析的描述以及与小型超市人员的沟通，实现目标如下：1.使广大的超市工作者脱离手工劳动，通过计算机使超市货物管理信息化 2.提高小型超市竞争力，保持小型超市持续发展的优势 3.提供灵魂、方便的操作 4.节约商品管理的成本，提高商品管理的效率 5.为超市实现整体信息化的其他相关系统提供必要的数据支持 2.2 系统功能结构设计一般的超市商品管理系统，主要由五大模块组成，即商品信息管理模块，人事管理模块，销售管理模块，进货管理模块，库存管理模块，此系统也不例外，主要有此五大模块组成。图4-1系统功能结构图。 2.3数据库设计交易（jy）信息表字段名 数据类型 长度 描述 DealingID int (1,1) 交易ID（主键） DealingDate int 20 交易日期 DealingPrice int 20 交易金额 UserName char 25 用户名 字段名数据类型长度说明描述GysID char8主键供应商编号GysName char8供应商名称GysAddress char20供应商地址GysPhone vachar15供应商电话 供应商(gys)信息表商品（sp）信息表字段名 数据类型 长度 描述 SpID int identity (1,1) 商品ID（主键） SpName varchar 50 商品名称 SpPrice money 商品价格 BarCode varchar 30 条形码 SpNum int identity 16 库存量 用户（User）信息表字段名 数据类型 长度 描述 UserID varchar 10 用户ID（主键） UserName varchar 25 用户姓名 UserStyle Int 用户类型 仓库信息表字段名 数据类型 长度 描述 StockID int identity (1,1) 仓库ID（主键） MerchID int 商品条形码 Stocknumber Int 入库数量 StockDate datetime 入库日期 StockState Char 4 入库状态 数据库表格2.4 输入、输出设计主界面内部界面登录界面代码Private Sub xpbutton1_Click()On Error GoTo finishSet cg1 = cnn.Execute(select * from 用户管理 where 用户名= & Text1.Text & and 密码= & Text2.Text & )If cg1.EOF = True Then If pnum 2 Then pnum = pnum + 1 MsgBox 用户名或密码错误!, vbInformation, 错误次数： & pnum Text1.Text = Text2.Text = Text1.SetFocus Exit Sub Else MsgBox 用户名或密码错误超过三次,系统会自动退出, vbInformation, 提示 End End IfElse loginname = cg1.Fields(0) Unload Me MDIForm1.ShowEnd IfExit Subfinish: MsgBox Err.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 String)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 = 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