饭店点菜系统-vb课程设计报告

1、饭店点菜系统课程设计报告指导老师： 作 者： 学 号： 班 级： 完成日期：2011年7月6日摘要 本系统是顾客与饭店沟通的桥梁，顾客可以通过它实现对菜品酒水的浏览，集点菜、退菜、留言、抽奖于一体的vb多窗体应用程序。本系统较多考虑人性化设计，操作简单方便，语言风趣，适时提醒，使商家用得放心，顾客使得舒心。关键词Vb 饭店点菜系统 窗体 留言板 目录封面1摘要21.选题的意义41.1选择该题目的原因42.1完成此题目用到的数据结构和知识点42.系统功能需求分析42.1系统概述42.2系统的组成及各模块的功能42.3系统的运行环境73.系统设计73.1总体结构设计74. 系统设计：（要包括设计界

2、面、核心代码及说明）84.1留言板的设计与实现8 4.2留言板的事件与代码85总结与存在的问题10 5.1总结10 5.2存在的主要问题116.参考文献117.附录111选题的意义1.1选该题目的原因通过该题目的设计，使我们掌握软件开发过程的问题分析、系统设计、程序编码、测试等基本方法和技能。主顾可以分类浏览饭馆的所有菜肴、采集样品及价格并举行点菜，操作后能预览点菜成果，并可对于其进一步修改；留言板可以、兴许记载主顾的评价和意见，并具备浏览功效。1.2完成该此题用到数据结构和知识点用了文件的一些基本操作，如打开、访问、读写等操作以及EOF函数等，还有到了timer控件，利用timer控件完成滚

3、动字幕，也用到了用到了picturebox以及用picturebox加载图片， 用到还有加载图片时用到的相对路径app.path等。2系统功能需求分析2.1系统概述系统可以分类浏览饭店的所有菜式、酒水图片及价格；进行点菜操作后能预览点菜结果，并可对其进一步修改如退菜等。当顾客的消费达到指定金额时，可以参与抽奖活动，顾客可以直接留言，系统具有记录顾客的意见和建议并具有浏览功能。由于饭店现代管理的加强与流行，人们对工作效率的重视，将会使饭店点菜系统具有更广泛应用前景。 2.2系统的组成以及各模块的功能饭店点菜系统由5个vb窗体组成，分别是：图一图一为系统登录界面，其中包括了指导老师以及设计者的姓名

4、等内容，用户点击进入按钮，即可进入进入主界面，如下图：图 二图二为系统主界面，点击按钮可以进入相应界面。图 三图三为点菜界面，顾客可以通过该窗体浏览菜式、酒水及其价格，可以进行点菜、退菜、查看当前消费等。图 四图四为留言板窗体，顾客可以在这里留言，提意见。并可以看到其他顾客的留言。点击按钮可以进入相应界面。图五为抽奖窗体，当顾客消费满饭店规定的一定金额后可以进行抽奖。2.3系统运行的环境2.3.1系统使用环境操作系统：windows2000/XP 系统支持：visual basic 6.0及以上版本支持库 硬件环境： ·处理器：intel pentium 166MX及更高。 

5、3;硬盘：剩余使用空间1GB以上。 ·内存：32MB以上。 ·显卡：SVGA显示适配器、 2.3.2系统开发环境 ·操作系统：windows2000/XP ·系统支持：visual basic 6.03系统设计3.1总体结构设计：饭店点菜系统登录界面抽 奖结 账留 言点 菜4.系统实现：4.1留言板的设计与实现点菜窗体上有两个文本框（txetbox），三个timer控件，一个列表框（listbox），两个picturebox，四个命令按钮（command），两个标签（label）其中有都在系统运行时不可见。如下图所示：两个文本框分别是用来让顾客输入留言内

