數(shù)據(jù)庫課程設(shè)計(jì)餐飲管理系統(tǒng)

1、摘要隨著經(jīng)濟(jì)的發(fā)展社會的進(jìn)步，去飯店過節(jié)聚會成為了一種新的時(shí) 尚。因此每逢過年過節(jié)，飯店都會迎來大量的顧客，隨之而來的就是 大量的預(yù)定和結(jié)算信息將會使得飯店的工作人員不堪重負(fù)，并且不可 避免的會出現(xiàn)這樣或那樣的錯(cuò)誤。餐飲信息管理軟件的誕生可以為他 們提供便捷的管理服務(wù)。并且?guī)缀鯙榱愕腻e(cuò)誤率也使得餐館可以更好 的為顧客服務(wù)。它不僅可以為餐館降低人力資源的付出，節(jié)省了成本， 而且也可以提升自身的形象，使餐廳迎來更多的食客。本系統(tǒng)使用了 Visual Studio2010, SQLserver2008使用本系統(tǒng)，員工將可以快速地編輯顧客資料信息，并且為客戶 提供訂餐打折和充值服務(wù)。管理員使用本系統(tǒng)，

2、既可以完成員工的所 有工作，又可以更好地管理員工，精準(zhǔn)地了解員工賬面的資金情況。 除了這些，管理員還可以設(shè)定餐廳的菜單信息和折扣程度，從而使得 管理員對餐廳的運(yùn)營情況可以全面掌控。需求分析1.1開發(fā)背景鑒于傳統(tǒng)的人工管理方式的種種缺陷，我設(shè)計(jì)了方便中小級別餐飲企業(yè)使用 的應(yīng)用程序，通過它，管理者可以基本解決以上所遇到的種種問題，并且更加科 學(xué)的對老客戶進(jìn)行打折，而且添加了主顧權(quán)限的不同設(shè)計(jì)使得它更加方便雇主對 雇員的管理與監(jiān)督。1.2開發(fā)工具和相關(guān)技術(shù)簡介開發(fā)工具：硬件：筆記本軟件：Windows7、Microsoft Visual Studio、2010Microsoft SQL Serve

3、r 2008由于我們開發(fā)的事面向中小型，界面看起來溫馨舒適，功能不是很多。1.3需求分析員工使用本餐飲信息管理系統(tǒng)應(yīng)可以實(shí)現(xiàn)以下功能：添加修改查詢客戶會員信息（修改客戶信息需客戶確認(rèn)）查詢菜單添加查詢預(yù)定信息，為老顧客打折客戶可以在自己的會員賬戶里充值顧客可以用現(xiàn)金買單也可以從會員賬戶里扣取管理員使用本餐飲信息管理系統(tǒng)應(yīng)可以實(shí)現(xiàn)以下功能：添加修改查詢客戶會員信息（修改客戶信息需客戶確認(rèn)）添加修改查詢菜單信息，最好能看到菜品圖片添加查詢預(yù)定信息，為老顧客打折客戶可以在自己的會員賬戶里充值顧客可以用現(xiàn)金買單也可以從會員賬戶里扣取設(shè)定具體的打折方法添加職員信息，權(quán)限也可以定為管理員?？梢圆樵兪褂谜叩?/p>

4、現(xiàn)金收款金額概念結(jié)構(gòu)設(shè)計(jì)2.1系統(tǒng)功能模塊的劃分圖1用戶登錄登錄后管理員和員工的權(quán)限不同，管理員可以進(jìn)入任何子菜單，二員工不可以進(jìn)入職工管理和銷售額統(tǒng)計(jì)。系統(tǒng)流程分析用戶登錄客 戶員工賬戶充值店主圖2系統(tǒng)流程圖流程圖簡介：員工登錄系統(tǒng)后為客戶添加基本信息，客戶可以根據(jù)需要在開 通的賬戶里充值（增加用戶的收款金額）。客戶通過餐飲信息管理系統(tǒng)進(jìn)行訂餐 （老用戶在此環(huán)節(jié)中可能會享受打折服務(wù)）?？蛻粲猛瓴秃髞淼椒?wù)臺買單，用 戶可以選擇使用現(xiàn)金或者從用戶余額里扣除，支付成功會增加客戶的已消費(fèi)金額。 若余額不足，系統(tǒng)將會提示，那么客戶只能使用現(xiàn)金支付。使用現(xiàn)金支付的話會 增加用戶的收款金額。管理員登錄的

