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 List1 RemoveItem x End If Text4 Text Val Text4 Text e End Sub Private Sub Command8 Click 点菜 Hide 酒店主页 Show End Sub Private Sub Command9 Click 抽奖 Show 点菜 Hide End Sub Private Sub Form Load Command9 Enabled False Text1 Text Text2 Text Text3 Text List1 Text End Sub Private Sub List1 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 d Or a c And c d And a b Or b c And c d And a b Then Label9 Caption 恭喜您获得二等奖 ElseIf a b And b c And b d Or a c And a b And a d Or a d And a b And a c Or b c And b a And b d Or b d And b a And b c Or c d And c 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 课程设计实习 体验 我切身感受到了理论与实践之间的差距 深刻体会到了亲手实践的重要 性 以往都只是坐在课堂里听老师讲一些教材既有的知识 所学到的东西也仅 仅只停留在理