小型超市系统设计报告

(1,1)
仓库ID（主键）
MerchID
int
商品条形码
Stocknumber
Int
入库数量
StockDate
datetime
入库日期
StockState
Char
4
入库状态
数据库表格
2.4输入、输出设计
主界面
内部界面
登录界面
代码
Private Sub xpbutton1_Click()
On Error GoTo finish
success1 = WritePrivateProfileString("Bakxj", "qs", backFile, "c:\cg.ini")
success2 = WritePrivateProfileString("Bakxj", "yy", Label13.Caption, "c:\cg.ini")
Label13.Caption = buff
If Label13.Caption = "NO" Then
ret1 = GetPrivateProfileString("Bakxj", "yy", "", buff, 256, "c:\cg.ini")
Label13.Caption = buff
MsgBox Label13.Caption
3.提供灵魂、方便的操作
4.节约商品管理的成本，提高商品管理的效率
5.为超市实现整体信息化的其他相关系统提供必要的数据支持
2.2系统功能结构设计
一般的超市商品管理系统，主要由五大模块组成，即商品信息管理模块，人事管理模块，销售管理模块，进货管理模块，库存管理模块，此系统也不例外，主要有此五大模块组成。图4-1系统功能结构图。
End
End If
Else
loginname = cg1.Fields(0)
Unload Me
MDIForm1.Show
End If
Exit Sub
finish:
MsgBox Err.Description
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
1.2业务流程分析
（1）系统的业务流程：小型超市的进销存系统主要包括有销售信息管理，仓库信息管理和采购信息管理三个部分工作内容。其中的中介单位及仓库管理在整个业务流程中起到过度两个信息管理的工作。
销售信息管理的主要过程，销售部门的主要工作是每次销售信息的记录，尤其针对每位销售员下的销售明细记录，同员工的基本信息一一对应，以此作为对销售人员的绩效管理凭证。此外针对收银员则要核对顾客购买信息，及将顾客的购买偏好以及热销产品信息及时登入，经过系统的处理数字化之后，存入数据库，有利于将来采购工作的进行。
小型超市进销存系统设计报告
1小型超市系统分析
1.1需求分析
(1)物流管理方式落后，很难根据销售、库存情况，及时进行配货、补货、退货、调拨。
经过我们的调查发现，小型超市在物流管理方面，仍使用传统的人工管理模式，浪费人力资源，效率低，准确率低。有些商品紧缺，顾客要排队购买或商品供不应求，使顾客大为不满，还有一些商品，长期积压，损坏严重，造成重大经济损失，引起销售人员的极大不满，以多次向超市管理人员反映，但此类问题仍屡屡发生，得不到根本性的解决。
仓库信息管理的主要过程，在销售部门的顾客购买信息基础上，对货架供不应求的产品及时向仓库部门发出领货单，由仓库核对系统信息审核是否需要针对此商品进一步采购，而后针对信息将批准的领货单和未批准的领货单分别交给采购单位和退送回销售部门，同时针对库存量及时登入库存信息账。
采购信息管理的主要过程，这个信息管理过程相对简单，直接根据仓库发出的进货单，进一步交放任务到采购员的手中，在此过程中，注意采购员及员工信息的登入和供应商信息的登入，并把这些信息资料汇总存入数据库便利采购部门日后采购工作的顺利进行。
End If
End Sub
2.5系统运行环境
VB Access SQL serve
3系统特色
系统小巧简便，满足小型超市应用的实际需要。利用大众化的编程软件VB和数据库软件ACCESS，无需特殊的安装环境，就能实现基本功能。
4系统设计的收获或体会
通过设计小型超市管理系统，我们初步理解了超市运行与管理当中面临的困难，进一步的，在代码设计部分，学会了如何实际的应用编程语言，使系统更贴近超市管理的需要。
Private Sub XPButton2_Click()
End
End Sub
Public Sub addtrans(tkFileName As String)
buff = String(255, 0)
backFile = Date + 30
Dim backfila As String
backfila = Date
5小组成员及分工
***
If KeyAscii = 13 Then
Call xpbutton1_Click
End If
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Call xpbutton1_Click
End If
End Sub
Set cg1 = cnn.Execute("select * from用户管理where用户名='" & Text1.Text & "' and密码='" & Text2.Text & "'")
If cg1.EOF = True Then
If pnum < 2 Then
pnum = pnum + 1
8
供应商名称
GysAddress
char
20
供应商地址
GysPhone
vachar
15
供应商电话
供应商(gys)信息表
商品（sp）信息表
字段名
数据类型
长度
描述
SpID
int identity
(1,1)
商品ID（主键）
SpName
varchar
50
商品名称
SpPቤተ መጻሕፍቲ ባይዱice
money
商品价格
BarCode
图（7）
（三）子系统数据图
1、采购子系统如图（8）
图（8）
2、销售子系统如图（9）
图（9）
3、仓库存储子系统图（10）
2小型超市进销存系统设计
2.1系统目标设计
根据系统分析的描述以及与小型超市人员的沟通，实现目标如下：
1.使广大的超市工作者脱离手工劳动，通过计算机使超市货物管理信息化
2.提高小型超市竞争力，保持小型超市持续发展的优势
(2)顾客难与超市互动，使购物效率大大降低。
顾客购物，最想了解的就是商品的价格和质量。而在超市里面，销售人员数量很少，顾客无法询问到商品的优缺点，不能就商品的价格和质量进行对比，这样就降低了顾客的购买欲。还有，很多顾客对超市货物摆放的位置不了解，常常会因为要去找某个商品而耽误大量时间，给顾客购物造成了很大的不便。
MsgBox "用户名或密码错误!", vbInformation, "错误次数：" & pnum
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
Exit Sub
Else
MsgBox "用户名或密码错误超过三次,系统会自动退出", vbInformation, "提示"
success1 = WritePrivateProfileString("Bakxj", "qs", "NO", "c:\cg.ini")
End If
Else
success = WritePrivateProfileString("OKxj", "yesno", "yes", "c:\cg.ini")
varchar
30
条形码
SpNum
int identity
16
库存量
用户（User）信息表
字段名
数据类型
长度
描述
UserID
varchar
10
用户ID（主键）
UserName
varchar
25
用户姓名
UserStyle
Int
用户类型
仓库信息表
字段名
数据类型
长度
描述
StockID
int identity
ElseIf Label13.Caption <= Date Then
ret1 = GetPrivateProfileString("Bakxj", "yy", "", buff, 256, "c:\cg.ini")
Label13.Caption = buff
MsgBox Label13.Caption
将每个管理信息的登入尤其是售卖和采购同员工信息一一对应，有利于超市重点培养优秀员工鼓励员工发展和同采购商建立长久的友好合作关系，同时将这些信息系统化整理记录更方便超市的整体运营。