超市管理系统课程设计

1、题目：小型超市管理系统作者姓名：学号：系（院）、专业：指导教师姓名：2012 年第1章设计目的与要求1.1设计背景和功能错误！未定义书签错误！未定义书签1.2设计环境1第2章系统分析22.1需求分析2组织结构分析 2业务流程分析 22.2数据流图32.3数据字典4第3章系统设计73.1功能模块设计73.2数据库设计 9概念结构设计9逻辑结构设计11第4章系统实施144.1注册及登录14注册功能及代码（图4.1） 一五登录功能代码 116登录界面相关功能与数据库连接的代码 164.2登录后主界面功能及界面及其相关功能代码 16主界面相关功能代码 1174.3商品信息查询界面及其相关功能代码 11

2、8查询商品信息功能代码 一八添加商品功能代码119删除商品信息功能代码20商品信息功能与数据库连接代码 214.4销售记录查询界面及其相关功能代码 21查询已销售商品信息功能代码22添加已销售商品信息功能代码22删除已销售商品信息功能代码23销售商品信息表与数据库连接代码 244.5员工信息查询界面及其相关功能代码 25添加员工信息功能代码25查询员信息功能代码 26删除员工信息功能代码27员工信息查询功能与数据库连接的代码 27第五章数据设计275.1数据库中各数据表的说明 27登陆表功能说明及其创建的 SQL代码（表5.1）.27商品表说明及及其创建的SQL代码（表5.2）.28销售表说明

3、及及其创建的 SQL代码（表5.3）.30职工表说明及及其创建的SQL代码（表5.4）.31第六章经验与体会33参考文献33第1章设计目的与要求1.1设计背景和功能超市管理系统是市场上最流行的超市上常用的系统之一，它主要包含以下几 个模块：用户登陆管理、商品类型及商品的管理、进货和销售的管理、销售分析 等。从而，实现对进货、销售及员工信息等实现全面、动态、及时的管理。随着 超市规模的发展和不断扩大，商品数量急剧增加，有关商品的各种信息量也成倍 增长。超市时时刻刻都需要对商品各种信息进行统计分析。而大型的超市管理系 统功能过于强大而造成操作繁琐降低了小超市的工作效率。小型超市管理系统按分类、分级

4、的模式对仓库进行全面的管理和监控缩短了 超市信息流转时间，使企业的物资管理层次分明、井然有序，为采购、销售提供 依据，智能化的预警功能可以自动提示存货短缺、超储等异常状况；系统还可进 行材料超市ABC分类汇总，减少资金积压。完善的小型超市管理功能，可对企业 的存货进行全面的控制和管理，降低超市成本，增强企业的市场竞争力。1.2设计环境硬件环境：1.一台Pentium 4 cpu以上的计算机软件环境：1.WIND0WS xp操作系统2.Visual Basic6.0 应用程序3.SQL SERVER 2000 应用程序第2章系统分析2.2需求分析组织结构分析小型超市分为销售部，库存管理部，财务部

5、，人事部四个主要部门，超市的决策权和管理权归超市经营者拥有，超市的每个部门的管理都有专职人员负责。小型超市管理系统的组织结构的描述如图2-1所示：图2-1组织结构图组织功能表如图2-2所示:登录界面用户输入正确的用户名和相对应的密码即可进入，否则退出系统维护主要用于实现系统用户设置、操作人员管理、密码修改采购管理主要用于实现采购数据和采购单查询、采购统计单查询库存管理主要用于实现商品出库、入库的添加修改，商品出库、入库的查询销售管理主要用于实现销售数据记录、客户退货记录和销售、退货信息查询其他设置主要用于实现员工管理，供应商的设置，省份的设置，商品的种类报表主要用于实现库存的盘点、销售的信息、

6、供应商信息图2-2组织功能表业务流程分析超市管理系统工作流程为：登录系统后，超市管理员可对系统相关信息进行 操作，包括商品基本信息、供应商信息、销售信息、库存信息、进货信息等过程 进行管理。本系统的业务流程图如图2-3所示:图2-3业务流程图2.3数据流图数据流程图主要反映的是小型超市管理系统中各项功能模块之间的数据流程 和简单的数据处理、加工过程和方法，为系统的设计打下基础。超市管理系统的 数据流程：首先由系统管理员根据不同用户的需要将信息保存到数据库中，然后 再进行发布。用户可以对这些库信息进行查询、添加、修改和删除处理。通过对 本系统的需求分析，系统的基本功能已经确定。整个流程图如图 2

