肯德基管理系统

1、精选优质文档-倾情为你奉上 广东技术师范学院天河学院 数据库应用（SQL Server）课程设计报告实训题目 肯德基天院分店管理系统 系 别 计 算 机 系 l专业班级 软件设计 111 班 学 号 28 29 34 姓 名 孟欣、沈学发、李智超 /指导教师 蔡 柳 萍 所属系部 计算机科学与技术系 专心-专注-专业 目录 第一部分 项目背景与需求分析 一、项目背景一、选题背景肯德基（Kentucky Fried Chicken 肯塔基州炸鸡），通常简称为KFC,时来自美国的著名连锁快餐厅，由哈兰·山德士上校于1952年创建。主要出售炸鸡,汉堡，薯条，汽水等西式快餐食品。公司性质是西

2、式快餐食品。餐厅的主要业务流程如下：1、材料购进入库业务流程原材料购入阶段储备经理根据计划购入原材料单发出购入原材料计划单通知采购人员进行采购工作，采购人员发出购原材料单给供货单位。然后供货单位进行相关操作。原材料入库阶段由储备经理及相关工作人员发出原材料入库单给管理人员管理人员更新相关库存报表给储备经理。 2、材料加工：由腌制部、厨房部和总配部进行相关操作腌制部根据管理组发出的材料加工量凭据从仓库中领取相关材料进行腌制厨房部递接由腌制部腌制完的原材料进行进一步的食品加工最后由总配部根据商品特点进行最后的加工即整个材料加工过程。 3、商品出售：由前台部通过接受客的人口头陈述在收银机上输入顾客购

3、买商品产生商品订单再由收银员本来根据商品订单将商品配备齐全最后递交给客人。 当前业务流程中存在的主要问题是各个环节中有些指令用的是口头形式在更新材料在库情况以及商品销售情况可能出现误差。以及商品出售业务中有时候会出现顾客等候时间过长的情况。（二）、系统目标和实现技术 系统能够对肯德基与业务管理相关的全部操作进行管理。通过所设计出的系统协调各个业务流程图之间的关系，即时的记录以及更新从材料购进入库到商品加工最后商品销售的登记。具体模块如下： 1、 原材料购进入库管理：供货单位详情、原材料基本信息、相关职工、登记原材料购入情况； 2、 原材料加工管理：原材料基本信息、相关职工、登记原材料领取情况

4、；3、 商品销售管理：按日期按商品品种的统计、相关职工、商品销售统计。二、需求分析1.原材料购进入库原材料购进入库业务流程：根据储备经理提供的原材料（材料号、名称、规格、单价）购入计划单采购部的相关职工（工号、姓名、年龄、职称）与供应商（供应商号、姓名、地址、电话号码、账号 ）联系办理原材料购进放入仓库。登记库存报表，记录（记录单号、职工号、购入日期、商品号、数量、单价）2.原材料加工 原材料加工业务流程根据管理组提供的商品原材料需求量单，查阅库存，如果有则理领取原材料并登记领取记录单记录（领取记录单号、领取职工号、原材料编号、数量、经办职工号）。如果没有相应的原材料，则根据商品需求量办理预购

5、登记（记录预购登记单号、领取职工号、原材料编号、数量）。3.商品出售 根据顾客提供的商品订单，查阅商品（商品号、商品名、价格、生产日期、在库量），如果有，则办理销售并登记销售（记录销售记录单号、顾客卡号、购买日期、商品号、数量、单价、经办员工号）如果没有相应的商品，则可根据顾客的要求办理预约登记（记录预约登记单号、顾客号、商品号、数量、经办员工号）当有商品时，及时通知顾客。第二部分 肯德基管理系统的设计与实现一、肯德基管理系统实体名称供应商（供应商编号、姓名、地址、电话号码、银行账号）商品（商品号、商品名、价格、生产日期、库存量）职工（职工号，姓名，性别，电话，地址，职务，工资）仓库（记录单号

