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

数据库课程设计餐饮管理系统.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（