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

《饭店点菜系统-vb课程设计报告.docx》由会员分享，可在线阅读，更多相关《饭店点菜系统-vb课程设计报告.docx（28页珍藏版）》请在三一办公上搜索。

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及更高。 硬盘：剩余使用空间1

5、GB以上。 内存：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 label1.Left 50 每50毫秒移动一次 Else label1.Lef

7、t = Form1.ScaleWidth 当标签距离窗体左边的距离与其自身的宽度之和小于等于0时，那么标签距窗体左边的距离就等于窗体的宽度 End IfEnd SubPrivate 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 L

8、ist1.AddItem a 系统读取文件夹中所有留言，并将其显示在留言板中 Wend Close #1 关闭文件 label1.Left = Form1.ScaleWidthEnd SubCommand1的click事件代码：Private Sub Command1_Click() If Text1.Text = Then MsgBox 留言不能为空！, vbOKOnly + vbExclamation, 注意 留言为空时，弹出对话框，提醒顾客留言 Text1.SetFocus text1得到焦点 End If If Text2.Text = Then MsgBox 签名不能为空！, vbO

9、KOnly + 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.

10、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总结与存在的问题5.1总结“纸上得来终觉浅，绝知此事要躬行”，在短暂的实习过程中，我深深地感觉到自己所学知识的肤浅和在实际运用中的专业知识的匮乏.一旦接触到实际，才

11、发现自己知道的是多么少，这时才真正领悟到“学无止境”的含义。通过实习应能在实际中理解所学的专业知识，并将之与实际应用结合起来，通过程序设计，增加同学们对vb知识认识，建立起必要的创新概念，加深我对vb的理解，同时也可未来的发展趋势有一定的了解，培养同学们对计算机的热爱。5.2存在的主要问题在程序设计过程中主要对文件相关函数的运用掌握不好，对合理的布局窗体缺乏经验。6.参考文献Visual basic程序设计 （学军 李静）主编 中国铁道出版社Visual 程序设计教程 陈语林主编 中国水利水电出版社MsdnVisual Basic 6.0编程案例精解， 张路平，电子工业出版社网络 7附录7.1

12、登陆界面（封皮）的代码如下：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_Click() Form2.Hide form2窗体隐藏 Form5.Show form5窗体显示End SubPrivate Sub Form_Load() Timer1.Interval = 30

13、0 每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 & 菜谱粤菜冻金钟鸡.

14、JPG) picture5加载“冻金钟鸡”图片End SubPrivate 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从0225之间随即取一个数

15、g = Int(Rnd * 256) g从0225之间随即取一个数 b = Int(Rnd * 256) b从0225之间随即取一个数 Label1.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 T

16、hen 验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 为 Fa

17、lse则表明不存在，这时就添加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.Pictur

18、e = 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 组合

19、框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 Lab

20、el5.Caption = 麻辣花椒鸡 35 label5标题是麻辣花椒鸡 35 Label10.Caption = 夫妻肺片-主料：牛肉,牛杂,老卤,花椒,肉桂等。 特色：麻辣鲜香，四川的著名菜肴之一 label10标题是引号里面的内容 Label11.Caption = 鸡爪豆腐-主料：豆腐, 蒜泥,四川豆瓣酱等。 特色: 热、浓、香、鲜、辣、麻，味味俱全 label11标题是引号里面的内容 Label12.Caption = 盐水猪蹄-主料：猪蹄,辣椒,姜葱等 特色：不腻可口，色味俱佳 label12标题是引号里面的内容 Label13.Caption = 一品香虾-主料：活虾,大葱 蟹

21、酱,味精。 特色：虾含有高蛋白质和钙，秋冬可增强抗寒能力 label13标题是引号里面的内容 Label14.Caption = 麻辣花椒鸡-主料：鸡,南瓜,辣椒等 特色：麻与辣结合，让人回味无穷 label14标题是引号里面的内容 End Sub Private Sub Command2_Click() command2(徽菜)按钮的单击事件 Timer1.Interval = 50 每50毫秒触发一次timer事件 Picture1.Picture = LoadPicture(App.Path & 菜谱徽菜四色菜汤.JPG) picture1加载“四色菜汤”图片 Picture2.Pict