7、-4所示：图2-4数据流图2.4数据字典数据字典是关于数据的信息的集合，也就是对数据流图中包含的所有元素的定义的集合。数据流图和数据字典共同构成系统的逻辑模型。1、数据字典列表数据存储数据名称：管理员信息简 述：用户注册填写的信息数据来源：用户注册填写数据去向：用户信息表数据组成：管理员信息二管理信息唯一标识+管理员帐号+管理员密码+管理员权限+注册时间描述：存储了管理员的基本信息数据存储名称：商品信息简述：管理员填写的商品信息数据来源：管理员填写数据去向：商品信息表数据组成：商品信息=商品信息唯一标识+货物名称+供货编号+进价+售价+数量+厂商等描述：存储了商品信息数据存储名称：库存信息简述

8、：管理员填写的库存信息数据来源:管理员填写数据去向：库存信息表数据组成：库存信息-库存信息唯一标识+商品名称+价格+数量+添加时间+单位+编号等描述：存储了库存信息数据存储名称：销售信息简述：管理员填写的商品销售信息数据来源：管理员填写数据去向：销售信息表数据组成：销售信息=销售信息唯一标识+货物名称+数量+介格+时间等描述：存储了销售详细信息第3章系统设计系统设计的任务就是依据系统分析文档资料，采用正确的方法来确定系统各 功能模块在计算机内应该由哪些程序组成，它们之间用什么方式联结在一起以构 成一个最好的系统机内结构，同时还要使用一定的工具将所设计的成果表达出来， 另外考虑到实现系统功能的需

9、要，还要进行数据库的详细设计、编码设计、输入/输出界面设计等等。3.1功能模块设计根据系统功能分析，可以画出系统的功能模块图，从管理员界面对功能模块图加以描述。如图3-1所示：小型超市管理系统用户管理用户 修 改修改系 统 管 理系 统 维 护基销库础售存信管管息理理系销销销销统售售售售备查添报查份询加表询商供品应信商息信息员 工 信 息(1)系统维护模块库存 查 询图3-1功能模块图进 货 查 询进货管理进货管理进货 报 表供货商管供供应应商商修查改询系统维护模块用于实现对用户的添加、修改、删除以及操作人员管理、密码(2)其他设置其他设置主要用于实现员工的添加、修改、查询以及管理，供应商的设

10、置,省份的设置，商品的种类。3.2数据库设计概念结构设计概念结构设计是整个数据库设计的关键，它能通过对需求进行综合，归纳与抽象，形成一个独立于具体 DBMS的概念模型，既E-R图如图所示：图3-2管理员实体的 E-R图图3-4供应商实体的E-R图图3-5仓库的E-R图类型名称数量日期商品名称数量数量联系网址商品名称单价保质期库存量种类商品名称商品编号编号供货商号C商品编号j-销售一销售表7客户n供应、nn /存放/1供应商商品仓库n图3-6各个实体之间的联系图逻辑结构设计逻辑设计的任务是根据DBMS勺特征把概念结构转换为相应的逻辑结构。概念 设计所得到的E- R模型，是独立于DBMS勺，这里的

11、转换就是把表示概念结构的 E-R图转换成关系模型的逻辑结构。将图转换为规范的关系模式为:密码表（用户名，密码，类型）员工表（员工编号，员工姓名，性别，职务，联系方式，家庭住址）生产厂家表（供应商号，省份，厂名，联系方式，网址）商品表（商品编号，商品名称，种类，单价，单位，净含量，库存量，保质 期，生产时间，生产省份，生产厂家）采购表（供货商号，商品编号，进货日期，商品名称，验收员，进货价，数量，金额）入库表（商品编号，入库时间，商品厂家，数量）销售表（商品编号，客户编号，销售日期，数量，商品名称，业务员，金额）退货表（商品编号，商品名称，生产厂家，退货日期，退货数量，制单人，业务员，金额，客户

12、编号）将各实体内容的数据类型生成数据库如图5.3所示:表3-7密码表字段名字段类型字段宽度说明user nameChar6用户名passwordlChar6密码leixi ngChar6类型表3-8商品表字段名字段类型字段宽度说明spbhChar20商品编号spmcChar20商品名称zlChar10种类dwChar10单位djInt4单价jhlInt4净含量kclInt4库存量bzqInt4保质期scsjDatetime8生产时间scsfChar20生产省份sccjChar50生产厂家表3-9员工表字段名字段类型字段宽度说明ygbhChar6员工编号ygxmChar6员工姓名xbChar6性