5、話可以使用員工的所有功能，而且可以設(shè)定 為客戶打折的折扣程度和添加菜單，以及管理員工賬戶。邏輯結(jié)構(gòu)設(shè)計(jì)3.1 ER圖設(shè)計(jì)主要存儲一些用戶信息，如用戶的賬號、密碼和類型地點(diǎn)等等，主要用于用戶登 錄，添加客戶和添加預(yù)定時(shí)會使用到用戶信息圖4客戶E-R圖主要存儲一些客戶信息，如客戶的賬號、聯(lián)系方式和消費(fèi)情況等等，主要用于客 戶訂餐、充值和結(jié)算，使用于添加預(yù)定。圖5食譜E-R圖主要存儲一些食譜信息，如食譜的名稱、價(jià)格和照片等等，主要用于客戶訂餐， 使用于添加預(yù)定。圖6預(yù)定E-R圖主要存儲一些預(yù)定信息，如客戶的賬號、預(yù)定的時(shí)間、桌號和菜單等等，主要用 于記錄客戶的預(yù)定信息，會使用到用戶、客戶、菜單和折扣

6、信息。圖7折扣E-R圖存儲管理員設(shè)定的打折信息，用來計(jì)算打折后的應(yīng)付金額，使用在添加預(yù)定時(shí)打 折。3.2數(shù)據(jù)表的設(shè)計(jì)ruser （用戶表）序號字段名稱字段描述字段類型長度備注1User_id用戶賬號Nvarchar r20不允許空2Passcode用戶密碼Nvarchar20不允許空3Style用戶類型Nvarchar r20不允許空4Name用戶姓名Nvarchar20不允許空5Phone用戶電話Nvarchar20不允許空6Money收款金額Money7Sex用戶性別Nvarchar4rcustomer （客戶表）序號字段名稱字段描述字段類型長度備注1Name客戶名字Nvarchar20不

7、允許空2Id客戶編號Nvarchar20不允許空3Passcode用戶密碼Nvarchar20不允許空4Addtime添加時(shí)間Nvarchar20不允許空5Money賬戶余額Money6Usedmoney已用余額Money7Photo客戶照片Image8Phone客戶電話Nvarchar129Userid用戶編號Nvarchar20不允許空food （食譜表）序號字段名稱字段描述字段類型長度備注1Name食譜名稱Nvarchar20不允許空2Price價(jià)格Nvarchar3Photo食物照片Nvarchar4Formula配料Nvarchar505Effect功效Nvarchar50corde

8、r （預(yù)定表）序號字段名稱字段描述字段類型長度備注1Tableid桌號Nvarchar10不允許空2Date日期Nvarchar203Name客戶姓名Nvarchar20不允許空4Customerid客戶身份Nvarchar105Userid用戶編號Nvarchar10不允許空6Food預(yù)定餐點(diǎn)NvarcharMax7Money消費(fèi)金額Moneydiscount （折扣表）序號字段名稱字段描述字段類型長度備注1Usedmoney已用金額money不允許空2Discount折扣Nvarchar10數(shù)據(jù)庫物理設(shè)計(jì)Imports System.Windows.Forms.VisualStyles.V

9、isualStyleElement.TaskbarClockPublic Class Form1Private Sub 退出 ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 退出 ToolStripMenuItem.ClickMe.Close()End SubPrivate Sub 系統(tǒng) ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Han

10、dles 系統(tǒng) ToolStripMenuItem.ClickEnd SubPrivate Sub 登錄 ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles 登錄 ToolStripMenuItem.ClickForm2.Show()End SubPrivate Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadMe.菜單信息 T

11、oolStripMenuItem.Enabled = FalseMe.充值管理 ToolStripMenuItem.Enabled = FalseMe.結(jié)賬買單 ToolStripMenuItem.Enabled = FalseMe.客戶信息 ToolStripMenuItem.Enabled = FalseMe.預(yù)訂管理 ToolStripMenuItem.Enabled = FalseMe.職工管理 ToolStripMenuItem.Enabled = FalseEnd SubPrivate Sub 客戶信息 ToolStripMenuItem_Click(ByVal sender As

12、 System.Object, ByVal e As System.EventArgs) Handles 客戶信息 ToolStripMenuItem.ClickForm3.Show()End SubPrivate Sub 菜單信息 ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 菜單信息 ToolStripMenuItem.ClickForm4.Show()End SubPrivate Sub 預(yù)訂管理 ToolStripMenuItem_Click(ByV

13、al sender As System.Object, ByVal e As System.EventArgs) Handles 預(yù)訂管理 ToolStripMenuItem.ClickForm5.Show()End SubPrivate Sub 充值管理 ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 充值管理 ToolStripMenuItem.ClickForm6.Show()End SubPrivate Sub 職工管理 ToolStripMenuIt

