- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
VB课程设计--酒店点菜系统
吉林工程技术师范学院
VB课程设计
设计题目: 酒店点菜系统
专业: 计算机 班级: C1152
学生姓名: 曹 睿 学号: 33
指导教师: 高汝仪 、 高岚
2012年6月
信息工程学院
目录
目录 1
摘要 2
关键字:VB设计、酒店信息、酒店管理、点菜系统、VB主流产品 2
一. 题目分析 3
(1).登录 3
(2).菜式管理系统 3
(3).点菜系统 3
二. 设计概述 4
(1)各模块之间的关系 4
(2)各模块流程图 4
三.详细设计 6
1.模块窗体 6
2.酒店菜单登录系统(form1) 6
3.菜式管理系统(form2) 7
4.点菜系统(form3) 8
5.菜式浏览系统 9
四 效果及存在问题: 11
1.效果 : 11
2.存在问题: 18
五.总结 19
六.参考文献 20
七、对该题目和VB设计的意见和建议 21
1. 对该题目的意见和建议 21
2.对本次设计的意见和建议 21
附录 22
源代码 22
摘要
经过一个学期对《VB程序设计》的学习,同学们都认为真正的学到了有用知识,可能有一些人学的不够理想,但无论如何,这些知识都为我们的下一步学习打下了坚实的基础。做这么一个课程设计,一方面是为了检查我们一个学期来我们学习的成果,另一方面也是为了让我们进一步的掌握和运用它,同时也让我们认清自己的不足之处和薄弱环节,加以弥补和加强。
本程序是酒店点菜系统程序,可以更方便酒店管理行业。
关键字:VB设计、酒店信息、酒店管理、点菜系统、VB主流产品
一. 题目分析
(1).登录
打开饭店菜式管理系统程序,进入主界面。通过输入用户名和密码登录到菜品式管理界面
两个按钮可以分别进入菜式管理系统和退出系统。
(2).菜式管理系统
通过输入用户名和密码进入到了菜式管理界面,点击菜式管理菜单,对菜式进行添加和删除,以及退出程序。三个按钮可以分别进入到点菜系统、菜式浏览系统以及返回主界面。
(3).点菜系统
通过点击菜式管理系统的点菜按钮进入到点菜系统。此界面有两个列表框,分别放饭店里所有菜式以及已点的菜,再通过点菜按钮将饭店菜式列表框里的菜点到已点列表框里,通过退菜按钮对已点列表框里的菜进行删除。在点菜和退菜的同时还对菜式价格进行计算。点菜完成后进行落单,点击返回管理界面按钮返回管理系统界面。
(4).菜式管理系统
通过点击菜式管理系统的菜式浏览按钮进入到菜式浏览系统。通过点击按菜名、价格和菜系浏览菜单,对菜式分别进行浏览。点击返回管理界面按钮返回管理里系统。.
二. 设计概述
(1)各模块之间的关系
登
录
失
败
登录成功
(2)各模块流程图
a:菜式管理系统
b:点菜系统
c:菜式浏览系统
三.详细设计
1.模块窗体
Public i As Integer
Public sum As Single
Type caidan
cm As String
cx As String
jg As Integer
yl As String
zk As Single
End Type
Public s() As caidan
Function chazhao(ByVal n As String) As Integer
Dim j As Integer
For j = 1 To i
If n = s(j).cm Then chazhao = j
If n = s(j).cx Then chazhao = j
If n = Str(s(j).jg) Then chazhao = j
If n = s(j).yl Then chazhao = j
If n = Str(s(j).zk) Then chazhao = j
Next j
End Function
2.酒店菜单登录系统(form1)
Private Sub Command1_Click()
Dim mes%
I
您可能关注的文档
最近下载
- T_BJSMYXYJH 0002—2021_树木医生技能考核评价规范.pdf VIP
- 2025年骨科十五五规划.docx
- 邮件处理中心协同客服操作规范.doc VIP
- 中国南方航空股份有限公司盈利能力分析.doc VIP
- 金矿开采项目投资计划书.docx
- 学习项目二民宿运营民宿经营策略民宿营销推广民宿品牌打造课件讲解.ppt VIP
- 小学科学新教科版三年级上册第一单元 天气教案(2025秋新版).doc
- 安全运动促健康(教学设计)-2023-2024学年人教版体育三年级上册.docx VIP
- 杜邦STOP安全观察技巧解读.pdf VIP
- 04S516 混凝土排水管道基础及接口.docx VIP
文档评论(0)