饭店餐饮管理系统设计说明样本.docx

1、饭店餐饮管理系统设计说明样本X x 学 院面向对象程序设计课程设计说明书题目： 饭店餐饮管理系统 系(部)： 电子和通信工程系 专业(班级)： 07级电子信息工程专业1班 姓名： 万xx 学号： xxxxxx 指导老师： 马xx、谢xx 起止日期： .11.29.12.4 课程任务书课题名称饭店餐饮管理系统设计内容及要求设计一个饭店餐饮管理系统，要求界面美观，含有操作菜单及工具栏；系统应包含下列功效模块：用户管理模块：用户登录、用户添加、删除、密码修改功效。用户依据口令进入系统，不一样用户拥有不一样权限：可读可写、只读、只读部分信息。菜单浏览模块：能浏览饭店全部菜品、菜样及价格，要求能显示菜样

2、图片。点菜模块：进行点菜操作后能预览点菜结果，并统计金额；买单模块：进行买单操作，可统计菜单信息、时间信息及收款员等相关信息，并实现全款买单、打折买单及免单等功效；要求能按时间段查询买单信息。留言模块：统计并浏览用户意见和提议；抽奖功效：当用户消费达成指定金额时，可分档抽取小奖品。 长沙学院课程设计判定表姓名 万xx学号xxxxxx专业电子信息工程班级1设计题目饭店餐饮管理系统指导老师马xx、谢xx指导老师意见：评定等级： 老师署名： 日期： 答辩小组意见：评定等级：答辩小组长署名：日期：教研室意见：教研室主任署名： 日期： 系（部）意见：系主任署名：日期：说明课程设计成绩分“优异”、“良好”

3、、“及格”、“不及格”四类；1设计思绪分析.51.1、Access数据库51.2、餐厅系统.52系统结构设计及分析 6. 2.1、部分程序和窗体63设计总结15参考文件. 16 摘 要 中国是举世著名美食大国，拥有五千年饮食文化和巨大餐饮市场，满足个人温饱问题已不是当今热点，大家生活方法逐步在转变着，饮食已经成为了一个时尚，一个享受。民以食为天，伴随人民生活水平和生活方法转变，逐步大家发觉餐饮业含有巨大投资市场。伴随餐饮业投资者不停涌入，很多新一代快餐店，披萨店，餐馆在中国开始风靡，随地可见。 现在，国外饮食企业进入中国，同时也是中国企业进入国际市场关键开端，由此必将为中国外饮食企业提供愈加宽

4、广市场机会。餐饮业不仅面临着巨大发展机遇，也面临着前所未有挑战和考验。伴随中国对外不停开放，会有大量企业或企业介入到餐饮领域。同时，伴随中国兑现承诺和中国社会信息化深化，很多地域性企业“环境优势”对国外企业障碍和不利条件被不停地消除，中国市场竞争将更为猛烈，而且伴随餐饮业快速扩展，其中所暴露问题也是不容忽略。 首先，人才专业化程度不够造成内供不足：因餐饮业门坎较低，中国大多数餐饮企业老板是从小店发展起来，家族式管理居多，还没有发展到聘用职业经理人，很多还是人治，并没有一套现代企业制度和监督管理体制，所以从观念意识、经营思想和管理水平还有待专业化。其次，应变能力差，缺乏优异信息工具：现在餐饮市场

5、火爆，很多以前做电子、房地产等其它行业老板全部凭借雄厚资金实力挤进餐饮市场，争先恐后上规模、上档次、比菜品、比服务、拼价格，使餐饮市场竞争猛烈，不过很多餐饮企业缺乏对市场应变能力和灵敏信息工具，在现今网络经济时代，很多餐饮企业还处于手工及半手工状态，即使有计算机也只当个点菜器和计算器用，并没有真正经过计算机系统来实现改造步骤、强化管理、降低成本、堵漏节流等作用。 最终缺乏科学和标准管理体系：国外著名快餐连锁经过上百年探索全部形成了标准化工作步骤和方法。中餐因其菜品多样化和特色化服务极难实现标准化管理，这使中餐企业成本控制极难实现，但近两年也出现了引进快餐式经营特点中餐企业，从步骤、服务、出品全

