1、杨xx学号2007xxxxxx专业电子信息工程班级2设计题目指导教师马xx、谢xx指导教师意见：评定等级： 教师签名： 日期：答辩小组意见：答辩小组长签名：日期：教研室意见：教研室主任签名： 系（部）意见：系主任签名：日期：说明课程设计成绩分“优秀”、“良好”、“及格”、“不及格”四类；目录摘要4一、预期目标5二、点餐系统结构框图5三、功能需求5 1功能划分5 2.功能描述5 3.程序描述6 4.系统登录75.系统操作76.退出系统9四、部分源代码10五、课程设计总结15参考文献16摘 要随着我国国民经济的稳定增长，城镇居民可支配收入不断的增加，人们已经不再以“温饱”为满足，更加注重饮食质量与
2、档次。据国家统计局统计数据显示20世纪90年代以来，我国城镇居民在外就餐大幅度增长，酒店餐饮成为市场的主流，这极大推进了酒店餐饮业的快速发展。当今时代，人们要处理的信息量越来越大。同时随着办公自动化的发展，人们需要能够快速方便的把大量的不同类型的信息制成报表从中进行分析研究，并以此为依据做出决策。根据目前国内酒店餐饮企业管理不成熟，制度变化频繁，流程各具特色等现状。开发适合各种不同类型的管理信息系统是当务之急，酒店餐饮管理系统就是基于此而提出。使用计算机管理系统可以提高酒店餐饮企业的管理水平，节省大量人力，物力和财力，使经营管理更加科学有序。经营物流清晰，经营状况详实、准确。我将以现在的酒店餐
3、饮企业为研究对象。随着酒店餐饮业的竞争愈来愈激烈，大家都意识到使用计算机信息技术的重要性，决定在酒店管理上采用计算机管理手段。我们此次设计的系统主要是适应给办公室财务人员、收银员、服务员、秘书等人员使用。这些人员基本上都受到过高等教育，计算机有一定水平，只要经过简单的培训，很快就能够熟悉和使用此管理信息系统。综合以上情况，这个系统必须具备以下几个要求：简洁的界面，具有人性化而易于计算机水平不高的人操作的功能。强大的后台数据库系统支持。一、预期目标本系统的用户是酒店餐饮企业，所以就是利用计算机通信技术提高酒店餐饮管理水平，主要对点菜收银、库房管理、同时具有营业分析功能。点菜收银管理可以实现点菜、
4、转台、并台、结帐、清台。库房管理可以记录商品入库、出库情况。营业分析可以对客人点单情况、房台营业情况、酒菜销售情况。销售收入等进行分析。点菜收银、营业分析、库房管理的有机结合，可为酒店管理经营方向提供依据。为酒店餐饮业的发展提供重要的保证。二、点餐系统结构框图程序在运行的开始会出现一个登录窗口，用户可以用不同权限的用户名登录到系统。登录到系统后，根据每个用户的权限不同，可以进行不同的操作。其程序框架图如下所示：图1 点餐系统结构框图三、功能需求1功能划分此系统分成三个部分，九个模块。三个部分是：点菜收银部分，仓库部分和营业分析部分。九个模块是：数据初始化、基础信息管理、前台管理、财务管理、数据
5、分析、出入库管理、系统管理、库存管理和员工管理。2.功能描述数据初始化：餐饮部门设置、房间台号类型设置、酒水类别设置、菜系信息设置、餐具类别设置、仓库信息设置、信息打印管理；基础信息管理：餐具信息设置、酒水信息设置、菜谱信息设置、房间台号管理、商品基础信息登记；前台管理：日结算管理、客人买单、结帐数据分析；财务管理：日结算管理、月结算管理、费用单据管理、公司资金管理；数据分析：月营业分析、点菜分析、酒水分析、年度营业分析；出入库管理：进货凭证管理、出货凭证管理、进货信息统计、出货信息统计；系统管理：系统维护向导、权限管理、数据备份、帮助说明、关于本软件；库存管理：库存信息管理、库存分析统计；员
6、工管理：员工信息管理、员工工资管理；3.程序描述程序的主运行界面如下所示：图2 程序运行主界面在数据初始化中主要处理了以数据为中心的设置工作，可以对餐饮部门、酒水类别、菜系信息、餐具类别、仓库信息、信息打印等进行管理；基础信息管理模块中主要处理餐具信息设置、酒水信息设置、菜谱信息设置、房间台号管理、商品基础信息登记；前台管理模块主要处理了顾客开台、客人买单、结帐数据分析；财务管理模块主要实现了日结算管理、月结算管理、费用单据管理、公司资金管理；数据分析模块主要实现了月营业分析、点菜分析、酒水分析、年度营业分析；出入库管理模块主要实现了进货凭证管理、出货凭证管理、进货信息统计、出货信息统计；系统
7、管理模块主要处理系统维护导向、权限管理、数据备份、帮助说明、软件说明；库存管理模块主要实现了库存信息管理和库存分析统计；员工管理模块主要实现了员工信息管理和员工工资管理。下面从进入系统到退出系统作一个简单的介绍：4.系统登录运行程序：双击“Project1.exe”运行主执行程序或右键单击 “Project1.exe”选择打开运行主可执行程序，程序启动后会进入如下图所示的用户登陆系统窗口：图3 用户登陆窗口验证登录：输入正确的用户名和密码。然后，点击确定键进行登录。5.系统操作用户登录成功后会进入程序的主窗口界面如前面图所示。进入主窗口后就可以针对每个用户的权限进行功能的分配。系统业务流程如下
8、图所示：图4 系统业务流程图 （1）接待业务：客人进店总台登记选房（台）开设帐户明确折扣或优惠。在接待业务中还可以实现转台、并台业务。由于房台存在各种状态，例如正在使用、维修、或空闲。所以开台时，首先应考虑的是房台的状态，只用正常空闲的房台才允许开台，否则无法开台；图5 开台管理图（2）点单业务：客人点单主要包括：点菜、加菜、换菜、退菜、增菜等；图6 点菜服务窗口图（3）收银业务：客人收银业务主要包括现结、挂单、免费、退单等。在收银业务中，要把收银的各种情况考虑周全，挂单或挂帐是重点。如果是挂单或挂帐，系统将会自动生成挂帐数据，并与历史挂帐数据进行处理；图7 客人结帐管理图（4）库存业务：库存
9、业务主要包括消费品和消耗品的入库、出库、退货、报损、盘点等业务。在库存业务中，主要是处理商品批量入库，出库。根据库存的上下限与保质期，通知库管员进货或处理积压货品；图5-10 库存信息管理图6.退出系统方法一、通过点击窗口的关闭按钮（工具栏上最右边的一个按钮）退出系统；方法二、如果用户当前界面是在主界面，即登录后的第一个界面（如前述图示），则可以直接点击菜单项“进销系统”然后点“退出”项进行退出系统；如下图所示：方法三、则点下拉菜单中的退出按钮，退出系统；图8 退出程序图例一四、部分源代码-frmmain进入主页面Private Sub Form_Load（）strExplain（0） = 由
10、餐饮部门的工作人员输入各种菜肴的原始资料，以供编辑菜单使用。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（您是“
11、& strHotelName & ”餐饮部门工作人员吗？, vbYesNo + vbQuestion, 美食档案-输入、编辑菜单原始资料） = vbNo Then Exit Sub End If frmInput.Show Me.Hide Case 1 Load frmGuest Case 2”餐饮部门管理人员吗？美食档案-销量查询 Load frmQuery Case 3要退出美食向导吗？, vbQuestion + vbYesNo, 退出提示 Dim frm As Form For Each frm In Forms Unload frm Next EndEnd SelectEnd Sub
12、-frmguest（code）可以订餐、点餐、查看菜系等 Private Sub cmdAdd_Click（）If lstCustomer.ListCount = 0 Then If Trim（txtCustomerID） = Then MsgBox 请填写您的标识！, vbInformation, 订餐提示 txtCustomerID = txtCustomerID.SetFocus If Trim（txtSetCount） = 请填写订餐套数！ txtSetCount = txtSetCount.SetFocus If Trim（txtOrderDate） = 请填写订餐日期！ txtOr
13、derDate = txtOrderDate.SetFocus Else With txtOrderDate If IsDate（Trim（.Text） Then .Text = Format（Trim（.Text）, YYYY-MM-DD）订餐日期无效！请按默认的日期格式填写。 .Text = Format（Date, .SetFocus .SelStart = 0 .SelLength = Len（txtOrderDate） End With If Trim（txtDinnerDate） = 请填写用餐日期！ txtDinnerDate = txtDinnerDate.SetFocus W
14、ith txtDinnerDate用餐日期无效！ Rec2.FindFirst CustomerID = Trim（txtCustomerID） & And DinnerDate = # CDate（txtDinnerDate） &# If Rec2.NoMatch = False Then在相同的用餐日期内（ txtDinnerDate &）， vbCrLf _已有一位标识为“ txtCustomerID &”的客人。请您换一个标识吧！ txtCustomerID.SelStart = 0 txtCustomerID.SelLength = Len（txtCustomerID） txtCus
15、tomerID.Locked = True txtSetCount.Locked = True txtOrderDate.Locked = True txtDinnerDate.Locked = True cmdCheck.Enabled = True cmdPreview.Enabled = True AddToCustomerMenu If txtFindDate = txtDinnerDate Then cmdFind_ClickElse 如果lstCustomer中有内容的话 Dim I As Integer For I = 0 To lstCustomer.ListCount - 1
16、 If Trim（Mid（lstCustomer.List（I）, 4） = lstShowMenu.Text Then lstCustomer.ListIndex = I您已经选择了这道菜。如果想再加一份的话，请单击“增加一份”按钮。请餐提示 cmdAddOne.SetFocus Next I-frmguest 窗体-frminput 可添加、修改、删除菜单，可按菜色、烹饪方法、原料显示，可修改订餐电话等Private Sub File1_Click（）If Len（File1.FileName） 20 Then这个文件的名字太长，请把它的名字改为20个字以内。输入、编辑菜单原始资料 Fil
17、e1.Visible = FalseEnd IfDim L As LongL = FileLen（AppDir &Image File1.FileName）If L 350000 Then图片太大，请把它缩为大约300300象素，300k左右。Private Sub MnuFileSave_Click（）If Trim（txtName） = 菜名不能空白！, vbExclamation, txtName = txtName.SetFocusIf Trim（txtABC） = 请填写菜名的拼音字头！ txtABC = txtABC.SetFocusIf DBState = Add Then Re
18、c.Close Set Rec = Nothing Set Rec = DB.OpenRecordset（Select * from Menu order by ABC,Name Rec.FindFirst Name= txtName & If Rec.NoMatch = False Then“”这道菜已经存在！保存提示 SendKeys Home+EndOutputToDBMnuShowWhole_ClickDBState = savedFrameState （DBState）-frmnutrition主要用于查看食物的营养组成。-frmprice按消费范围进行查询等。Private Sub
19、 cmdOK_Click（）With txtPrice1 If Trim（.Text） = End WithWith txtPrice2With 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） .ShowNam
20、ePrice .Rec1, .lstShowMenu, 请选择（价格在 txtPrice1 &- txtPrice2 &元之间）：Unload Me-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
21、.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） .CurrentY = 3 + sngH * （I + 8） Printer.Print lblTotal .CurrentY = 3 + sngH * （I + 9） Printer.Print lblPay .CurrentY = 3 + sngH * （I + 12） Printer.Print -结束（打印日期: Format（Date, ） &）- .CurrentY = 3 + sngH * （I + 16） Printer.Print lblWait.Visible = FalseIf MsgBox（现在开始打印。请加纸。, vbInformation + vbOKCancel, 打印菜单） = vbOK Th