6、、职工号、购买日期、商品号、数量、单价）二、E-R图根据如上需求，设计了以下数据表：供应商表（供应商编号、姓名、地址、电话号码、银行账号）职工表（职工号，姓名，性别，电话，地址，职务，工资）库存表（记录单号、职工号、购买日期、商品号、数量、单价）商品表（商品号、商品名、价格、生产日期、库存量）销售表（销售记录单号、销售日期、商品号、数量、单价、经办员工号）供应表(供应商编号、原材料编号、名称、数量、单价)出库表(原材料编号、数量)三、数据库的表的结构1、职工基本情况表属性类型大小是否为空约束职工号tinyint否主键性别char2否默认值姓名varchar10否电话char11否地址varch

7、ar40否职位char10否工资varchar10否2、供应商表属性类型大小是否为空约束供应商号tinyint4否主键姓名varchar40否地址varchar40否电话char11否银行账号Varchar20否3、库存表属性类型大小是否为空约束记录单号Tinyint8否职工号Tinyint2否购买日期datetime否商品号Tinyint否数量smallint否单价smallmoney否4、出库表属性类型大小是否为空约束原材料编号Tinyint否商品名称Varchar否数量smallint否5、供应表属性类型大小是否为空约束供应商编号tinyint否主键原材料编号varchar否名称smal

8、lmoney否数量datetime否单价smallint否6、销售表属性类型大小是否为空约束销售单号tinyint否主键顾客卡号varchar否购买日期datetime否商品号Tinyint否数量Smallint否单价Samllmoney否经办员工号tinyint否四、数据库的创建代码1、创建数据库create database 肯德基天院分店管理系统on(name = ty,filename = 'e:ty.mdf',size = 40)log on(name = ty1,filename ='e:ty1.ndf',size = 40)2、创建供应表creat

9、e table 供应商表(供应商编号 tinyint not null primary key,姓名 varchar(10) not null,地址 varchar(30) not null,电话号码 char(11) not null,银行账号 varchar(20) not null,)3、创建职工基本情况表create table 职工基本情况表(职工号 tinyint not null primary key, 性别 char(2) default '女',姓名 varchar(10) not null, 电话 char (11) not null, 地址 varcha

10、r(40) not null,职位 char(10) not null,工资 varchar(10) not null ,)4、创建库存表create table 库存表(记录单号 varchar(10) not null primary key,职工号 tinyint not null,购买日期 datetime not null,商品号 tinyint not null, 数量 tinyint not null, 单价 smallmoney not null,)5、创建商品表create table 商品表(商品号 tinyint not null primary key ,商品名 cha

11、r(12) not null unique,价格 smallmoney not null,生产日期 datetime not null,库存量 smallint not null, )6、创建销售表create table 销售表(销售单号 tinyint not null primary key,销售日期 datetime not null,商品号 tinyint not null foreign key(商品号) references 商品表(商品号) on update cascade on delete cascade,数量 smallint not null,单价 smallmone

12、y not null,经办职工号 tinyint not null,)7、创建供应表create table 供应表(供应商编号 tinyint not null foreign key(供应商编号) references 供应商表(供应商编号) on update cascade on delete cascade,原材料编号 tinyint not null ,名称 varchar(10) not null,数量 tinyint not null,单价 smallmoney not null,)8、创建出库表create table 出库表(原材料编号 tinyint not null,名

13、称 varchar(10) not null ,数量 tinyint not null,)9、创建用户表create table 用户表(用户名 varchar(20) not null,用户密码 varchar(10) not null,用户权限 varchar(20) not null)数据库创建完后的截图：第三部分 肯德基管理系统前后台的链接一、创建视图为了更方便的查看销售的情况，包括（销售的单号、供应商编号、进货价、出售单价、销售日期、数量、和销售的员工）。特此建立了“销售总情况”视图：后台代码：create view 销售总情况asselect 销售单号 ,a.供应商编号,进货价,单

14、价,销售日期,c.数量,经办职工号from 出库表 a,库存表 b,销售表 cwhere a.商品名=c.商品名 and b.商品号=c.商品号前台代码：Imports System.DataImports System.Data.SqlClientPublic Class allsales Private Sub allsales_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim cn As New SqlConnection cn.ConnectionString

