小型自选商场综合管理系统数据库设计

1、课程设计报告课程设计题目：小型自选商场综合管理系统数据库设计 专 业：班 级：姓 名：学 号: 指导教师: 年 月 日一、实验题目：小型自选商场综合管理系统数据库设计。二、实验课时：课外2课时。三、实验目的：1能够正确运用数据库技术课程的基本理论和知识，结合一个管理信息系统中的模拟课题，复习、巩固、提高数据库方案设计、论证和分析方法。2熟悉关系数据库规范化设计理论，根据实验要求设计并建立科学合理的数据库，正确建立数据库中表与表之间的关系。3进一步正确理解数据库设计思路，培养分析问题、解决问题的能力，提高查询资料和撰写书面文件的能力。四、实验内容和要求 ： 系统描述小型自选商场综合管理系统应具备

2、进货、销售、库存等基本管理功能，具体要求如下：（1）能记录每一笔进货，查询商品的进货记录，并能按月进行统计。（2）能记录每一笔售货，查询商品的销售情况，并能进行日盘存、月盘存。（3）能按月统计某个员工的销售业绩。（4）在记录进货及售货的同时，必须动态刷新库存。（5）能打印库存清单，查询某种商品的库存情况。（6）能查询某个厂商或供应商的信息。（7）能查询某个员工的基本信息。（8）收银台操作中，能根据输入的商品编号、数量，显示某顾客所购商品的清单，并显示收付款情况。五、数据库E-R图供应商号 供应商名 供应商地址 供应商地址 供应商 员工号 员工电话 提供 提供 商品号 进货数量 商品号 商品名称

3、 进货单价 员工 卖出 商品 记录 进货 库存数量 入库状态 单价 库存数量 进货日期 供应商号 员工地址 进行 记录 供应商号 销售 商品号 销售日期 销售数量 库存数量 员工号六、程序截图及代码1.程序截图2.sql数据库代码use master goif exists(select * from sysdatabases where name=小型自选商场综合管理系统) /*删除在master中已存*/ /*在的名为酒店管理系统的数据库*/drop database 小型自选商场综合管理系统go-酒店管理系统的建立-create database 小型自选商场综合管理系统on prima

4、ry /*设定系统主文件*/(name=小型自选商场综合管理系统_data,filename=d:小型自选商场综合管理系统.mdf,size=10,maxsize=50,filegrowth=5)log on /*创建事务日志文件*/(name=小型自选商场综合管理系统_log,filename=d:小型自选商场综合管理系统.ldf,size=5,maxsize=25,filegrowth=5)gouse 小型自选商场综合管理系统if exists(select * from sysobjects where name=商品) drop table 商品go/*商品信息表*/ CREATE T