6、容和签名的，确定留言时都不能为空。两个标签分别是显示滚动字幕和当前时间的，窗体加载了，字幕自动滚动，右上角图片框中的小松鼠报时自动显示当前时间。命令按钮分别是清除留言、留言、首页、goodbye（推出程序），当点击按钮是触发相应事件。一个列表框是用来显示以前顾客留言的，两个图片框是用来加载背景图片的。4.2留言板的事件与代码窗体载入时实现滚动字幕与显示当前时间的代码：Timer事件Private Sub Timer1_Timer() If label1.Left + label1.Width > 0 Then 如果标签距离窗体左边距离加上自身宽度大于零标签向左移动 label1.Move

7、 label1.Left 50 每50毫秒移动一次 Else label1.Left = Form1.ScaleWidth '当标签距离窗体左边的距离与其自身的宽度之和小于等于0时，那么标签距窗体左边的距离就等于窗体的宽度 End IfEnd SubPrivate Sub Timer3_Timer() Label2.Caption = "小老鼠报时: " & Now 在label2中显示"小老鼠报时: "与当前时间End Sub窗体载入时实现列表框中显示以前顾客留言的程序代码：Private Sub Form_Load()Open App

8、.Path & "data留言.dat" For Input As #1 打开文件 While Not EOF(1) Line Input #1, a List1.AddItem a 系统读取文件夹中所有留言，并将其显示在留言板中 Wend Close #1 关闭文件 label1.Left = Form1.ScaleWidthEnd SubCommand1的click事件代码：Private Sub Command1_Click() If Text1.Text = "" Then MsgBox "留言不能为空！", vbOK

9、Only + vbExclamation, "注意" 留言为空时，弹出对话框，提醒顾客留言 Text1.SetFocus text1得到焦点 End If If Text2.Text = "" Then MsgBox "签名不能为空！", vbOKOnly + vbExclamation, "注意" '签名为空时，弹出对话框，提醒顾客签名 Text2.SetFocus text2得到焦点 End If If Text1.Text <> "" And Text2.Text &l

10、t;> "" Then List1.AddItem Text2.Text & "说：" & Text1.Text & " " & Now 在list2里显示留言内容 Open App.Path & "data留言.dat" For Append As #1 打开文件 Write #1, Text2.Text & "说：" & Text1.Text & " " & Now 把留言内容写入到文件夹内 C

11、lose #1 Text1.Text = "" '清空留言和签名 Text2.Text = "" End IfEnd SubCommand4的Click事件代码：Private Sub Command4_Click()Open App.Path & "data留言.dat" For Output As #1 Write #1, "" '点击清楚时，保存在文件中的所有留言被清空 Close #1 Dim a As String List1.Clear 列表框显示内容被清除End Sub5总结与

12、存在的问题5.1总结“纸上得来终觉浅，绝知此事要躬行”，在短暂的实习过程中，我深深地感觉到自己所学知识的肤浅和在实际运用中的专业知识的匮乏.一旦接触到实际，才发现自己知道的是多么少，这时才真正领悟到“学无止境”的含义。通过实习应能在实际中理解所学的专业知识，并将之与实际应用结合起来，通过程序设计，增加同学们对vb知识认识，建立起必要的创新概念，加深我对vb的理解，同时也可未来的发展趋势有一定的了解，培养同学们对计算机的热爱。5.2存在的主要问题在程序设计过程中主要对文件相关函数的运用掌握不好，对合理的布局窗体缺乏经验。6.参考文献Visual basic程序设计 （学军 李静）主编 中国铁道出

13、版社Visual 程序设计教程 陈语林主编 中国水利水电出版社MsdnVisual Basic 6.0编程案例精解， 张路平，电子工业出版社网络 7附录7.1登陆界面（封皮）的代码如下：Private Sub Command1_Click()Form1.Hide 'form1界面隐藏Form2.Show 'form2界面显示End Sub 7.2主界面的代码如下：Private Sub Command1_Click() Form2.Hide 'form2窗体隐藏 form3.Show 'form3窗体显示End SubPrivate Sub Command3_C

