1、精選優(yōu)質文檔-傾情為你奉上 廣東技術師范學院天河學院 數(shù)據(jù)庫應用（SQL Server）課程設計報告實訓題目 肯德基天院分店管理系統(tǒng) 系 別 計 算 機 系 l專業(yè)班級 軟件設計 111 班 學 號 28 29 34 姓 名 孟欣、沈學發(fā)、李智超 /指導教師 蔡 柳 萍 所屬系部 計算機科學與技術系 專心-專注-專業(yè) 目錄 第一部分 項目背景與需求分析 一、項目背景一、選題背景肯德基（Kentucky Fried Chicken 肯塔基州炸雞），通常簡稱為KFC,時來自美國的著名連鎖快餐廳，由哈蘭·山德士上校于1952年創(chuàng)建。主要出售炸雞,漢堡，薯條，汽水等西式快餐食品。公司性質是西

2、式快餐食品。餐廳的主要業(yè)務流程如下：1、材料購進入庫業(yè)務流程原材料購入階段儲備經(jīng)理根據(jù)計劃購入原材料單發(fā)出購入原材料計劃單通知采購人員進行采購工作，采購人員發(fā)出購原材料單給供貨單位。然后供貨單位進行相關操作。原材料入庫階段由儲備經(jīng)理及相關工作人員發(fā)出原材料入庫單給管理人員管理人員更新相關庫存報表給儲備經(jīng)理。 2、材料加工：由腌制部、廚房部和總配部進行相關操作腌制部根據(jù)管理組發(fā)出的材料加工量憑據(jù)從倉庫中領取相關材料進行腌制廚房部遞接由腌制部腌制完的原材料進行進一步的食品加工最后由總配部根據(jù)商品特點進行最后的加工即整個材料加工過程。 3、商品出售：由前臺部通過接受客的人口頭陳述在收銀機上輸入顧客購

3、買商品產(chǎn)生商品訂單再由收銀員本來根據(jù)商品訂單將商品配備齊全最后遞交給客人。 當前業(yè)務流程中存在的主要問題是各個環(huán)節(jié)中有些指令用的是口頭形式在更新材料在庫情況以及商品銷售情況可能出現(xiàn)誤差。以及商品出售業(yè)務中有時候會出現(xiàn)顧客等候時間過長的情況。（二）、系統(tǒng)目標和實現(xiàn)技術 系統(tǒng)能夠對肯德基與業(yè)務管理相關的全部操作進行管理。通過所設計出的系統(tǒng)協(xié)調各個業(yè)務流程圖之間的關系，即時的記錄以及更新從材料購進入庫到商品加工最后商品銷售的登記。具體模塊如下： 1、 原材料購進入庫管理：供貨單位詳情、原材料基本信息、相關職工、登記原材料購入情況； 2、 原材料加工管理：原材料基本信息、相關職工、登記原材料領取情況

4、；3、 商品銷售管理：按日期按商品品種的統(tǒng)計、相關職工、商品銷售統(tǒng)計。二、需求分析1.原材料購進入庫原材料購進入庫業(yè)務流程：根據(jù)儲備經(jīng)理提供的原材料（材料號、名稱、規(guī)格、單價）購入計劃單采購部的相關職工（工號、姓名、年齡、職稱）與供應商（供應商號、姓名、地址、電話號碼、賬號 ）聯(lián)系辦理原材料購進放入倉庫。登記庫存報表，記錄（記錄單號、職工號、購入日期、商品號、數(shù)量、單價）2.原材料加工 原材料加工業(yè)務流程根據(jù)管理組提供的商品原材料需求量單，查閱庫存，如果有則理領取原材料并登記領取記錄單記錄（領取記錄單號、領取職工號、原材料編號、數(shù)量、經(jīng)辦職工號）。如果沒有相應的原材料，則根據(jù)商品需求量辦理預購

