数据库课程设计餐饮管理系统.docx
《数据库课程设计餐饮管理系统.docx》由会员分享，可在线阅读，更多相关《数据库课程设计餐饮管理系统.docx（30页珍藏版）》请在冰豆网上搜索。
数据库课程设计餐饮管理系统
摘 要
随着经济的发展社会的进步，去饭店过节聚会成为了一种新的时尚．因此每逢过年过节,饭店都会迎来大量的顾客,随之而来的就是大量的预定和结算信息将会使得饭店的工作人员不堪重负,并且不可避免的会出现这样或那样的错误.餐饮信息管理软件的诞生可以为他们提供便捷的管理服务。
并且几乎为零的错误率也使得餐馆可以更好的为顾客服务。
它不仅可以为餐馆降低人力资源的付出,节省了成本,而且也可以提升自身的形象,使餐厅迎来更多的食客。
本系统使用了ＶｉsualＳtudｉo2０10,SＱLserver２００8
使用本系统,员工将可以快速地编辑顾客资料信息,并且为客户提供订餐打折和充值服务。
管理员使用本系统，既可以完成员工的所有工作,又可以更好地管理员工,精准地了解员工账面的资金情况.除了这些,管理员还可以设定餐厅的菜单信息和折扣程度，从而使得管理员对餐厅的运营情况可以全面掌控。
一.需求分析
1.1开发背景
鉴于传统的人工管理方式的种种缺陷，我设计了方便中小级别餐饮企业使用的应用程序，通过它,管理者可以基本解决以上所遇到的种种问题，并且更加科学的对老客户进行打折,而且添加了主顾权限的不同设计使得它更加方便雇主对雇员的管理与监督。
１.２开发工具和相关技术简介
开发工具：
硬件:
笔记本
软件:
Windowｓ7、ＭiｃrosoftＶiｓｕａlStudｉｏ、 20１0Microsoft ＳQL Servｅr 2008
由于我们开发的事面向中小型,界面看起来温馨舒适，功能不是很多。
1.3需求分析
员工使用本餐饮信息管理系统应可以实现以下功能：
1.添加修改查询客户会员信息（修改客户信息需客户确认）
2.查询菜单
3.添加查询预定信息,为老顾客打折
4.客户可以在自己的会员账户里充值
5.顾客可以用现金买单也可以从会员账户里扣取
管理员使用本餐饮信息管理系统应可以实现以下功能：
1.添加修改查询客户会员信息（修改客户信息需客户确认）
2.添加修改查询菜单信息，最好能看到菜品图片
3.添加查询预定信息，为老顾客打折
4.客户可以在自己的会员账户里充值
5.顾客可以用现金买单也可以从会员账户里扣取
6.设定具体的打折方法
7.添加职员信息，权限也可以定为管理员.
8.可以查询使用者的现金收款金额
二.概念结构设计
２.1 系统功能模块的划分
图1用户登录
登录后管理员和员工的权限不同,管理员可以进入任何子菜单,二员工不可以进入职工管理和销售额统计.
系统流程分析
图2 系统流程图
流程图简介：
员工登录系统后为客户添加基本信息，客户可以根据需要在开通的账户里充值（增加用户的收款金额）.客户通过餐饮信息管理系统进行订餐（老用户在此环节中可能会享受打折服务）。
客户用完餐后来到服务台买单,用户可以选择使用现金或者从用户余额里扣除，支付成功会增加客户的已消费金额。
若余额不足,系统将会提示,那么客户只能使用现金支付.使用现金支付的话会增加用户的收款金额。
管理员登录的话可以使用员工的所有功能,而且可以设定为客户打折的折扣程度和添加菜单，以及管理员工账户。
三．逻辑结构设计
3．１ ER图设计
图3用户E—R图
主要存储一些用户信息,如用户的账号、密码和类型地点等等，主要用于用户登录，添加客户和添加预定时会使用到用户信息
图4 客户E-Ｒ图
主要存储一些客户信息,如客户的账号、联系方式和消费情况等等,主要用于客户订餐、充值和结算,使用于添加预定。
图５食谱E-R图
主要存储一些食谱信息，如食谱的名称、价格和照片等等，主要用于客户订餐,使用于添加预定。
图6 预定E-R图
主要存储一些预定信息，如客户的账号、预定的时间、桌号和菜单等等,主要用于记录客户的预定信息，会使用到用户、客户、菜单和折扣信息。
图７折扣E—R图
存储管理员设定的打折信息,用来计算打折后的应付金额，使用在添加预定时打折.
３.２数据表的设计
rusｅｒ（用户表）
序号
字段名称
字段描述
字段类型
长度
备注
1
Uｓer_iｄ
用户账号
Nvaｒchａrr
2０
不允许空
2
Pａsｓcｏｄe
用户密码
Nvarchar
20
不允许空
３
Ｓtｙle
用户类型
Ｎvａrｃharｒ
20
不允许空
４
Naｍe
用户姓名
Nvaｒchar
20
不允许空
５
Phonｅ
用户电话
Nvａrchar
2０
不允许空
6
Mｏney
收款金额
Money
７
Sex
用户性别
Nvａrchar
４
rcuｓtomeｒ（客户表）
序号
字段名称
字段描述
字段类型
长度
备注
1
Namｅ
客户名字
Nvarchar
20
不允许空
2
Id
客户编号
Nvarchａr
20
不允许空
3
Passcode
用户密码
Nvarchar
２0
不允许空
4
Addtime
添加时间
Ｎvａrchar
20
不允许空
5
Mｏney
账户余额
Moneｙ
6
Ｕsｅdmｏney
已用余额
Money
7
Pｈoto
客户照片
Ｉｍagｅ
8
Phonｅ
客户电话
Nvaｒchar
1２
９
Useriｄ
用户编号
Nvａrchaｒ
20
不允许空
ｆｏod（食谱表）
序号
字段名称
字段描述
字段类型
长度
备注
1
Ｎame
食谱名称
Nvarchaｒ
20
不允许空
2
Ｐrｉce
价格
Nvarchａr
３
Phoｔo
食物照片
Ｎvaｒchar
4
Fｏｒmula
配料
Nvａｒchａr
５０
5
Effecｔ
功效
Nvａrcｈａｒ
50
coｒdeｒ（预定表）
序号
字段名称
字段描述
字段类型
长度
备注
1
Ｔableiｄ
桌号
Nvarchａr
10
不允许空
2
Dａte
日期
Nvarcｈar
20
3
Naｍｅ
客户姓名
Nvarchaｒ
20
不允许空
4
Ｃuｓtoｍeｒｉｄ
客户身份
Nvaｒchar
10
5
Uｓerｉd
用户编号
Nｖarcｈar
１0
不允许空
６
Food
预定餐点
Nvarｃhar
Max
7
Moneｙ
消费金额
Mｏnｅy
discounｔ（折扣表）
序号
字段名称
字段描述
字段类型
长度
备注
1
Usedｍoｎey
已用金额
moneｙ
不允许空
2
Disｃouｎｔ
折扣
Nｖａrｃhａr
１0
四．数据库物理设计
1。
整个界面
ImportsＳystｅm。
Wｉndows.Ｆoｒms。
ＶisualStyles.VisualStyleElement.TａskｂarＣlｏck
PublicClassForm1
Priｖaｔe Sub退出ToｏlStｒiｐMenuItｅm_Click（ByValsenderＡsSysｔｅm.Objeｃt,ByVal eAs Sｙstem。
EventＡrgs） Ｈaｎdｌeｓ 退出ToolStrｉpMenuItｅｍ。
Clicｋ
Ｍe。
Ｃlｏse（）
EnｄSub
Priｖate Sｕｂ 系统ＴooｌＳtｒｉpMeｎuIｔem_Cliｃk（ByVaｌsｅｎｄｅrAsSystem.Obｊect，ByValｅＡｓＳyｓteｍ.EｖentArgs） Hanｄlｅs系统TooｌＳtripＭenuＩｔem.Cｌick
ＥｎdＳub
PriｖaｔeＳub 登录ToｏlＳtｒiｐMeｎｕItem＿Cｌｉcｋ（BｙVaｌseｎｄeｒAsSysｔem.Ｏbｊeｃt,ByVaｌe AsＳｙstｅm.EｖentArgs）Hanｄles登录ToolSｔripMeｎuＩtem。
Click
Form2。
Ｓｈｏｗ（）
ＥｎdSub
Priｖａtｅ Sｕb Form1_Ｌoaｄ（ByＶａlsendeｒAsSyｓtem。
Objｅcｔ, ByVal eAs Syｓｔem。
ＥvｅntAｒgｓ） ＨandlesＭyBａｓe。
Load
Me。
菜单信息ToｏｌSｔrｉｐMenｕIｔeｍ.Enａｂled=False
Ｍe．充值管理ＴoｏlＳtｒipMenuＩtｅm。
Enablｅd ＝Fａlse
Me。
结账买单ToolStｒｉpＭｅnｕIｔｅm.Ｅｎａbled =False
Ｍｅ。
客户信息ＴoolＳtripMenuＩtem。
Enablｅd = False
Me.预订管理TooｌStｒiｐMenｕＩtｅｍ。
Enａblｅd=False
Me.职工管理ToolStｒｉｐＭeｎuItｅm。
Eｎａbｌed=Fａlse
EndSub
PrivａteSuｂ客户信息ToolStrｉpMenuItｅm_Click（BｙＶaｌsｅnｄeｒ AｓSyｓtｅm。
Ｏbject，BｙVal eAs Syｓtem.EvｅntArgｓ）Handles客户信息ToｏlStripMｅnuIteｍ。
Cｌick
Form3.Shoｗ（）
EndSuｂ
PｒiｖateＳub菜单信息ＴoolSｔｒｉpMenuＩteｍ_Ｃliｃk（BｙValseｎdｅrAsSyｓtem.Obｊect， ByＶaｌeAｓ Sysｔem。
EvenｔAｒｇｓ） Handles菜单信息TｏｏlＳtripMｅnuIｔｅm。
Clicｋ
Fｏｒm4。
Ｓhｏw（）
ＥｎdＳub
Prｉvate Ｓｕb预订管理TｏoｌＳtrｉpMenuＩteｍ_Clｉｃk（ＢｙValsenderAsSysteｍ。
Objecｔ,ByVａle ＡsSystem．EvenｔＡｒgs）Handｌｅs 预订管理ＴｏolＳｔripMｅnuItｅｍ．Click
Form５.Sｈoｗ（）
EｎdSuｂ
PriｖａteＳub 充值管理TｏolStripMｅnuIteｍ_Ｃlick（ByＶalsｅnｄｅr AsSysｔeｍ。
Objecｔ，BｙVａle AsＳｙsｔeｍ。
EvｅntArgｓ） Handlｅs充值管理ToolStripＭｅｎｕItｅｍ.Clｉck
Ｆｏrm６。
Show（）
EndSub
Prｉvate Ｓub职工管理ToｏlStｒipMenｕItem_Ｃlick（ByValsｅnｄｅr ＡｓＳysｔem.Oｂject,BｙＶaｌeAsＳyｓteｍ。
EvｅｎtAｒgｓ）Handles职工管理ＴooｌSｔriｐＭenuItem.Cｌick
Fｏrｍ8．Show（）
ＥｎｄSub
Ｐrivate Sub结账买单ToｏlSｔｒｉpMenuItｅｍ_Clｉck（ＢyValｓenｄｅｒＡsSyｓteｍ．Ｏbｊect，ByValeAｓ System。
EventＡｒgｓ）Handles结账买单ToolStrｉpMenｕIｔem.Cｌｉck
Ｆｏｒm７．Ｓｈow（）
ＥndＳub
Private Sｕb帮助ToolSｔriｐMｅnｕＩｔｅｍ＿Ｃｌick（ByVａlsenderAs Systｅm。
Object，BｙValeAsSystｅm。
ＥｖentAｒgs） Ｈanｄleｓ帮助ＴoｏlＳtripMenuIｔｅm。
Ｃlｉｃｋ
Forｍ9.Sｈow（）
End Sub
Prｉvate ＳubTimer1_Ｔｉｃｋ（ByVal ｓendｅr AsSystem。
Object,BｙVａｌeAsＳｙstｅm．EvｅntＡrgs） HandｌeｓTimer１。
Ｔick
Labｅｌ３．Text＝Now（）
End Sub
ＥndClａss
2。
登录
IｍpoｒtsＳystem。
Ｄatａ
IｍｐortsＳｙstｅm.Ｄatａ.SqｌClieｎｔ
Puｂlic ClａssForm2
PriｖａteSubBｕｔtoｎ4_Clｉck（ByValsenｄerAｓSystem.Objeｃt, ByValeAsSysteｍ。
EvｅntArgs）ＨanｄlesBｕttoｎ4。
Clｉｃk
Me。
Closｅ（）
End Sｕｂ
PriｖａｔeSuｂ Button3_Cliｃk（ByVal sｅｎdeｒAsSystem。
Object,ＢyＶaｌ eAs Sｙsｔem。
EvｅntArgs）HandlesButton3。
Cｌick
IｆTextBｏｘ３。
Text.Trｉm=＂”Oｒ TextＢoｘ4.Ｔext。
Ｔrim= "”Then
MｓｇBoｘ（”请填写用户名和密码＂，ＭｓgBｏxSｔｙｌe.Ｅｘｃlamatiｏn）
Exit Ｓｕｂ
End Iｆ
＇ｃonnecｔSQＬ（）
Ｄｉm conｎＡｓSｑｌConnecｔｉoｎ＝NｅwSqlCｏnnectiｏn（＂Sｅrｖer=（local）；ｕid=sa;ｐwd=sa；Daｔａbase=D：
\新建文件夹\EＡTＦOODS。
MＤF”）
coｎｎ．Oｐen（）
ＤｉmstrＡs Stｒing
str="ｓｅlｅct*ｆromrｕserwhere uｓeｒ_id ＝'”+TextＢox3。
Text +”'aｎdpasｓcode＝’＂+TextBox４.Text + "’aｎd styｌe＝'" + CｏmboBox2.Ｔext+”’"
Dｉｍscom ＝NeｗSqlCｌｉent.SqｌCommaｎd（ｓtr, conn）
scom.ＣoｍmaｎdType =CｏmmandTyｐe。
Text
Dｉmsｅｘｅ＝ scｏm.ExecｕteReader（）
If （sｅxe．Ｒead（））Thｅn
Me。
Ｖisｉｂle ＝ False
MeｓｓaｇeＢox。
Shｏｗ（”登陆成功",”提示"）
Ｍe.Visｉblｅ＝False
If CoｍboBoｘ2。
Teｘｔ＝＂管理员” Ｔhen
ＭsgBox（"欢迎您:
＂ & CombｏBox2。
Texｔ,MsgBｏｘStylｅ。
Infoｒmation）
Forｍ1。
帮助ToolＳtripＭｅｎuIｔem．Enaｂｌed=True
Form1.菜单信息TooｌSｔｒipMｅｎｕItｅm.Eｎableｄ=True
Ｆorｍ１．充值管理ＴoolStripＭenuItｅｍ.Eｎabｌeｄ=True
Fｏrｍ1.客户信息ＴoｏlStｒipMenｕＩtem。
Ｅnaｂｌeｄ=True
Form1.系统ToolＳtｒipMenｕItem。
Ｅｎａblｅd=Truｅ
Fｏrm1。
结账买单ＴoolStripMｅnuItem.Ｅnaｂled =Ｔｒuｅ
Form１。
预订管理ＴoolStrｉpMenuIteｍ．Eｎabｌｅｄ＝ True
Ｆoｒm１。
职工管理ToolStriｐＭｅｎuItem。
Enabled＝Tｒue
Forｍ1。
Tｅｘｔ ＝”欢迎领导"
ＥndIf
IfＣomboBｏx2.Teｘt=”员工＂Then
MsgＢox（”欢迎您:
" &ComｂoBoｘ2.Tｅxt, ＭsgBｏｘＳtyle.Information）
Fｏｒm１。
帮助TｏｏｌStripMenuItem。
Eｎableｄ =Ｔｒｕe
Ｆorm1.菜单信息ＴoｏlStrｉpMenuItｅm。
Enabled = Truｅ
Form1。
充值管理TｏolStriｐMeｎuＩｔem。
Enabled=Truｅ
Fｏrｍ1。
客户信息ToｏｌStriｐＭenｕIｔeｍ。
Enablｅd=Truｅ
Ｆｏrｍ1。
系统ＴoolStｒipMｅnｕItem.Ｅｎabled=True
Forｍ1。
结账买单ＴoｏlＳtripＭenuItem．Enａbｌeｄ= Ｔrｕe
Forｍ1.预订管理ToolＳtripMｅｎuIteｍ。
Enablｅd=Trｕｅ
Foｒm1。
Text= "欢迎您”
EnｄIf
’ＭessageBoｘ。
Show（"登陆成功”，"提示"）
Else
ＭessageBox．Ｓhｏw（”用户名或密码不正确！
＂，"警告＂）
EndＩf
Me。
Ｃlｏse（）
conｎ．Close（）
Ｅnd Ｓub
EｎdClａsｓ
3。
顾客信息
添加删除照片
Ｐrivate SｕbＢuttｏn1＿Clｉck（ByValｓｅｎderＡsＳyｓteｍ。
Objecｔ,ＢyＶal eＡｓＳyｓtem.EｖｅｎtＡrｇs）HanｄlｅsBｕtｔｏｎ１。
Ｃlick
IfOｐenFileＤialog1。
ShowDialog（） =ＤialogReｓuｌt。
OＫ Tｈen ＰicｔureBｏx3.Loａd（ＯpｅnFileDialｏｇ1.FilｅNamｅ）
MｓｇＢｏｘ（"添加照片成功,关闭"）
Enｄ
ＥnｄSｕb
PrivaｔeSｕbPictureBox3＿Cｌｉcｋ（ByVal seｎｄerAsＳysｔeｍ。
Ｏbject,ByVａlｅＡs Sysｔｅm.EvｅntArgs） HａnｄlｅｓＰictuｒeＢｏx3。
Cｌｉck
Eｎd Sub
PrivａtｅSubButtoｎ8_Ｃlick（ＢｙVaｌsendｅｒ ＡｓSystem。
Ｏｂject， ByVale AｓSyｓtem.ＥvｅntAｒgs）HandｌesBｕtton8.Clｉcｋ
PiｃｔureBｏｘ4。
Imａｇe= Ｎotｈing
MsgBox（”成功删除”）
ＥｎdＳuｂ
ＰrivaｔｅＳｕbOpｅnFilｅＤialoｇ1_FileOk（ByＶalsendｅrAsSysteｍ.Object,ByVaｌeAs Syｓtｅm.CｏmｐｏｎentMｏｄｅｌ。
ＣancｅlＥventＡrｇs） ＨandｌesOpenFilｅDｉalｏｇ1．FｉlｅOk
ＯpenFiｌｅDiａｌoｇ1。
Ｆilter =”TextFileｓ（.jpg）|*。
jpg|AllＦiles（*。
*）|＊。
＊”
EｎｄSub
信息添加删除修改
ＰrivａteＳubButｔｏｎ2＿Cliｃk（ByＶalｓendｅｒ ＡｓSysｔem。
Obｊect，ByVal eAｓSyｓｔem.EvｅnｔArgs）HａnｄleｓButｔoｎ２。
Clｉck
If（Ｍe.TｅxtＢox10．Text＜>"”ＡndMｅ.TｅxtBoｘ１1.Tｅｘｔ<>"＂And Mｅ。
TextＢox１2．Texｔ＜〉”＂ And Me。
TextBox13。
Ｔext 〈〉"”）Then
Ｄim connAsSqｌＣonnectｉon=ＮeｗSqlＣonnecｔion（”Seｒver=（ｌocal）;uid=sa;pwd=sa;Datａbase=D:
\新建文件夹\EATFOODＳ。
MDＦ”）
conn。
Ｏpｅｎ（）
ＤｉmｍyｓqlAs String
mｙｓｑl =”insertiｎto rcuｓtomer（namｅ,calｌ,ｐasｓcode，id,adｄtime，usｅrid）valuｅｓ（'”
ｍysql+= Ｍe.TｅxtBoｘ10.Tｅxｔ。
TｏＳtring（）
myｓql+=＂’,＇"
mysql +=Mｅ。
TｅxtＢｏx11。
Tｅxt．ＴoSｔring（）
mysql＋=”’，’"
ｍｙsql+=Me.TextBox１2。
Text.ToＳtｒｉｎg（）
mysql+= ”',’"
mysｑｌ +=Me.TexｔBox１.Text.ToString（）
myｓｑｌ +=＂'，'”
mysql＋＝Me.TｅxtBｏx２。
Tｅｘt．TｏＳｔｒing（）
ｍysql+=”’,’”
ｍysqｌ +=Mｅ。
TｅｘtBoｘ3.Ｔeｘt.ToStrｉng（）
mysqｌ +=”’）"
Ｄim sqlＡｓＳｑlCｏｍｍand
ｓql=NｅwSqlＣｏｍmand（ｍｙｓql,conn）
IfMｅ.TｅxtBoｘ12．Tｅｘｔ.ＴoString〈〉Ｍe。
ＴextBox13．Text．ToStｒinｇTheｎ
MｅssageBｏx.Ｓhow（"密码不一致，重新输入＂，”提示＂）
Retｕrn
Ｅnd If
If （sｑl．ExecuteNonＱuery（）〉 0）Ｔｈｅn
MesｓaｇeBox.Sｈow（”添加成功", "提示”）
Enｄ If
conn．Close（）
Else
MｅssageBoｘ.Sｈow（"请核对信息是否完整!
",”提示”）
EndIf
ＥnｄSｕb
Ｐrｉｖａte ＳuｂＢｕtｔon４＿Ｃlick（ByVａｌsenｄeｒ AｓSystｅm。
Obｊect, ByVaｌe AsSystem。
EventArgs）Haｎdlｅs Ｂｕttｏn4。
Ｃlick
Dimｃｏnn ＡｓSqlConnｅcｔioｎ＝NewSqlＣonnｅction（"Serveｒ=（ｌocａl）;uiｄ=sa；pwd=sa；Dataｂaｓe=D:
\新建文件夹\EAＴＦＯOＤS。
MDF"）
conｎ．Opｅn（
升级会员 