14、lick() Form2.Hide 'form2窗体隐藏 Form5.Show 'form5窗体显示End SubPrivate Sub Form_Load() Timer1.Interval = 300 '每300毫秒触发一次timer事件 Picture2.Picture = LoadPicture(App.Path & "菜谱浙菜杭州卤豆腐.jpg") 'picture2加载“杭州卤豆腐”图片 Picture3.Picture = LoadPicture(App.Path & "菜谱川菜麻辣花椒鸡.jpg&qu

15、ot;) 'picture3加载“麻辣花椒鸡”图片 Picture4.Picture = LoadPicture(App.Path & "菜谱徽菜玉兔海参.JPG") 'picture4加载“玉兔海参”图片 Picture5.Picture = LoadPicture(App.Path & "菜谱粤菜冻金钟鸡.JPG") 'picture5加载“冻金钟鸡”图片End SubPrivate Sub Timer1_Timer() Label1.Caption = Mid(Label1.Caption, 2, Len(L

16、abel1.Caption) - 1) + Left(Label1.Caption, 1) 'label1的标题=从label1标题的第二个字开始，取到最后 +label1标题左边第一个字 Dim r As Byte, g As Byte, b As Byte '定义人r g b都为字节型 Randomize '初始化每次的随机数 r = Int(Rnd * 256) 'r从0225之间随即取一个数 g = Int(Rnd * 256) 'g从0225之间随即取一个数 b = Int(Rnd * 256) 'b从0225之间随即取一个数 Labe

17、l1.ForeColor = RGB(r, g, b) 'label1的前景色就是vb里的 RGB(r,g,b)End Sub7.3点菜界面的代码：Private Sub Combo1_Click() Dim j As Integer flag = False 'flag初始为False For i = 0 To List1.ListCount - 1 i的值是从0到list1中项目个数减1 If List1.List(i) = Combo1.Text Then 验List1中是否存在Combo1.Text，如果存在就标记flag 为 True flag = True '

18、;flag变为ture j = MsgBox("您已经点过，需要再点一次吗", vbOKCancel, "温馨提示") '弹出msgbox框 If j = 1 Then List1.AddItem Combo1.Text '如果j的返回值是1，则list1中添加组合框1中选中的文本 Else Exit For '否则跳出循环 End If End If Next i 'i的步长加1 If flag = False Then List1.AddItem Combo1.Text '如果flag 为 False则表明不存

19、在，这时就添加Combo1.Text到List1 End If End Sub Private Sub Command1_Click() 'command1(川菜)按钮的单击事件 Timer1.Interval = 50 '每50毫秒触发一次timer事件 Picture1.Picture = LoadPicture(App.Path & "菜谱川菜夫妻肺片.jpg") 'picture1加载“夫妻肺片”图片 Picture2.Picture = LoadPicture(App.Path & "菜谱川菜鸡爪豆腐.jpg&qu

20、ot;) 'picture2加载“鸡爪豆腐”图片 Picture3.Picture = LoadPicture(App.Path & "菜谱川菜盐水猪蹄.jpg") 'picture3加载“盐水猪蹄”图片 Picture4.Picture = LoadPicture(App.Path & "菜谱川菜一品香虾.jpg") 'picture4加载“一品香虾”图片 Picture5.Picture = LoadPicture(App.Path & "菜谱川菜麻辣花椒鸡.jpg") 'p

21、icture5加载“麻辣花椒鸡”图片 Combo1.Clear '组合框1里面的内容清除 Combo1.AddItem "夫妻肺片 45" '组合框1里添加"夫妻肺片 45" Combo1.AddItem "鸡爪豆腐 40" '组合框1里添加"鸡爪豆腐 40" Combo1.AddItem "盐水猪蹄 50" '组合框1里添加"盐水猪蹄 50" Combo1.AddItem "一品香虾 40" '组合框1里添加&qu

22、ot;一品香虾 40" Combo1.AddItem "麻辣花椒鸡 35" '组合框1里添加"麻辣花椒鸡 35" Label1.Caption = "夫妻肺片 45" 'label1标题是"夫妻肺片 45" Label2.Caption = "鸡爪豆腐 40" 'label2标题是"鸡爪豆腐 40" Label3.Caption = "盐水猪蹄 50" 'label3标题是"盐水猪蹄 50" L

