饭店点菜管理系统课程设计报告书(共16页)

1、精选优质文档-倾情为你奉上专心-专注-专业单单 位位 学院学院( (系系) )专专 业业 学学 号号 学生姓名学生姓名 指导教师指导教师 完成日期完成日期 20102010 年年 9 9 月月 1515 日日大学课程设计饭店点菜管理系统精选优质文档-倾情为你奉上专心-专注-专业目录 1.1 编写目的.31.2 定义.3 3.1 登陆界面设计.53.2 内部菜类管理系统界面设计.63.3 内部人员管理系统界面设计.74.1 登陆界面代码.94.2 内部菜类管理代码.104.3 内部人员管理代码.123 3 4 55 5精选优质文档-倾情为你奉上专心-专注-专业一一 摘摘 要要 1.11.1 编写

2、目的编写目的 饭菜点菜管理系统是用 VB6.0 编写的一款软件。饭店点菜管理系统是实用性很强的系统，本系统实现了照片上传，信息的增删改查、统计、报表等功能，对实际理解和掌握 VB 语言以及进行实际的项目开发有很好的范例作用。本系统将通过编写一个饭菜点菜管理系统程序，综合介绍 VB 的一些特征，讲解如何使用 VB 设计和实现本应用程序。同时，也借此了解编写此类程序的基本过程。在本系统的实际应用中，顾客可以分类浏览饭店的各种菜式、采样及价格并进行点菜，操作后能预览点菜结果，并可对其进一步修改；留言板能够记录顾客对饭店菜色以及服务等各方面的建议和评价，并具有浏览功能；当顾客消费达到一定金额时，可抽取

3、一些小奖品。该系统中除了顾客应用系统外，还有饭店管理内部人员使用系统。饭店管理者可以通过登陆界面进入饭店内部管理系统，由此可以对菜类，菜价等进行修改，增删等操作以及对顾客留言和消费金额的查看。另外还有饭店工作人员的档案管理，可以对人员惊醒增删，修改等操作，和该系统的用户使用管理，同样可以进行增添修改等操作。此软件主要用于饭店管理系统，有利于饭店工作效率的增加。关键词： 饭店点菜管理系统，VB6.0， 组件1.21.2 定义定义1、系统名称：饭店点菜管理系统2、系统应用软件：VB6.03、系统设计人员：杨杰、陈毅、王巍浩精选优质文档-倾情为你奉上专心-专注-专业 二二 需求分析需求分析2.12.

4、1 功能分析功能分析1、服务员信息的管理：查询、增、删、改2、菜单信息的管理：查询、增、删、改3、厨师信息的管理：查询、增、删、改4、房间信息的管理：查询、增、删、改5、餐桌信息的管理：查询、增、删、改6、前台定桌：顾客可以根据自己的需求，选择不同型号的房间或大厅7、房间/大厅点菜：服务员按照用户需求为其点菜并提交菜单给厨房8、厨师和菜的分组：厨师和菜分别分组，每组厨师和一组菜一一对应，该组每位厨师会做该组所有的菜。 （本条目位置）9、厨师做菜管理：厨师可以获得自己的待做菜单，并对已做的菜进行标记。10、上菜管理：服务员对已上菜和待上菜进行管理。11、结帐服务：审核菜单，协助顾客结帐。精选优质

5、文档-倾情为你奉上专心-专注-专业2.22.2 业务活动业务活动 1、点菜 2、呼叫人工服务系统 三三 界面设计界面设计3.13.1 登陆界面设计登陆界面设计 登陆界面设计需要满足顾客和管理人员双方面的要求，此界面既可以使顾客快速进入点菜界面，又需要使内部人员可以通过账号、密码进入内部管理系统，例如 登陆界面登陆界面 通过此界面可以进入点菜和内部人员进入的界面，如精选优质文档-倾情为你奉上专心-专注-专业点菜界面内部人员进入的用户界面 3.23.2 内部菜类管理系统界面设计内部菜类管理系统界面设计内部才来管理系统需要包含菜类管理（如菜类的增删修改等）和菜价的调整两个大的方面。其中要有菜类的详细

6、信息，菜名、菜价、精选优质文档-倾情为你奉上专心-专注-专业照片、简介和新旧菜价等，除此还遨游查询系统，可以快速从数据库里找到需要修改的菜类。例如菜价调整界面菜价调整界面菜类管理界面菜类管理界面3.33.3 内部人员管理系统界面设计内部人员管理系统界面设计精选优质文档-倾情为你奉上专心-专注-专业内部人员管理系统需要包括饭店的所有工作人员的记录以及能够进入人员管理系统的人员。通过此系统可以对所有工作人员的资料进行删除、修改，还有对管理用户的修改，并通过数据库同意管理。如用户管理界面用户管理界面工作人员记录界面工作人员记录界面精选优质文档-倾情为你奉上专心-专注-专业四四 代码设计代码设计4.1

7、4.1 登陆界面代码设计登陆界面代码设计 此界面代码的设计只是通过此界面进入其他管理界面-点菜界面和内部人员进入界面，如Private Sub Command1_Click() formwb.ShowEnd SubPrivate Sub Command2_Click() Formnb.ShowEnd Sub另一界面也是属于过渡界面，达到进入其他界面的目的，所以应包括进入菜价管理，菜类调整，用户更改和人员系统等。按照以上界面设计，代码可设计为Private Sub Command1_Click() Unload Formgl Formcj.ShowEnd SubPrivate Sub Comma

