VB点菜系统课程设计.docx
- 文档编号:3978587
- 上传时间:2022-11-26
- 格式:DOCX
- 页数:32
- 大小:3.59MB
VB点菜系统课程设计.docx
《VB点菜系统课程设计.docx》由会员分享,可在线阅读,更多相关《VB点菜系统课程设计.docx(32页珍藏版)》请在冰豆网上搜索。
VB点菜系统课程设计
VB点菜系统报告书
摘要:
本系统是顾客与饭店沟通的桥梁,顾客可以通过它实现对菜品酒水的浏览,集点菜、退菜、留言、抽奖于一体的vb多窗体应用程序。
本系统较多考虑人性化设计,操作简单方便,语言风趣,适时提醒,使商家用得放心,顾客使得舒心。
关键词:
Vb饭店点菜系统窗体留言板
启动封页抽奖功能管理功能
目录
封面……………………………………………………………………………1
摘要……………………………………………………………………………2
1.选题的意义……………………………………………………………4
1.1选择该题目的原因……………………………………………………4
2.1完成此题目用到的数据结构和知识点………………………………4
2.系统功能需求分析………………………………………………4
2.1系统概述………………………………………………………………4
2.2系统的组成及各模块的功能…………………………………………4
2.3系统的运行环境………………………………………………………7
3.系统设计………………………………………………………………7
3.1总体结构设计…………………………………………………………7
4.系统设计:
(要包括设计界面、核心代码及说明)………………8
4.1点菜、留言与抽奖板块的设计与实现……………………………8
4.2点菜、留言与抽奖板块的事件与代码……………………8
5.总结与存在的问题………………………………………………10
5.1总结……………………………………………………………………10
5.2存在的主要问题………………………………………………………11
6.参考文献…………………………………………………………………11
7.附录…………………………………………………………………………11
一.选题的意义
1.1选该题目的原因
通过该题目的设计,使我们掌握软件开发过程的问题分析、系统设计、程序编码、测试等基本方法和技能。
主顾可以分类浏览饭馆的所有菜肴、采集样品及价格并举行点菜,操作后能预览点菜成果,并可对于其进一步修改;留言板可以、兴许记载主顾的评价和意见,并具备浏览功效。
1.2完成该此题用到数据结构和知识点
用了文件的一些基本操作,如打开、访问、读写等操作以及EOF函数等,还有到了timer控件,利用timer控件完成滚动字幕,也用到了用到了picturebox以及用picturebox加载图片,用到还有加载图片时用到的相对路径app.path等。
二.系统功能需求分析
2.1系统概述
系统可以分类浏览饭店的所有菜式、酒水图片及价格;进行点菜操作后能预览点菜结果,并可对其进一步修改如退菜等。
当顾客的消费达到指定金额时,可以参与抽奖活动,顾客可以直接留言,系统具有记录顾客的意见和建议并具有浏览功能。
由于饭店现代管理的加强与流行,人们对工作效率的重视,将会使《饭店点菜系统》具有更广泛应用前景。
2.2系统的组成以及各模块的功能
(1)启动封面(过5秒钟后会自动弹出下一个窗体)
图1
(2)主界面
图2
(3)管理系统的界面(主要是对酒店的介绍)
图3
(4)系统总界面(可以进行点菜,也可进行留言)
图4
(5)点菜系统的界面(可以进行点菜,观察菜样)
图5
(6)留言系统的界面(把你想说的写下,只有管理员能看到)
图6
(7)抽奖界面(凡是一次消费满300,都可或抽奖机会一次)
图7
(8)管理界面(管理员登录,可以查看留言)
图8
2.3系统运行的环境
2.3.1系统使用环境
操作系统:
windows2000/XP
系统支持:
visualbasic6.0及以上版本支持库
硬件环境:
·处理器:
intelpentium166MX及更高。
·硬盘:
剩余使用空间1GB以上。
·内存:
32MB以上。
·显卡:
SVGA显示适配器、
2.3.2系统开发环境
·操作系统:
windows2000/XP
·系统支持:
visualbasic6.0
三.系统设计
3.1总体结构设计:
四.系统设计
4.1点菜、留言与抽奖板块的设计与实现
点菜模版是通过可以自动分辨热菜,凉菜,酒水,主食。
方便对其点菜。
而且通过可以菜样的图片,可以让我们提前看看美味的样式,让我们有数,更会激起食客的胃口。
看到好的菜样可以直接点,而且如果感觉点的饭菜有点多,我们还设计了可以删掉你选过的菜。
这样食客就可以放心大胆的看,希望我的设计会受欢迎。
留言板块是通过食客对酒店的认可程度的一种体现,设计该板块可以保护消费者的权益,让食客吃的难忘,对酒店也要很满意。
如果有什么不好的地方,尽管在留言板块上写下来。
每天都会有管理员进行查看的,之后我们还会进行反思和改正。
抽奖板块是对消费者本次光临的一种感谢,当每位消费者一次性消费满300元的时候,就会有一次的抽奖机会。
中奖率是100%。
这样消费者就会感到很快乐,虽然小奖品不怎么值钱。
可是消费者还是会很高兴的,会感到自己得到好处。
从我们角度来看,虽然在奖品上花点小钱,可是得到消费者的再次光顾,我们还是得到很不错的收益的。
4.2点菜事件的代码
PrivateSubCommand1_Click()
List1.Visible=True该命令按钮是对“热菜”进行的点
List2.Visible=False击该命令按钮的时候出现热菜的frame
List3.Visible=False
List4.Visible=False
Frame4.Caption="热菜"
EndSub
PrivateSubCommand2_Click()
List2.Visible=True
该命令按钮是对“冷菜”进行的List1.Visible=False击该命令按钮的时候出现冷菜的frame
List3.Visible=False
List4.Visible=False
Frame4.Caption="冷菜"
EndSub
PrivateSubCommand3_Click()
List3.Visible=True
List2.Visible=False该命令按钮是对“酒水“进行的
击该命令按钮的时候出现酒水的frame
List1.Visible=False
List4.Visible=False
Frame4.Caption="酒水"
EndSub
PrivateSubCommand4_Click()
List4.Visible=True
改名林按钮是对“主食”进行的
List2.Visible=False点击该命令按钮的时候出现主食的frame
List1.Visible=False
List3.Visible=False
Frame4.Caption="主食"
EndSub
PrivateSubCommand5_Click()
DimkAsInteger该按钮是对“确认点菜”
IfList5.ListCount=0Then的按钮,当你点完菜的时候
MsgBox"您还没有选菜呢!
",,"请选菜!
"会出现总计多少钱,如果你
EndIf感觉价钱还是合理的话,你
IfVal(Label3.Caption)>=300Then就可以确认点菜。
当你没有
Form7.Hide点菜的时候,会自动弹出消
“你还没有点菜”的消息
Form11.Show提醒。
EndIf
IfVal(Label3.Caption)<300Then
Form7.Hide
Form12.Show
EndIf
EndSub
PrivateSubCommand6_Click()
IfList5.ListIndex<>-1Then
y=List5.ListIndex
List5.RemoveItemy
EndIf
EndSub
PrivateSubCommand7_Click()该命令按钮是“总计”
DimsumAsInteger的按钮,用来对食客点完
sum=0菜后,方便看看自己所点菜
Fori=0ToList5.ListCount-1总价价格,决定是否继续点
a=Val(Right(List5.List(i),4))菜。
sum=sum+a
Nexti
Label3.Caption=sum
EndSub
PrivateSubCommand8_Click()
SelectCaseFrame4.Caption
Case"热菜"
SelectCaseList1.ListIndex
Case0
List5.AddItem("奉化芋艿头28元")在定义每到菜的价格的时
Case1侯,要与下面的frame菜
List5.AddItem("宫暴河虾50元")顺序相同,这样才会让
Case2picture,出现正确的图片。
List5.AddItem("杭椒牛柳80元")和正确的菜价格
Case3
List5.AddItem("杭州卷鸡80元")
Case4
List5.AddItem("猴头四宝150元")
Case5
List5.AddItem("煎豆腐鱼烙85元")
Case6
List5.AddItem("孔雀迎宾80元")
Case7
List5.AddItem("雪菜大汤黄鱼70元")
Case8
List5.AddItem("杨梅肉丸65元")
Case9
List5.AddItem("鱼鲞烤肉80元")
Case10
List5.AddItem("咸蛋黄炒南瓜45元")
Case11
List5.AddItem("蟹镶橙125元")
Case12
List5.AddItem("绍兴鸡99元")
Case13
List5.AddItem("宋嫂鱼羹50元")
Case14
List5.AddItem("苔条黄鱼79元")
Case15
List5.AddItem("西湖牛肉羹80元")
Case16
List5.AddItem("米粉蒸肉70元")
Case17
List5.AddItem("麒麟桂鱼85元")
Case18
List5.AddItem("千张包子蒸带鱼65元")
Case19
List5.AddItem("炝油菜30元")
Case20
List5.AddItem("两吃大虾75元")
Case21
List5.AddItem("龙井虾仁88元")
Case22
List5.AddItem("海参炆花胶100元")
Case23
List5.AddItem("双味青蟹123元")
Case24
List5.AddItem("黄金烩豆花35元")
Case25
List5.AddItem("蒸鲳鱼98元")
Case26
List5.AddItem("八宝豆腐32元")
Case27
List5.AddItem("糖醋熘素鳝85元")
Case28
List5.AddItem("糖醋鲜藕40元")
Case29
List5.AddItem("苏式酱汁肉75元")
Case30
List5.AddItem("干贝白菜心33元")
EndSelect
Case"冷菜"
SelectCaseList2.ListIndex
Case0
List5.AddItem("春卷30元")
Case1
List5.AddItem("拌海蜇皮35元")
Case2
List5.AddItem("爽口瓜皮丁25元")
Case3
List5.AddItem("拌羊肚丝45元")
Case4
List5.AddItem("凉拌荞面凉粉25元")
Case5
List5.AddItem("红薯凉粉30元")
Case6
List5.AddItem("凉拌笋丝28元")
Case7
List5.AddItem("干豆腐粉丝拌黄瓜26元")
Case8
List5.AddItem("凉拌莴笋丝30元")
Case9
List5.AddItem("黄瓜拌粉皮20元")
Case10
List5.AddItem("炝拌文笋31元")
Case11
List5.AddItem("皮蛋豆腐15元")
Case12
List5.AddItem("韭菜拌兔肝45元")
Case13
List5.AddItem("糟卤鸡爪29元")
Case14
List5.AddItem("手撕茄子32元")
Case15
List5.AddItem("海蜇拌黄瓜24元")
Case16
List5.AddItem("尖椒皮蛋30元")
Case17
List5.AddItem("泰式凉拌黄瓜卷32元")
Case18
List5.AddItem("凉拌豆芽菜21元")
Case19
List5.AddItem("蔬豆卷35元")
Case20
List5.AddItem("蚝油山药35元")
Case21
List5.AddItem("爽口鸡胗50元")
Case22
List5.AddItem("鸡肉咸蛋卷48元")
Case23
List5.AddItem("五彩素什锦30元")
Case24
List5.AddItem("奶汁鸡蛋菠菜35元")
Case25
List5.AddItem("糖醋瓜皮卷28元")
Case26
List5.AddItem("水晶西兰花火腿卷43元")
EndSelect
Case"酒水"
SelectCaseList3.ListIndex
Case0
List5.AddItem("白兰地180元")
Case1
List5.AddItem("橙汁10元")
Case2
List5.AddItem("伏特加20元")
Case3
List5.AddItem("红酒120元")
Case4
List5.AddItem("可乐10元")
Case5
List5.AddItem("王老吉10元")
Case6
List5.AddItem("雪碧10元")
EndSelect
Case"主食"
SelectCaseList4.ListIndex
Case0
List5.AddItem("炒饭10元")
Case1
List5.AddItem("炒粉10元")
Case2
List5.AddItem("蛋炒饭15元")
Case3
List5.AddItem("点心拼盘20元")
Case4
List5.AddItem("锅贴10元")
Case5
List5.AddItem("黄金糕15元")
Case6
List5.AddItem("酱鸭菜泡饭20元")
Case7
List5.AddItem("饺子15元")
Case8
List5.AddItem("米饭5元")
Case9
List5.AddItem("五谷丰登15元")
Case10
List5.AddItem("油泼面15元")
Case11
List5.AddItem("玉米煲仔饭15元")
Case12
List5.AddItem("杂粮包15元")
EndSelect
EndSelect
EndSub
PrivateSubCommand9_Click()
Form7.Hide该按钮是对进入该点
Form3.Show菜界面后不想进行点菜后退
EndSub出该界面的操作
PrivateSubForm_Load()
Label1.Left=(ScaleWidth-Label1.Width)/2
List1.Visible=False
List2.Visible=False
List3.Visible=False
List4.Visible=False
EndSub
PrivateSubForm_Resize()
Form_Load
EndSub
PrivateSubImage1_Click()
EndSub
PublicSubList3_Click()
Dimc(0To6)AsInteger
SelectCaseList3.ListIndex
Case0
Image1.Picture=LoadPicture(App.Path+"\白兰地.jpg")
c(0)=180
Label4.Caption=c(0)
Case1
Image1.Picture=LoadPicture(App.Path+"\橙汁.jpg")
c
(1)=10
Label4.Caption=c
(1)
Case2
Image1.Picture=LoadPicture(App.Path+"\伏特加.jpg")
c
(2)=20
Label4.Caption=c
(2)
Case3
Image1.Picture=LoadPicture(App.Path+"\红酒.jpg")
c(3)=120
Label4.Caption=c(3)
Case4
Image1.Picture=LoadPicture(App.Path+"\可乐.jpg")
c(4)=10
Label4.Caption=c(4)
Case5
Image1.Picture=LoadPicture(App.Path+"\王老吉.jpg")
c(5)=10
Label4.Caption=c(5)
Case6
Image1.Picture=LoadPicture(App.Path+"\雪碧.jpg")
c(6)=10
Label4.Caption=c(6)
EndSelect
EndSub
PublicSubList1_Click()
Dima(0To30)AsInteger
SelectCaseList1.ListIndex
Case0
Image1.Picture=LoadPicture(App.Path+"\奉化芋艿头.jpg")
a(0)=28
Label4.Caption=a(0)
Case1
Image1.Picture=LoadPicture(App.Path+"\宫爆河虾.jpg")
a
(1)=50
Label4.Caption=a
(1)
Case2
Image1.Picture=LoadPicture(App.Path+"\杭椒牛柳.jpg")
a
(2)=80
Label4.Caption=a
(2)
Case3
Image1.Picture=LoadPicture(App.Path+"\杭州卷鸡.jpg")
a(3)=80
Label4.Caption=a(3)
Case4
Image1.Picture=LoadPicture(App.Path+"\猴头四宝.jpg")
a(4)=150
Label4.Caption=a(4)
Case5
Image1.Picture=LoadPicture(App.Path+"\煎豆腐鱼烙.jpg")
a(5)=85
Label4.Caption=a(5)
Case6
Image1.Picture=LoadPicture(App.Path+"\孔雀迎宾.jpg")
a(6)=80
Label4.Caption=a(6)
Case7
Image1.Picture=LoadPicture(App.Path+"\雪菜大汤黄鱼.jpg")
a(7)=70
Label4.Caption=a(7)
Case8
Image1.Picture=LoadPicture(App.Path+"\杨梅肉丸.jpg")
a(8)=65
Label4.Caption=a(8)
Case9
Image1.Picture=LoadPicture(App.Path+"\鱼鲞烤肉.jpg")
a(9)=80
Label4.Caption=a(9)
Case10
Image1.Picture=LoadPicture(App.Path+"\咸蛋黄炒南瓜.jpg")
a(10)=45
Label4.Caption=a(10)
Case11
Image1.Picture=LoadPicture(App.Path+"\蟹镶橙.jpg")
a(11)=125
Label4.Caption=a(11)
Case12
Image1.Picture=LoadPicture(App.Path+"\绍兴鸡.jpg")
a(12)=99
Label4.Caption=a(12)
Case13
Image1.Picture=LoadPicture(App.Path+"\宋嫂鱼羹.jpg")
a(13)=50
Label4.Caption=a(13)
Case14
Image1.Picture=LoadPicture(App.Path+"\苔条黄鱼.jpg"
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 点菜 系统 课程设计