23、abel4.Caption = "一品香虾 40" 'label4标题是"一品香虾 40" Label5.Caption = "麻辣花椒鸡 35" 'label5标题是"麻辣花椒鸡 35" Label10.Caption = "夫妻肺片-主料：牛肉,牛杂,老卤,花椒,肉桂等。 特色：麻辣鲜香，四川的著名菜肴之一" 'label10标题是引号里面的内容 Label11.Caption = "鸡爪豆腐-主料：豆腐, 蒜泥,四川豆瓣酱等。 特色: 热、浓、香、鲜、辣、

24、麻，味味俱全" 'label11标题是引号里面的内容 Label12.Caption = "盐水猪蹄-主料：猪蹄,辣椒,姜葱等 特色：不腻可口，色味俱佳" 'label12标题是引号里面的内容 Label13.Caption = "一品香虾-主料：活虾,大葱 蟹酱,味精。 特色：虾含有高蛋白质和钙，秋冬可增强抗寒能力" 'label13标题是引号里面的内容 Label14.Caption = "麻辣花椒鸡-主料：鸡,南瓜,辣椒等 特色：麻与辣结合，让人回味无穷" 'label14标题是引号里面

25、的内容 End Sub Private Sub Command2_Click() 'command2(徽菜)按钮的单击事件 Timer1.Interval = 50 '每50毫秒触发一次timer事件 Picture1.Picture = LoadPicture(App.Path & "菜谱徽菜四色菜汤.JPG") 'picture1加载“四色菜汤”图片 Picture2.Picture = LoadPicture(App.Path & "菜谱徽菜花菇田鸡.JPG") 'picture2加载“花菇田鸡”图片

26、 Picture3.Picture = LoadPicture(App.Path & "菜谱徽菜酥炸凤翼.JPG") 'picture3加载“酥炸凤翼蹄”图片 Picture4.Picture = LoadPicture(App.Path & "菜谱徽菜玉兔海参.JPG") 'picture4加载“玉兔海参”图片 Picture5.Picture = LoadPicture(App.Path & "菜谱徽菜糖醋烧豆腐.JPG") 'picture5加载“糖醋烧豆腐”图片 Combo1.C

27、lear '组合框1里面的内容清除 Combo1.AddItem "花菇田鸡 40" '组合框1里添加"花菇田鸡 40" Combo1.AddItem "酥炸凤翼 45" '组合框1里添加"酥炸凤翼 45" Combo1.AddItem "玉兔海参 45" '组合框1里添加"玉兔海参 45" Combo1.AddItem "糖醋烧豆腐 30" '组合框1里添加"糖醋烧豆腐 30" Combo1.A

28、ddItem "四色菜汤 20" '组合框1里添加"四色菜汤 20" Label1.Caption = "四色菜汤 20" 'label1标题是"四色菜汤 20" Label2.Caption = "花菇田鸡 40" 'label2标题是"花菇田鸡 40" Label3.Caption = "酥炸凤翼 45" 'label3标题是"酥炸凤翼 45" Label4.Caption = "玉兔海参

29、45" 'label4标题是"玉兔海参 45" Label5.Caption = "糖醋烧豆腐 30" 'label5标题是"糖醋烧豆腐 30" Label10.Caption = "四色菜汤-主料：青菜，姜等 特色：咸淡适宜，佐餐极佳" 'label10标题是引号里面的内容 Label11.Caption = "花菇田鸡-主料：鸡腿,花菇,姜等 特色：肉质细嫩鲜美，而且富含蛋白质和钙" 'label11标题是引号里面的内容 Label12.Captio