5、登記（記錄預購登記單號、領取職工號、原材料編號、數(shù)量）。3.商品出售 根據(jù)顧客提供的商品訂單，查閱商品（商品號、商品名、價格、生產(chǎn)日期、在庫量），如果有，則辦理銷售并登記銷售（記錄銷售記錄單號、顧客卡號、購買日期、商品號、數(shù)量、單價、經(jīng)辦員工號）如果沒有相應的商品，則可根據(jù)顧客的要求辦理預約登記（記錄預約登記單號、顧客號、商品號、數(shù)量、經(jīng)辦員工號）當有商品時，及時通知顧客。第二部分 肯德基管理系統(tǒng)的設計與實現(xiàn)一、肯德基管理系統(tǒng)實體名稱供應商（供應商編號、姓名、地址、電話號碼、銀行賬號）商品（商品號、商品名、價格、生產(chǎn)日期、庫存量）職工（職工號，姓名，性別，電話，地址，職務，工資）倉庫（記錄單號

6、、職工號、購買日期、商品號、數(shù)量、單價）二、E-R圖根據(jù)如上需求，設計了以下數(shù)據(jù)表：供應商表（供應商編號、姓名、地址、電話號碼、銀行賬號）職工表（職工號，姓名，性別，電話，地址，職務，工資）庫存表（記錄單號、職工號、購買日期、商品號、數(shù)量、單價）商品表（商品號、商品名、價格、生產(chǎn)日期、庫存量）銷售表（銷售記錄單號、銷售日期、商品號、數(shù)量、單價、經(jīng)辦員工號）供應表(供應商編號、原材料編號、名稱、數(shù)量、單價)出庫表(原材料編號、數(shù)量)三、數(shù)據(jù)庫的表的結構1、職工基本情況表屬性類型大小是否為空約束職工號tinyint否主鍵性別char2否默認值姓名varchar10否電話char11否地址varch

7、ar40否職位char10否工資varchar10否2、供應商表屬性類型大小是否為空約束供應商號tinyint4否主鍵姓名varchar40否地址varchar40否電話char11否銀行賬號Varchar20否3、庫存表屬性類型大小是否為空約束記錄單號Tinyint8否職工號Tinyint2否購買日期datetime否商品號Tinyint否數(shù)量smallint否單價smallmoney否4、出庫表屬性類型大小是否為空約束原材料編號Tinyint否商品名稱Varchar否數(shù)量smallint否5、供應表屬性類型大小是否為空約束供應商編號tinyint否主鍵原材料編號varchar否名稱smal

8、lmoney否數(shù)量datetime否單價smallint否6、銷售表屬性類型大小是否為空約束銷售單號tinyint否主鍵顧客卡號varchar否購買日期datetime否商品號Tinyint否數(shù)量Smallint否單價Samllmoney否經(jīng)辦員工號tinyint否四、數(shù)據(jù)庫的創(chuàng)建代碼1、創(chuàng)建數(shù)據(jù)庫create database 肯德基天院分店管理系統(tǒng)on(name = ty,filename = 'e:ty.mdf',size = 40)log on(name = ty1,filename ='e:ty1.ndf',size = 40)2、創(chuàng)建供應表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、創(chuàng)建職工基本情況表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、創(chuàng)建庫存表create table 庫存表(記錄單號 varchar(10) not null primary key,職工號 tinyint not null,購買日期 datetime not null,商品號 tinyint not null, 數(shù)量 tinyint not null, 單價 smallmoney not null,)5、創(chuàng)建商品表create table 商品表(商品號 tinyint not null primary key ,商品名 cha

11、r(12) not null unique,價格 smallmoney not null,生產(chǎn)日期 datetime not null,庫存量 smallint not null, )6、創(chuàng)建銷售表create table 銷售表(銷售單號 tinyint not null primary key,銷售日期 datetime not null,商品號 tinyint not null foreign key(商品號) references 商品表(商品號) on update cascade on delete cascade,數(shù)量 smallint not null,單價 smallmone

12、y not null,經(jīng)辦職工號 tinyint not null,)7、創(chuàng)建供應表create table 供應表(供應商編號 tinyint not null foreign key(供應商編號) references 供應商表(供應商編號) on update cascade on delete cascade,原材料編號 tinyint not null ,名稱 varchar(10) not null,數(shù)量 tinyint not null,單價 smallmoney not null,)8、創(chuàng)建出庫表create table 出庫表(原材料編號 tinyint not null,名

13、稱 varchar(10) not null ,數(shù)量 tinyint not null,)9、創(chuàng)建用戶表create table 用戶表(用戶名 varchar(20) not null,用戶密碼 varchar(10) not null,用戶權限 varchar(20) not null)數(shù)據(jù)庫創(chuàng)建完后的截圖：第三部分 肯德基管理系統(tǒng)前后臺的鏈接一、創(chuàng)建視圖為了更方便的查看銷售的情況，包括（銷售的單號、供應商編號、進貨價、出售單價、銷售日期、數(shù)量、和銷售的員工）。特此建立了“銷售總情況”視圖：后臺代碼：create view 銷售總情況asselect 銷售單號 ,a.供應商編號,進貨價,單

