饭店餐饮管理系统2.doc

2022年-2023年建筑工程管理行业文档 齐鲁斌创作X x 学 院面向对象程序设计课程设计说明书题目： 饭店餐饮管理系统 系(部)： 电子与通信工程系 专业(班级)： 07级电子信息工程专业1班 姓名： 万xx 学号： 2007xxxxxx 指导教师： 马xx、谢xx 起止日期： 2010.11.292010.12.4 16 课程任务书课题名称饭店餐饮管理系统设计内容及要求设计一个饭店餐饮管理系统，要求界面美观，具有操作菜单及工具栏；系统应包括下列功能模块：用户管理模块：用户登录、用户的添加、删除、密码修改功能。用户根据口令进入系统，不同的用户拥有不同权限：可读可写、只读、只读部分信息。菜单浏览模块：能浏览饭店的所有菜品、菜样及价格，要求能显示菜样图片。点菜模块：进行点菜操作后能预览点菜结果，并统计金额；买单模块：进行买单操作，可记录菜单信息、时间信息及收款员等相关信息，并实现全款买单、打折买单及免单等功能；要求能按时间段查询买单信息。留言模块：记录并浏览顾客的意见和建议；抽奖功能：当顾客的消费达到指定金额时，可分档抽取小奖品。 长沙学院课程设计鉴定表姓名 万xx学号2007xxxxxx专业电子信息工程班级1设计题目饭店餐饮管理系统指导教师马xx、谢xx指导教师意见：评定等级： 教师签名： 日期： 答辩小组意见：评定等级：答辩小组长签名：日期：教研室意见：教研室主任签名： 日期： 系（部）意见：系主任签名：日期：说明课程设计成绩分“优秀”、“良好”、“及格”、“不及格”四类；目 录1 设计思路分析.51.1、Access数据库51.2、餐厅系统.52 系统结构设计及分析 6. 2.1、部分程序与窗体63 设计总结15参考文献. 16 摘 要  中国是举世闻名的美食大国，拥有五千年的饮食文化和巨大的餐饮市场，满足个人的温饱问题已不是当今的热点，人们的生活方式逐渐在转变着，饮食已经成为了一种时尚，一种享受。民以食为天，随着人民生活水平和生活方式的转变，渐渐的人们发现餐饮业具有巨大的投资市场。随着餐饮业投资者的不断涌入，许多新一代的快餐店，披萨店，餐馆在国内开始风靡，随处可见。  如今，国外饮食企业进入中国，同时也是中国企业进入国际市场的重要开端，由此必将为国内外饮食企业提供更加广阔的市场机会。餐饮业不仅面临着巨大的发展机遇，也面临着前所未有的挑战和考验。随着中国对外的不断开放，会有大量的企业或公司介入到餐饮领域。同时，随着中国兑现承诺和中国社会信息化的深化，很多地区性企业的“环境优势”对国外企业的障碍和不利条件被不断地消除，中国市场的竞争将更为激烈，而且随着餐饮业的迅速扩展，其中所暴露的问题也是不容忽视的。  首先，人才的专业化程度不够导致内供不足：因餐饮业门坎较低，中国的大多数餐饮企业的老板是从小店发展起来的，家族式管理的居多，还没有发展到聘请职业经理人，许多还是"人治"，并没有一套现代企业制度和监督管理体制，所以从观念意识、经营思想和管理水平还有待专业化。其次，应变能力差，缺乏先进的信息工具：现在的餐饮市场火爆，许多以前做电子、房地产等其他行业的老板都凭借雄厚的资金实力挤进餐饮市场，争先恐后的上规模、上档次、比菜品、比服务、拼价格，使餐饮市场竞争激烈，但是许多餐饮企业缺乏对市场的应变能力和灵敏的信息工具，在现今网络经济的时代，许多餐饮企业还处在手工及半手工状态，即使有计算机也只当个点菜器和计算器用，并没有真正通过计算机系统来实现改造流程、强化管理、降低成本、堵漏节流等作用。  最后缺乏科学和标准的管理体系：国外著名的快餐连锁经过上百年的探索都形成了标准化的工作流程和方法。中餐因其菜品的多样化和特色化的服务很难实现标准化管理，这使中餐企业的成本控制很难实现，但近两年也出现了引进快餐式经营特点的中餐企业，从流程、服务、出品都开了中餐标准化的先河。信息系统的引进，则会缓解和解决以上问题：首先，餐饮管理信息系统不是单纯的用于结帐计算的工具，它有着科学的、标准的管理体系，它是通过对目前餐饮市场的具体情况科学的调研分析后设计而成的，它能够针对中餐因其菜品的多样化和特色化的服务很难实现标准化管理，使中餐企业的成本控制很难实现这些问题给与解决。其次，餐饮管理信息系统能够给出具体的相应的符合企业自身要求的较科学的标准化管理流程，这暂时缓解了专业人才的需求，通过使用该系统就能完成专业人员所要做的事。最后，餐饮管理信息系统可以针对企业的经营现状而做出科学的分析，使得企业对市场的应变能力得到了提高，从而通过餐饮管理信息系统来实现强化管理、降低成本、堵漏节流等作用。更好的完善企业的经营管理，提高企业自身的竞争实力。一、设计思路1.1、 Access数据库 Access2003 就是关系数据库开发工具，数据库能汇集各种信息以供查询、存储和检索。那么什么叫数据库呢？数据库(Database)是由一些有意义和有关系的数据(data)所组合而成。一个数据库中，包含了许多条记录(Record),而每条记录是由多个字段(Field)所组成,不同的字段存放这不同的数据。所以数据库的严格定义是一组相关记录的集合，而字段则是最基本的数据项，也是数据库中最小的单位。在计算机中用来帮我们管理数据库的系统，我们称之为数据库管理管理系统（Database Management System DBMS）。数据库管理系统是架构在一个或多个数据库之上，并针对数据库中的数据进行管理运用。 Access 的优点在于它能使用数据表示图或自定义窗体收集信息，数据表示图提供了一种类似于 Excel 的电子表格，可以使数据库一目了然。另外，Access 允许创建自定义报表用于打印或输出数据库中的信息。Access也提供了数据存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他网络用户共享数据库。如上所述，Access 作为关系数据库开发具备了许多优点，可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能1.2、餐厅系统餐厅系统是按国内餐饮行业最新要求开发的全新概念信息管理系统。该系统将餐厅收银、往来帐务结算管理及销售情况统计工作在单微机或网络系统中完成。主要特点包括：（1）代码菜谱编制，方便统计，方便输入；（2）开单、改单、结算、打印、用户界面方便友好；（3）系统专设往来帐、内部帐，结算方式灵活多样，结算信息详尽翔实；（4）帐务系统的可扩充性。由于餐厅业务的扩展，势必要求帐务结算系统随之扩展，在不修改程序的前提下，本系统可在相当可观的范围内，由用户扩展其营业项目和结算手段。（5）帐务操作数据的可校验性。本系统提供了多种方便的查询、校核和统计功能，供帐务操作人员和专职核数人员自核及校对帐务数据。例如，当班收银员下班时直接统计当班期间的输单、收银情况。为餐饮企业管理人员提供及时准确的经营状况和帐务信贷情况。餐厅系统需要完成的功能有以下几点。（1）美食档案：添加、修改、按菜系、原料、烹饪方法查询（2）订餐管理：订餐、订餐修改、订餐取消、订餐查询。（3）收款管理：立帐、折扣设定。（4）销售查询：可按年、月、日检查销售情况，也可按销售额查询并画出销售额图表。 二系统结构设计及分析上面我们创建了饭店餐饮管理系统中餐饮管理部分的数据库结构。Access 的优点在于它能使用数据表示图或自定义窗体收集信息，数据表示图提供了一种类似于 Excel 的电子表格，可以使数据库一目了然。另外，Access 允许创建自定义报表用于打印或输出数据库中的信息。Access也提供了数据存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他网络用户共享数据库。2.1、部分程序与窗体-frmmain进入主页面Private Sub Form_Load()strExplain(0) = "由餐饮部门的工作人员输入各种菜肴的原始资料，以供编辑菜单使用。"strExplain(1) = "编辑、制作出令客人满意的菜单，并可预览所点的各种美味佳肴，同时管理收费。"strExplain(2) = "供餐饮部门经理查看各种销售记录，统计分析各种数据。"strExplain(3) = "退出美食向导程序。"strExplain(4) = "本产品用于各级酒店餐饮部门的订餐点菜及收费管理。"。Private Sub lblDir_Click(Index As 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, "美食档案-销量查询") = 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(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, "订餐提示" txtOrderDate = "" 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 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") .SetFocus .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 _ & "请您换一个标识吧！", 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 = 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, "请餐提示" 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(AppDir & "Image" & File1.FileName)If L > 350000 Then MsgBox "图片太大，请把它缩为大约300×300象素，300k左右。", vbInformation, "输入、编辑菜单原始资料" File1.Visible = False Exit SubPrivate Sub MnuFileSave_Click()If Trim(txtName) = "" Then MsgBox "菜名不能空白！", vbExclamation, "输入、编辑菜单原始资料" txtName = "" txtName.SetFocus Exit SubEnd IfIf Trim(txtABC) = "" Then 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 & "”这道菜已经存在！", vbInformation, "保存提示" 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 .ScaleMode = 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 .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") & ")-" .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-frmprice按消费范围进行查询等。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 = 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 IfdatFind = Format(strFind, "YYYY-MM")If MsgBox("您要查询的年月是" & Year(datFind) & "年" & Month(datFind) & "月吗？", vbQuestion + vbYesNo, "月销售额查询") = vbNo Then Exit SubEnd IfDim Rec As RecordsetDim S As CurrencySet Rec = DB.OpenRecordset("Select Sum(Pay) From Sale Where Year(Date) = " & Year(datFind) & " And Month(Date) = " & Month(datFind)If Not IsNull(Rec.Fields(0) Then S = Rec.Fields(0)End IfMsgBox Year(datFind) & "年" & Month(datFind) & "月的销售额是：" & Format(S, "#0.00") & "元。", vbInformation, "月销售额查询"Rec.CloseSet Rec = NothingEnd Sub-年销售额查询Private Sub cmdYearFind_Click()Dim datFind As DateDim strFind As StringstrFind = Trim(InputBox("请输入2位或4位年份：(如：" & Format(Date, "YYYY") & "或" & Format(Date, "YY") & "代表" & Format(Date, "YYYY") & "年)", "年销售额查询", Format(Date, "YYYY")If strFind = "" Then Exit SubDim strDate As StringstrDate = Left(strFind & "-01-01", 10)If Not IsDate(strDate) Then MsgBox "“" & strFind & "”不是一个有效的年份！", vbInformation, "年销售额查询" Exit SubEnd IfdatFind = CDate(strDate)If MsgBox("您要查询的年份是" & Year(datFind) & "年吗？", vbQuestion + vbYesNo, "年销售额查询") = vbNo Then Exit SubEnd IfDim Rec As RecordsetDim S As CurrencySet Rec = DB.OpenRecordset("Select Sum(Pay) From Sale Where Year(Date) = " & Year(datFind)If Not IsNull(Rec.Fields(0) Then S = Rec.Fields(0)End IfMsgBox Year(datFind) & "年的销售额是：" & Format(S, "#0.00") & "元。", vbInformation, "年销售额查询"Rec.CloseSet Rec = NothingEnd Sub三、设计总结 通过一周的课程设计，使我增加了对课程的了解。VB在原来BASIC语言的基础上进一步发展至今包含了数百条语句,函数及关键词,其中很多和WINDOWS GUI有直接关系,VB不仅是可视语言,而且是面向对象的编程语言.其特点是概念多,实践性强,涉及面广. 之后,了解到一些基本的概念,含义.例如类,就是创建对象实例的模板包含了创建的属性描述和行为特征的定义.而此中的对象又是类的一个实例,继承了类的属性,方法,而VB中长用的对象有窗体,控件等.但我们在建立之前必须清楚对象的三要素:属性,方法和事件. 再用VB创建一个应用程序,第一步骤是创建窗体,它是用户与应用程序进行交互操作的可视部分,窗体是创建界面的基本构造模块,也是创建应用程序所使用的对象.而后必要设置窗体的属性,从而构出窗体的外观,设置好的窗体,窗体就作为对象,能够对其定义的事件作出响应,这也是所谓的窗体事件,而窗体事件又包括窗体本身事件,键盘事件和鼠标事件. VB程序设计同时可设计出一个更好的酒店点餐系统,这样就可以使用户了解到更大量有关应用程序设计和结构的信息,精心规划菜单与工具栏有助于提高应用程序的可用性.同时在基于WINDOWS的应用程序中,对话框被用来提示应用程序继续运行所需的数据或者用户显示信息.对话框是一种特殊类型的窗体对象,在VB中按对话框的创建有三种类型的对话框,他们是预定义对话框,自定义对话框和标准对话框.对于自定义对话框和标准对话框,使可以完成与用户之间的交互. 学习VB程序设计后,增加对此的认识,深入学习VB程序就可掌握新的软件,新的编程环境,学习此课程,也可学会使用开发环境,开发工具的方法.才能更好地跟上计算机学科的发展.参考文献【1】. 郑人杰，殷人昆，陶永雷，实用软件工程（第二版） 清华大学出版社 1997.4；【2】. 刘子锐，visual basic 6.0数据库开发自学教程人民邮电出版社 2001.6【3】. 萨师煊，王珊，数据库系统概论（第三版） 高等教育出版社 2002.3；【4】李建中,王珊,数据库系统原理 电子工业出版社 1998.5；【5】李昭原，数据库原理与应用 科学出版社 1998.5；【6】李生平，张洪力，数据库技术及其应用 地震出版社 2000.8；【7】万科，vb数据库开发经典案例解析清华大学出版社 1999.5； 【8】. 姚诗斌，数据库系统基础，计算机工程与应用 1981年第8期；【9】.朱海滨，面向对象技术原理与设计 国防科技大学出版社 1992.6；【10】.赵晓华，计算机软件可靠性与质量管理 中国经济出版社 1992.8；【11】.施伯乐，何继潮，关系数据库的理论及应用 河南科技出版社1990.6；【12】.刘艺，Thinking in Patterns with vb 6.0 机械工业出版社 2004.9；