6、部开了中餐标准化先河。信息系统引进，则会缓解和处理以上问题：首先，餐饮管理信息系统不是单纯用于结帐计算工具，它有着科学、标准管理体系，它是经过对现在餐饮市场具体情况科学调研分析后设计而成，它能够针对中餐因其菜品多样化和特色化服务极难实现标准化管理，使中餐企业成本控制极难实现这些问题给和处理。其次，餐饮管理信息系统能够给出具体对应符合企业本身要求较科学标准化管理步骤，这临时缓解了专业人才需求，经过使用该系统就能完成专业人员所要做事。最终，餐饮管理信息系统能够针对企业经营现实状况而做出科学分析，使得企业对市场应变能力得到了提升，从而经过餐饮管理信息系统来实现强化管理、降低成本、堵漏节流等作用。愈加

7、好完善企业经营管理，提升企业本身竞争实力。一、设计思绪1.1、 Access数据库 Access 就是关系数据库开发工具，数据库能聚集多种信息以供查询、存放和检索。那么什么叫数据库呢？数据库(Database)是由部分有意义和相关系数据(data)所组合而成。一个数据库中，包含了很多条统计(Record),而每条统计是由多个字段(Field)所组成,不一样字段存放这不一样数据。所以数据库严格定义是一组相关统计集合，而字段则是最基础数据项，也是数据库中最小单位。在计算机中用来帮我们管理数据库系统，我们称之为数据库管理管理系统（Database Management System DBMS）。数据

8、库管理系统是架构在一个或多个数据库之上，并针对数据库中数据进行管理利用。 Access 优点在于它能使用数据表示图或自定义窗体搜集信息，数据表示图提供了一个类似于 Excel 电子表格，能够使数据库一目了然。另外，Access 许可创建自定义报表用于打印或输出数据库中信息。Access也提供了数据存放库，能够使用桌面数据库文件把数据库文件置于网络文件服务器，和其它网络用户共享数据库。如上所述，Access 作为关系数据库开发含有了很多优点，能够在一个数据包中同时拥有桌面数据库便利和关系数据库强大功效1.2、餐厅系统餐厅系统是按中国餐饮行业最新要求开发全新概念信息管理系统。该系统将餐厅收银、往来

9、帐务结算管理及销售情况统计工作在单微机或网络系统中完成。关键特点包含：（1）代码菜谱编制，方便统计，方便输入；（2）开单、改单、结算、打印、用户界面方便友好；（3）系统专设往来帐、内部帐，结算方法灵活多样，结算信息详尽翔实；（4）帐务系统可扩充性。因为餐厅业务扩展，势必需求帐务结算系统随之扩展，在不修改程序前提下，本系统可在相当可观范围内，由用户扩展其营业项目和结算手段。（5）帐务操作数据可校验性。本系统提供了多个方便查询、校核和统计功效，供帐务操作人员和专职核数人员自核及校对帐务数据。比如，当班收银员下班时直接统计当班期间输单、收银情况。为餐饮企业管理人员提供立即正确经营情况和帐务信贷情况。

10、餐厅系统需要完成功效有以下几点。（1）美食档案：添加、修改、按菜系、原料、烹饪方法查询（2）订餐管理：订餐、订餐修改、订餐取消、订餐查询。（3）收款管理：立帐、折扣设定。（4）销售查询：可按年、月、日检验销售情况，也可按销售额查询并画出销售额图表。 二系统结构设计及分析上面我们创建了饭店餐饮管理系统中餐饮管理部分数据库结构。Access 优点在于它能使用数据表示图或自定义窗体搜集信息，数据表示图提供了一个类似于 Excel 电子表格，能够使数据库一目了然。另外，Access 许可创建自定义报表用于打印或输出数据库中信息。Access也提供了数据存放库，能够使用桌面数据库文件把数据库文件置于网络