22、ure = 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.Cle

23、ar 组合框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.Ca

24、ption = 酥炸凤翼 45 label3标题是酥炸凤翼 45 Label4.Caption = 玉兔海参 45 label4标题是玉兔海参 45 Label5.Caption = 糖醋烧豆腐 30 label5标题是糖醋烧豆腐 30 Label10.Caption = 四色菜汤-主料：青菜，姜等 特色：咸淡适宜，佐餐极佳 label10标题是引号里面的内容 Label11.Caption = 花菇田鸡-主料：鸡腿,花菇,姜等 特色：肉质细嫩鲜美，而且富含蛋白质和钙 label11标题是引号里面的内容 Label12.Caption = 酥炸凤翼-主料：鸡翅,糯米,火腿等 特色：嚼嚼有物，夹

25、有糯米,芝麻,火腿香 label12标题是引号里面的内容 Label13.Caption = 玉兔海参-主料：鹤鹊蛋,海参等 特色：口味软绵,葱味浓香,造型优美 label13标题是引号里面的内容 Label14.Caption = 糖醋烧豆腐-主料：老豆腐，腌卤菜。 特色：香甜可口，老少皆宜 label14标题是引号里面的内容 End Sub Private Sub Command3_Click() command3(鲁菜)按钮的单击事件 Timer1.Interval = 50 每50毫秒触发一次timer事件 Picture1.Picture = LoadPicture(App.Path

26、 & 菜谱鲁菜牛肉汤.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.

27、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.Ca

28、ption = 芙蓉炒活蟹 50 label2标题是芙蓉炒活蟹 50 Label3.Caption = 海参全家福 45 label3标题是海参全家福 45 Label4.Caption = 香菜拌毛蛤 35 label4标题是香菜拌毛蛤 35 Label5.Caption = 腌菜 20 label5标题是腌菜 20 Label10.Caption = 牛肉汤-主料：牛肉，姜，葱等。 特色：有助提高身体抵抗力 label10标题是引号里面的内容 Label11.Caption = 芙蓉炒活蟹-主料：活蟹，芙蓉等。 特色：格外美观，蟹肉鲜香微辣，芙蓉滑嫩 label11标题是引号里面的内容 L

29、abel12.Caption = 海参全家福-主料：海参,虾,鱼肚等。 特色：用料丰富，口味浓厚，鲜香丰盛 label12标题是引号里面的内容 Label13.Caption = 香菜拌毛蛤-主料：蛤蜊,香菜,蒜等。 特色：鲜咸酸辣香爽，毛蛤蜊嫩鲜，香菜清脆，蒜辣味浓 label13标题是引号里面的内容 Label14.Caption = 腌菜-主料：芹菜,辣椒等。 特色：香脆可口，开胃，有助消化 label14标题是引号里面的内容 End Sub Private Sub Command4_Click() command4(湘菜)按钮的单击事件 Timer1.Interval = 50 每50

30、毫秒触发一次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) pict

31、ure4加载“口味蛇”图片 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里添加

32、猪油白菜心 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.Ca

33、ption = 霸王肘子-主料：猪肘，辣椒，味精等。 特色：色泽红亮，肥而不腻，入口即化 label11标题是引号里面的内容 Label12.Caption = 特制腊肉-主料：腊肉，辣椒等。 特色：条形，无腐败气味，精肉红亮，刀工整齐，无碎骨 label12标题是引号里面的内容 Label13.Caption = 口味蛇-主料：蛇，辣椒，姜，蒜等。 特色：蛇肉鲜嫩，香辣，酱汁味浓 label13标题是引号里面的内容 Label14.Caption = 猪油白菜心-主料：白菜心，豆豉等 特色：鲜美清香 label14标题是引号里面的内容 End Sub Private Sub Command5

34、_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里添加白菜豆腐汤