《VB点菜系统课程设计.doc》由会员分享，可在线阅读，更多相关《VB点菜系统课程设计.doc（28页珍藏版）》请在三一办公上搜索。
1、 石家庄铁道大学课程设计之VB点菜系统报告书学 院： 土木工指导老师: 班 级：姓 名：学 号：完成日期：2012年05月31日摘要：本系统是顾客与饭店沟通的桥梁，顾客可以通过它实现对菜品酒水的浏览，集点菜、退菜、留言、抽奖于一体的vb多窗体应用程序。本系统较多考虑人性化设计，操作简单方便，语言风趣，适时提醒，使商家用得放心，顾客使得舒心。关键词：Vb 饭店点菜系统 窗体 留言板 启动封页 抽奖功能 管理功能目录封面1摘要21.选题的意义41.1选择该题目的原因42.1完成此题目用到的数据结构和知识点42.系统功能需求分析42.1系统概述42.2系统的组成及各模块的功能42.3系统的运行环境7
2、3.系统设计73.1总体结构设计74. 系统设计：（要包括设计界面、核心代码及说明）84.1点菜、留言与抽奖板块的设计与实现8 4.2点菜、留言与抽奖板块的事件与代码 85总结与存在的问题10 5.1总结10 5.2存在的主要问题116.参考文献117.附录11 一选题的意义1.1选该题目的原因通过该题目的设计，使我们掌握软件开发过程的问题分析、系统设计、程序编码、测试等基本方法和技能。主顾可以分类浏览饭馆的所有菜肴、采集样品及价格并举行点菜，操作后能预览点菜成果，并可对于其进一步修改；留言板可以、兴许记载主顾的评价和意见，并具备浏览功效。1.2完成该此题用到数据结构和知识点用了文件的一些基本
3、操作，如打开、访问、读写等操作以及EOF函数等，还有到了timer控件，利用timer控件完成滚动字幕，也用到了用到了picturebox以及用picturebox加载图片， 用到还有加载图片时用到的相对路径app.path等。二系统功能需求分析2.1系统概述系统可以分类浏览饭店的所有菜式、酒水图片及价格；进行点菜操作后能预览点菜结果，并可对其进一步修改如退菜等。当顾客的消费达到指定金额时，可以参与抽奖活动，顾客可以直接留言，系统具有记录顾客的意见和建议并具有浏览功能。由于饭店现代管理的加强与流行，人们对工作效率的重视，将会使饭店点菜系统具有更广泛应用前景。 2.2系统的组成以及各模块的功能（
4、1）启动封面（过5秒钟后会自动弹出下一个窗体） 图1（2）主界面 图2 （3）管理系统的界面（主要是对酒店的介绍）图3 （4）系统总界面（可以进行点菜，也可进行留言） 图4 （5）点菜系统的界面（可以进行点菜，观察菜样） 图5 （6）留言系统的界面（把你想说的写下，只有管理员能看到）图6 （7）抽奖界面（凡是一次消费满300，都可或抽奖机会一次）图7（8）管理界面（管理员登录，可以查看留言）图82.3系统运行的环境2.3.1系统使用环境操作系统：windows2000/XP 系统支持：visual basic 6.0及以上版本支持库 硬件环境： 处理器：intel pentium 166MX及
5、更高。 硬盘：剩余使用空间1GB以上。 内存：32MB以上。 显卡：SVGA显示适配器、2.3.2系统开发环境 操作系统：windows2000/XP 系统支持：visual basic 6.0 三系统设计3.1总体结构设计：饭店点菜系统启动封面/主界面主界面管理界面 留言点菜管理员管理酒店介绍抽奖 四系统设计4.1点菜、留言与抽奖板块的设计与实现点菜模版是通过可以自动分辨热菜，凉菜，酒水，主食。方便对其点菜。而且通过可以菜样的图片，可以让我们提前看看美味的样式，让我们有数，更会激起食客的胃口。看到好的菜样可以直接点，而且如果感觉点的饭菜有点多，我们还设计了可以删掉你选过的菜。这样食客就可以放
6、心大胆的看，希望我的设计会受欢迎。留言板块是通过食客对酒店的认可程度的一种体现，设计该板块可以保护消费者的权益，让食客吃的难忘，对酒店也要很满意。如果有什么不好的地方，尽管在留言板块上写下来。每天都会有管理员进行查看的，之后我们还会进行反思和改正。抽奖板块是对消费者本次光临的一种感谢，当每位消费者一次性消费满300元的时候，就会有一次的抽奖机会。中奖率是100%。这样消费者就会感到很快乐，虽然小奖品不怎么值钱。可是消费者还是会很高兴的，会感到自己得到好处。从我们角度来看，虽然在奖品上花点小钱，可是得到消费者的再次光顾，我们还是得到很不错的收益的。4.2点菜事件的代码Private Sub Co
7、mmand1_Click()List1.Visible = True 该命令按钮是对“热菜”进行的点List2.Visible = False 击该命令按钮的时候出现热菜的frameList3.Visible = False List4.Visible = FalseFrame4.Caption = 热菜End SubPrivate Sub Command2_Click()List2.Visible = True 该命令按钮是对“冷菜”进行的List1.Visible = False 击该命令按钮的时候出现冷菜的frameList3.Visible = FalseList4.Visible =
8、 FalseFrame4.Caption = 冷菜End SubPrivate Sub Command3_Click()List3.Visible = TrueList2.Visible = False 该命令按钮是对“酒水“进行的击该命令按钮的时候出现酒水的frame List1.Visible = FalseList4.Visible = FalseFrame4.Caption = 酒水End SubPrivate Sub Command4_Click()List4.Visible = True 改名林按钮是对“主食”进行的List2.Visible = False点击该命令按钮的时候出现
9、主食的frameList1.Visible = FalseList3.Visible = FalseFrame4.Caption = 主食End SubPrivate Sub Command5_Click() Dim k As Integer该按钮是对“确认点菜” If List5.ListCount = 0 Then的按钮，当你点完菜的时候 MsgBox 您还没有选菜呢！, , 请选菜！会出现总计多少钱，如果你 End If感觉价钱还是合理的话，你 If Val(Label3.Caption) = 300 Then就可以确认点菜。当你没有 Form7.Hide点菜的时候，会自动弹出消“你还没
10、有点菜”的消息 Form11.Show提醒。 End IfIf Val(Label3.Caption) 300 Then Form7.Hide Form12.Show End IfEnd SubPrivate Sub Command6_Click()If List5.ListIndex -1 Then y = List5.ListIndex List5.RemoveItem y End If End SubPrivate Sub Command7_Click()该命令按钮是“总计” Dim sum As Integer的按钮，用来对食客点完 sum = 0菜后，方便看看自己所点菜 For i
11、= 0 To List5.ListCount - 1总价价格，决定是否继续点 a = Val(Right(List5.List(i), 4)菜。 sum = sum + a Next i Label3.Caption = sumEnd SubPrivate Sub Command8_Click()Select Case Frame4.Caption Case 热菜 Select Case List1.ListIndex Case 0 List5.AddItem (奉化芋艿头 28元) 在定义每到菜的价格的时 Case 1 侯，要与下面的frame菜 List5.AddItem (宫暴河虾 50
12、 元)顺序相同，这样才会让 Case 2picture，出现正确的图片。 List5.AddItem (杭椒牛柳 80 元)和正确的菜价格 Case 3 List5.AddItem (杭州卷鸡 80 元) Case 4 List5.AddItem (猴头四宝 150 元) Case 5 List5.AddItem (煎豆腐鱼烙 85 元) Case 6 List5.AddItem (孔雀迎宾 80 元) Case 7 List5.AddItem (雪菜大汤黄鱼 70 元) Case 8 List5.AddItem (杨梅肉丸 65 元) Case 9 List5.AddItem (鱼鲞烤肉 8
13、0 元) Case 10 List5.AddItem (咸蛋黄炒南瓜 45 元) Case 11 List5.AddItem (蟹镶橙 125 元) Case 12 List5.AddItem (绍兴鸡 99 元) Case 13 List5.AddItem (宋嫂鱼羹 50 元) Case 14 List5.AddItem (苔条黄鱼 79 元) Case 15 List5.AddItem (西湖牛肉羹 80 元) Case 16 List5.AddItem (米粉蒸肉 70 元) Case 17 List5.AddItem (麒麟桂鱼 85 元) Case 18 List5.AddItem
14、 (千张包子蒸带鱼 65 元) Case 19 List5.AddItem (炝油菜 30 元) Case 20 List5.AddItem (两吃大虾 75 元) Case 21 List5.AddItem (龙井虾仁 88 元) Case 22 List5.AddItem (海参炆花胶 100 元) Case 23 List5.AddItem (双味青蟹 123 元) Case 24 List5.AddItem (黄金烩豆花 35 元) Case 25 List5.AddItem (蒸鲳鱼 98 元) Case 26 List5.AddItem (八宝豆腐 32 元) Case 27 Li
15、st5.AddItem (糖醋熘素鳝 85 元) Case 28 List5.AddItem (糖醋鲜藕 40 元) Case 29 List5.AddItem (苏式酱汁肉 75 元) Case 30 List5.AddItem (干贝白菜心 33 元) End Select Case 冷菜 Select Case List2.ListIndex Case 0 List5.AddItem (春卷 30元) Case 1 List5.AddItem (拌海蜇皮 35 元) Case 2 List5.AddItem (爽口瓜皮丁 25 元) Case 3 List5.AddItem (拌羊肚丝
16、45 元) Case 4 List5.AddItem (凉拌荞面凉粉 25元) Case 5 List5.AddItem (红薯凉粉 30 元) Case 6 List5.AddItem (凉拌笋丝 28 元) Case 7 List5.AddItem (干豆腐粉丝拌黄瓜 26 元) Case 8 List5.AddItem (凉拌莴笋丝 30 元) Case 9 List5.AddItem (黄瓜拌粉皮 20 元) Case 10 List5.AddItem (炝拌文笋 31 元) Case 11 List5.AddItem (皮蛋豆腐 15 元) Case 12 List5.AddItem
17、 (韭菜拌兔肝 45 元) Case 13 List5.AddItem (糟卤鸡爪 29 元) Case 14 List5.AddItem (手撕茄子 32 元) Case 15 List5.AddItem (海蜇拌黄瓜 24 元) Case 16 List5.AddItem (尖椒皮蛋 30 元) Case 17 List5.AddItem (泰式凉拌黄瓜卷 32 元) Case 18 List5.AddItem (凉拌豆芽菜 21 元) Case 19 List5.AddItem (蔬豆卷 35 元) Case 20 List5.AddItem (蚝油山药 35 元) Case 21 Li
18、st5.AddItem (爽口鸡胗 50 元) Case 22 List5.AddItem (鸡肉咸蛋卷 48 元) Case 23 List5.AddItem (五彩素什锦 30 元) Case 24 List5.AddItem (奶汁鸡蛋菠菜 35 元) Case 25 List5.AddItem (糖醋瓜皮卷 28 元) Case 26 List5.AddItem (水晶西兰花火腿卷 43 元) End Select Case 酒水 Select Case List3.ListIndex Case 0 List5.AddItem (白兰地 180元) Case 1 List5.AddIt
19、em (橙汁 10元) Case 2 List5.AddItem (伏特加 20元) Case 3 List5.AddItem (红酒 120元) Case 4 List5.AddItem (可乐 10元) Case 5 List5.AddItem (王老吉 10元) Case 6 List5.AddItem (雪碧 10元) End Select Case 主食 Select Case List4.ListIndex Case 0 List5.AddItem (炒饭 10元) Case 1 List5.AddItem (炒粉 10 元) Case 2 List5.AddItem (蛋炒饭 1
20、5 元) Case 3 List5.AddItem (点心拼盘 20 元) Case 4 List5.AddItem (锅贴 10元) Case 5 List5.AddItem (黄金糕 15 元) Case 6 List5.AddItem (酱鸭菜泡饭 20 元) Case 7 List5.AddItem (饺子 15 元) Case 8 List5.AddItem (米饭 5 元) Case 9 List5.AddItem (五谷丰登 15 元) Case 10 List5.AddItem (油泼面 15 元) Case 11 List5.AddItem (玉米煲仔饭 15 元) Case
21、 12 List5.AddItem (杂粮包 15 元) End SelectEnd SelectEnd SubPrivate Sub Command9_Click()Form7.Hide该按钮是对进入该点Form3.Show菜界面后不想进行点菜后退End Sub出该界面的操作Private Sub Form_Load()Label1.Left = (ScaleWidth - Label1.Width) / 2List1.Visible = FalseList2.Visible = FalseList3.Visible = FalseList4.Visible = FalseEnd SubPr
22、ivate Sub Form_Resize()Form_LoadEnd SubPrivate Sub Image1_Click()End SubPublic Sub List3_Click()Dim c(0 To 6) As IntegerSelect Case List3.ListIndex Case 0 Image1.Picture = LoadPicture(App.Path + 白兰地.jpg) c(0) = 180 Label4.Caption = c(0)Case 1 Image1.Picture = LoadPicture(App.Path + 橙汁.jpg) c(1) = 10
23、 Label4.Caption = c(1)Case 2 Image1.Picture = LoadPicture(App.Path + 伏特加.jpg) c(2) = 20 Label4.Caption = c(2)Case 3 Image1.Picture = LoadPicture(App.Path + 红酒.jpg) c(3) = 120 Label4.Caption = c(3)Case 4 Image1.Picture = LoadPicture(App.Path + 可乐.jpg) c(4) = 10 Label4.Caption = c(4)Case 5 Image1.Pict
24、ure = LoadPicture(App.Path + 王老吉.jpg) c(5) = 10 Label4.Caption = c(5) Case 6 Image1.Picture = LoadPicture(App.Path + 雪碧.jpg) c(6) = 10 Label4.Caption = c(6)End SelectEnd SubPublic Sub List1_Click()Dim a(0 To 30) As IntegerSelect Case List1.ListIndex Case 0 Image1.Picture = LoadPicture(App.Path + 奉化芋
25、艿头.jpg) a(0) = 28 Label4.Caption = a(0)Case 1 Image1.Picture = LoadPicture(App.Path + 宫爆河虾.jpg) a(1) = 50 Label4.Caption = a(1)Case 2 Image1.Picture = LoadPicture(App.Path + 杭椒牛柳.jpg) a(2) = 80 Label4.Caption = a(2)Case 3 Image1.Picture = LoadPicture(App.Path + 杭州卷鸡.jpg) a(3) = 80 Label4.Caption = a
26、(3)Case 4 Image1.Picture = LoadPicture(App.Path + 猴头四宝.jpg) a(4) = 150 Label4.Caption = a(4)Case 5 Image1.Picture = LoadPicture(App.Path + 煎豆腐鱼烙.jpg) a(5) = 85 Label4.Caption = a(5)Case 6 Image1.Picture = LoadPicture(App.Path + 孔雀迎宾.jpg) a(6) = 80 Label4.Caption = a(6)Case 7 Image1.Picture = LoadPic
27、ture(App.Path + 雪菜大汤黄鱼.jpg) a(7) = 70 Label4.Caption = a(7)Case 8 Image1.Picture = LoadPicture(App.Path + 杨梅肉丸.jpg) a(8) = 65 Label4.Caption = a(8)Case 9 Image1.Picture = LoadPicture(App.Path + 鱼鲞烤肉.jpg) a(9) = 80 Label4.Caption = a(9)Case 10 Image1.Picture = LoadPicture(App.Path + 咸蛋黄炒南瓜.jpg) a(10)
28、 = 45 Label4.Caption = a(10)Case 11Image1.Picture = LoadPicture(App.Path + 蟹镶橙.jpg) a(11) = 125 Label4.Caption = a(11)Case 12 Image1.Picture = LoadPicture(App.Path + 绍兴鸡.jpg) a(12) = 99 Label4.Caption = a(12)Case 13 Image1.Picture = LoadPicture(App.Path + 宋嫂鱼羹.jpg) a(13) = 50 Label4.Caption = a(13)C
29、ase 14 Image1.Picture = LoadPicture(App.Path + 苔条黄鱼.jpg) a(14) = 79 Label4.Caption = a(14)Case 15 Image1.Picture = LoadPicture(App.Path + 西湖牛肉羹.jpg) a(15) = 80 Label4.Caption = a(15)Case 16 Image1.Picture = LoadPicture(App.Path + 米粉蒸肉.jpg) a(16) = 70 Label4.Caption = a(16)Case 17 Image1.Picture = Lo
30、adPicture(App.Path + 麒麟桂鱼.jpg) a(17) = 85 Label4.Caption = a(17)Case 18 Image1.Picture = LoadPicture(App.Path + 千张包子蒸带鱼.jpg) a(18) = 65 Label4.Caption = a(18)Case 19 Image1.Picture = LoadPicture(App.Path + 炝油菜.jpg) a(19) = 30 Label4.Caption = a(19)Case 20 Image1.Picture = LoadPicture(App.Path + 两吃大虾
31、.jpg) a(20) = 75 Label4.Caption = a(20)Case 21 Image1.Picture = LoadPicture(App.Path + 龙井虾仁.jpg) a(21) = 88 Label4.Caption = a(21)Case 22 Image1.Picture = LoadPicture(App.Path + 海参炆花胶.jpg) a(22) = 100 Label4.Caption = a(22)Case 23 Image1.Picture = LoadPicture(App.Path + 双味青蟹.jpg) a(23) = 123 Label4.
32、Caption = a(23)Case 24 Image1.Picture = LoadPicture(App.Path + 黄金烩豆花.jpg) a(24) = 35 Label4.Caption = a(24)Case 25 Image1.Picture = LoadPicture(App.Path + 蒸鲳鱼.jpg) a(25) = 98 Label4.Caption = a(25)Case 26 Image1.Picture = LoadPicture(App.Path + 八宝豆腐.jpg) a(26) = 32 Label4.Caption = a(26)Case 27 Imag
33、e1.Picture = LoadPicture(App.Path + 糖醋熘素鳝.jpg) a(27) = 85 Label4.Caption = a(27)Case 28 Image1.Picture = LoadPicture(App.Path + 糖醋鲜藕.jpg) a(28) = 40 Label4.Caption = a(28)Case 29 Image1.Picture = LoadPicture(App.Path + 苏式酱汁肉.jpg) a(29) = 75 Label4.Caption = a(29)Case 30 Image1.Picture = LoadPicture(
34、App.Path + 干贝白菜心.jpg) a(30) = 33 Label4.Caption = a(30)End SelectEnd SubPrivate Sub List2_Click()Dim b(0 To 26) As IntegerSelect Case List2.ListIndexCase 0 Image1.Picture = LoadPicture(App.Path + 春卷.jpg) b(0) = 30 Label4.Caption = b(0)Case 1 Image1.Picture = LoadPicture(App.Path + 拌海蜇皮.jpg) b(1) = 3
35、5 Label4.Caption = b(1)Case 2 Image1.Picture = LoadPicture(App.Path + 爽口瓜皮丁.jpg) b(2) = 25 Label4.Caption = b(2)Case 3 Image1.Picture = LoadPicture(App.Path + 拌羊肚丝.jpg) b(3) = 45 Label4.Caption = b(3)Case 4 Image1.Picture = LoadPicture(App.Path + 凉拌荞面凉粉.jpg) b(4) = 25 Label4.Caption = b(4)Case 5 Ima
36、ge1.Picture = LoadPicture(App.Path + 红薯凉粉.jpg) b(5) = 30 Label4.Caption = b(5)Case 6 Image1.Picture = LoadPicture(App.Path + 凉拌笋丝.jpg) b(6) = 28 Label4.Caption = b(6)Case 7 Image1.Picture = LoadPicture(App.Path + 干豆腐粉丝拌黄瓜.jpg) b(7) = 26 Label4.Caption = b(7)Case 8 Image1.Picture = LoadPicture(App.Pa
37、th + 凉拌莴笋丝.jpg) b(8) = 30 Label4.Caption = b(8)Case 9 Image1.Picture = LoadPicture(App.Path + 黄瓜拌粉皮.jpg) b(9) = 20 Label4.Caption = b(9)Case 10 Image1.Picture = LoadPicture(App.Path + 炝拌文笋.jpg) b(10) = 31 Label4.Caption = b(10)Case 11 Image1.Picture = LoadPicture(App.Path + 皮蛋豆腐.jpg) b(11) = 15 Labe
38、l4.Caption = b(11)Case 12 Image1.Picture = LoadPicture(App.Path + 韭菜拌兔肝.jpg) b(12) = 45 Label4.Caption = b(12)Case 13 Image1.Picture = LoadPicture(App.Path + 糟卤鸡爪.jpg) b(13) = 29 Label4.Caption = b(13)Case 14 Image1.Picture = LoadPicture(App.Path + 手撕茄子.jpg) b(14) = 32 Label4.Caption = b(14)Case 15 Image1.Picture = LoadPicture(App.Path + 海蜇拌黄瓜.jpg) b(15) = 24 Label4.Caption = b(15)Case 16 Image1.Picture = LoadPicture(App.Path + 尖椒皮蛋.jpg) b(16) = 30 Label4.Caption = b(16)Case 17 Image1.Picture = LoadPicture(App.