14、價,銷售日期,c.數(shù)量,經(jīng)辦職工號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=肯德基天院分店管理系統(tǒng)" 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、 創(chuàng)建存儲過程創(chuàng)建新建用戶存儲過程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)創(chuàng)建刪除用戶存儲過程create proc deleteusername varchar(20)asexec sp_droplogin namedelete 用戶表where 用戶名=name創(chuàng)建刪除商品存儲過程create proc 刪除商品asdelete 商品表where '商品編號'='" & textbox1.text & "'創(chuàng)建刪除供應商存儲過程set ANSI_NULLS ONset QUOTED_IDENTIFIER ONgoALTER proc dbo.刪除供應商asdelete 供應

19、商表where '供應商編號'='" & textbox1.text & "'創(chuàng)建完全備份存儲過程create proc wqbfas backup database 肯德基天院分店管理系統(tǒng)to sxfwith format創(chuàng)建恢復備份存儲過程create proc hfbfasdrop database 肯德基天院分店管理系統(tǒng)restore database 肯德基天院分店管理系統(tǒng)from sxfwith file=1如圖所示：3、 創(chuàng)建觸發(fā)器 1、在銷售表中添加商品記錄，庫存表的數(shù)量則會受影響，觸發(fā)。create trig

20、ger 銷售觸發(fā)庫存on 銷售表after insert asdeclare 商品號 bigint,num smallintselect 商品號=商品號,num=數(shù)量from insertedupdate 庫存表set 數(shù)量=數(shù)量-numwhere 商品號=商品號2、在供應表和出庫表中創(chuàng)建觸發(fā)器，當出庫表中的商品曾加時。供應表的同個商品名則相應的減少create trigger 出庫觸發(fā)供應on 出庫表after insert asdeclare 商品名varchar(10),num smallintselect 商品名=商品名,num=數(shù)量from insertedupdate 供應表set

21、 數(shù)量=數(shù)量-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=肯德基天院分店管理系統(tǒng)" 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=肯德基天院分店管理系統(tǒng)" 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=肯德基天院分店管理系統(tǒng)" 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=肯德基天院分店管理系統(tǒng)&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=肯德基天院分店管理系統(tǒng)" cn.Open() If cn.State = ConnectionState.Open Then Dim aa As String aa = "select * from 銷售表where 經(jīng)辦職工號='" & 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=肯德基天院分店管理系統(tǒng)" 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=肯德基天院分店管理系統(tǒng)" cn.Open() If cn.State = ConnectionState.Open Then Dim aa As String aa = "insert 庫存表(記錄單號,職工號,購買日期,商品號,數(shù)量,進貨價) 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=肯德基天院分店管理系統(tǒng)" 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=肯德基天院分店管理系統(tǒng)" cn.Open() If cn.State = Connectio

42、nState.Open Then Dim aa As String aa = "insert 銷售表(銷售日期,商品號,商品名,數(shù)量,單價,經(jīng)辦職工號) 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=肯德基天院分店管理系統(tǒng)" cn.Open() If cn.State = ConnectionState.Open Then Dim aa As String aa = "insert 供應表(供應商編號,商品名,數(shù)量) 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=肯德基天院分店管理系統(tǒng)" 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=肯德基天院分店管理系統(tǒng)" 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=肯德基天院分店管理系統(tǒng)" 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=肯德基天院分店管理系統(tǒng)" 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=肯德基天院分店管理系統(tǒng)" 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=肯德基天院分店管理系統(tǒng)" cn.Open() If cn.State = ConnectionState.Open Then Dim aa As String aa = "update 供應商表set 姓名= '" & TextBox2.Text & "', 地址='" & TextBox3.Text & "',電話號碼=" & TextBox4.Text &am