8、nd2_Click() Unload Formgl Formcl.ShowEnd SubPrivate Sub Command3_Click() Unload Formgl Formyh.ShowEnd Sub精选优质文档-倾情为你奉上专心-专注-专业Private Sub Command4_Click() Unload Formgl Formry.ShowEnd Sub4.24.2 内部菜类管理代码内部菜类管理代码 内部菜类管理包括菜价管理和菜类调整两方面。首先说菜价管理界面的代码设计，其中必须有一个关于菜类所有资料的数据库，通过查询系统可以在界面上显示出菜类的原价，价格更改后，点击确认便可

9、在数据库里从新建立关于那种菜的资料，如Private Sub Cmdcancel_Click() Data1.UpdateControls Text1.Text = Text2.Text = Text3.Text = Text4.Text = End SubPrivate Sub cmdsearch_Click() If Text4.Text Then Data1.RecordSource = select * from 菜单 where name= & Text4.Text & Else Data1.RecordSource = selet * from 菜单 End IfD

10、ata1.Refresh If Data1.Recordset.EOF Then MsgBox (输入的菜名不存在，请重新输入) Text4.Text = Text4.SetFocus End IfEnd SubPrivate Sub Cmdsuer_Click() If Text1.Text And Text2.Text And Text3.Text = Then MsgBox (请输入新的菜价) Else mbookmark = Data1.Recordset.Bookmark Text1.SetFocus End If精选优质文档-倾情为你奉上专心-专注-专业End Sub再说内部菜类调

11、整系统的代码设计。同样需要数据库对菜类的所有资料有记录，在原基础上进行增删修改，最后的资料通过确认取代原来的资料。如Private Sub Cmdadd_Click() Cmdedit.Enabled = Not Cmdedit.Enabled Cmddel.Enabled = Not Cmddel.Enabled Cmdcancel.Enabled = Not Cmdcancel.Enabled If Cmdadd.Caption = 确认 Then mbookmark = Data1.Recordset.Bookmark Data1.Recordset.AddNew Text1(1).Se

12、tFocus Else If Text1(1).Text = Or Text2.Text = Or Text3.Text = Then MsgBox 字段不能为空“ exit Sub End If Cmdadd.Caption = 添加 data1.Recordset.Update End IfEnd SubPrivate Sub Cmdcancel_Click() Cmdadd.Caption = 添加 Cmdedit.Caption = 修改 Cmdadd.Enabled = True Cmdedit.Enabled = True Cmddel.Enabled = True Cmdcanc

13、el.Enabled = False Data1.UpdateControls Data1.Recordset.Bookmark = mbookmarkEnd SubPrivate Sub Cmddel_Click() Dim message As Integer message = MsgBox(是否删除当前记录? , 4 + 32 + 256, 信息提示) If message = vbYes Then Data1.Recordset.Delete Data1.Recordset.MoveNext If Data1.Recordset.EOF Then Data1.Recordset.Mo

14、veLast End If精选优质文档-倾情为你奉上专心-专注-专业End SubPrivate Sub Cmdedit_Click() Cmdadd.Enabled = Not Cmdadd.Enabled Cmddel.Enabled = Not Cmddel.Enabled Cmdcancel.Enabled = Not Cmdcancel.Enabled If Cmdedit.Caption = 修改 Then Cmdedit.Caption = 确认 mbookmark = Data1.Recordset.Bookmark Data1.Recordset.Edit Text1(1).

15、SetFocus Else Cmdedit.Caption = 修改 Data1.Recordset.Update End IfEnd SubPrivate Sub cmdsearch_Click() If Text4(0).Text Then Data1.RecordSource = select * from 菜单 where name= & Text4(0).Text & Else Data1.RecordSource = selet * from 菜单 End If Data1.Refresh If Data1.Recordset.EOF Then MsgBox (输入

16、的菜名不存在，请重新输入) Text4(0).Text = Text4(0).SetFocus End IfEnd Sub4.34.3 内部人员管理代码内部人员管理代码内部人员管理代码也应包括用户管理和工作人员管理两个方面，其中都涉及了资料的更改以及数据库的建立与保存。在用户管理界面，需要有添加删除用户，以及用户更改密码等基本操作，代码可设计为Private Sub Command1_Click() If Command1.Caption = 添加 Then Command1.Caption = 确认精选优质文档-倾情为你奉上专心-专注-专业 mbookmark = Data1.Records

17、et.Bookmark Data1.Recordset.AddNew 清空各个文本框 Text1.SetFocus Else Command1.Caption = 添加 Data1.Recordset.Update End IfEnd SubPrivate Sub Command2_Click() If Command2.Caption = 修改 Then Command2.Caption = 确认 mbookmark = Data1.Recordset.Bookmark Data1.Recordset.Edit Text1.SetFocus Else Command2.Caption = 修

18、改 Data1.Recordset.Update End If End Sub另一个关于所有工作人员的记录同上面相差不大，可以设计为Private Sub Command1_Click()If Command1.Caption = 添加 Then Command2.Caption = 确认 mbookmark = Data2.Recordset.Bookmark Data1.Recordset.AddNew 清空各个文本框 Text3.SetFocus Else Command1.Caption = 添加 Data1.Recordset.Update End IfEnd SubPrivate

19、Sub Command2_Click() If Command2.Caption = 修改 Then Command1.Caption = 确认 mbookmark = Data2.Recordset.Bookmark Data1.Recordset.Edit Text3.SetFocus Else精选优质文档-倾情为你奉上专心-专注-专业 Command2.Caption = 修改 Data1.Recordset.Update End IfEnd SubPrivate Sub Command3_Click() Data1.Recordset.Delete If Not Data1.Recordset.EOF Then Data1.Recordset.MoveNext End IfEnd Sub所有内部管理系统代码结束五五 总结总结5.