30、n = "酥炸凤翼-主料：鸡翅,糯米,火腿等 特色：嚼嚼有物，夹有糯米,芝麻,火腿香" 'label12标题是引号里面的内容 Label13.Caption = "玉兔海参-主料：鹤鹊蛋,海参等 特色：口味软绵,葱味浓香,造型优美" 'label13标题是引号里面的内容 Label14.Caption = "糖醋烧豆腐-主料：老豆腐，腌卤菜。 特色：香甜可口，老少皆宜" 'label14标题是引号里面的内容 End Sub Private Sub Command3_Click() 'command3(鲁

31、菜)按钮的单击事件 Timer1.Interval = 50 '每50毫秒触发一次timer事件 Picture1.Picture = LoadPicture(App.Path & "菜谱鲁菜牛肉汤.JPG") 'picture1加载“牛肉汤”图片 Picture2.Picture = LoadPicture(App.Path & "菜谱鲁菜芙蓉炒活蟹.JPG") 'picture2加载“芙蓉炒活鸡”图片 Picture3.Picture = LoadPicture(App.Path & "菜谱鲁

32、菜海参全家福.JPG") 'picture3加载“海参全家福”图片 Picture4.Picture = LoadPicture(App.Path & "菜谱鲁菜香菜拌毛蛤.JPG") 'picture4加载“香菜拌毛蛤”图片 Picture5.Picture = LoadPicture(App.Path & "菜谱鲁菜腌菜.JPG") 'picture5加载“腌菜”图片 Combo1.Clear '组合框1里面的内容清除 Combo1.AddItem "牛肉汤 35" 

33、9;组合框1里添加"牛肉汤 35" Combo1.AddItem "芙蓉炒活蟹 50" '组合框1里添加"芙蓉炒活蟹 50" Combo1.AddItem "海参全家福 45" '组合框1里添加"海参全家福 45" Combo1.AddItem "香菜拌毛蛤 35" '组合框1里添加"香菜拌毛蛤 35" Combo1.AddItem "腌菜 20" '组合框1里添加"腌菜 20" La

34、bel1.Caption = "牛肉汤 35" 'label1标题是"牛肉汤 35" Label2.Caption = "芙蓉炒活蟹 50" 'label2标题是"芙蓉炒活蟹 50" Label3.Caption = "海参全家福 45" 'label3标题是"海参全家福 45" Label4.Caption = "香菜拌毛蛤 35" 'label4标题是"香菜拌毛蛤 35" Label5.Caption

35、 = "腌菜 20" 'label5标题是"腌菜 20" Label10.Caption = "牛肉汤-主料：牛肉，姜，葱等。 特色：有助提高身体抵抗力" 'label10标题是引号里面的内容 Label11.Caption = "芙蓉炒活蟹-主料：活蟹，芙蓉等。 特色：格外美观，蟹肉鲜香微辣，芙蓉滑嫩" 'label11标题是引号里面的内容 Label12.Caption = "海参全家福-主料：海参,虾,鱼肚等。 特色：用料丰富，口味浓厚，鲜香丰盛" 'lab

36、el12标题是引号里面的内容 Label13.Caption = "香菜拌毛蛤-主料：蛤蜊,香菜,蒜等。 特色：鲜咸酸辣香爽，毛蛤蜊嫩鲜，香菜清脆，蒜辣味浓" 'label13标题是引号里面的内容 Label14.Caption = "腌菜-主料：芹菜,辣椒等。 特色：香脆可口，开胃，有助消化" 'label14标题是引号里面的内容 End Sub Private Sub Command4_Click() 'command4(湘菜)按钮的单击事件 Timer1.Interval = 50 '每50毫秒触发一次timer事件

37、 Picture1.Picture = LoadPicture(App.Path & "菜谱湘菜蚕豆肉片汤.JPG") 'picture1加载“蚕豆肉片汤”图片 Picture2.Picture = LoadPicture(App.Path & "菜谱湘菜霸王肘子.JPG") 'picture2加载“霸王肘子”图片 Picture3.Picture = LoadPicture(App.Path & "菜谱湘菜特制腊肉.JPG") 'picture3加载“特制腊肉”图片 Picture4.