14、em_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 職工管理 ToolStripMenuItem.ClickForm8.Show()End SubPrivate Sub 結(jié)賬買單 ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 結(jié)賬買單 ToolStripMenuItem.ClickForm7.Show()End SubPrivate Sub 幫助 ToolS

15、tripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 幫助 ToolStripMenuItem.ClickForm9.Show()End SubPrivate Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.TickLabel3.Text = Now()End SubEnd Class2.登錄Imports System.DataImports

16、 System.Data.SqlClientPublic Class Form2Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.ClickMe.Close()End SubPrivate Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.ClickIf TextBox3.Text.Trim = Or Te

17、xtBox4ext.Trim = ThenMsgBox(請?zhí)顚懹脩裘兔艽a，MsgBoxStyle.Exclamation)Exit SubEnd IfconnectSQL()DimconnAsSqlConnection=NewSqlConnection(Server=(local);uid=sa;pwd=sa;Database=D: 新建文件夾EATFOODS.MDF) conn.Open()Dim str As Stringstr = select * from ruser where user_id = + TextBox3.Text+ and passcode= + TextBox4.

18、Text + and style= + ComboBox2.Text + Dim scom = New SqlClient.SqlCommand(str, conn)scom.CommandType = CommandType.TextDim sexe = scom.ExecuteReader()If (sexe.Read() ThenMe.Visible = FalseMessageBox.Show(登陸成功，提示)Me.Visible = FalseIf ComboBox2.Text =管理員ThenMsgBox(歡迎您:& ComboBox2.Text, MsgBoxStyle.Info

19、rmation)Form1 .幫助 ToolStripMenuItem.Enabled = TrueForm1.菜單信息 ToolStripMenuItem.Enabled = TrueForm1.充值管理 ToolStripMenuItem.Enabled = TrueForm1.客戶信息 ToolStripMenuItem.Enabled = TrueForm1.系統(tǒng) ToolStripMenuItem.Enabled = TrueForm1 .結(jié)賬買單 ToolStripMenuItem.Enabled = TrueForm1.預(yù)訂管理 ToolStripMenuItem.Enabled

20、 = TrueForm1.職工管理 ToolStripMenuItem.Enabled = TrueForm1.Text =歡迎領(lǐng)導(dǎo)End IfIf ComboBox2.Text =員工ThenMsgBox(歡迎您:& ComboBox2.Text, MsgBoxStyle.Information)Form1 .幫助 ToolStripMenuItem.Enabled = TrueForm1.菜單信息 ToolStripMenuItem.Enabled = TrueForm1.充值管理 ToolStripMenuItem.Enabled = TrueForm1.客戶信息 ToolStripMe

21、nuItem.Enabled = TrueForm1.系統(tǒng) ToolStripMenuItem.Enabled = TrueForm1 .結(jié)賬買單 ToolStripMenuItem.Enabled = TrueForm1.預(yù)訂管理 ToolStripMenuItem.Enabled = TrueForm1.Text =歡迎您End IfMessageBox.Show(登陸成功，提示)ElseMessageBox.Show(用戶名或密碼不正確！，警告)End IfMe.Close()conn.Close()End SubEnd Class3.顧客信息添加刪除照片Private Sub Butt

22、on1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickIf OpenFileDialog1.ShowDialog() = DialogResult.OK ThenPictureBox3.Load(OpenFileDialog1.FileName)MsgBox(添加照片成功，關(guān)閉)EndEnd SubPrivate Sub PictureBox3_Click(ByVal sender As System.Object, ByVal e As System.EventAr

23、gs) Handles PictureBox3.ClickEnd SubPrivate Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.ClickPictureBox4.Image = NothingMsgBox(成功刪除)End SubPrivate Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e AsSystem.ComponentModel.CancelEventAr

24、gs) Handles OpenFileDialog1.FileOkOpenFileDialog1.Filter = Text Files (.jpg)|*.jpg|All Files (*.*)|*.*End Sub信息添加刪除修改Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickIf (Me.TextBox10.Text And Me.TextBox11.Text And Me.TextBox12.Text And Me.Tex

25、tBox13.T?xt ) ThenDimconnAsSqlConnection=NewSqlConnection(Server=(local);uid=sa;pwd=sa;Database=D: 新建文件夾EATFOODS.MDF)conn.Open()Dim mysql As Stringmysql = insert into rcustomer(name,call,passcode,id,addtime,userid) values(mysql += Me.TextBox10.Text.ToString()mysql +=,mysql += Me.TextBox11.Text.ToStr

26、ing()mysql +=,mysql += Me.TextBox12.Text.ToString()mysql +=,mysql += Me.TextBox1.Text.ToString()mysql +=,mysql += Me.TextBox2.Text.ToString()mysql +=,mysql += Me.TextBox3.Text.ToString() mysql +=)Dim sql As SqlCommandsql = New SqlCommand(mysql, conn)If Me.TextBox12.T?xt.ToString Me.TextBox13.Text.To

