SQL_小型超市管理系统[1]

MsgBox "此入库 id 编号已存在！", vbOKOnly + vbExclamation, "警告 "
Text1(0).Text = "" Text1(1).Text = "" Text1(2).Text = "" Text1(3).Text = "" Text1(0).SetFocus
mrc.Close Else sql1 = "insert into kucun values('" & Trim(Text1(0).Text) & "','" & Trim(Text1(1).Text) & "','" & Trim(Text1(2).Text) & "','" & Trim(Text1(3).Text) & "')" cnn.Execute (sql1) sql2 = "insert into kucunzhuangtai values('" & Trim(Text1(1).Text) & "','" & Trim(Text1(2).Text) & "')" cnn.Execute (sql2) MsgBox "数据已保存！", vbOKOnly + vbExclamation, "提示" sql1 = "select * from jinhuo where jinhuo.进货 id='" & Trim(Combo1.Text) & "'" Set mrc = cnn.Execute(sql1)
sql1 = "select * from yonghu where 用户名='" & Trim(Text1.Text) & "'" & "and 密码='" & Trim(Text2.Text) & "'"
Set mrc = cnn.Execute(sql1) If mrc.EOF = False Then
三．详细设计和实现 （1） 用户登录
创建用户信息表，存储用户的登录名和密码。创建表如下： create table yonghu/*用户信息表*/.
进入系统后点击“登录”，进入登录界面，填写用户名和密码，点击“登录” 按钮后，检验该用户名在数据库 yonghu 表中是否存在，存在，则赋予该用户操 作系统的权限，否则提示错误。匹配的代码如下：
mrc.Close flag = 1 Unload Me Else MsgBox "密码不正确，请重新输入!", , "Form1" Text1.Text = "" Text2.Text = "" Text1.SetFocus Text1.SelStart = 0 End If 当进入系统时，只有输入的用户名和登录密码都正确时，才允许进入系统进 行查看和操作。 （2） 进货管理 进货管理下有供货商管理和进货商品的管理。可以对供货商的信息进行添加 和删除操作，也可以对进货商品进行相应的添加，修改，删除和查看操作。 在进货表上建立了一更新的存储过程，即 update_jinhuo，用于更新进货表的 信息。代码如下： create procedure jinhuo_update @a char(4),@b char(4), @c float ,@d int,@e char(4),@f datetime as update jinhuo set 商品编号=@b,商品进价=@c, 进货数量=@d,供货商编号=@e,进货日期=@f where 进货 id=@a 另外，在 jinhuo 表上建立了一个名为 jinhuo 的视图，显示进货的详细信息，
代码如下： create view jinhuo_view as select jinhuo.进货 id,jinhuo.商品编号,goodsinform.商品名称,jinhuo.供货商编
号,jinhuo.进货数量,jinhuo.商品进价,jinhuo.进货日期 from jinhuo,goodsinform where jinhuo.商品编号=goodsinform.商品编号 同时，为了显示进货状态，在 jinhuo 表上添加了一新的属性，“入库状态”，
go create trigger ruku_tri on kucun for insert ,update as begin update kucunzhuangtai set 库存数量=库存数量+(select inserted.库存数量 from inserted) where kucunzhuangtai.商品编号 in(select inserted.商品编号 from inserted) end 同时，jinhuo 表中的商品信息“入库状态”改写为“已入库”。 （4） 销售管理 在架商品信息存储于表 xiaoshou 中，如下： Xiaoshou（销售 id，商品编号，数量）记录了商品的销售状态信息。 当商品缺货时，可以查看库存，从库存中提取商品信息，添加到 xiaoshou 表中，同时也可以对销售信息进行修改和删除操作。 在 xiaoshou 表上建立了名为 xiaoshou_update 的存储过程，用于更新 xiaoshou 表中的信息。代码如下： create procedure xiaoshou_update @a char(6),@b char(4),
二．总体设计 （1） 功能模块
主界面
用
进
户
货
登
管
录
理
模
模
块
块
库
销
存
ຫໍສະໝຸດ Baidu
售
管
管
理
理
模
模
块
块
供 添修查 添修删查 添修删查 货 加改看 加改除看 加改除看 商 进进进 入入入库 库库库库 管 货货货 库库库存 存存存存 理 商信信 信信信信 信信信信
品息息 息息息息 息息息息
图 1 系统功能结构图
如图 1 所示，展示了系统的主要功能。系统分为登录模块，进货管理，库 存管理，销售管理四个大的模块。其中进货管理中又可以对供货商进行添加和删 除管理，进货管理，库存管理和销售管理又分别分为添加，修改，删除和查看四 个小的模块。这些模块一起，可以对商品的进货，库存和销售进行较全面的管理。
默认为“未入库”。代码如下： alter table jinhuo add 入库状态 char(6) not null default '未入库' 当商品入库后，状态改为“已入库”。
（3） 库存管理 在该销售商品管理系统中，已进货的商品需要及时入库，这样需要建立 cucun
表，来存储入库的信息，将进货商品入库。库存表如下： kucun 表（入库 id，商品编号，库存数量，入库日期） 当添加入库信息成功后，kucunzhuangtai 表中会增添入库信息。 添加，删除，修改入库商品的代码如下：
If Combo1.List(iCount) = Combo1.Text And Combo1.Text <> "" Then Combo1.RemoveItem iCount End If Next iCount sql1 = "select * from kucun" Set mrc = cnn.Execute(sql1) Do While Not mrc.EOF Text1(0).Text = "" Text1(1).Text = "" Text1(2).Text = "" mrc.MoveNext Loop mrc.Close End If 在 kucun 表上建立有一更新过程，代码如下： create procedure kucun_update @a char(4),@b char(4), @c int,@d datetime as update kucun set 商品编号=@b,库存数量=@c,入库日期=@d where 入库 id=@a 在 kucun 表上建立了一触发器，当添加入库商品时，kucunzhuangtai 表中的 信息更新，代码如下： if exists(select name from sysobjects where name='ruku_tri'and type='TR') drop trigger ruku_tri
cnn.Close MsgBox "数据已更新！", vbOKOnly + vbExclamation, "提示" Else: kucunflag = 2
sql1 = "delete from kucun where 入库 id='" & Trim(Combo1.Text) & "'" Set mrc = cnn.Execute(sql1) MsgBox "数据已删除！", vbOKOnly + vbExclamation, "提示" For iCount = 0 To Combo1.ListCount - 1
华北科技学院
课程设计说明书
班级: 信管 B072 姓名:_娄小云______ 设计题目:____小型超市商品管理系统_________ 设计时间: 2010 年 6 月 28 日至 2010 年 7 月 2 日 指导教师:____郭慧_________________________ 评 语:_________________________________ _________________________________________ _________________________________________ _________________________________________ _________________________________________ 评阅成绩:＿＿ ＿＿评阅教师:＿＿ ＿＿＿
If Not mrc.EOF Then cnn.Execute "exec jinhuo1_update'" & 已入库 & "'"
cnn.Close End If
mrc.Close Text1(1).Text = "" Text1(2).Text = "" Text1(3).Text = "" End If End Sub /*修改和保存入库商品*/ If kucunflag = 1 Then cnn.Execute "exec kucun_update '" & Trim(Combo1.Text) & "','" & Trim(Text1(0).Text) & "','" & Trim(Text1(1).Text) & "','" & Trim(Text1(2).Text) & "'"
Private Sub Command1_Click() sql2 = "select * from kucun where 入库 id='" & Trim(Text1(0).Text) & "'"
Set mrc = cnn.Execute(sql2) If mrc.EOF = False Then
（2） ER 图 系统中涉及到的主要实体：用户，商品，供货商
商品类型
商品名 称
商品编号
商品进价 商品
销售价格
进货
编号 商品编号
供货商
名称
图2
联系方式
用户名
用户密码
姓名
用户
图3 如图 2 所示，商品和供货商是多对多的关系，一个供货商可以提供多种商 品，同一种商品也可由多个供货商提供。
（3） 数据库中的表 该数据库中共建了 7 张表。如下： *用户信息表 yonghu (用户编号，用户名，密码) 用于存储授权可登录系统的用户信息。 *商品基本信息表 goodsinform (商品编号，商品名称，商品类型，商品进价，销售价格)该表用 于存储商品的基本信息。 *供货商表 Gonghuoshang（供货商编号，供货商名，商品编号，联系方式）记录了为超 市提供商品的供货商的基本信息。 *进货信息表 Jinhuo（进货 id，商品编号，商品进价，进货数量，供货商编号，进货日期， 入库状态）记录了进货的相关信息。 *入库信息表 kucun 表（入库 id，商品编号，库存数量，入库日期）记录了入库的基本信 息，存储商品由进货到库存中的周转状态数据。 *库存状态表 Kucunzhuangtai（商品编号，库存数量）记录了商品的库存信息。 *在架销售表 Xiaoshou（销售 id，商品编号，数量）记录了商品的销售状态信息。
系统中在 SQL SERVER 中存有 7 张表，即 goodsinform 表(商品基本信息表， 记录了各种商品的目录)，gonghuoshang 表（供货商表，记录了为超市提供商品 的供货商的基本信息），jinhuo 表（进货信息表，记录了进货的信息），kucun 表 （入库信息表，记录了入库的基本信息），kucunzhuangtai 表(库存状态表，记录 了库存的基本状态信息)，xiaoshou 表（在架销售表，记录了销售中的商品的基 本信息），另外还有一张 yonghu 表(用户表，记录了用户的登录名和密码)。
一．系统概述 所做的是一个小型超市的商品管理系统，主要负责小型超市进货的记录，进
货到库存的周转，库存情况，及销售中的商品的管理。通过该系统，可以较好地 协调库存和在超市货架上销售的商品的数量，使得商品的供求达到平衡。
系统有进货管理，库存管理和销售管理三大部分组成，完成从商品进货，入 库到销售再进货入库的流程。