数据库课程设计餐饮管理系统.docx

数据库课程设计餐饮管理系统.docx

《数据库课程设计餐饮管理系统.docx》由会员分享，可在线阅读，更多相关《数据库课程设计餐饮管理系统.docx（28页珍藏版）》请在冰豆网上搜索。

数据库课程设计餐饮管理系统

摘要

随着经济的发展社会的进步，去饭店过节聚会成为了一种新的时尚。

因此每逢过年过节，饭店都会迎来大量的顾客，随之而来的就是大量的预定和结算信息将会使得饭店的工作人员不堪重负，并且不可避免的会出现这样或那样的错误。

餐饮信息管理软件的诞生可以为他们提供便捷的管理服务。

并且几乎为零的错误率也使得餐馆可以更好的为顾客服务。

它不仅可以为餐馆降低人力资源的付出，节省了成本，而且也可以提升自身的形象，使餐厅迎来更多的食客。

本系统使用了VisualStudio2010，SQLserver2008

使用本系统，员工将可以快速地编辑顾客资料信息，并且为客户提供订餐打折和充值服务。

管理员使用本系统，既可以完成员工的所有工作，又可以更好地管理员工，精准地了解员工账面的资金情况。

除了这些，管理员还可以设定餐厅的菜单信息和折扣程度，从而使得管理员对餐厅的运营情况可以全面掌控。

一．需求分析

1.1开发背景

鉴于传统的人工管理方式的种种缺陷，我设计了方便中小级别餐饮企业使用的应用程序，通过它，管理者可以基本解决以上所遇到的种种问题，并且更加科学的对老客户进行打折，而且添加了主顾权限的不同设计使得它更加方便雇主对雇员的管理与监督。

1.2开发工具和相关技术简介

开发工具：

硬件：

笔记本

软件：

Windows7、MicrosoftVisualStudio、2010MicrosoftSQLServer2008

由于我们开发的事面向中小型，界面看起来温馨舒适，功能不是很多。

1.3需求分析

员工使用本餐饮信息管理系统应可以实现以下功能：

1.添加修改查询客户会员信息（修改客户信息需客户确认）

2.查询菜单

3.添加查询预定信息，为老顾客打折

4.客户可以在自己的会员账户里充值

5.顾客可以用现金买单也可以从会员账户里扣取

管理员使用本餐饮信息管理系统应可以实现以下功能：

1.添加修改查询客户会员信息（修改客户信息需客户确认）

2.添加修改查询菜单信息，最好能看到菜品图片

3.添加查询预定信息，为老顾客打折

4.客户可以在自己的会员账户里充值

5.顾客可以用现金买单也可以从会员账户里扣取

6.设定具体的打折方法

7.添加职员信息，权限也可以定为管理员。

8.可以查询使用者的现金收款金额

二．概念结构设计

2.1系统功能模块的划分

图1用户登录

登录后管理员和员工的权限不同，管理员可以进入任何子菜单，二员工不可以进入职工管理和销售额统计。

系统流程分析

图2系统流程图

流程图简介：

员工登录系统后为客户添加基本信息，客户可以根据需要在开通的账户里充值（增加用户的收款金额）。

客户通过餐饮信息管理系统进行订餐（老用户在此环节中可能会享受打折服务）。

客户用完餐后来到服务台买单，用户可以选择使用现金或者从用户余额里扣除，支付成功会增加客户的已消费金额。

若余额不足，系统将会提示，那么客户只能使用现金支付。

使用现金支付的话会增加用户的收款金额。

管理员登录的话可以使用员工的所有功能，而且可以设定为客户打折的折扣程度和添加菜单，以及管理员工账户。

三．逻辑结构设计

3.1ER图设计

图3用户E-R图

主要存储一些用户信息，如用户的账号、密码和类型地点等等，主要用于用户登录，添加客户和添加预定时会使用到用户信息

图4客户E-R图

主要存储一些客户信息，如客户的账号、联系方式和消费情况等等，主要用于客户订餐、充值和结算，使用于添加预定。

图5食谱E-R图

主要存储一些食谱信息，如食谱的名称、价格和照片等等，主要用于客户订餐，使用于添加预定。

图6预定E-R图

主要存储一些预定信息，如客户的账号、预定的时间、桌号和菜单等等，主要用于记录客户的预定信息，会使用到用户、客户、菜单和折扣信息。

图7折扣E-R图

存储管理员设定的打折信息，用来计算打折后的应付金额，使用在添加预定时打折。

3.2数据表的设计

ruser（用户表）

序号

字段名称

字段描述

字段类型

长度

备注

1

User_id

用户账号

Nvarcharr

20

不允许空

2

Passcode

用户密码

Nvarchar

20

不允许空

3

Style

用户类型