15、 = "server=localhost;uid=sa;pwd=123;database=肯德基天院分店管理系统" cn.Open() If cn.State = ConnectionState.Open Then Dim aa As String aa = "select * from 销售总情况" Dim abc As New SqlDataAdapter(aa, cn) Dim data1 As New DataSet abc.Fill(data1, "ccc") DataGridView1.DataSource = data1

16、.Tables("ccc") End If End Sub Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick End SubEnd Class结果如图:2、 创建存储过程创建新建用户存储过程create proc addusername varchar(20),pwd varchar(

17、10),srvrole varchar(20),role varchar(20),qx varchar(20),biao varchar(20)asexec sp_addlogin name,pwdexec sp_grantdbaccess nameif srvrole<>''exec sp_addsrvrolemember name,srvroleif role<>''exec sp_addrolemember role,nameinsert 用户表(用户名,用户密码,用户权限)values(name,pwd,srvrole+'

18、'+role)创建删除用户存储过程create proc deleteusername varchar(20)asexec sp_droplogin namedelete 用户表where 用户名=name创建删除商品存储过程create proc 删除商品asdelete 商品表where '商品编号'='" & textbox1.text & "'创建删除供应商存储过程set ANSI_NULLS ONset QUOTED_IDENTIFIER ONgoALTER proc dbo.删除供应商asdelete 供应

19、商表where '供应商编号'='" & textbox1.text & "'创建完全备份存储过程create proc wqbfas backup database 肯德基天院分店管理系统to sxfwith format创建恢复备份存储过程create proc hfbfasdrop database 肯德基天院分店管理系统restore database 肯德基天院分店管理系统from sxfwith file=1如图所示：3、 创建触发器 1、在销售表中添加商品记录，库存表的数量则会受影响，触发。create trig

20、ger 销售触发库存on 销售表after insert asdeclare 商品号 bigint,num smallintselect 商品号=商品号,num=数量from insertedupdate 库存表set 数量=数量-numwhere 商品号=商品号2、在供应表和出库表中创建触发器，当出库表中的商品曾加时。供应表的同个商品名则相应的减少create trigger 出库触发供应on 出库表after insert asdeclare 商品名varchar(10),num smallintselect 商品名=商品名,num=数量from insertedupdate 供应表set

21、 数量=数量-numwhere 商品名=商品名如图所示：4、 查询功能查询供应商信息Imports System.DataImports System.Data.SqlClientPublic Class provider Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System

22、.EventArgs) Handles Button1.Click Dim cn As New SqlConnection cn.ConnectionString = "server=7YG45YAWNY5MTU5;uid=sa;pwd=123;database=肯德基天院分店管理系统" cn.Open() If cn.State = ConnectionState.Open Then Dim aa As String aa = "select * from 供应商表where 姓名='" & TextBox1.Text & &q

23、uot;'and 供应商编号='" & TextBox2.Text & "'" Dim aaa As New SqlDataAdapter(aa, cn) Dim dataset1 As New DataSet aaa.Fill(dataset1, "qq") DataGridView1.DataSource = dataset1.Tables("qq") End If查询职工信息Imports System.DataImports System.Data.SqlClientPubli

24、c Class workers Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim cn As New SqlConnection cn.ConnectionString = "server=7YG45YAWNY5MTU5;uid=sa;pwd=123;database=肯德基天院分店管理系统" cn.Open() If cn.State = ConnectionState.Open Then Dim a

25、a As String aa = "select * from 职工基本情况表where 职工号='" & TextBox1.Text & "'" Dim aaa As New SqlDataAdapter(aa, cn) Dim dataset1 As New DataSet aaa.Fill(dataset1, "qqq") DataGridView1.DataSource = dataset1.Tables("qqq") End If查询商品库存余量Imports System

26、.DataImports System.Data.SqlClientPublic Class stock Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim cn As New SqlConnection cn.ConnectionString = "server=7YG45YAWNY5MTU5;uid=sa;pwd=123;database=肯德基天院分店管理系统" cn.Open() If cn.St