13、别zwChar6职务lxfsChar10联系方式jtzzChar20家庭住址表3-10米购表字段名字段类型字段宽度说明spbhChar6商品编号ghshChar6供货商号jhrqMoney4进货日期spmcChar10商品名称ysyChar20验收员jhjInt4进货价slChar4数量jeDatetime8金额表3-11销售表字段名字段类型字段宽度说明spbhChar6商品编号khbhChar6客户编号xsrqDatetime8销售日期xsslInt4销售数量spmcChar10商品名称ywyChar10业务员zdrChar10制单人jeChar6金额表3-12生产厂家表字段名字段类型字段宽

14、度说明ghshChar8供应商号sfChar40省份cmChar50厂名lxfsChar20联系方式wzChar20网址表3-一三入库表字段名字段类型字段宽度说明spbhChar6商品编号rksjDatetime8入库时间spcjChar50商品厂家slInt4数量第四章.系统实施4.1注册及登录该功能可以实现用户的注册和登录*小型超帀后台菅理小型超市管理系统登陆界而用户名密码登录注册功能及代码（图4.1 ）小型超市管理系统登陆界面用户名密码登录注册退出图4.1用户注册注册功能代码Private Sub 注册 _Click（）If Text1.Text = "" Or Te

15、xt2.Text = "" The nMsgBox "用户名和密码不能为空 ",16 + 4,"警告”ElseDim rs As New ADODB.Recordsetstr1 = "select * from 登录表 where 用户名='"& Text1.Text & "”'rs.Open str1, cn, 1, 3rs.AddNewrs（"用户名"）=Text1.Textrs（"密码"）=Text2.Textrs.UpdateMsgBo

16、x "注册成功",64,"信息提示"End IfEnd Sub登录功能代码Private Sub Comma nd1_Click()strsql = "select * from 登录表 where 用户名="'& Textl.Text & ""' & "and密码="'& Text2.Text& "”rs.Ope n strsql, cn, 1,3If rs.EOF ThenMsgBox "用户名或密码错了 &

17、quot;, 32,"警告”ElseForm5.ShowUn load MeEnd IfEnd Sub登录界面相关功能与数据库连接的代码Private Sub Form_Load()cn.Connection Stri ng="Provider=SQLOLEDB.1;l ntegratedSecurity=SSPI;Persist SecurityIn fo=False;I nitial Catalog=cn. Ope n超市管理”End Sub4.2登录后主界面功能及界面及其相关功能代码登录后主界面（图4.2）图4.2登录后主界面422主界面相关功能代码Dim cn As

18、 New ADODB.Co nn ectionDim rs As New ADODB.Recordset 'Dow nl oad by xxcodefa Private Sub Comma nd1_Click() Form2.ShowUn load MeEnd SubPrivate Sub Comma nd2_Click()Form3.ShowUn load MeEnd SubPrivate Sub Comma nd3_Click()Form5.ShowUn load MeEnd SubPrivate Sub Comma nd4_Click()Form4.ShowUn load MeE

19、nd Sub4.3商品信息查询界面及其相关功能代码查询商品信息功能代码Private Sub Comma nd1_Click() strl = "select * from 商品表 where 商品号="'& Textl.Text & ""'If rs.State = 1 Then rs.CloseEnd If rs.Open strl, cn, 1, 3If rs.EOF The nMsgBox "该商品不存在Adodclxma ndType = adCmdTextAdodcI.RecordSource = s

20、trlAdodcl.RefreshElseTextl.Text = rs（"商品号”）Text2.Text = rs（"商品名称"）Text3.Text = rs（"库存量"）Text4.Text = rs（"商品类型"）Text5.Text = rs（"厂商"）Text6.Text = rs（"单价"）End IfEnd Sub添加商品功能代码Private Sub Comma nd2_Click（）strl = "select * from 商品表 where 商品号=&

21、quot;'& Textl.Text & ""'If rs.State = 1 The nrs.CloseEnd Ifrs.Open strl, cn, 1, 3If rs.EOF The nrs.AddNewrs（"商品号"）=Textl.Textrs（"商品名称"）=Text2.Textrs（"库存量"）=Text3.Textrs（"商品类型"）=Text4.Textrs（"厂商"）=Text5.Textrs（"单价"）

22、=Text6.Textrs.UpdateMsgBox "数据添加成功",64,"信息提示”Adodclxma ndType = adCmdTextAdodcI.RecordSource = "select * from 商品表”AdodcI.RefreshTextl.Text =""Text2.Text =""Text3.Text =""Text4.Text =""Text5.Text =""Text6.Text =""ElseMsgB