11、文件服务器，和其它网络用户共享数据库。2.1、部分程序和窗体-frmmain进入主页面Private Sub Form_Load()strExplain(0) = 由餐饮部门工作人员输入多种菜肴原始资料，以供编辑菜单使用。strExplain(1) = 编辑、制作出令客人满意菜单，并可预览所点多种美味佳肴，同时管理收费。strExplain(2) = 供餐饮部门经理查看多种销售统计，统计分析多种数据。strExplain(3) = 退出美食向导程序。strExplain(4) = 本产品用于各级酒店餐饮部门订餐点菜及收费管理。Private Sub lblDir_Click(Index As

12、Integer)lblDir(Index).MousePointer = 11Select Case Index Case 0 If MsgBox(您是“ & strHotelName & ”餐饮部门工作人员吗？, vbYesNo + vbQuestion, 美食档案-输入、编辑菜单原始资料) = vbNo Then Exit Sub End If frmInput.Show Me.Hide Case 1 Load frmGuest Case 2 If MsgBox(您是“ & strHotelName & ”餐饮部门管理人员吗？, vbYesNo + vbQuestion, 美食档案-销量查

13、询) = vbNo Then Exit Sub End If Load frmQuery Case 3 If MsgBox(要退出美食向导吗？, vbQuestion + vbYesNo, 退出提醒) = vbNo Then Exit Sub End If Dim frm As Form For Each frm In Forms Unload frm Next EndEnd SelectEnd Sub-frmguest(code)能够订餐、点餐、查看菜系等 Private Sub cmdAdd_Click()If lstCustomer.ListCount = 0 Then If Trim(

14、txtCustomerID) = Then MsgBox 请填写您标识！, vbInformation, 订餐提醒 txtCustomerID = txtCustomerID.SetFocus Exit Sub End If If Trim(txtSetCount) = Then MsgBox 请填写订餐套数！, vbInformation, 订餐提醒 txtSetCount = txtSetCount.SetFocus Exit Sub End If If Trim(txtOrderDate) = Then MsgBox 请填写订餐日期！, vbInformation, 订餐提醒 txtOr

