饭店点菜系统课程设计报告
指导老师：
作 者：
学 号：
班 级：
完成日期：20##年7月6日
摘要
本系统是顾客与饭店沟通的桥梁，顾客可以通过它实现对菜品酒水的浏览，集点菜、退菜、留言、抽奖于一体的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选该题目的原因
通过该题目的设计，使我们掌握软件开发过程的问题分析、系统设计、程序编码、测试等基本方法和技能。主顾可以分类浏览饭馆的所有菜肴、采集样品及价格并举行点菜，操作后能预览点菜成果，并可对于其进一步修改；留言板可以、兴许记载主顾的评价和意见，并具备浏览功效。
1.2完成该此题用到数据结构和知识点
用了文件的一些基本操作，如打开、访问、读写等操作以及EOF函数等，还有到了timer控件，利用timer控件完成滚动字幕，也用到了用到了picturebox以及用picturebox加载图片， 用到还有加载图片时用到的相对路径app.path等。
2．系统功能需求分析
2.1系统概述
系统可以分类浏览饭店的所有菜式、酒水图片及价格；进行点菜操作后能预览点菜结果，并可对其进一步修改如退菜等。当顾客的消费达到指定金额时，可以参与抽奖活动，顾客可以直接留言，系统具有记录顾客的意见和建议并具有浏览功能。由于饭店现代管理的加强与流行，人们对工作效率的重视，将会使《饭店点菜系统》具有更广泛应用前景。
2.2系统的组成以及各模块的功能
《饭店点菜系统》由5个vb窗体组成，分别是：
图一为系统登录界面，其中包括了指导老师以及设计者的姓名等内容，用户点击进入按钮，即可进入进入主界面，如下图：
图二为系统主界面，点击按钮可以进入相应界面。
图三为点菜界面，顾客可以通过该窗体浏览菜式、酒水及其价格，可以进行点菜、退菜、查看当前消费等。
图四为留言板窗体，顾客可以在这里留言，提意见。并可以看到其他顾客的留言。点击按钮可以进入相应界面。
图五为抽奖窗体，当顾客消费满饭店规定的一定金额后可以进行抽奖。
2.3系统运行的环境
2.3.1系统使用环境
操作系统：windows2000/XP
系统支持：visual basic 6.0及以上版本支持库
硬件环境：
·处理器：intel pentium 166MX及更高。
·硬盘：剩余使用空间1GB以上。
·内存：32MB以上。
·显卡：SVGA显示适配器、
2.3.2系统开发环境
·操作系统：windows2000/XP
·系统支持：visual basic 6.0
3系统设计
3.1总体结构设计：
4.系统实现：
4.1留言板的设计与实现
点菜窗体上有两个文本框（txetbox），三个timer控件，一个列表框（listbox），两个picturebox，四个命令按钮（command），两个标签（label）其中有都在系统运行时不可见。如下图所示：
两个文本框分别是用来让顾客输入留言内容和签名的，确定留言时都不能为空。两个标签分别是显示滚动字幕和当前时间的，窗体加载了，字幕自动滚动，右上角图片框中的小松鼠报时自动显示当前时间。命令按钮分别是清除留言、留言、首页、goodbye（推出程序），当点击按钮是触发相应事件。一个列表框是用来显示以前顾客留言的，两个图片框是用来加载背景图片的。
4.2留言板的事件与代码
窗体载入时实现滚动字幕与显示当前时间的代码：
Timer事件
Private Sub Timer1_Timer()
If label1.Left + label1.Width > 0 Then 如果标签距离窗体左边距离加上自身宽度大于零标签向左移动
label1.Move label1.Left – 50 每50毫秒移动一次
Else
label1.Left = Form1.ScaleWidth '当标签距离窗体左边的距离与其自身的宽度之和小于等于0时，那么标签距窗体左边的距离就等于窗体的宽度
End If
End Sub
Private Sub Timer3_Timer()
Label2.Caption = "小老鼠报时: " & Now 在label2中显示"小老鼠报时: "与当前时间
End Sub
窗体载入时实现列表框中显示以前顾客留言的程序代码：
Private Sub Form_Load()
Open App.Path & "\data\留言.dat" For Input As #1 打开文件
While Not EOF(1)
Line Input #1, a
List1.AddItem a 系统读取文件夹中所有留言，并将其显示在留言板中
Wend
Close #1 关闭文件
label1.Left = Form1.ScaleWidth
End Sub
Command1的click事件代码：
Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "留言不能为空！", vbOKOnly + vbExclamation, "注意" 留言为空时，弹出对话框，提醒顾客留言
Text1.SetFocus text1得到焦点
End If
If Text2.Text = "" Then
MsgBox "签名不能为空！", vbOKOnly + vbExclamation, "注意" '签名为空时，弹出对话框，提醒顾客签名
Text2.SetFocus text2得到焦点
End If
If Text1.Text <> "" And Text2.Text <> "" 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 把留言内容写入到文件夹内
Close #1
Text1.Text = "" '清空留言和签名
Text2.Text = ""
End If
End Sub
Command4的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 Sub
5．总结与存在的问题
5.1总结
“纸上得来终觉浅，绝知此事要躬行”，在短暂的实习过程中，我深深地感觉到自己所学知识的肤浅和在实际运用中的专业知识的匮乏.一旦接触到实际，才发现自己知道的是多么少，这时才真正领悟到“学无止境”的含义。通过实习应能在实际中理解所学的专业知识，并将之与实际应用结合起来，通过程序设计，增加同学们对vb知识认识，建立起必要的创新概念，加深我对vb的理解，同时也可未来的发展趋势有一定的了解，培养同学们对计算机的热爱。
5.2存在的主要问题
在程序设计过程中主要对文件相关函数的运用掌握不好，对合理的布局窗体缺乏经验。
6.参考文献
Visual basic程序设计 （学军 李静）主编 中国铁道出版社
Visual basic.net程序设计教程 陈语林主编 中国水利水电出版社
Msdn
Visual Basic 6.0编程案例精解》， 张路平，电子工业出版社
网络 www.baidu.com
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 Sub
Private Sub Command3_Click()
Form2.Hide 'form2窗体隐藏
Form5.Show 'form5窗体显示
End Sub
Private Sub Form_Load()
Timer1.Interval = 300 '每300毫秒触发一次timer事件
Picture2.Picture = LoadPicture(App.Path & "\菜谱\浙菜\杭州卤豆腐.jpg") 'picture2加载“杭州卤豆腐”图片
Picture3.Picture = LoadPicture(App.Path & "\菜谱\川菜\麻辣花椒鸡.jpg") 'picture3加载“麻辣花椒鸡”图片
Picture4.Picture = LoadPicture(App.Path & "\菜谱\徽菜\玉兔海参.JPG") 'picture4加载“玉兔海参”图片
Picture5.Picture = LoadPicture(App.Path & "\菜谱\粤菜\冻金钟鸡.JPG") 'picture5加载“冻金钟鸡”图片
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Mid(Label1.Caption, 2, Len(Label1.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从0~225之间随即取一个数
g = Int(Rnd * 256) 'g从0~225之间随即取一个数
b = Int(Rnd * 256) 'b从0~225之间随即取一个数
Label1.ForeColor = RGB(r, g, b) 'label1的前景色就是vb里的 RGB(r,g,b)
End Sub
7.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 '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则表明不存在，这时就添加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") 'picture2加载“鸡爪豆腐”图片
Picture3.Picture = LoadPicture(App.Path & "\菜谱\川菜\盐水猪蹄.jpg") 'picture3加载“盐水猪蹄”图片
Picture4.Picture = LoadPicture(App.Path & "\菜谱\川菜\一品香虾.jpg") 'picture4加载“一品香虾”图片
Picture5.Picture = LoadPicture(App.Path & "\菜谱\川菜\麻辣花椒鸡.jpg") 'picture5加载“麻辣花椒鸡”图片
Combo1.Clear '组合框1里面的内容清除
Combo1.AddItem "夫妻肺片 45" '组合框1里添加"夫妻肺片 45"
Combo1.AddItem "鸡爪豆腐 40" '组合框1里添加"鸡爪豆腐 40"
Combo1.AddItem "盐水猪蹄 50" '组合框1里添加"盐水猪蹄 50"
Combo1.AddItem "一品香虾 40" '组合框1里添加"一品香虾 40"
Combo1.AddItem "麻辣花椒鸡 35" '组合框1里添加"麻辣花椒鸡 35"
Label1.Caption = "夫妻肺片 45" 'label1标题是"夫妻肺片 45"
Label2.Caption = "鸡爪豆腐 40" 'label2标题是"鸡爪豆腐 40"
Label3.Caption = "盐水猪蹄 50" 'label3标题是"盐水猪蹄 50"
Label4.Caption = "一品香虾 40" 'label4标题是"一品香虾 40"
Label5.Caption = "麻辣花椒鸡 35" 'label5标题是"麻辣花椒鸡 35"
Label10.Caption = "夫妻肺片--主料：牛肉,牛杂,老卤,花椒,肉桂等。 特色：麻辣鲜香，四川的著名菜肴之一" 'label10标题是引号里面的内容
Label11.Caption = "鸡爪豆腐--主料：豆腐, 蒜泥,四川豆瓣酱等。 特色: 热、浓、香、鲜、辣、麻，味味俱全" 'label11标题是引号里面的内容
Label12.Caption = "盐水猪蹄--主料：猪蹄,辣椒,姜葱等 特色：不腻可口，色味俱佳" 'label12标题是引号里面的内容
Label13.Caption = "一品香虾--主料：活虾,大葱 蟹酱,味精。 特色：虾含有高蛋白质和钙，秋冬可增强抗寒能力" 'label13标题是引号里面的内容
Label14.Caption = "麻辣花椒鸡--主料：鸡,南瓜,辣椒等 特色：麻与辣结合，让人回味无穷" 'label14标题是引号里面的内容
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加载“花菇田鸡”图片
Picture3.Picture = LoadPicture(App.Path & "\菜谱\徽菜\酥炸凤翼.JPG") 'picture3加载“酥炸凤翼蹄”图片
Picture4.Picture = LoadPicture(App.Path & "\菜谱\徽菜\玉兔海参.JPG") 'picture4加载“玉兔海参”图片
Picture5.Picture = LoadPicture(App.Path & "\菜谱\徽菜\糖醋烧豆腐.JPG") 'picture5加载“糖醋烧豆腐”图片
Combo1.Clear '组合框1里面的内容清除
Combo1.AddItem "花菇田鸡 40" '组合框1里添加"花菇田鸡 40"
Combo1.AddItem "酥炸凤翼 45" '组合框1里添加"酥炸凤翼 45"
Combo1.AddItem "玉兔海参 45" '组合框1里添加"玉兔海参 45"
Combo1.AddItem "糖醋烧豆腐 30" '组合框1里添加"糖醋烧豆腐 30"
Combo1.AddItem "四色菜汤 20" '组合框1里添加"四色菜汤 20"
Label1.Caption = "四色菜汤 20" 'label1标题是"四色菜汤 20"
Label2.Caption = "花菇田鸡 40" 'label2标题是"花菇田鸡 40"
Label3.Caption = "酥炸凤翼 45" 'label3标题是"酥炸凤翼 45"
Label4.Caption = "玉兔海参 45" 'label4标题是"玉兔海参 45"
Label5.Caption = "糖醋烧豆腐 30" 'label5标题是"糖醋烧豆腐 30"
Label10.Caption = "四色菜汤--主料：青菜，姜等 特色：咸淡适宜，佐餐极佳" 'label10标题是引号里面的内容
Label11.Caption = "花菇田鸡--主料：鸡腿,花菇,姜等 特色：肉质细嫩鲜美，而且富含蛋白质和钙" 'label11标题是引号里面的内容
Label12.Caption = "酥炸凤翼--主料：鸡翅,糯米,火腿等 特色：嚼嚼有物，夹有糯米,芝麻,火腿香" 'label12标题是引号里面的内容
Label13.Caption = "玉兔海参--主料：鹤鹊蛋,海参等 特色：口味软绵,葱味浓香,造型优美" 'label13标题是引号里面的内容
Label14.Caption = "糖醋烧豆腐--主料：老豆腐，腌卤菜。 特色：香甜可口，老少皆宜" 'label14标题是引号里面的内容
End Sub
Private Sub Command3_Click() 'command3(鲁菜)按钮的单击事件
Timer1.Interval = 50 '每50毫秒触发一次timer事件
Picture1.Picture = LoadPicture(App.Path & "\菜谱\鲁菜\牛肉汤.JPG") 'picture1加载“牛肉汤”图片
Picture2.Picture = LoadPicture(App.Path & "\菜谱\鲁菜\芙蓉炒活蟹.JPG") 'picture2加载“芙蓉炒活鸡”图片
Picture3.Picture = LoadPicture(App.Path & "\菜谱\鲁菜\海参全家福.JPG") 'picture3加载“海参全家福”图片
Picture4.Picture = LoadPicture(App.Path & "\菜谱\鲁菜\香菜拌毛蛤.JPG") 'picture4加载“香菜拌毛蛤”图片
Picture5.Picture = LoadPicture(App.Path & "\菜谱\鲁菜\腌菜.JPG") 'picture5加载“腌菜”图片
Combo1.Clear '组合框1里面的内容清除
Combo1.AddItem "牛肉汤 35" '组合框1里添加"牛肉汤 35"
Combo1.AddItem "芙蓉炒活蟹 50" '组合框1里添加"芙蓉炒活蟹 50"
Combo1.AddItem "海参全家福 45" '组合框1里添加"海参全家福 45"
Combo1.AddItem "香菜拌毛蛤 35" '组合框1里添加"香菜拌毛蛤 35"
Combo1.AddItem "腌菜 20" '组合框1里添加"腌菜 20"
Label1.Caption = "牛肉汤 35" 'label1标题是"牛肉汤 35"
Label2.Caption = "芙蓉炒活蟹 50" 'label2标题是"芙蓉炒活蟹 50"
Label3.Caption = "海参全家福 45" 'label3标题是"海参全家福 45"
Label4.Caption = "香菜拌毛蛤 35" 'label4标题是"香菜拌毛蛤 35"
Label5.Caption = "腌菜 20" 'label5标题是"腌菜 20"
Label10.Caption = "牛肉汤--主料：牛肉，姜，葱等。 特色：有助提高身体抵抗力" 'label10标题是引号里面的内容
Label11.Caption = "芙蓉炒活蟹--主料：活蟹，芙蓉等。 特色：格外美观，蟹肉鲜香微辣，芙蓉滑嫩" 'label11标题是引号里面的内容
Label12.Caption = "海参全家福--主料：海参,虾,鱼肚等。 特色：用料丰富，口味浓厚，鲜香丰盛" 'label12标题是引号里面的内容
Label13.Caption = "香菜拌毛蛤--主料：蛤蜊,香菜,蒜等。 特色：鲜咸酸辣香爽，毛蛤蜊嫩鲜，香菜清脆，蒜辣味浓" 'label13标题是引号里面的内容
Label14.Caption = "腌菜--主料：芹菜,辣椒等。 特色：香脆可口，开胃，有助消化" 'label14标题是引号里面的内容
End Sub
Private Sub Command4_Click() 'command4(湘菜)按钮的单击事件
Timer1.Interval = 50 '每50毫秒触发一次timer事件
Picture1.Picture = LoadPicture(App.Path & "\菜谱\湘菜\蚕豆肉片汤.JPG") 'picture1加载“蚕豆肉片汤”图片
Picture2.Picture = LoadPicture(App.Path & "\菜谱\湘菜\霸王肘子.JPG") 'picture2加载“霸王肘子”图片
Picture3.Picture = LoadPicture(App.Path & "\菜谱\湘菜\特制腊肉.JPG") 'picture3加载“特制腊肉”图片
Picture4.Picture = LoadPicture(App.Path & "\菜谱\湘菜\口味蛇.JPG") 'picture4加载“口味蛇”图片
Picture5.Picture = LoadPicture(App.Path & "\菜谱\湘菜\猪油白菜心.JPG") 'picture5加载“猪油白菜心菜”图片
Combo1.Clear '组合框1里面的内容清除
Combo1.AddItem "蚕豆肉片汤 20" '组合框1里添加"蚕豆肉片汤 20"
Combo1.AddItem "霸王肘子 35" '组合框1里添加"霸王肘子 35"
Combo1.AddItem "特制腊肉 30" '组合框1里添加"特制腊肉 30"
Combo1.AddItem "口味蛇 30" '组合框1里添加"口味蛇 30"
Combo1.AddItem "猪油白菜心 20" '组合框1里添加"猪油白菜心 20"
Label1.Caption = "蚕豆肉片汤 20" 'label1标题是"蚕豆肉片汤 20"
Label2.Caption = "霸王肘子 35" 'label2标题是"霸王肘子 35"
Label3.Caption = "特制腊肉 30" 'label3标题是"特制腊肉 30"
Label4.Caption = "口味蛇 30" 'label4标题是"口味蛇 30"
Label5.Caption = "猪油白菜心 20" 'label5标题是"猪油白菜心 20"
Label10.Caption = "蚕豆肉片汤--主料：蚕豆，牛肉，姜等 特色：味美，富含多种营养物质" 'label10标题是引号里面的内容
Label11.Caption = "霸王肘子--主料：猪肘，辣椒，味精等。 特色：色泽红亮，肥而不腻，入口即化" 'label11标题是引号里面的内容
Label12.Caption = "特制腊肉--主料：腊肉，辣椒等。 特色：条形，无腐败气味，，精肉红亮，刀工整齐，无碎骨" 'label12标题是引号里面的内容
Label13.Caption = "口味蛇--主料：蛇，辣椒，姜，蒜等。 特色：蛇肉鲜嫩，香辣，酱汁味浓" 'label13标题是引号里面的内容
Label14.Caption = "猪油白菜心--主料：白菜心，豆豉等 特色：鲜美清香" 'label14标题是引号里面的内容
End Sub
Private Sub Command5_Click() 'command5(粤菜)按钮的单击事件
Timer1.Interval = 50 '每50毫秒触发一次timer事件
Picture1.Picture = LoadPicture(App.Path & "\菜谱\粤菜\白菜豆腐汤.JPG") 'picture1加载“白菜豆腐汤”图片
Picture2.Picture = LoadPicture(App.Path & "\菜谱\粤菜\虫草炖蚬鸭.JPG") 'picture2加载“虫草炖蚬鸭”图片
Picture3.Picture = LoadPicture(App.Path & "\菜谱\粤菜\冻金钟鸡.JPG") 'picture3加载“冻金钟鸡”图片
Picture4.Picture = LoadPicture(App.Path & "\菜谱\粤菜\炸鲜奶.JPG") 'picture4加载“炸鲜奶”图片
Picture5.Picture = LoadPicture(App.Path & "\菜谱\粤菜\干扁四季豆.JPG") 'picture5加载“干扁四季豆”图片
Combo1.Clear '组合框1里面的内容清除
Combo1.AddItem "白菜豆腐汤 25" '组合框1里添加"白菜豆腐汤 25"
Combo1.AddItem "虫草炖蚬鸭 45" '组合框1里添加"虫草炖蚬鸭 45"
Combo1.AddItem "冻金钟鸡 40" '组合框1里添加"冻金钟鸡 40"
Combo1.AddItem "炸鲜奶 30" '组合框1里添加"炸鲜奶 30"
Combo1.AddItem "干扁四季豆 20" '组合框1里添加"干扁四季豆 20"
Label1.Caption = "白菜豆腐汤 25" 'label1标题是"白菜豆腐汤 25"
Label2.Caption = "虫草炖蚬鸭 45" 'label2标题是"虫草炖蚬鸭 45"
Label3.Caption = "冻金钟鸡 40" 'label3标题是"冻金钟鸡 40"
Label4.Caption = "炸鲜奶 30" 'label4标题是"炸鲜奶 30"
Label5.Caption = "干扁四季豆 20" 'label5标题是"干扁四季豆 20"
Label10.Caption = "白菜豆腐汤--主料：白菜，豆腐等。 特色：咸淡适宜，更适宜老人用" 'label10标题是引号里面的内容
Label11.Caption = "虫草炖蚬鸭--主料：野鸭，猪肉，冬虫夏草等。 特色：肉软烂，汤清鲜，佐餐极佳" 'label11标题是引号里面的内容
Label12.Caption = "冻金钟鸡--主料：母鸡，鱼肚，火腿等。 特色：外形美观，清凉爽滑，晶莹透明" 'label12标题是引号里面的内容
Label13.Caption = "炸鲜奶--主料：鲜奶 。 特色：外金黄，内洁白，外酥脆、内软嫩" 'label13标题是引号里面的内容
Label14.Caption = "干扁四季豆--主料：四季豆，肉末，酱油等。 特色：清香可口，微辣" 'label14标题是引号里面的内容
End Sub
Private Sub Command6_Click() 'command6(浙菜)按钮的单击事件
Timer1.Interval = 50 '每50毫秒触发一次timer事件
Picture1.Picture = LoadPicture(App.Path & "\菜谱\浙菜\牛骨汤.jpg") 'picture1加载“牛骨汤”图片
Picture2.Picture = LoadPicture(App.Path & "\菜谱\浙菜\芙蓉肉.JPG") 'picture2加载“芙蓉肉”图片
Picture3.Picture = LoadPicture(App.Path & "\菜谱\浙菜\干炸响铃.JPG") 'picture3加载“干炸响铃”图片
Picture4.Picture = LoadPicture(App.Path & "\菜谱\浙菜\叫花鸡.JPG") 'picture4加载“叫花鸡”图片
Picture5.Picture = LoadPicture(App.Path & "\菜谱\浙菜\杭州卤豆腐.jpg") 'picture5加载“杭州卤豆腐”图片
Combo1.Clear '组合框1里面的内容清除
Combo1.AddItem "牛骨汤 30" '组合框1里添加"牛骨汤 30"
Combo1.AddItem "芙蓉肉 35" '组合框1里添加"芙蓉肉 35"
Combo1.AddItem "干炸响铃 30" '组合框1里添加"干炸响铃 30"
Combo1.AddItem "叫花鸡 40" '组合框1里添加"叫花鸡 40"
Combo1.AddItem "杭州卤豆腐 25" '组合框1里添加"杭州卤豆腐 25"
Label1.Caption = "牛骨汤 30" 'label1标题是"牛骨汤 30"
Label2.Caption = "芙蓉肉 35" 'label2标题是"芙蓉肉 35"
Label3.Caption = "干炸响铃 30" 'label3标题是"干炸响铃 30"
Label4.Caption = "叫花鸡 40" 'label4标题是"叫花鸡 40"
Label5.Caption = "杭州卤豆腐 25" 'label5标题是"杭州卤豆腐 25"
Label10.Caption = "牛骨汤--主料：牛骨，姜，蒜等 特色：具有减缓衰老，延年益寿的功效" 'label10标题是引号里面的内容
Label11.Caption = "芙蓉肉--主料：猪里脊肉，虾仁等。 特色：此菜色泽美观，香鲜可口 " 'label11标题是引号里面的内容
Label12.Caption = "干炸响铃--主料：猪里脊肉，鸡蛋黄等。 特色：色泽黄亮，鲜香味美" 'label12标题是引号里面的内容
Label13.Caption = "叫花鸡--主料：鸡等。 特色：酒泥烤鸡，原汁原味，肉质肥嫩酥烂，腹藏多鲜" 'label13标题是引号里面的内容
Label14.Caption = "杭州卤豆腐--主料;老豆腐,腌雪菜卤等。 特色：咸淡适宜，清香可口" 'label14标题是引号里面的内容
End Sub
Private Sub Command7_Click() 'command7(主食)按钮的单击事件
Timer1.Interval = 50 '每50毫秒触发一次timer事件
Picture1.Picture = LoadPicture(App.Path & "\菜谱\主食\面条.jpg") 'picture1加载“面条”图片
Picture2.Picture = LoadPicture(App.Path & "\菜谱\主食\饺子.jpg") 'picture2加载“饺子”图片
Picture3.Picture = LoadPicture(App.Path & "\菜谱\主食\馒头.jpg") 'picture3加载“馒头”图片
Picture4.Picture = LoadPicture(App.Path & "\菜谱\主食\米饭.jpg") 'picture4加载“米饭”图片
Picture5.Picture = LoadPicture(App.Path & "\菜谱\主食\包子.jpg") 'picture5加载“包子”图片
Combo1.Clear '组合框1里面的内容清除
Combo1.AddItem "饺子 20" '组合框1里添加"饺子 20"
Combo1.AddItem "馒头 5" '组合框1里添加"馒头 5"
Combo1.AddItem "米饭 5" '组合框1里添加"米饭 5"
Combo1.AddItem "面条 10" '组合框1里添加"面条 10"
Combo1.AddItem "包子 15" '组合框1里添加"包子 15"
Label1.Caption = "面条 10" 'label1标题是"面条 10"
Label2.Caption = "饺子 20" 'label2标题是"饺子 20"
Label3.Caption = "馒头 5" 'label3标题是"馒头 5"
Label4.Caption = "米饭 5" 'label4标题是"米饭 5"
Label5.Caption = "包子 15" 'label5标题是"包子 15"
Label10.Caption = "面条--本店提供各式面条" 'label10标题是引号里面的内容
Label11.Caption = "饺子--本店提供各式饺子" 'label11标题是引号里面的内容
Label12.Caption = "馒头--本店提供各式馒头" 'label12标题是引号里面的内容
Label13.Caption = "米饭--本店为您最优质的米饭" 'label13标题是引号里面的内容
Label14.Caption = "包子--本店提供各式包子" 'label14标题是引号里面的内容
End Sub
Private Sub Command8_Click() 'command8(酒水)按钮的单击事件
Timer1.Interval = 50 '每50毫秒触发一次timer事件
Picture1.Picture = LoadPicture(App.Path & "\菜谱\酒水\茶水.jpg") 'picture1加载“茶水”图片
Picture2.Picture = LoadPicture(App.Path & "\菜谱\酒水\郎酒.JPG") 'picture1加载“郎酒”图片
Picture3.Picture = LoadPicture(App.Path & "\菜谱\酒水\茅台酒.JPG") 'picture1加载“茅台酒”图片
Picture4.Picture = LoadPicture(App.Path & "\菜谱\酒水\果汁.JPG") 'picture1加载“果汁”图片
Picture5.Picture = LoadPicture(App.Path & "\菜谱\酒水\红酒.JPG") 'picture1加载“红酒”图片
Combo1.Clear '组合框1里面的内容清除
Combo1.AddItem "茶水 0" '组合框1里添加"茶水 0"
Combo1.AddItem "郎酒 50" '组合框1里添加"郎酒 50"
Combo1.AddItem "茅台酒 90" '组合框1里添加"茅台酒 90"
Combo1.AddItem "果汁 10" '组合框1里添加"果汁 10"
Combo1.AddItem "红酒 50" '组合框1里添加"红酒 50"
Label1.Caption = "茶水 0" 'label1标题是"茶水 0"
Label2.Caption = "郎酒 50" 'label2标题是"郎酒 50"
Label3.Caption = "茅台酒 90" 'label3标题是"茅台酒 90"
Label4.Caption = "果汁 10" 'label4标题是"果汁 10"
Label5.Caption = "红酒 50" 'label5标题是"红酒 50"
Label10.Caption = "茶水--帮助消化，清凉热血" 'label10标题是引号里面的内容
Label11.Caption = "郎酒--有良好的去风、解毒功效" 'label11标题是引号里面的内容
Label12.Caption = "茅台酒--有良好的去风、解毒、止痛、通络功效" 'label12标题是引号里面的内容
Label13.Caption = "果汁--含有丰富的维生素" 'label13标题是引号里面的内容
Label14.Caption = "红酒--开胃，另有美容，防老的功效" 'label14标题是引号里面的内容
End Sub
Private Sub Command9_Click() 'command9(退菜)按钮的单击事件
If List1.ListIndex <> -1 Then
X = List1.ListIndex
List1.RemoveItem X '如果列表框list1中的项目索引号不等于-1，那么list1就删除选定的项目
End If
End Sub
Private Sub Command11_Click() 'command11(当前消费)按钮的单击事件
Dim m As Integer '定义 m 是整型
Sum = 0 'sum的初始值为0
m = List1.ListCount 'm的值等于list1中选择项目的索引号
For i = 0 To m '定义 i 的值从0到m
Sum = Sum + Val(Right(List1.List(i), 2)) 'sum=sum+取list1中选中项目的右边两个字符
Next i 'i的步长加1
Text1.Text = Sum 'text1的text等于sum
If Sum < 300 Then
Command12.Enabled = False '当m的值小于300时command12(抽奖)不可用
Else
Command12.Enabled = True '当m的值大于等于300时command12(抽奖)可用
End If
End Sub
Private Sub Command12_Click() 'command13(抽奖)按钮的单击事件
form3.Hide 'form3窗体隐藏
Form4.Show 'form4窗体显示
End Sub
Private Sub Command13_Click() 'command13(返回)按钮的单击事件
form3.Hide 'form3窗体隐藏
Form2.Show 'form2窗体显示
End Sub
Private Sub Form_Load() 'form3窗体加载事件
Label7.ForeColor = RGB(255, 0, 0) 'label7的前景色为红色
Timer1.Interval = 300 '每300毫秒触发一次timer事件
Command12.Enabled = False 'command12(抽奖)按钮不可用
End Sub
Private Sub Picture1_Click() 'picture1的单击事件
Label6.Caption = Label10.Caption '将label10的标题显示到label6上
End Sub
Private Sub Picture2_Click() 'picture2的单击事件
Label6.Caption = Label11.Caption '将label11的标题显示到label6上
End Sub
Private Sub Picture3_Click() 'picture3的单击事件
Label6.Caption = Label12.Caption '将label12的标题显示到label6上
End Sub
Private Sub Picture4_Click() 'picture4的单击事件
Label6.Caption = Label13.Caption '将label13的标题显示到label6上
End Sub
Private Sub Picture5_Click() 'picture5的单击事件
Label6.Caption = Label14.Caption '将label14的标题显示到label6上
End Sub
Private Sub Timer1_Timer()
If Picture1.Left + Picture1.Width > 0 Then
Picture1.Left = Picture1.Left - 50 '如果picture1距form3左边的距离与其自身的宽度之和大于0，那么picture1就向左移动50，每50毫秒移动一次
Else
Picture1.Left = form3.ScaleWidth '当picture1距form3左边的距离与其自身的宽度之和小于等于0时，那么picture1距form3左边的距离就等于form3 的宽度
End If
If Picture2.Left + Picture2.Width > 0 Then
Picture2.Left = Picture2.Left - 50 '如果picture2距form3左边的距离与其自身的宽度之和大于0，那么picture2就向左移动50，每50毫秒移动一次
Else
Picture2.Left = form3.ScaleWidth '当picture2距form3左边的距离与其自身的宽度之和小于等于0时，那么picture2距form3左边的距离就等于form3 的宽度
End If
If Picture3.Left + Picture3.Width > 0 Then
Picture3.Left = Picture3.Left - 50 '如果picture3距form3左边的距离与其自身的宽度之和大于0，那么picture3就向左移动50，每50毫秒移动一次
Else
Picture3.Left = form3.ScaleWidth '当picture3距form3左边的距离与其自身的宽度之和小于等于0时，那么picture3距form3左边的距离就等于form3 的宽度
End If
If Picture4.Left + Picture4.Width > 0 Then
Picture4.Left = Picture4.Left - 50 '如果picture4距form3左边的距离与其自身的宽度之和大于0，那么picture4就向左移动50，每50毫秒移动一次
Else
Picture4.Left = form3.ScaleWidth '当picture4距form3左边的距离与其自身的宽度之和小于等于0时，那么picture4距form3左边的距离就等于form3 的宽度
End If
If Picture5.Left + Picture5.Width > 0 Then
Picture5.Left = Picture5.Left - 50 '如果picture5距form3左边的距离与其自身的宽度之和大于0，那么picture5就向左移动50，每50毫秒移动一次
Else
Picture5.Left = form3.ScaleWidth '当picture5距form3左边的距离与其自身的宽度之和小于等于0时，那么picture5距form3左边的距离就等于form3 的宽度
End If
If Label1.Left + Label1.Width > 0 Then
Label1.Left = Label1.Left - 50 '如果label1距form3左边的距离与其自身的宽度之和大于0，那么label1就向左移动50，每50毫秒移动一次
Else
Label1.Left = form3.ScaleWidth '当label1距form3左边的距离与其自身的宽度之和小于等于0时，那么label1距form3左边的距离就等于form3 的宽度,以下类同
End If
If Label2.Left + Label2.Width > 0 Then
Label2.Left = Label2.Left - 50
Else
Label2.Left = form3.ScaleWidth
End If
If Label3.Left + Label3.Width > 0 Then
Label3.Left = Label3.Left - 50
Else
Label3.Left = form3.ScaleWidth
End If
If Label4.Left + Label4.Width > 0 Then
Label4.Left = Label4.Left - 50
Else
Label4.Left = form3.ScaleWidth
End If
If Label5.Left + Label5.Width > 0 Then
Label5.Left = Label5.Left - 50
Else
Label5.Left = form3.ScaleWidth
End If
If Label7.Left + Label7.Width > 0 Then
Label7.Left = Label7.Left - 50
Else
Label7.Left = form3.ScaleWidth
End If
End Sub
7.4抽奖界面的代码如下：
Dim i As Integer, j As Integer, k As Integer, m As Integer
Private Sub Form_Load()
Timer1.Interval = 100 '设置时间间隔为100毫秒
Timer1.Enabled = False 'timer1事件不允许执行
End Sub
Private Sub Timer1_Timer()
Label5.Caption = Round(Rnd() * 9, 0)
i = Label5.Caption 'i 等于Label5上产生的0-9间的随机数
Label6.Caption = Round(Rnd() * 9, 0)
j = Label6.Caption 'j 等于Label6上产生的0-9间的随机数
Label7.Caption = Round(Rnd() * 9, 0)
k = Label7.Caption 'k 等于Label7上产生的0-9间的随机数
Label8.Caption = Round(Rnd() * 9, 0)
m = Label8.Caption 'm 等于Label8上产生的0-9间的随机数
End Sub
Private Sub Command1_Click() 'command1单击事件
Timer1.Enabled = True 'timer1事件允许执行
Command1.Enabled = False 'command1事件不允许执行
End Sub
Private Sub Command2_Click() 'command2单击事件
Timer1.Enabled = False 'timer1事件不允许执行
If i = j And j = k And k = m Then '进入if then循环
Label10.Caption = "恭喜您获得特等奖！！"
Image1.Picture = LoadPicture(App.Path & "\菜谱\奖品\特等奖.jpg") 'Image1加载特等奖图片
ElseIf i = j And j = k Then '当前三个相同时
Label10.Caption = "恭喜您获得一等奖！！"
Image1.Picture = LoadPicture(App.Path & "\菜谱\奖品\一等奖.jpg") 'Image1加载一等奖图片
ElseIf i <> j And j = k And k <> m Then '当只有中间二个相同时
Label10.Caption = "恭喜您获得二等奖！！"
Image1.Picture = LoadPicture(App.Path & "\菜谱\奖品\二等奖.jpg") 'Image1加载二等奖图片
ElseIf i <> k And j <> k And k = m Then '当最后二个相同时
Label10.Caption = "恭喜您获得三等奖！！"
Image1.Picture = LoadPicture(App.Path & "\菜谱\奖品\三等奖.jpg") 'Image1加载三等奖图片
Else
Label10.Caption = "谢谢回顾"
Image1.Picture = LoadPicture(App.Path & "\菜谱\奖品\谢谢.gif") 'Image1加载谢谢图片
End If
Command2.Enabled = False 'command2不允许执行
End Sub
Private Sub Command3_Click() 'command3单击事件
Form4.Hide 'form4隐藏
Form2.Show 'form2显示
End Sub
7.5留言板界面代码：
Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "留言不能为空！", vbOKOnly + vbExclamation, "注意" '留言为空时，弹出对话框，提醒顾客留言
Text1.SetFocus
End If
If Text2.Text = "" Then
MsgBox "签名不能为空！", vbOKOnly + vbExclamation, "注意" '签名为空时，弹出对话框，提醒顾客签名
Text2.SetFocus
End If
If Text1.Text <> "" And Text2.Text <> "" Then
List1.AddItem Text2.Text & "说：" & Text1.Text & " " & Now
Open App.Path & "\data\留言.dat" For Append As #1
Write #1, Text2.Text & "说：" & Text1.Text & " " & Now '把留言内容保存到文件夹内
Close #1
Text1.Text = "" '清空留言和
Text2.Text = ""
End If
End Sub
Private Sub Command2_Click()
Form2.Show '关闭留言板界面加载主界面
Form5.Hide
End Sub
Private Sub Command3_Click()
End '退出程序
End Sub
Private Sub Command4_Click()
Open App.Path & "\data\留言.dat" For Output As #1 '点击清楚时，保存在文件中的所有留言被清空
Write #1, ""
Close #1
Dim a As String
List1.Clear
End Sub
Private Sub Form_Load()
Open App.Path & "\data\留言.dat" For Input As #1 '当留言板窗体被载入，系统读取文件夹中所有留言，并将其显示在留言板中
While Not EOF(1)
Line Input #1, a
List1.AddItem a
Wend
Close #1
label1.Left = Form1.ScaleWidth
End Sub
Private Sub Timer1_Timer()
If label1.Left + label1.Width > 0 Then '滚动字幕
label1.Move label1.Left - 50
Else
label1.Left = Form1.ScaleWidth
End If
End Sub
Private Sub Timer3_Timer()
Label2.Caption = "小老鼠报时: " & Now '显示当前的日期和时间
End