27、ate = ConnectionState.Open Then Dim aa As String aa = "select * from 库存表where 商品号='" & TextBox1.Text & "'" Dim aaa As New SqlDataAdapter(aa, cn) Dim dataset1 As New DataSet aaa.Fill(dataset1, "qq") DataGridView1.DataSource = dataset1.Tables("qq"

28、;) End If查询商品信息Imports System.DataImports System.Data.SqlClientPublic Class goods Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim cn As New SqlConnection cn.ConnectionString = "server=localhost;uid=sa;pwd=123;database=肯德基天院分店管理系统&q

29、uot; cn.Open() If cn.State = ConnectionState.Open Then Dim aa As String aa = "select * from 商品表where 商品号='" & TextBox2.Text & "'" Dim aaa As New SqlDataAdapter(aa, cn) Dim dataset1 As New DataSet aaa.Fill(dataset1, "qq") DataGridView1.DataSource = datase

30、t1.Tables("qq") End If查询职工销售情况Imports System.DataImports System.Data.SqlClientPublic Class cxsales Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim cn As New SqlConnection cn.ConnectionString = "server=7YG45YAWNY5MTU5;uid=

31、sa;pwd=123;database=肯德基天院分店管理系统" cn.Open() If cn.State = ConnectionState.Open Then Dim aa As String aa = "select * from 销售表where 经办职工号='" & TextBox1.Text & "'" Dim aaa As New SqlDataAdapter(aa, cn) Dim dataset1 As New DataSet aaa.Fill(dataset1, "qq"

32、) DataGridView1.DataSource = dataset1.Tables("qq") End If查询销售总情况Imports System.dataImports system.data.sqlclientPublic Class allgoods Private Sub allgoods_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim cn As New SqlConnection cn.ConnectionString =

33、"server=7YG45YAWNY5MTU5;uid=sa;pwd=123;database=肯德基天院分店管理系统" cn.Open() If cn.State = ConnectionState.Open Then Dim aa As String aa = "select * from 商品表" Dim adapter As New SqlDataAdapter(aa, cn) Dim dataset1 As New DataSet adapter.Fill(dataset1, "aaa") DataGridView1.Dat

34、aSource = dataset1.Tables("aaa") End If5、 添加功能添加商品库存主要代码： If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Or TextBox5.Text = "" Or TextBox6.Text = "" Then MsgBox("全部必填，不允许为空！") Els

35、e Dim cn As New SqlConnection cn.ConnectionString = "server=localhost;uid=sa;pwd=123;database=肯德基天院分店管理系统" cn.Open() If cn.State = ConnectionState.Open Then Dim aa As String aa = "insert 库存表(记录单号,职工号,购买日期,商品号,数量,进货价) values('" & TextBox1.Text & "','"

36、 & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "')" Dim cmd As New SqlCommand cmd.CommandText = aa cmd.Con

37、nection = cn cmd.ExecuteNonQuery() MsgBox("已添加成功！") Dim bb As String bb = "select * from 库存表" Dim adapter As New SqlDataAdapter(bb, cn) Dim set1 As New DataSet adapter.Fill(set1, "abc") DataGridView1.DataSource = set1.Tables("abc") End If添加供应商If TextBox1.Text

38、= "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Or TextBox5.Text = "" Or TextBox6.Text = "" Then MsgBox("全部必填，不允许为空！") Else Dim cn As New SqlConnection cn.ConnectionString = "server=localhost;uid=sa;pwd

39、=123;database=肯德基天院分店管理系统" cn.Open() If cn.State = ConnectionState.Open Then Dim aa As String aa = "insert 供应商表(供应商编号,姓名,地址,电话号码,银行账号,商品号) values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "

40、','" & TextBox4.Text & "','" & TextBox5.Text & "'','" & TextBox6.Text & "')" Dim cmd As New SqlCommand cmd.CommandText = aa cmd.Connection = cn cmd.ExecuteNonQuery() MsgBox("已添加成功！") Dim bb As String

41、 bb = "select * from 库存表" Dim adapter As New SqlDataAdapter(bb, cn) Dim set1 As New DataSet adapter.Fill(set1, "abc") End If添加出售商品表 Dim cn As New SqlConnection cn.ConnectionString = "server=localhost;uid=sa;pwd=123;database=肯德基天院分店管理系统" cn.Open() If cn.State = Connectio