Nvarcharr

20

不允许空

4

Name

用户姓名

Nvarchar

20

不允许空

5

Phone

用户电话

Nvarchar

20

不允许空

6

Money

收款金额

Money

7

Sex

用户性别

Nvarchar

4

rcustomer（客户表）

序号

字段名称

字段描述

字段类型

长度

备注

1

Name

客户名字

Nvarchar

20

不允许空

2

Id

客户编号

Nvarchar

20

不允许空

3

Passcode

用户密码

Nvarchar

20

不允许空

4

Addtime

添加时间

Nvarchar

20

不允许空

5

Money

账户余额

Money

6

Usedmoney

已用余额

Money

7

Photo

客户照片

Image

8

Phone

客户电话

Nvarchar

12

9

Userid

用户编号

Nvarchar

20

不允许空

food（食谱表）

序号

字段名称

字段描述

字段类型

长度

备注

1

Name

食谱名称

Nvarchar

20

不允许空

2

Price

价格

Nvarchar

3

Photo

食物照片

Nvarchar

4

Formula

配料

Nvarchar

50

5

Effect

功效

Nvarchar

50

corder（预定表）

序号

字段名称

字段描述

字段类型

长度

备注

1

Tableid

桌号

Nvarchar

10

不允许空

2

Date

日期

Nvarchar

20

3

Name

客户姓名

Nvarchar

20

不允许空

4

Customerid

客户身份

Nvarchar

10

5

Userid

用户编号

Nvarchar

10

不允许空

6

Food

预定餐点

Nvarchar

Max

7

Money

消费金额

Money

discount（折扣表）

序号

字段名称

字段描述

字段类型

长度

备注

1

Usedmoney

已用金额

money

不允许空

2

Discount

折扣

Nvarchar

10

四．数据库物理设计

1.整个界面

ImportsSystem.Windows.Forms.VisualStyles.VisualStyleElement.TaskbarClock

PublicClassForm1

PrivateSub退出ToolStripMenuItem_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles退出ToolStripMenuItem.Click

Me.Close（）

EndSub

PrivateSub系统ToolStripMenuItem_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles系统ToolStripMenuItem.Click

EndSub

PrivateSub登录ToolStripMenuItem_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles登录ToolStripMenuItem.Click

Form2.Show（）

EndSub

PrivateSubForm1_Load（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesMyBase.Load

Me.菜单信息ToolStripMenuItem.Enabled=False

Me.充值管理ToolStripMenuItem.Enabled=False

Me.结账买单ToolStripMenuItem.Enabled=False

Me.客户信息ToolStripMenuItem.Enabled=False

Me.预订管理ToolStripMenuItem.Enabled=False

Me.职工管理ToolStripMenuItem.Enabled=False

EndSub

PrivateSub客户信息ToolStripMenuItem_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles客户信息ToolStripMenuItem.Click

Form3.Show（）

EndSub

PrivateSub菜单信息ToolStripMenuItem_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles菜单信息ToolStripMenuItem.Click

Form4.Show（）

EndSub

PrivateSub预订管理ToolStripMenuItem_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles预订管理ToolStripMenuItem.Click

Form5.Show（）

EndSub

PrivateSub充值管理ToolStripMenuItem_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles充值管理ToolStripMenuItem.Click

Form6.Show（）

EndSub

PrivateSub职工管理ToolStripMenuItem_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles职工管理ToolStripMenuItem.Click

Form8.Show（）

EndSub

PrivateSub结账买单ToolStripMenuItem_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles结账买单ToolStripMenuItem.Click

Form7.Show（）

EndSub

PrivateSub帮助ToolStripMenuItem_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles帮助ToolStripMenuItem.Click

Form9.Show（）

EndSub

PrivateSubTimer1_Tick（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesTimer1.Tick

Label3.Text=Now（）

EndSub

EndClass

2.登录

ImportsSystem.Data

ImportsSystem.Data.SqlClient

PublicClassForm2

PrivateSubButton4_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton4.Click

Me.Close（）

EndSub

PrivateSubButton3_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton3.Click

IfTextBox3.Text.Trim=""OrTextBox4.Text.Trim=""Then

MsgBox（"请填写用户名和密码",MsgBoxStyle.Exclamation）

ExitSub

EndIf

'connectSQL（）

DimconnAsSqlConnection=NewSqlConnection（"Server=（local）;uid=sa;pwd=sa;Database=D:

\新建文件夹\EATFOODS.MDF"）

conn.Open（）

DimstrAsString

str="select*fromruserwhereuser_id='"+TextBox3.Text+"'andpasscode='"+TextBox4.Text+"'andstyle='"+ComboBox2.Text+"'"

Dimscom=NewSqlClient.SqlCommand（str,conn）