5、ABLE 商品 /*创建商品信息表*/(商品号 CHAR(8)PRIMARY KEY,商品名称 CHAR(10)NOT NULL,单价 money NOT NULL,库存数量 int not null,供应商号 CHAR(8)go-插入商品数据-INSERT INTO 商品 VALUES(1001,益达口香糖,5,50,c1)INSERT INTO 商品 VALUES(1002,可口可乐,6,50,c2)INSERT INTO 商品 VALUES(1003,餐巾纸,5,50,c3)INSERT INTO 商品 VALUES(1004,口杯,8,50,c4)INSERT INTO 商品 VALU

6、ES(1005,黑人牙膏,12,50,c5)-if exists(select * from sysobjects where name=员工)drop table 员工goprint drop table 员工print create table 员工go/*员工信息表*/ CREATE TABLE 员工 /*创建员工信息表*/(员工号 CHAR(8) PRIMARY KEY,员工姓名 CHAR(8)NOT NULL,员工电话 CHAR(8) NOT NULL) go-插入员工数据-INSERT INTO 员工 VALUES(101,赵一,12345)INSERT INTO 员工 VALUE

7、S(102,王二,23456)INSERT INTO 员工 VALUES(103,张三,34567)INSERT INTO 员工 VALUES(104,李四,45678)INSERT INTO 员工 VALUES(105,王五,56789)-if exists(select * from sysobjects where name=供应商)drop table 供应商goprint drop table 供应商print create table 供应商goCREATE TABLE 供应商 /*创建供应商信息表*/(供应商号 CHAR(8), 供应商名 CHAR(8), 供应商地址 char(

8、10), 供应商电话 char(12)go-插入供应商信息数据-INSERT INTO 供应商 VALUES(s101,一,一路,1234)INSERT INTO 供应商 VALUES(s102,二,二路,2345)INSERT INTO 供应商 VALUES(s103,三,三路,3456)INSERT INTO 供应商 VALUES(s104,四,四路,5678)goif exists(select * from sysobjects where name=销售)drop table 销售goprint drop table 销售print create table 销售goCREATE T

9、ABLE 销售 /*创建销售信息表*/(商品号 CHAR(8), 销售数量 int, 库存数量 int, 销售日期 datetime, 员工号 char(8)go-插入销售信息数据-INSERT INTO 销售 VALUES(1001,4,10,2012-01-02,101)INSERT INTO 销售 VALUES(1002,5,20,2012-01-03,102)INSERT INTO 销售 VALUES(1003,6,30,2012-01-04,103)INSERT INTO 销售 VALUES(1004,7,20,2012-01-05,104)goif exists(select *

10、from sysobjects where name=进货)drop table 进货goprint drop table 进货print create table 进货goCREATE TABLE 进货 /*创建进货信息表*/(商品号 CHAR(8), 进货数量 int, 库存数量 int, 进货单价 money, 进货日期 datetime, 入库状态 char(2), 供应商号 char(8)go-插入进货信息数据-INSERT INTO 进货 VALUES(1001,4,10,3,2012-01-02,是,s101)INSERT INTO 进货 VALUES(1002,5,20,4,2

11、012-01-03,是,s102)INSERT INTO 进货 VALUES(1003,6,30,5,2012-01-04,是,s103)INSERT INTO 进货 VALUES(1004,7,20,6,2012-01-05,否,s104)goCREATE UNIQUE INDEX UKF ON 商品(商品号,单价) goCREATE UNIQUE INDEX UKH ON 员工(员工号,员工电话) goCREATE UNIQUE INDEX URZ ON 供应商(供应商号,供应商电话)goCREATE UNIQUE INDEX URZ ON 销售(商品号,销售数量)goCREATE UNI

12、QUE INDEX URZ ON 进货(商品号,进货数量)goif exists (select * from sysobjects where name=进货触发器)drop trigger 进货触发器GOCREATE TRIGGER 进货触发器 ON 进货after INSERTAS DECLARE insert_account int DECLARE insert_id char(10) DECLARE insert_state char(2) set insert_account=(select 进货数量 from inserted) set insert_id=(select 商品号

13、 from inserted) set insert_state=(select 入库状态 from inserted) BEGIN DECLARE account int set account =(select 库存数量 from 商品 where 商品号=insert_id) if insert_state=N是 update 商品 set 库存数量=account+insert_account where 商品号=insert_id if insert_state=N否 update 商品 set 库存数量=account where 商品号=insert_idendif exists

14、 (select * from sysobjects where name=销售触发器)drop trigger 销售触发器GOCREATE TRIGGER 销售触发器 ON 销售after INSERTAS DECLARE sale_account int DECLARE insert_id char(10) set sale_account=(select 销售数量 from inserted) set insert_id=(select 商品号 from inserted) BEGIN DECLARE account int set account =(select 库存数量 from

15、商品 where 商品号=insert_id) update 商品 set 库存数量=account-sale_account where 商品号=insert_idend-创建查询视图-if exists (select * from sysobjects where name=商品信息查询)drop VIEW 商品信息查询GOCREATE VIEW 商品信息查询 AS SELECT 商品.商品号,商品.商品名称,商品.单价,商品.库存数量,进货.进货单价,商品.供应商号,供应商.供应商名,供应商.供应商地址,供应商.供应商电话FROM 商品,供应商,进货WHERE 商品.供应商号=供应商.

16、供应商号 and 进货.商品号=商品.商品号go-建立存储过程-if exists(select * from sysobjects where name=proc1) drop proc proc1gocreate proc proc1(商品_id char(10)asselect 库存数量from 商品where 商品号=商品_idGOif exists(select * from sysobjects where name=proc2) drop proc proc2gocreate proc proc2(商品_id char(10),供货_月 char(2)ASselect SUM(供

17、货.供货数量)AS 月供货量from 商品 INNER JOIN 供货 ON 商品.商品号 = 供货.商品号where 商品.商品号=商品_id and month(供货.供货日期)=供货_月GOif exists(select * from sysobjects where name=proc3) drop proc proc3gocreate proc proc3(商品_id char(10)ASselect 供应商.供应商名,供应商.供应商地址,供应商.供应商电话from 商品 INNER JOIN 厂商 ON 商品.供应商号 = 供应商.供应商号where 商品.商品号=商品_idGO

18、if exists(select * from sysobjects where name=proc4) drop proc proc4gocreate proc proc4(商品_id char(10),销售日期 datetime)asselect 销售.销售日期,SUM(销售.销售数量)AS 日销售量from 商品 INNER JOIN 销售 ON 商品.商品号 = 销售.商品号group by 商品.商品号,销售.销售日期having 商品.商品号=商品_id and 销售.销售日期=销售日期;if exists(select * from sysobjects where name=p

19、roc5) drop proc proc5gocreate proc proc5(商品_id char(10),销售日期_月 char(2)asselect 销售.销售日期,销售.销售数量from 商品 INNER JOIN 销售 ON 商品.商品号 = 销售.商品号where 商品.商品号=商品_id and month(销售.销售日期)=销售日期_月;if exists(select * from sysobjects where name=proc6) drop proc proc6gocreate proc proc6(销售员_id char(10)asselect 销售员.*from

20、 销售员where 销售员.销售员号=销售员_id if exists(select * from sysobjects where name=proc7) drop proc proc7gocreate proc proc7(销售员_id char(10),销售日期_月 char(2)asselect 销售.销售员号,商品.商品名,销售.销售日期,销售.销售数量,(销售.实付总额) as 日销售业绩额from 商品 INNER JOIN (销售员 INNER JOIN 销售 ON 销售员.销售员号 = 销售.销售员号) ON 商品.商品号=销售.商品号where 销售员.销售员号=销售员_i

21、d and month(销售.销售日期)=销售日期_月 3.vb源代码form1Private Sub Command1_Click()If Text1.Text = 123 And Text2.Text = 123 ThenForm2.ShowUnload MeElseMsgBox 账号或密码有误，请重新输入！, 2 + vbExclamation, 错误提示End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd Subform2Private Sub Command1_Click()Form3.ShowUnload MeEnd SubPr

22、ivate Sub Command2_Click()Form4.ShowUnload MeEnd SubPrivate Sub Command3_Click()Form5.ShowUnload MeEnd SubPrivate Sub Command4_Click()Form6.ShowUnload MeEnd SubPrivate Sub Command5_Click()Form7.ShowUnload MeEnd SubPrivate Sub Command6_Click()Form8.ShowUnload MeEnd SubPrivate Sub Command8_Click()Unlo

23、ad MeEnd Subform3Private Sub Command1_Click()Adodc1.RefreshIf Text1.Text And Text2.Text ThenAdodc1.RecordSource = select * from 进货 where 进货.商品号= & Text1.Text & and Month(进货.进货日期)= & Text2.Text & Set DataGrid1.DataSource = Adodc1End IfEnd SubPrivate Sub Command3_Click()Form2.ShowUnload MeEnd SubPriva

24、te Sub Form_Load()Adodc1.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=小型自选商场综合管理系统Adodc1.RecordSource = select * from 进货Set DataGrid1.DataSource = Adodc1End Subform4Private Sub Command1_Click()Adodc1.RefreshIf Text1.Text And Text2.Text T

25、henAdodc1.RecordSource = select * from 销售 where 销售.商品号= & Text1.Text & and Month(销售.销售日期)= & Text2.Text & Set DataGrid1.DataSource = Adodc1End IfEnd SubPrivate Sub Command2_Click()Form2.ShowUnload MeEnd SubPrivate Sub Form_Load()Adodc1.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;

26、Persist Security Info=False;Initial Catalog=小型自选商场综合管理系统Adodc1.RecordSource = select * from 销售Set DataGrid1.DataSource = Adodc1End Subform5Private Sub Command1_Click()Adodc1.RefreshIf Text1.Text ThenAdodc1.RecordSource = select * from 商品 where 商品.商品号= & Text1.Text & Set DataGrid1.DataSource = Adodc1

27、End IfEnd SubPrivate Sub Command2_Click()Form2.ShowUnload MeEnd SubPrivate Sub Form_Load()Adodc1.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=小型自选商场综合管理系统Adodc1.RecordSource = select * from 商品Set DataGrid1.DataSource = Adodc1End Subform6

28、Private Sub Command1_Click()Label1.Caption = 商品号 & Text1.Text & vbCrLf + 数量 & Text2.Text & vbCrLf + 单价 & Text3.Text & vbCrLf + 日期 & Text4.Text & vbCrLf + 应收 & Text2.Text * Text3.Text & vbCrLf + 实收 & Text6.Text & vbCrLf + 找零 & Text6.Text - Text2.Text * Text3.Text & vbCrLf + 售货员号 & Text5.TextAdodc1.Re

29、freshAdodc1.RecordSource = select * from 销售Adodc1.Recordset.AddNewAdodc1.Recordset.Fields(商品号) = Text1.TextAdodc1.Recordset.Fields(销售数量) = Text2.TextAdodc1.Recordset.Fields(单价) = Text3.TextAdodc1.Recordset.Fields(销售日期) = Text4.TextAdodc1.Recordset.Fields(员工号) = Text5.TextAdodc1.Recordset.UpdateSet D

30、ataGrid1.DataSource = Adodc1End SubPrivate Sub Command2_Click()Form2.ShowUnload MeEnd SubPrivate Sub Form_Load()Adodc1.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=小型自选商场综合管理系统End Subform7Private Sub Command1_Click()Adodc1.RefreshAdodc1.

31、RecordSource = select * from 进货Adodc1.Recordset.AddNewAdodc1.Recordset.Fields(商品号) = Text1.TextAdodc1.Recordset.Fields(供应商号) = Text3.TextAdodc1.Recordset.Fields(进货数量) = Text2.TextAdodc1.Recordset.Fields(进货单价) = Text4.TextAdodc1.Recordset.Fields(进货日期) = Text6.TextAdodc1.Recordset.UpdateEnd SubPrivate Sub Command2_Click()Form2.ShowUn