38、Picture = LoadPicture(App.Path & "菜谱湘菜口味蛇.JPG") 'picture4加载“口味蛇”图片 Picture5.Picture = LoadPicture(App.Path & "菜谱湘菜猪油白菜心.JPG") 'picture5加载“猪油白菜心菜”图片 Combo1.Clear '组合框1里面的内容清除 Combo1.AddItem "蚕豆肉片汤 20" '组合框1里添加"蚕豆肉片汤 20" Combo1.AddItem &q

39、uot;霸王肘子 35" '组合框1里添加"霸王肘子 35" Combo1.AddItem "特制腊肉 30" '组合框1里添加"特制腊肉 30" Combo1.AddItem "口味蛇 30" '组合框1里添加"口味蛇 30" Combo1.AddItem "猪油白菜心 20" '组合框1里添加"猪油白菜心 20" Label1.Caption = "蚕豆肉片汤 20" 'label1

40、标题是"蚕豆肉片汤 20" Label2.Caption = "霸王肘子 35" 'label2标题是"霸王肘子 35" Label3.Caption = "特制腊肉 30" 'label3标题是"特制腊肉 30" Label4.Caption = "口味蛇 30" 'label4标题是"口味蛇 30" Label5.Caption = "猪油白菜心 20" 'label5标题是"猪油白菜心 2

41、0" Label10.Caption = "蚕豆肉片汤-主料：蚕豆，牛肉，姜等 特色：味美，富含多种营养物质" 'label10标题是引号里面的内容 Label11.Caption = "霸王肘子-主料：猪肘，辣椒，味精等。 特色：色泽红亮，肥而不腻，入口即化" 'label11标题是引号里面的内容 Label12.Caption = "特制腊肉-主料：腊肉，辣椒等。 特色：条形，无腐败气味，精肉红亮，刀工整齐，无碎骨" 'label12标题是引号里面的内容 Label13.Caption = &qu

42、ot;口味蛇-主料：蛇，辣椒，姜，蒜等。 特色：蛇肉鲜嫩，香辣，酱汁味浓" 'label13标题是引号里面的内容 Label14.Caption = "猪油白菜心-主料：白菜心，豆豉等 特色：鲜美清香" 'label14标题是引号里面的内容 End Sub Private Sub Command5_Click() 'command5(粤菜)按钮的单击事件 Timer1.Interval = 50 '每50毫秒触发一次timer事件 Picture1.Picture = LoadPicture(App.Path & "

43、;菜谱粤菜白菜豆腐汤.JPG") 'picture1加载“白菜豆腐汤”图片 Picture2.Picture = LoadPicture(App.Path & "菜谱粤菜虫草炖蚬鸭.JPG") 'picture2加载“虫草炖蚬鸭”图片 Picture3.Picture = LoadPicture(App.Path & "菜谱粤菜冻金钟鸡.JPG") 'picture3加载“冻金钟鸡”图片 Picture4.Picture = LoadPicture(App.Path & "菜谱粤菜炸鲜奶

44、.JPG") 'picture4加载“炸鲜奶”图片 Picture5.Picture = LoadPicture(App.Path & "菜谱粤菜干扁四季豆.JPG") 'picture5加载“干扁四季豆”图片 Combo1.Clear '组合框1里面的内容清除 Combo1.AddItem "白菜豆腐汤 25" '组合框1里添加"白菜豆腐汤 25" Combo1.AddItem "虫草炖蚬鸭 45" '组合框1里添加"虫草炖蚬鸭 45"

45、 Combo1.AddItem "冻金钟鸡 40" '组合框1里添加"冻金钟鸡 40" Combo1.AddItem "炸鲜奶 30" '组合框1里添加"炸鲜奶 30" Combo1.AddItem "干扁四季豆 20" '组合框1里添加"干扁四季豆 20" Label1.Caption = "白菜豆腐汤 25" 'label1标题是"白菜豆腐汤 25" Label2.Caption = "虫草

46、炖蚬鸭 45" 'label2标题是"虫草炖蚬鸭 45" Label3.Caption = "冻金钟鸡 40" 'label3标题是"冻金钟鸡 40" Label4.Caption = "炸鲜奶 30" 'label4标题是"炸鲜奶 30" Label5.Caption = "干扁四季豆 20" 'label5标题是"干扁四季豆 20" Label10.Caption = "白菜豆腐汤-主料：白菜，豆腐等

