版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
1、X x 学 院面向对象程序设计课程设计说明书题目: 饭店餐饮管理系统 系(部): 电子与通信工程系 专业(班级): 07级电子信息工程专业1班 姓名: 万xx 学号: 2007xxxxxx 指导教师: 马xx、谢xx 起止日期: 2010.11.292010.12.4 课程任务书课题名称饭店餐饮管理系统设计内容及要求设计一个饭店餐饮管理系统,要求界面美观,具有操作菜单及工具栏;系统应包括下列功能模块:用户管理模块:用户登录、用户的添加、删除、密码修改功能。用户根据口令进入系统,不同的用户拥有不同权限:可读可写、只读、只读部分信息。菜单浏览模块:能浏览饭店的所有菜品、菜样及价格,要求能显示菜样图
2、片。点菜模块:进行点菜操作后能预览点菜结果,并统计金额;买单模块:进行买单操作,可记录菜单信息、时间信息及收款员等相关信息,并实现全款买单、打折买单及免单等功能;要求能按时间段查询买单信息。留言模块:记录并浏览顾客的意见和建议;抽奖功能:当顾客的消费达到指定金额时,可分档抽取小奖品。 长沙学院课程设计鉴定表姓名 万xx学号2007xxxxxx专业电子信息工程班级1设计题目饭店餐饮管理系统指导教师马xx、谢xx指导教师意见:评定等级: 教师签名: 日期: 答辩小组意见:评定等级:答辩小组长签名:日期:教研室意见:教研室主任签名: 日期: 系(部)意见:系主任签名:日期:说明课程设计成绩分“优秀”
3、、“良好”、“及格”、“不及格”四类;目 录1 设计思路分析.51.1、Access数据库51.2、餐厅系统.52 系统结构设计及分析 6. 2.1、部分程序与窗体63 设计总结15参考文献. 16 摘 要 中国是举世闻名的美食大国,拥有五千年的饮食文化和巨大的餐饮市场,满足个人的温饱问题已不是当今的热点,人们的生活方式逐渐在转变着,饮食已经成为了一种时尚,一种享受。民以食为天,随着人民生活水平和生活方式的转变,渐渐的人们发现餐饮业具有巨大的投资市场。随着餐饮业投资者的不断涌入,许多新一代的快餐店,披萨店,餐馆在国内开始风靡,随处可见。 如今,国外饮食企业进入中国,同时也是中国企业进入国际市场
4、的重要开端,由此必将为国内外饮食企业提供更加广阔的市场机会。餐饮业不仅面临着巨大的发展机遇,也面临着前所未有的挑战和考验。随着中国对外的不断开放,会有大量的企业或公司介入到餐饮领域。同时,随着中国兑现承诺和中国社会信息化的深化,很多地区性企业的“环境优势”对国外企业的障碍和不利条件被不断地消除,中国市场的竞争将更为激烈,而且随着餐饮业的迅速扩展,其中所暴露的问题也是不容忽视的。 首先,人才的专业化程度不够导致内供不足:因餐饮业门坎较低,中国的大多数餐饮企业的老板是从小店发展起来的,家族式管理的居多,还没有发展到聘请职业经理人,许多还是人治,并没有一套现代企业制度和监督管理体制,所以从观念意识、
5、经营思想和管理水平还有待专业化。其次,应变能力差,缺乏先进的信息工具:现在的餐饮市场火爆,许多以前做电子、房地产等其他行业的老板都凭借雄厚的资金实力挤进餐饮市场,争先恐后的上规模、上档次、比菜品、比服务、拼价格,使餐饮市场竞争激烈,但是许多餐饮企业缺乏对市场的应变能力和灵敏的信息工具,在现今网络经济的时代,许多餐饮企业还处在手工及半手工状态,即使有计算机也只当个点菜器和计算器用,并没有真正通过计算机系统来实现改造流程、强化管理、降低成本、堵漏节流等作用。 最后缺乏科学和标准的管理体系:国外著名的快餐连锁经过上百年的探索都形成了标准化的工作流程和方法。中餐因其菜品的多样化和特色化的服务很难实现标
6、准化管理,这使中餐企业的成本控制很难实现,但近两年也出现了引进快餐式经营特点的中餐企业,从流程、服务、出品都开了中餐标准化的先河。信息系统的引进,则会缓解和解决以上问题:首先,餐饮管理信息系统不是单纯的用于结帐计算的工具,它有着科学的、标准的管理体系,它是通过对目前餐饮市场的具体情况科学的调研分析后设计而成的,它能够针对中餐因其菜品的多样化和特色化的服务很难实现标准化管理,使中餐企业的成本控制很难实现这些问题给与解决。其次,餐饮管理信息系统能够给出具体的相应的符合企业自身要求的较科学的标准化管理流程,这暂时缓解了专业人才的需求,通过使用该系统就能完成专业人员所要做的事。最后,餐饮管理信息系统可
7、以针对企业的经营现状而做出科学的分析,使得企业对市场的应变能力得到了提高,从而通过餐饮管理信息系统来实现强化管理、降低成本、堵漏节流等作用。更好的完善企业的经营管理,提高企业自身的竞争实力。一、设计思路1.1、 Access数据库 Access2003 就是关系数据库开发工具,数据库能汇集各种信息以供查询、存储和检索。那么什么叫数据库呢?数据库(Database)是由一些有意义和有关系的数据(data)所组合而成。一个数据库中,包含了许多条记录(Record),而每条记录是由多个字段(Field)所组成,不同的字段存放这不同的数据。所以数据库的严格定义是一组相关记录的集合,而字段则是最基本的数
8、据项,也是数据库中最小的单位。在计算机中用来帮我们管理数据库的系统,我们称之为数据库管理管理系统(Database Management System DBMS)。数据库管理系统是架构在一个或多个数据库之上,并针对数据库中的数据进行管理运用。 Access 的优点在于它能使用数据表示图或自定义窗体收集信息,数据表示图提供了一种类似于 Excel 的电子表格,可以使数据库一目了然。另外,Access 允许创建自定义报表用于打印或输出数据库中的信息。Access也提供了数据存储库,可以使用桌面数据库文件把数据库文件置于网络文件服务器,与其他网络用户共享数据库。如上所述,Access 作为关系数据库
9、开发具备了许多优点,可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能1.2、餐厅系统餐厅系统是按国内餐饮行业最新要求开发的全新概念信息管理系统。该系统将餐厅收银、往来帐务结算管理及销售情况统计工作在单微机或网络系统中完成。主要特点包括:(1)代码菜谱编制,方便统计,方便输入;(2)开单、改单、结算、打印、用户界面方便友好;(3)系统专设往来帐、内部帐,结算方式灵活多样,结算信息详尽翔实;(4)帐务系统的可扩充性。由于餐厅业务的扩展,势必要求帐务结算系统随之扩展,在不修改程序的前提下,本系统可在相当可观的范围内,由用户扩展其营业项目和结算手段。(5)帐务操作数据的可校验性。本系统
10、提供了多种方便的查询、校核和统计功能,供帐务操作人员和专职核数人员自核及校对帐务数据。例如,当班收银员下班时直接统计当班期间的输单、收银情况。为餐饮企业管理人员提供及时准确的经营状况和帐务信贷情况。餐厅系统需要完成的功能有以下几点。(1)美食档案:添加、修改、按菜系、原料、烹饪方法查询(2)订餐管理:订餐、订餐修改、订餐取消、订餐查询。(3)收款管理:立帐、折扣设定。(4)销售查询:可按年、月、日检查销售情况,也可按销售额查询并画出销售额图表。 二系统结构设计及分析上面我们创建了饭店餐饮管理系统中餐饮管理部分的数据库结构。Access 的优点在于它能使用数据表示图或自定义窗体收集信息,数据表示
11、图提供了一种类似于 Excel 的电子表格,可以使数据库一目了然。另外,Access 允许创建自定义报表用于打印或输出数据库中的信息。Access也提供了数据存储库,可以使用桌面数据库文件把数据库文件置于网络文件服务器,与其他网络用户共享数据库。2.1、部分程序与窗体-frmmain进入主页面Private Sub Form_Load()strExplain(0) = 由餐饮部门的工作人员输入各种菜肴的原始资料,以供编辑菜单使用。strExplain(1) = 编辑、制作出令客人满意的菜单,并可预览所点的各种美味佳肴,同时管理收费。strExplain(2) = 供餐饮部门经理查看各种销售记录
12、,统计分析各种数据。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 M
13、e.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 S
14、electEnd 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
15、= 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
16、= 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(
17、.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.N
18、oMatch = 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.
19、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.L
20、ist(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
21、 这个文件的名字太长,请把它的名字改为20个字以内。, vbInformation, 输入、编辑菜单原始资料 File1.Visible = False Exit SubEnd IfDim L As LongL = FileLen(AppDir & Image & File1.FileName)If L 350000 Then MsgBox 图片太大,请把它缩为大约300300象素,300k左右。, vbInformation, 输入、编辑菜单原始资料 File1.Visible = False Exit SubPrivate Sub MnuFileSave_Click()If Trim(tx
22、tName) = 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 Me
23、nu 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生成
24、账单并打印出来。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 .Cu
25、rrentX = (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 +
26、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 .KillDocEn
27、d 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 Wi
28、thWith 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 & - & txtPrice
29、2 & 元之间):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(
30、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.OpenRecord
31、set(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-年销售额查询Priva
32、te 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 IsD
33、ate(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语言的基础上进一步发展至今包含了数百条语句
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 二零二四年度版权保护委托合同3篇
- 小学心里健康活动主题班会
- 2024年度工程项目管理服务合同
- 2024年度企业间技术转让反贿赂协议2篇
- 《秋季校园市场营销》课件
- 民办体育俱乐部教练聘请合同(2024版)
- 公司美容项目合作简单协议书范本2篇
- 拍摄合作协议书(2篇)
- 广告招商合同
- 房屋认购协议书(2篇)
- 2024届高考英语完形填空专题之答题技巧教学设计
- 2024年呼伦贝尔事业单位真题
- 人教版数学五年级上册《解方程(例4、5)》说课稿
- 操作系统大作业(含课程设计)
- 二手房买卖合同范本下载可打印
- 2024-2029年红色旅游行业市场发展分析及竞争格局与投资战略研究报告
- 《桥梁轻量化监测系统建设规范(征求意见稿)》编制说明
- 2024年平面设计师技能及理论知识考试题库(附含答案)
- 3DMAX基础建模智慧树知到答案2024年四川文化产业职业学院
- 设备运输投标方案(技术方案)
- 维保技术服务方案
评论
0/150
提交评论