42、nState.Open Then Dim aa As String aa = "insert 销售表(销售日期,商品号,商品名,数量,单价,经办职工号) values('" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','"

43、 & TextBox6.Text & "','" & TextBox7.Text & "')" Dim cmd As New SqlCommand cmd.CommandText = aa cmd.Connection = cn cmd.ExecuteNonQuery() MsgBox("已添加成功！") End If添加供应 Dim cn As New SqlConnection cn.ConnectionString = "server=localhost;uid=

44、sa;pwd=123;database=肯德基天院分店管理系统" cn.Open() If cn.State = ConnectionState.Open Then Dim aa As String aa = "insert 供应表(供应商编号,商品名,数量) values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "')&q

45、uot; Dim cmd As New SqlCommand cmd.CommandText = aa cmd.Connection = cn cmd.ExecuteNonQuery() MsgBox("已添加成功！") End If 六、删除功能删除供应商输入供应商编号，删除该供应商的所有信息 Dim cn As New SqlConnection cn.ConnectionString = "server=localhost;uid=sa;pwd=123;database=肯德基天院分店管理系统" cn.Open() If cn.State = Co

46、nnectionState.Open Then Dim aa As String aa = "exec p_scgys " & TextBox1.Text & "" Dim cmd As New SqlCommand cmd.CommandText = aa cmd.Connection = cn cmd.ExecuteNonQuery() MsgBox("删除成功！") End If删除商品输入商品编号，删除该商品 Dim cn As New SqlConnection cn.ConnectionString = &

47、quot;server=localhost;uid=sa;pwd=123;database=肯德基天院分店管理系统" cn.Open() If cn.State = ConnectionState.Open Then Dim aa As String aa = "exec p_scsp " & TextBox1.Text & "" Dim cmd As New SqlCommand cmd.CommandText = aa cmd.Connection = cn cmd.ExecuteNonQuery() MsgBox(&quo

48、t;删除成功！") End If删除职工输入职工号，删除该职工Dim cn As New SqlConnection cn.ConnectionString = "server=localhost;uid=sa;pwd=123;database=肯德基天院分店管理系统" cn.Open() If cn.State = ConnectionState.Open Then Dim aa As String aa = "exec p_sczg " & TextBox1.Text & "" Dim cmd As Ne

49、w SqlCommand cmd.CommandText = aa cmd.Connection = cn cmd.ExecuteNonQuery() MsgBox("删除成功！") End If7、 修改功能修改商品价格输入商品号和新的价格，即可刷新该商品的价格 Dim cn As New SqlConnection cn.ConnectionString = " server=localhost;uid=sa;pwd=123;database=肯德基天院分店管理系统" cn.Open() If cn.State = ConnectionState.O

50、pen Then Dim aa As String aa = "update 商品表set 价格=" & TextBox2.Text & "where 商品号='" & TextBox1.Text & "'" Dim cmd As New SqlCommand cmd.CommandText = aa cmd.Connection = cn cmd.ExecuteNonQuery() MsgBox("已修改成功！") End If修改职工信息 Dim cn As Ne

51、w SqlConnection cn.ConnectionString = " server=localhost;uid=sa;pwd=123;database=肯德基天院分店管理系统" cn.Open() If cn.State = ConnectionState.Open Then Dim aa As String aa = "update 职工基本情况表set 性别='" & TextBox2.Text & "', 姓名='" & TextBox3.Text & "

52、;',电话=" & TextBox4.Text & ",地址='" & TextBox5.Text & "',职位='" & TextBox6.Text & "',工资=" & TextBox7.Text & " where 职工号='" & TextBox1.Text & "'" Dim cmd As New SqlCommand cmd.Comma

53、ndText = aa cmd.Connection = cn cmd.ExecuteNonQuery() MsgBox("已修改成功！") End If修改供应商信息Dim cn As New SqlConnection cn.ConnectionString = " server=localhost;uid=sa;pwd=123;database=肯德基天院分店管理系统" cn.Open() If cn.State = ConnectionState.Open Then Dim aa As String aa = "update 供应商表set 姓名= '" & TextBox2.Text & "', 地址='" & TextBox3.Text & "',电话号码=" & TextBox4.Text &am