47、。 特色：咸淡适宜，更适宜老人用" 'label10标题是引号里面的内容 Label11.Caption = "虫草炖蚬鸭-主料：野鸭，猪肉，冬虫夏草等。 特色：肉软烂，汤清鲜，佐餐极佳" 'label11标题是引号里面的内容 Label12.Caption = "冻金钟鸡-主料：母鸡，鱼肚，火腿等。 特色：外形美观，清凉爽滑，晶莹透明" 'label12标题是引号里面的内容 Label13.Caption = "炸鲜奶-主料：鲜奶 。 特色：外金黄，内洁白，外酥脆、内软嫩" 'label13

48、标题是引号里面的内容 Label14.Caption = "干扁四季豆-主料：四季豆，肉末，酱油等。 特色：清香可口，微辣" 'label14标题是引号里面的内容 End Sub Private Sub Command6_Click() 'command6(浙菜)按钮的单击事件 Timer1.Interval = 50 '每50毫秒触发一次timer事件 Picture1.Picture = LoadPicture(App.Path & "菜谱浙菜牛骨汤.jpg") 'picture1加载“牛骨汤”图片 Pictu

49、re2.Picture = LoadPicture(App.Path & "菜谱浙菜芙蓉肉.JPG") 'picture2加载“芙蓉肉”图片 Picture3.Picture = LoadPicture(App.Path & "菜谱浙菜干炸响铃.JPG") 'picture3加载“干炸响铃”图片 Picture4.Picture = LoadPicture(App.Path & "菜谱浙菜叫花鸡.JPG") 'picture4加载“叫花鸡”图片 Picture5.Picture = Lo

50、adPicture(App.Path & "菜谱浙菜杭州卤豆腐.jpg") 'picture5加载“杭州卤豆腐”图片 Combo1.Clear '组合框1里面的内容清除 Combo1.AddItem "牛骨汤 30" '组合框1里添加"牛骨汤 30" Combo1.AddItem "芙蓉肉 35" '组合框1里添加"芙蓉肉 35" Combo1.AddItem "干炸响铃 30" '组合框1里添加"干炸响铃 30&qu

51、ot; Combo1.AddItem "叫花鸡 40" '组合框1里添加"叫花鸡 40" Combo1.AddItem "杭州卤豆腐 25" '组合框1里添加"杭州卤豆腐 25" Label1.Caption = "牛骨汤 30" 'label1标题是"牛骨汤 30" Label2.Caption = "芙蓉肉 35" 'label2标题是"芙蓉肉 35" Label3.Caption = "干

52、炸响铃 30" 'label3标题是"干炸响铃 30" Label4.Caption = "叫花鸡 40" 'label4标题是"叫花鸡 40" Label5.Caption = "杭州卤豆腐 25" 'label5标题是"杭州卤豆腐 25" Label10.Caption = "牛骨汤-主料：牛骨，姜，蒜等 特色：具有减缓衰老，延年益寿的功效" 'label10标题是引号里面的内容 Label11.Caption = "芙

53、蓉肉-主料：猪里脊肉，虾仁等。 特色：此菜色泽美观，香鲜可口 " 'label11标题是引号里面的内容 Label12.Caption = "干炸响铃-主料：猪里脊肉，鸡蛋黄等。 特色：色泽黄亮，鲜香味美" 'label12标题是引号里面的内容 Label13.Caption = "叫花鸡-主料：鸡等。 特色：酒泥烤鸡，原汁原味，肉质肥嫩酥烂，腹藏多鲜" 'label13标题是引号里面的内容 Label14.Caption = "杭州卤豆腐-主料;老豆腐,腌雪菜卤等。 特色：咸淡适宜，清香可口" 'label14标题是引号里面的内容 End Sub Private Sub Command7_Click() 'command7(主食)按钮的单击事件 Timer1.Interv