27、String Then MessageBox.Show(密碼不一致,重新輸入，提示) ReturnEnd IfIf (sql.ExecuteNonQuery() 0) Then MessageBox.Show(添加成功，提示) End If conn.Close()ElseMessageBox.Show(請核對信息是否完整！,提示)End IfEnd SubPrivate Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.ClickDimconnAsSqlC

28、onnection=NewSqlConnection(Server=(local);uid=sa;pwd=sa;Database=D: 新建文件夾EATFOODS.MDF)conn.Open()Dim mysql As Stringmysql = delete from ruser where name=mysql += Me.TextBox6.Textmysql +=Dim sql As SqlCommandsql = New SqlCommand(mysql, conn)If (sql.ExecuteNonQuery() 0) ThenMessageBox.Show(刪除成功，提示)End

29、 Ifconn.Close()End SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickIf (Me.TextBox1.Text And Me.TextBox2.Text And Me.TextBox3.Txt And Me.TextBox4.Text ) ThenDim conn As SqlConnection = NewSqlConnection(Server=(local);uid=sa;pwd=sa;Database

30、=D: 新建文件夾EATFOODS.MDF)conn.Open()Dim mysql As Stringmysql = update food set name=mysql += Me.TextBox1.Textmysql += ,price=mysql += Me.TextBox2.Textmysql += formulamysql += Me.TextBox3.Textmysql += ,effect=mysql += Me.TextBox4.Textmysql +=Dim sql As SqlCommandsql = New SqlCommand(mysql, conn)If (sql.

31、ExecuteNonQuery() 0) ThenMessageBox.Show(修改成功！，提示)conn.Close()ElseTryCatch ex As ExceptionMessageBox.Show(ex.Message)End TryEnd IfElseMessageBox.Show(信息未填完整，提示)End IfEnd Sub將信息顯示到表格Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.ClickDimconnAsSql

32、Connection=NewSqlConnection(Server=(local);uid=sa;pwd=sa;Database=D: 新建文件夾EATFOODS.MDF)Tryconn.Open()Catch ex As ExceptionMessageBox.Show(ex.Message)End TryDim command As New SqlCommand(select * from rcustomer where name like % + TextBox14.Text + %)command.CommandType = CommandType.Textcommand.Conne

33、ction = connDim dr As New SqlDataAdapterdr.SelectCommand = commandDim ds As New DataSetds = New DataSet()dr.Fill(ds, name)DataGridView1.DataSource = dsDataGridView1.DataMember = nameconn.Close()End SubPrivate Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.L

34、oadTODO:這行代碼將數(shù)據(jù)加載到表“ EatfoodsDataSet.rcustomer”中。您可以根 據(jù)需要移動(dòng)或刪除它。Me.RcustomerTableAdapter.Fill(Me.EatfoodsDataSet.rcustomer)End Sub4.其他幾個(gè)界面退訂Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button3.ClickDimconnAsSqlConnection=NewSqlConnection(Server=(local)

35、;uid=sa;pwd=sa;Database=D: 新建文件夾EATFOODS.MDF) conn.Open() Dim str As Stringstr = DataGridView3.Rows(DataGridView3.CurrentRow.Index).Cells(0).Value Dim mysql As Stringmysql = delete from corder where name= mysql += strDim sql As SqlCommand sql = New SqlCommand(mysql, conn) If (sql.ExecuteNonQuery() 0

36、) ThenMessageBox.Show(退訂成功，提示)End IfDataGridView3.Rows.RemoveAt(DataGridView3.CurrentRow.Index) conn.Close()End Sub支付Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDimconnAsSqlConnection=NewSqlConnection(Server=(local);uid=sa;pwd=sa;Databas

37、e=D: 新建文件夾EATFOODS.MDF) conn.Open() Dim mql As Stringmql = select money From corder where name=mql += Me.TextBox1.T?xt.ToString()mql +=Dim price As SqlCommandprice = New SqlCommand(mql, conn) price.CommandText = mql price.Connection = conn Dim totalpricetotalprice = price.ExecuteScalar()Me.TextBox2.Text = totalprice.ToStringDim mysql As Stringmysql = update rcustomer set money = money