肯德基管理系統(tǒng)

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

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

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

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

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

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

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

8、lmoney否數(shù)量datetime否單價(jià)smallint否6、銷售表屬性類型大小是否為空約束銷售單號(hào)tinyint否主鍵顧客卡號(hào)varchar否購買日期datetime否商品號(hào)Tinyint否數(shù)量Smallint否單價(jià)Samllmoney否經(jīng)辦員工號(hào)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)建供應(yīng)表creat

9、e table 供應(yīng)商表(供應(yīng)商編號(hào) tinyint not null primary key,姓名 varchar(10) not null,地址 varchar(30) not null,電話號(hào)碼 char(11) not null,銀行賬號(hào) varchar(20) not null,)3、創(chuàng)建職工基本情況表create table 職工基本情況表(職工號(hào) 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 庫存表(記錄單號(hào) varchar(10) not null primary key,職工號(hào) tinyint not null,購買日期 datetime not null,商品號(hào) tinyint not null, 數(shù)量 tinyint not null, 單價(jià) smallmoney not null,)5、創(chuàng)建商品表create table 商品表(商品號(hào) tinyint not null primary key ,商品名 cha

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

12、y not null,經(jīng)辦職工號(hào) tinyint not null,)7、創(chuàng)建供應(yīng)表create table 供應(yīng)表(供應(yīng)商編號(hào) tinyint not null foreign key(供應(yīng)商編號(hào)) references 供應(yīng)商表(供應(yīng)商編號(hào)) on update cascade on delete cascade,原材料編號(hào) tinyint not null ,名稱 varchar(10) not null,數(shù)量 tinyint not null,單價(jià) smallmoney not null,)8、創(chuàng)建出庫表create table 出庫表(原材料編號(hào) 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,用戶權(quán)限 varchar(20) not null)數(shù)據(jù)庫創(chuàng)建完后的截圖：第三部分 肯德基管理系統(tǒng)前后臺(tái)的鏈接一、創(chuàng)建視圖為了更方便的查看銷售的情況，包括（銷售的單號(hào)、供應(yīng)商編號(hào)、進(jìn)貨價(jià)、出售單價(jià)、銷售日期、數(shù)量、和銷售的員工）。特此建立了“銷售總情況”視圖：后臺(tái)代碼：create view 銷售總情況asselect 銷售單號(hào) ,a.供應(yīng)商編號(hào),進(jìn)貨價(jià),單

14、價(jià),銷售日期,c.數(shù)量,經(jīng)辦職工號(hào)from 出庫表 a,庫存表 b,銷售表 cwhere a.商品名=c.商品名 and b.商品號(hào)=c.商品號(hào)前臺(tái)代碼：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結(jié)果如圖:2、 創(chuàng)建存儲(chǔ)過程創(chuàng)建新建用戶存儲(chǔ)過程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 用戶表(用戶名,用戶密碼,用戶權(quán)限)values(name,pwd,srvrole+'

18、'+role)創(chuàng)建刪除用戶存儲(chǔ)過程create proc deleteusername varchar(20)asexec sp_droplogin namedelete 用戶表where 用戶名=name創(chuàng)建刪除商品存儲(chǔ)過程create proc 刪除商品asdelete 商品表where '商品編號(hào)'='" & textbox1.text & "'創(chuàng)建刪除供應(yīng)商存儲(chǔ)過程set ANSI_NULLS ONset QUOTED_IDENTIFIER ONgoALTER proc dbo.刪除供應(yīng)商asdelete 供應(yīng)

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

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

21、 數(shù)量=數(shù)量-numwhere 商品名=商品名如圖所示：4、 查詢功能查詢供應(yīng)商信息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 供應(yīng)商表where 姓名='" & TextBox1.Text & &q

23、uot;'and 供應(yīng)商編號(hào)='" & 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 職工號(hào)='" & 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 商品號(hào)='" & 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 商品號(hào)='" & 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)辦職工號(hào)='" & 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 庫存表(記錄單號(hào),職工號(hào),購買日期,商品號(hào),數(shù)量,進(jìn)貨價(jià)) 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添加供應(yīng)商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 供應(yīng)商表(供應(yīng)商編號(hào),姓名,地址,電話號(hào)碼,銀行賬號(hào),商品號(hào)) 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 銷售表(銷售日期,商品號(hào),商品名,數(shù)量,單價(jià),經(jīng)辦職工號(hào)) 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添加供應(yīng) 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 供應(yīng)表(供應(yīng)商編號(hào),商品名,數(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 六、刪除功能刪除供應(yīng)商輸入供應(yīng)商編號(hào)，刪除該供應(yīng)商的所有信息 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刪除商品輸入商品編號(hào)，刪除該商品 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刪除職工輸入職工號(hào)，刪除該職工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、 修改功能修改商品價(jià)格輸入商品號(hào)和新的價(jià)格，即可刷新該商品的價(jià)格 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 價(jià)格=" & TextBox2.Text & "where 商品號(hào)='" & 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 職工號(hào)='" & TextBox1.Text & "'" Dim cmd As New SqlCommand cmd.Comma

53、ndText = aa cmd.Connection = cn cmd.ExecuteNonQuery() MsgBox("已修改成功！") End If修改供應(yīng)商信息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 供應(yīng)商表set 姓名= '" & TextBox2.Text & "', 地址='" & TextBox3.Text & "',電話號(hào)碼=" & TextBox4.Text &am