VB课程设计报告书(饭店点菜系统).doc

单单 位位 机械工程机械工程 学院学院 专专 业业 机械设计制造及其自动化机械设计制造及其自动化 学学 号号 学生姓名学生姓名 指导教师指导教师 完成日期完成日期 20112011 年年 0909 月月 0101 日日 Visual Basic 课程设计 饭店点菜系统 摘 要 点菜系统是一种全新的、集无线、网络、嵌入式、人工智能等技术于一体 的无线手持终端。适用于餐饮、酒店、咖啡厅等场所的餐台管理、点菜录单、 结算、信息反馈与传递；结合传统的点菜管理系统，为餐饮、酒店、咖啡厅等 行业的经营管理提供了一整套高效、稳定可靠、先进的解决方案，改变了餐饮 等行业的手工经营方式，提高了服务效率和顾客满意程度，提升了店面形象， 最终提升了企业竞争力与经营效益。本设计报告针对饭店餐饮管理的特点，进 行针对性、合理性、可操作性等方面的研究与设计，可以实现登录主页、浏览 菜单、点菜退菜、留言、抽奖等功能，具有操作简单、人性化、可信度高的特 点，是一款不可多得的饭店点菜系统。 关键词：饭店点菜系统，浏览，点菜，留言板，抽奖 目录 1.1.选题的意义选题的意义4 2 2系统功能需求分析系统功能需求分析.5 2.1 系统概述5 2.2 系统的构成5 2.3 各模块的功能5 2.4 系统的运行环境6 3 3系统设计系统设计.7 3.1 总体结构设计7 3.2 数据库设计7 4 4系统实现系统实现.9 登陆模块的设计与实现.9 5 5总结总结17 5.1 总结17 5.2 存在的主要问题17 参考文献参考文献.18 第 1 章 选题的意义 课程设计是教学中的重要组成部分，是培养学生综合运用所学的基础理论、 基本知识和基本技能，分析解决实际问题能力的一个至关重要的环节。与其它 教学环节彼此配合、相辅相成，在某种程度上是其他各个教学的的继续，深化 和检验。它的实践性和综合性是其它环节所不能代替的。本课程设计是学生学 完相关课程后所必需的综合训练，在不同程度上提高各种能力，如调查研究、 查阅文献和收集资料的能力；理论分析、计划、设计和绘图的能力；上机调试、 组织工作的能力；技术总结、撰写流程、操作方法的能力等。 通过该题目的设计，可以使我掌握软件开发过程中的问题分析、系统设计、 程序编码、测试等基本方法和技能；掌握利用 VB 开发数据库系统的方法。 第 2 章 系统功能需求分析 2.1系统概述 本系统能分类浏览饭店的所有菜式及价格；进行点菜操作后能预览点菜结 果，并可对其进一步修改；记录顾客的意见和建议，并具有浏览功能；当顾客 的消费达到指定金额时，可以分档抽取小奖品。 本系统界面简洁、管理流畅、易操作、人性化设计、效率高，能为顾客提 供很大的方便，在未来的餐饮市场上必将拥有广阔的前景。 2.2系统概述 本系统主要包括登录界面、主菜单界面、点菜界面、留言板界面、抽奖界 面五个部分。 2.3各模块的功能 一、登陆界面：包括欢迎语、 、饭店名称、饭店外貌、进入按钮等内容，可 以使顾客对该饭店有一个整体直观的了解；点击进入按钮，即可进入主菜单界 面。 二、主菜单界面： 主菜单界面涵盖了本饭店所有服务项目，点击相应按钮，即可进入相应服 务界面。 三、点菜界面： 点菜界面列举了本饭店几乎所有的知名菜样，各菜系分类清晰，品样繁多， 价格直观合理，消费金额结算明细；顾客可以依据个人的口味及理财观念选择 满意的菜式，点击相应按钮即可进行点菜，如果不满意也可以进行退菜；点菜 完毕后可以查看当前消费；如想退出该界面进入上一级，请点击返回按钮。 四、留言板界面： 本饭店特设留言板这一模块，可以将顾客的意见及时反馈，以便及时做出 调整，以符合更多数人的口味，尽最大可能让顾客满意。 五、抽奖界面： 顾客在点菜界面点菜完毕后，可以查看当前消费是否达到抽奖标准，如果 符合即可点击抽奖按钮进入本届面进行抽奖；本抽奖系统绝对公平可信，请顾 客放心。 2.4系统的运行环境 操作系统：Windows XP / 7 / 2000 等微软旗下操作系统。 运行系统：visual basic 6.0 其他环境如硬盘、内存、显卡、处理器等不作高要求。 第 3 章 系统设计 3.1总体结构设计 登录界面 主菜单界面 登录界面 留言板界面 抽奖界面 3.2数据库设计 单击 VB 开发环境中的“外接程序”菜单，选择“可视化管理器”启动 VisData,进而建立数据库。数据库名称为：菜单数据库；其下分为酒水、汤类、 主食、荤菜、素菜五个大类，每个大类下分为（菜）名称、价格两个字段；名 称下包含多种菜式，价格下显示相对应的菜的价钱。利用数据库可以实现对菜 式及相对应价格的添加、查询、浏览等功能。数据库建立完成后，利用 Data 控 件实现对数据库的访问，利用窗体上相应标签后的文本框实现对名称、价格的 链接，即可实现窗体与数据库的联系。 第 4 章 系统实现 4.1登录界面及其代码 Private Sub Command1_Click() 登录.Hide 酒店主页.Show End Sub Private Sub Command2_Click() End End Sub 4.2酒店主页界面及其代码 Private Sub Command1_Click() 酒店主页.Hide 点菜.Show End Sub Private Sub Command2_Click() 酒店主页.Hide 留言板.Show End Sub Private Sub Command3_Click() 酒店主页.Hide 登录.Show End Sub 4.3点菜界面及其代码 Private Sub Command1_Click() Data1.RecordSource = “select * from 酒水“ Data1.Refresh Image1.Picture = LoadPicture(App.Path + Text5.Text) End Sub Private Sub Command10_Click() 点菜.Hide 留言板.Show End Sub Private Sub Command11_Click() If Val(Text4.Text) = 300 Then Command9.Enabled = True End If End Sub Private Sub Command12_Click() Data1.Recordset.MovePrevious If Data1.Recordset.BOF Then Data1.Recordset.MoveFirst End If Image1.Picture = LoadPicture(App.Path + Text5.Text) End Sub Private Sub Command13_Click() Data1.Recordset.MoveNext If Data1.Recordset.EOF Then Data1.Recordset.MoveLast End If Image1.Picture = LoadPicture(App.Path + Text5.Text) End Sub Private Sub Command2_Click() Data1.RecordSource = “select * from 汤类“ Data1.Refresh Image1.Picture = LoadPicture(App.Path + Text5.Text) End Sub Private Sub Command3_Click() Data1.RecordSource = “select * from 主食“ Data1.Refresh Image1.Picture = LoadPicture(App.Path + Text5.Text) End Sub Private Sub Command4_Click() Data1.RecordSource = “select * from 荤菜“ Data1.Refresh Image1.Picture = LoadPicture(App.Path + Text5.Text) End Sub Private Sub Command5_Click() Data1.RecordSource = “select * from 素菜“ Data1.Refresh Image1.Picture = LoadPicture(App.Path + Text5.Text) End Sub Private Sub Command6_Click() Dim a As Long List1.AddItem Text1.Text & Text2.Text & “X“ & Text3.Text & “=“ & Val(Text2.Text * Val(Text3.Text) a = Val(Text2.Text * Val(Text3.Text) Text4.Text = a + Val(Text4.Text) End Sub Private Sub Command7_Click() If List1.ListIndex -1 Then x = List1.ListIndex End If Dim c, d As String, e As Single c = List1.List(x) Text1.Text = Left(c, 8) d = Right(c, 5) e = Val(d) End Sub 4.4留言板界面及其代码 Private Sub Command1_Click() Dim a As String a = Text2.Text & “:“ & Text1.Text & Now List1.AddItem a End Sub Private Sub Command2_Click() List1.Clear End Sub Private Sub Command3_Click() Text1.Text = “ Text2.Text = “ End Sub Private Sub Command4_Click() 点菜.Show 留言板.Hide End Sub 4.5抽奖界面及其代码 Dim a As Integer, b As Integer, c As Integer, d As Integer Private Sub Command1_Click() Timer1.Enabled = True Command1.Enabled = False End Sub Private Sub Command2_Click() Command2.Enabled = False Timer1.Enabled = False If a = b And b = c And c = d Then Label9.Caption = “恭喜您获得一等奖“ ElseIf a = b And b = c And c b Or b = c And c = d And a c And b b And a b And a a And b a And b a And c b Then Label9.Caption = “恭喜您获得三等奖“ Else Label9.Caption = “恭喜您获得四等奖“ End If End Sub Private Sub Command3_Click() 抽奖.Hide 点菜.Show End Sub Private Sub Form_Load() Timer1.Enabled = False Timer1.Interval = 100 End Sub Private Sub Timer1_Timer() Label1.Caption = Round(Rnd * 9) Label2.Caption = Round(Rnd * 9) Label3.Caption = Round(Rnd * 9) Label4.Caption = Round(Rnd * 9) a = Label1.Caption b = Label2.Caption c = Label3.Caption d = Label4.Caption End Sub 第 5 章 总结 5.1总结 “实践是检验真理的唯一标准！”经过此次短暂而充实的 vb 课程设计实习 体验，我切身感受到了理论与实践之间的差距，深刻体会到了亲手实践的重要 性。以往都只是坐在课堂里听老师讲一些教材既有的知识，所学到的东西也仅 仅只停留在理论层面，付诸于实践的机会很少，很难对所掌握的理论进行及时 的检验。此次实习给了我这样一个检验甚至是考验自己能力的机会，在此过程 中我认识到了自己的很多不足，比如课本知识记忆不深，知识面太过狭隘，重 点知识点掌握不透，自学与查询相关文献能力还有待提高；同时，我也接触到 了一些 vb 深层次的东西，其复杂性与丰富性更激发了我对本课程的兴趣，激发 了我努力学好 vb 的动力，提升了自身的学习主动性与严谨性，得到了充实而难 得的一次锻炼。 5.2存在的主要问题 由于此次 vb 课程设计报告涉及的知识层面比较深广，更显示出了自己自学 能力以及查询并参考文献的能力的薄弱，尤其是教材后期关于数据库的知识比 较陌生，靠自学并不能把知识理