大学课程设计饭店点菜管理系统单位学院(系)专业学号学生姓名指导教师完成日期 2010 年 9 月 15 日目录1.内容摘要 (3)1.1 编写目的 (3)1.2 定义 (3)2.需求分析 (4)2.1 功能分析 (4)2.2 业务活动 (4)3.界面设计 (5)3.1 登陆界面设计 (5)3.2 内部菜类管理系统界面设计 (6)3.3 内部人员管理系统界面设计 (7)4.代码设计 (9)4.1 登陆界面代码 (9)4.2 内部菜类管理代码 (10)4.3 内部人员管理代码 (12)5.总结 (13)5.1 总结 (14)5.2 存在的主要问题 (15)参考文献 (15)一摘要1.1 编写目的饭菜点菜管理系统是用VB6.0编写的一款软件。
饭店点菜管理系统是实用性很强的系统，本系统实现了照片上传，信息的增删改查、统计、报表等功能，对实际理解和掌握VB语言以及进行实际的项目开发有很好的范例作用。
本系统将通过编写一个饭菜点菜管理系统程序，综合介绍VB的一些特征，讲解如何使用VB设计和实现本应用程序。
同时，也借此了解编写此类程序的基本过程。
在本系统的实际应用中，顾客可以分类浏览饭店的各种菜式、采样及价格并进行点菜，操作后能预览点菜结果，并可对其进一步修改；留言板能够记录顾客对饭店菜色以及服务等各方面的建议和评价，并具有浏览功能；当顾客消费达到一定金额时，可抽取一些小奖品。
该系统中除了顾客应用系统外，还有饭店管理内部人员使用系统。
饭店管理者可以通过登陆界面进入饭店内部管理系统，由此可以对菜类，菜价等进行修改，增删等操作以及对顾客留言和消费金额的查看。
另外还有饭店工作人员的档案管理，可以对人员惊醒增删，修改等操作，和该系统的用户使用管理，同样可以进行增添修改等操作。
此软件主要用于饭店管理系统，有利于饭店工作效率的增加。
关键词：饭店点菜管理系统，VB6.0，组件1.2 定义1、系统名称：饭店点菜管理系统2、系统应用软件：VB6.03、系统设计人员：杨杰、陈毅、王巍浩二需求分析2.1 功能分析1、服务员信息的管理：查询、增、删、改2、菜单信息的管理：查询、增、删、改3、厨师信息的管理：查询、增、删、改4、房间信息的管理：查询、增、删、改5、餐桌信息的管理：查询、增、删、改6、前台定桌：顾客可以根据自己的需求，选择不同型号的房间或大厅7、房间/大厅点菜：服务员按照用户需求为其点菜并提交菜单给厨房8、厨师和菜的分组：厨师和菜分别分组，每组厨师和一组菜一一对应，该组每位厨师会做该组所有的菜。
（本条目位置）9、厨师做菜管理：厨师可以获得自己的待做菜单，并对已做的菜进行标记。
10、上菜管理：服务员对已上菜和待上菜进行管理。
11、结帐服务：审核菜单，协助顾客结帐。
2.2 业务活动1、点菜2、呼叫人工服务系统三界面设计3.1 登陆界面设计登陆界面设计需要满足顾客和管理人员双方面的要求，此界面既可以使顾客快速进入点菜界面，又需要使内部人员可以通过账号、密码进入内部管理系统，例如登陆界面通过此界面可以进入点菜和内部人员进入的界面，如点菜界面内部人员进入的用户界面3.2 内部菜类管理系统界面设计内部才来管理系统需要包含菜类管理（如菜类的增删修改等）和菜价的调整两个大的方面。
其中要有菜类的详细信息，菜名、菜价、照片、简介和新旧菜价等，除此还遨游查询系统，可以快速从数据库里找到需要修改的菜类。
例如菜价调整界面菜类管理界面3.3内部人员管理系统界面设计内部人员管理系统需要包括饭店的所有工作人员的记录以及能够进入人员管理系统的人员。
通过此系统可以对所有工作人员的资料进行删除、修改，还有对管理用户的修改，并通过数据库同意管理。
如用户管理界面工作人员记录界面四代码设计4.1 登陆界面代码设计此界面代码的设计只是通过此界面进入其他管理界面--点菜界面和内部人员进入界面，如Private Sub Command1_Click()formwb.ShowEnd SubPrivate Sub Command2_Click()Formnb.ShowEnd Sub另一界面也是属于过渡界面，达到进入其他界面的目的，所以应包括进入菜价管理，菜类调整，用户更改和人员系统等。
按照以上界面设计，代码可设计为Private Sub Command1_Click()Unload FormglFormcj.ShowEnd SubPrivate Sub Command2_Click()Unload FormglFormcl.ShowEnd SubPrivate Sub Command3_Click()Unload FormglFormyh.ShowEnd SubPrivate Sub Command4_Click()Unload FormglFormry.ShowEnd Sub4.2 内部菜类管理代码内部菜类管理包括菜价管理和菜类调整两方面。
首先说菜价管理界面的代码设计，其中必须有一个关于菜类所有资料的数据库，通过查询系统可以在界面上显示出菜类的原价，价格更改后，点击确认便可在数据库里从新建立关于那种菜的资料，如Private Sub Cmdcancel_Click()Data1.UpdateControlsText1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""End SubPrivate Sub cmdsearch_Click()If Text4.Text <> "" ThenData1.RecordSource = "select * from 菜单where name= '" & Text4.Text & "'"ElseData1.RecordSource = "selet * from 菜单"End IfData1.RefreshIf Data1.Recordset.EOF ThenMsgBox ("输入的菜名不存在，请重新输入")Text4.Text = ""Text4.SetFocusEnd IfEnd SubPrivate Sub Cmdsuer_Click()If Text1.Text <> "" And Text2.Text <> "" And Text3.Text = "" ThenMsgBox ("请输入新的菜价")Elsembookmark = Data1.Recordset.BookmarkText1.SetFocusEnd If再说内部菜类调整系统的代码设计。
同样需要数据库对菜类的所有资料有记录，在原基础上进行增删修改，最后的资料通过确认取代原来的资料。
如Private Sub Cmdadd_Click()Cmdedit.Enabled = Not Cmdedit.EnabledCmddel.Enabled = Not Cmddel.EnabledCmdcancel.Enabled = Not Cmdcancel.EnabledIf Cmdadd.Caption = "确认" Thenmbookmark = Data1.Recordset.BookmarkData1.Recordset.AddNewText1(1).SetFocusElseIf Text1(1).Text = "" Or Text2.Text = "" Or Text3.Text = "" ThenMsgBox "字段不能为空“"exit SubEnd IfCmdadd.Caption = "添加"data1.Recordset.UpdateEnd IfEnd SubPrivate Sub Cmdcancel_Click()Cmdadd.Caption = "添加"Cmdedit.Caption = "修改"Cmdadd.Enabled = TrueCmdedit.Enabled = TrueCmddel.Enabled = TrueCmdcancel.Enabled = FalseData1.UpdateControlsData1.Recordset.Bookmark = mbookmarkEnd SubPrivate Sub Cmddel_Click()Dim message As Integermessage = MsgBox("是否删除当前记录? ", 4 + 32 + 256, "信息提示")If message = vbYes ThenData1.Recordset.DeleteData1.Recordset.MoveNextIf Data1.Recordset.EOF Then Data1.Recordset.MoveLastEnd IfPrivate Sub Cmdedit_Click()Cmdadd.Enabled = Not Cmdadd.EnabledCmddel.Enabled = Not Cmddel.EnabledCmdcancel.Enabled = Not Cmdcancel.EnabledIf Cmdedit.Caption = "修改" ThenCmdedit.Caption = "确认"mbookmark = Data1.Recordset.BookmarkData1.Recordset.EditText1(1).SetFocusElseCmdedit.Caption = "修改"Data1.Recordset.UpdateEnd IfEnd SubPrivate Sub cmdsearch_Click()If Text4(0).Text <> "" ThenData1.RecordSource = "select * from 菜单where name='" & Text4(0).Text & "'"ElseData1.RecordSource = "selet * from 菜单"End IfData1.RefreshIf Data1.Recordset.EOF ThenMsgBox ("输入的菜名不存在，请重新输入")Text4(0).Text = ""Text4(0).SetFocusEnd IfEnd Sub4.3 内部人员管理代码内部人员管理代码也应包括用户管理和工作人员管理两个方面，其中都涉及了资料的更改以及数据库的建立与保存。