23、ox "该商品已经存在了 ", 16,"警告”End IfEnd Sub删除商品信息功能代码Private Sub Comma nd4_Click()Dim rs As New ADODB.RecordsetDim rs1 As New ADODB.RecordsetIf rs.State = 1 The nrs.CloseEnd IfIf rs1.State = 1 The nrs1.CloseEnd Ifrs1.Open "select * from 商品表 where 商品号="'& Text1.Text & &q

24、uot;'and 商品名称="'&Text2.Text & "”', cn, 1,3If rs1.EOF The nMsgBox "没有此种商品不能删除！”Elsers.Open "delete 商品表 where 商品号="'& Text1.Text & "' and商品名称="'& Text2.Text &"”,cn, 1,3MsgBox "确定删除吗",32 + 4,"警告"

25、Adodc1xma ndType = adCmdTextAdodc1.RecordSource = "select * from 商品表”Adodc1.RefreshEnd IfText1.Text =""Text2.Text =""Text3.Text =""Text4.Text =""Text5.Text =""Text6.Text =""End Sub商品信息功能与数据库连接代码Private Sub Form_Load()cn .Co nn ectio nS

26、tri ng= "Provider=SQLOLEDB.1;l ntegrated Security=SSPI;Persist SecurityInfo=False;Initial Catalog=超市管理"cn. Ope nEnd Sub4.4销售记录查询界面及其相关功能代码查询已销售商品信息功能代码Private Sub Comma nd1_Click() str1 = "select * from 销售表 where 销售号="'& Textl.Text & ""'If rs.State = 1 T

27、henrs.CloseEnd Ifrs.Open strl, cn, 1, 3If rs.EOF ThenMsgBox "该销售商品不存在”Adodc1xma ndType = adCmdTextAdodc1.RecordSource = str1Adodc1.RefreshElseText1.Text = rs（"销售号”）Text2.Text = rs（"职工号"）Text3.Text = rs（"商品号"）Text4.Text = rs（"销售数量"）Text6.Text = rs（"销售时间&qu

28、ot;）End IfEnd Sub添加已销售商品信息功能代码Private Sub Comma nd2_Click（）str1 = "select * from 销售表 where 销售号="'& Textl.Text & ""'If rs.State = 1 The nrs.CloseEnd Ifrs.Open strl, cn, 1, 3If rs.EOF The nrs.AddNewrs（"销售号"）=Textl.Textrs（"职工号"）=Text2.Textrs（"

29、;商品号"）=Text3.Textrs（"销售数量"）=Text4.Textrs（"销售时间"）=Text6.Textrs.UpdateMsgBox "数据添加成功",64,"信息提示”Adodclxma ndType = adCmdTextAdodcI.RecordSource = "select * from 销售表”AdodcI.RefreshText1.Text =""Text2.Text =""Text3.Text =""Text4.T

30、ext =""Text6.Text =""ElseMsgBox "该种销售商品已经存在了", 16,"警告"End IfEnd Sub删除已销售商品信息功能代码Private Sub Comma nd3_Click()c = MsgBox("您确认要删除该记录吗 ？", 32 + 4,"特别提示")X = If c = vbYes The nstr1 = "select * from 销售表 where 销售号='x" & "&q

31、uot;If rs.State = 1 The nrs.CloseEnd Ifrs.Open strl, cn, 1,3Adodc1xma ndType = adCmdTextAdodc1.RecordSource = "select * from 销售表”Adodc1.RefreshMsgBox "销售商品的所有信息成功删除",64,"信息提示”Adodc1.RefreshText1.Text =""Text2.Text =""Text3.Text =""Text4.Text ="&

32、quot;Text6.Text =""End IfElseMsgBox "当前数据库中已经没有可删除的记录",64,"警告”End IfEnd Sub销售商品信息表与数据库连接代码Private Sub Form_Load()cn .Co nn ectio nStri ng= "Provider=SQLOLEDB.1;l ntegratedSecurity=SSPI;Persist SecurityInfo=False;Initial Catalog=超市管理"cn. Ope nEnd Sub4.5员工信息查询界面及其相关功

33、能代码添加员工信息功能代码Private Sub Comma nd1_Click()strl = "select * from 销售人员表 where 职工号="'& Textl.Text &If rs.State = 1 The nrs.CloseEnd Ifrs.Open str1, cn, 1, 3If rs.EOF The nrs.AddNewrs（"职工号 ”）=Text1.Textrs（"姓名"）=Text2.Textrs（"性别"）=Text3.Textrs（"用户类型&quo