15、derDate = txtOrderDate.SetFocus Exit Sub Else With txtOrderDate If IsDate(Trim(.Text) Then .Text = Format(Trim(.Text), YYYY-MM-DD) Else MsgBox 订餐日期无效！请按默认日期格式填写。, vbInformation, 订餐提醒 .Text = Format(Date, YYYY-MM-DD) .SetFocus .SelStart = 0 .SelLength = Len(txtOrderDate) Exit Sub End If End With End

16、If If Trim(txtDinnerDate) = Then MsgBox 请填写用餐日期！, vbInformation, 订餐提醒 txtDinnerDate = txtDinnerDate.SetFocus Exit Sub Else With txtDinnerDate If IsDate(Trim(.Text) Then .Text = Format(Trim(.Text), YYYY-MM-DD) Else MsgBox 用餐日期无效！请按默认日期格式填写。, vbInformation, 订餐提醒 .Text = Format(Date, YYYY-MM-DD) .SetFo

17、cus .SelStart = 0 .SelLength = Len(txtOrderDate) Exit Sub End If End With End If Rec2.FindFirst CustomerID = & Trim(txtCustomerID) & And DinnerDate = # & CDate(txtDinnerDate) & # If Rec2.NoMatch = False Then MsgBox 在相同用餐日期内（ & txtDinnerDate & ）， & vbCrLf _ & 已经有一位标识为“ & txtCustomerID & ”客人。 & vbCrLf

18、 _ & 请您换一个标识吧！, vbInformation, 订餐提醒 txtCustomerID.SetFocus txtCustomerID.SelStart = 0 txtCustomerID.SelLength = Len(txtCustomerID) Exit Sub End If txtCustomerID.Locked = True txtSetCount.Locked = True txtOrderDate.Locked = True txtDinnerDate.Locked = True cmdCheck.Enabled = True cmdPreview.Enabled =

19、 True AddToCustomerMenu If txtFindDate = txtDinnerDate Then cmdFind_Click End If Else 假如lstCustomer中有内容话 Dim I As Integer For I = 0 To lstCustomer.ListCount - 1 If Trim(Mid(lstCustomer.List(I), 4) = lstShowMenu.Text Then lstCustomer.ListIndex = I MsgBox 您已经选择了这道菜。假如想再加一份话，请单击“增加一份”按钮。, vbInformation

20、, 请餐提醒 cmdAddOne.SetFocus Exit Sub End If Next I AddToCustomerMenu-frmguest 窗体-frminput 可添加、修改、删除菜单，可按菜色、烹饪方法、原料显示，可修改订餐电话等Private Sub File1_Click()If Len(File1.FileName) 20 Then MsgBox 这个文件名字太长，请把它名字改为20个字以内。, vbInformation, 输入、编辑菜单原始资料 File1.Visible = False Exit SubEnd IfDim L As LongL = FileLen(A

21、ppDir & Image & File1.FileName)If L 350000 Then MsgBox 图片太大，请把它缩为大约300300象素，300k左右。, vbInformation, 输入、编辑菜单原始资料 File1.Visible = False Exit SubPrivate Sub MnuFileSave_Click()If Trim(txtName) = Then MsgBox 菜名不能空白！, vbExclamation, 输入、编辑菜单原始资料 txtName = txtName.SetFocus Exit SubEnd IfIf Trim(txtABC) = T

22、hen MsgBox 请填写菜名拼音字头！, vbExclamation, 输入、编辑菜单原始资料 txtABC = txtABC.SetFocus Exit SubEnd IfIf DBState = Add Then Rec.Close Set Rec = Nothing Set Rec = DB.OpenRecordset(Select * from Menu order by ABC,Name) Rec.FindFirst Name= & txtName & If Rec.NoMatch = False Then MsgBox “ & txtName & ”这道菜已经存在！, vbIn

23、formation, 保留提醒 txtName.SetFocus SendKeys Home+End Exit Sub End IfEnd IfOutputToDBMnuShowWhole_ClickDBState = savedFrameState (DBState)End Sub-frmnutrition关键用于查看食物营养组成。-frmpreview生成账单并打印出来。Dim sngH As SingleDim I As IntegerW = 12.5cmdPrint.Visible = FalselblWait.Visible = TrueDoEventsWith Printer .S

24、caleMode = 7 .Font.Size = 12 sngH = .TextHeight(frmGuest.lblWelcome(0) + 0.1 .Width = 576 * W .Height = 576 * (10 + lstCustomer.ListCount * sngH) .Font.Name = 隶书 .Font.Size = 20 .CurrentX = (W - .TextWidth(frmGuest.lblWelcome(0) / 2 .CurrentY = 1For I = 0 To lstCustomer.ListCount - 1 .CurrentX = 2 .

25、CurrentY = 3 + sngH * (I + 6) Printer.Print lstCustomer.List(I) Next I .CurrentX = 2 .CurrentY = 3 + sngH * (I + 8) Printer.Print lblTotal .CurrentX = 2 .CurrentY = 3 + sngH * (I + 9) Printer.Print lblPay .CurrentX = 2 .CurrentY = 3 + sngH * (I + 12) Printer.Print -结束(打印日期: & Format(Date, YYYY-MM-DD

26、) & )- .CurrentX = 2 .CurrentY = 3 + sngH * (I + 16) Printer.Print lblWait.Visible = FalseIf MsgBox(现在开始打印。请加纸。, vbInformation + vbOKCancel, 打印菜单) = vbOK Then .EndDocElse .KillDocEnd IfEnd WithcmdPrint.Visible = TrueExit SubEh: MsgBox 打印时发生错误： & vbCrLf & Err.Description, vbInformation, 打印犯错End Sub-f

27、rmprice按消费范围进行查询等。Private Sub cmdOK_Click()With txtPrice1 If Trim(.Text) = Then .SetFocus Exit Sub End IfEnd WithWith txtPrice2 If Trim(.Text) = Then .SetFocus Exit Sub End IfEnd WithWith frmGuest .Rec1.Close Set .Rec1 = Nothing Set .Rec1 = .DB.OpenRecordset(Select Name,Price From Menu Where Other3

28、= 0 And Price Between & CCur(Trim(txtPrice1) & And & CCur(Trim(txtPrice2) & Order By ABC,Name, dbOpenSnapshot) .ShowNamePrice .Rec1, .lstShowMenu, 请选择（价格在 & txtPrice1 & - & txtPrice2 & 元之间）：End WithUnload MeEnd Sub-frmquery查销售额，能够按年、月、日进行查询，也可生成销售额柱状图。-月销售额查询Private Sub cmdMonthFind_Click()Dim datFind As DateDim strFind As StringstrFind = Trim(InputBox(请输入年、月：(格式：YYYY-MM 如： & Format(Date, YYYY-MM) & ), 月销售额查询, Format(Date, YYYY-MM)If strFind = Then Exit SubIf Not IsDate(Left(strFind, 7) Then MsgBox “ & strFind & ”不是一个有效年月！, vbInformation, 月销售额查询 Exit SubEnd If