scom.CommandType=CommandType.Text

Dimsexe=scom.ExecuteReader（）

If（sexe.Read（））Then

Me.Visible=False

MessageBox.Show（"登陆成功","提示"）

Me.Visible=False

IfComboBox2.Text="管理员"Then

MsgBox（"欢迎您:

"&ComboBox2.Text,MsgBoxStyle.Information）

Form1.帮助ToolStripMenuItem.Enabled=True

Form1.菜单信息ToolStripMenuItem.Enabled=True

Form1.充值管理ToolStripMenuItem.Enabled=True

Form1.客户信息ToolStripMenuItem.Enabled=True

Form1.系统ToolStripMenuItem.Enabled=True

Form1.结账买单ToolStripMenuItem.Enabled=True

Form1.预订管理ToolStripMenuItem.Enabled=True

Form1.职工管理ToolStripMenuItem.Enabled=True

Form1.Text="欢迎领导"

EndIf

IfComboBox2.Text="员工"Then

MsgBox（"欢迎您:

"&ComboBox2.Text,MsgBoxStyle.Information）

Form1.帮助ToolStripMenuItem.Enabled=True

Form1.菜单信息ToolStripMenuItem.Enabled=True

Form1.充值管理ToolStripMenuItem.Enabled=True

Form1.客户信息ToolStripMenuItem.Enabled=True

Form1.系统ToolStripMenuItem.Enabled=True

Form1.结账买单ToolStripMenuItem.Enabled=True

Form1.预订管理ToolStripMenuItem.Enabled=True

Form1.Text="欢迎您"

EndIf

'MessageBox.Show（"登陆成功","提示"）

Else

MessageBox.Show（"用户名或密码不正确！

","警告"）

EndIf

Me.Close（）

conn.Close（）

EndSub

EndClass

3.顾客信息

添加删除照片

PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click

IfOpen（）=DialogResult.OKThenPictureBox3.Load（Open）

MsgBox（"添加照片成功，关闭"）

End

EndSub

PrivateSubPictureBox3_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesPictureBox3.Click

EndSub

PrivateSubButton8_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton8.Click

PictureBox4.Image=Nothing

MsgBox（"成功删除"）

EndSub

PrivateSubOpen（ByValsenderAsSystem.Object,ByValeAsSystem.ComponentModel.CancelEventArgs）HandlesOpen

Open="TextFiles（.jpg）|*.jpg|AllFiles（*.*）|*.*"

EndSub

信息添加删除修改

PrivateSubButton2_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton2.Click

If（Me.TextBox10.Text<>""AndMe.TextBox11.Text<>""AndMe.TextBox12.Text<>""AndMe.TextBox13.Text<>""）Then

DimconnAsSqlConnection=NewSqlConnection（"Server=（local）;uid=sa;pwd=sa;Database=D:

\新建文件夹\EATFOODS.MDF"）

conn.Open（）

DimmysqlAsString

mysql="insertintorcustomer（name,call,passcode,id,addtime,userid）values（'"

mysql+=Me.TextBox10.Text.ToString（）

mysql+="','"

mysql+=Me.TextBox11.Text.ToString（）

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+="'）"

DimsqlAsSqlCommand

sql=NewSqlCommand（mysql,conn）

IfMe.TextBox12.Text.ToString<>Me.TextBox13.Text.ToStringThen

MessageBox.Show（"密码不一致,重新输入","提示"）

Return

EndIf

If（sql.ExecuteNonQuery（）>0）Then

MessageBox.Show（"添加成功","提示"）

EndIf

conn.Close（）

Else

MessageBox.Show（"请核对信息是否完整！

","提示"）

EndIf

EndSub

PrivateSubButton4_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton4.Click

DimconnAsSqlConnection=NewSqlConnection（"Server=（local）;uid=sa;pwd=sa;Database=D:

\新建文件夹\EATFOODS.MDF"）

conn.Open（）

DimmysqlAsString

mysql="deletefromruserwherename='"

mysql+=Me.TextBox6.Text

mysql+="'"

DimsqlAsSqlCommand

sql=NewSqlCommand（mysql,conn）

If（sql.ExecuteNonQuery（）>0）Then

MessageBox.Show（"删除成功","提示"）

EndIf

conn.Close（）

EndSub

PrivateSubButton2_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton2.Click

If（Me.TextBox1.Text<>""AndMe.TextBox2.Text<>""AndMe.TextBox3.Text<>""AndMe.TextBox4.Text<>""）Then

DimconnAsSqlConnection=NewSqlConnection（"Server=（local）;uid=sa;pwd=sa;Database=D:

\新建文件夹\EATFOODS.MDF"）

conn.Open（）

DimmysqlAsString

mysql="updatefoodsetname='"