34、t;）=Text4.Textrs.UpdateMsgBox "用户添加成功",64,"信息提示"Adodc1xma ndType = adCmdTextAdodc1.RecordSource = "select * from 销售人员表”AdodcI.RefreshTextl.Text =""Text2.Text =""Text3.Text =""Text4.Text =""ElseMsgBox "该职工已经存在了 ", 16,"警告”

35、End IfEnd Sub查询员信息功能代码Private Sub Comma nd2_Click（）strl = "select * from 销售人员表 where 职工号="'& Textl.Text &milmilIf rs.State = 1 The n rs.CloseEnd Ifrs.Open str1, cn, 1, 3If rs.EOF ThenMsgBox "这个职工不存在”Adodclxma ndType = adCmdTextAdodcI.RecordSource = strlAdodcI.RefreshElseTe

36、xtl.Text = rs（"职工号”）Text2.Text = rs（"姓名"）Text3.Text = rs（"性别"）Text4.Text = rs（"用户类型"）Adodc1xma ndType = adCmdTextAdodc1.RecordSource = str1Adodc1.RefreshEnd IfEnd Sub删除员工信息功能代码Private Sub Comma nd4_Click（）c = MsgBox（"您确认要删除该记录吗 ？", 32 + 4,"特别提示"

37、）X = If c = vbYes The nstr1 = "select * from 销售人员表 where 职工号='x" & “"If rs.State = 1 Thenrs.CloseEnd Ifrs.Open strl, cn, 1,3Adodclxma ndType = adCmdTextAdodcI.RecordSource = "select * from 销售人员表”AdodcI.RefreshMsgBox "职工信息成功删除",64,"信息提示”AdodcI.RefreshTextl.T

38、ext =""Text2.Text ="”Text3.Text =""Text4.Text =""End IfElseMsgBox "当前数据库中已经没有可删除的记录",64,"警告”End IfEnd Sub员工信息查询功能与数据库连接的代码Private Sub Form_Load()cn .Co nn ectio nStri ng= "Provider=SQLOLEDB.1;l ntegratedSecurity=SSPI;Persist SecurityInfo=False;I

39、nitial Catalog=超市管理"cn. Ope nEnd Sub第五章.数据设计5.1数据库中各数据表的说明登陆表功能说明及其创建的 SQL代码（表5.1）用户名：存放用户登录系统的用户名charC 10)char(10)数据类型允许Null值milair hi I用户名riniHii-iiHinni密码密码：存放用户登录系统的密码图5.1登陆表 创建登录表的SQI代码USE 超市管理GOSET ANSI NULLS ONGOSET QUOTED_IDENTIFIER ONGOSET ANSI_PADDING ONGOCREATE TABLE dbo. 登录表(用户名char

40、(10) NOT NULL,密码char(10) NOT NULL)ON PRIMARYGOSET ANSI_PADDING OFFGO商品表说明及及其创建的 SQL代码（表5.2 ）商品号：系统分配给商品的唯一的标示值（主键） 商品名称：用于存放商品的名称的信息单价：用于存放商品的价格的信息商品类型：用于存放商品所属的类型信息库存量：用于存放商品的库存的信息厂商：用于存放商品的生产商家的信息1列名1数据类型允许Niil值IYarchar(SO)商品名称varchar(SO)单价float0商品类型varchar(SO)0库存量char( 10)0厂商varchar(5O)0表5.2商品表创建

41、商品表的SQL代码USE 超市管理GOSET ANSI_NULLS ONGOSET QUOTED IDENTIFIER ONGOSET ANSI_PADDING ONGOCREATE TABLE dbo. 商品表(商品号varchar(50) NOT NULL,商品名称varchar(50) NOT NULL,单价float NULL,商品类型varchar(50) NULL,库存量char(10) NULL,厂商varchar(50) NULL,CONSTRAINT PK_ 商品表PRIMARY KEY CLUSTERED(商品号ASC)WITH (PADNDEX = OFF, STATIS

42、TICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY=OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON PRIMARY)ON PRIMARYGOSET ANSI_PADDING OFFGO销售表说明及及其创建的 SQL代码(表5.3)销售号：系统分配给所销售商品的唯一编号职工号：存放销售该商品的职工编号销售数量：存放销售商品的数量销售时间：存放销售该商品的时间列名数据类型允许Ndl值varchar(50)职工号varchar(50)商品寻varchar(5O)销售数星float梢售时间datetime表5.3销售表创建销售表的SQL代码USE 超市管理GOSET ANSI_NULLS ONGOSET QUOTED_