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

院院 系系 土木工程学院土木工程学院 专专 业业 土木工程土木工程 学学 号号 2010040420100404 完成日期完成日期 20102010 年年 9 9 月月 5 5 日日 饭店点菜系统饭店点菜系统饭店点菜系统饭店点菜系统饭店点菜系统饭店点菜系统 摘摘 要要 此饭店点菜系统是利用此饭店点菜系统是利用 vbvb 知识编写的程序，最终生成的软件。知识编写的程序，最终生成的软件。 在设计过程中主要运用了数据库的知识来实现饭店内菜库的添加，在设计过程中主要运用了数据库的知识来实现饭店内菜库的添加， 修改，删除等功能。同时还能满足顾客的点菜的功能，当顾客的消修改，删除等功能。同时还能满足顾客的点菜的功能，当顾客的消 费额达到一定的值时，会自动弹出不同档次的抽奖系统。若此系统费额达到一定的值时，会自动弹出不同档次的抽奖系统。若此系统 应用于饭店工作中，会从一定程度上提高工作效率。总之在此次实应用于饭店工作中，会从一定程度上提高工作效率。总之在此次实 习中我确确实实学到了很多东西，深刻的了解到计算机语言的重要习中我确确实实学到了很多东西，深刻的了解到计算机语言的重要 性和自己计算机操作能力的空洞。很快就结束了十天的实习，很难性和自己计算机操作能力的空洞。很快就结束了十天的实习，很难 忘，也有忘，也有很多收获。很多收获。 关键词关键词：数据库数据库 菜库菜库 点菜点菜 抽奖系统抽奖系统 目录目录 1.1.选题的意义选题的意义.3 2 2系统功能需求分析系统功能需求分析4 2.1 系统概述.4 2.2 系统的构成及各模块的功能.4 3 3系统设计系统设计.5 3.1 总体结构设计 .5 3.2 数据库设计 .5 4 4系统实现系统实现5 4.1 登陆模块的设计与实现.6 4.2 学生信息维护模块的设计与实现.7 5 5总结总结.22 5.1 总结 22 5.2 存在的主要问题22 6.6.参考文献参考文献23 选题的意义选题的意义 选择该题目的原因选择该题目的原因 拿到课题后经过对所有题目的认真思考和对比后，我选择了这一个课程设计。原因：拿到课题后经过对所有题目的认真思考和对比后，我选择了这一个课程设计。原因： 自己对饭店比较熟悉而且在认真考虑后有些设计思路自己对饭店比较熟悉而且在认真考虑后有些设计思路 自己对饭店比较熟悉而且在认真考虑后有些设计思路自己对饭店比较熟悉而且在认真考虑后有些设计思路自己对饭店比较熟悉而且在认真考虑后有些设计思路自己对饭店比较熟悉而且在认真考虑后有些设计思路 饭店点菜系统有挑战性，能促使自己学习没有掌握的知识，并想通过实习让自己这饭店点菜系统有挑战性，能促使自己学习没有掌握的知识，并想通过实习让自己这 饭店点菜系统有挑战性，能促使自己学习没有掌握的知识，并想通过实习让自己这饭店点菜系统有挑战性，能促使自己学习没有掌握的知识，并想通过实习让自己这饭店点菜系统有挑战性，能促使自己学习没有掌握的知识，并想通过实习让自己这饭店点菜系统有挑战性，能促使自己学习没有掌握的知识，并想通过实习让自己这 一一 一一一一 年的知识融会贯通起来。年的知识融会贯通起来。 年的知识融会贯通起来。年的知识融会贯通起来。年的知识融会贯通起来。年的知识融会贯通起来。 完成次题目用到的数据结构和知识点完成次题目用到的数据结构和知识点 在建立界面时用到了 在建立界面时用到了 在建立界面时用到了在建立界面时用到了在建立界面时用到了在建立界面时用到了 timer timer timertimertimertimer 控件及其属性 控件及其属性 控件及其属性控件及其属性控件及其属性控件及其属性 caption caption captioncaptioncaptioncaption、 、 、label label labellabellabellabel、 、 、text text texttexttexttext 等的各种属性（如 等的各种属性（如 等的各种属性（如等的各种属性（如等的各种属性（如等的各种属性（如 backstylebackstyle backstylebackstylebackstylebackstyle、 、 、enabled enabled enabledenabledenabledenabled、 、 、visible visible visiblevisiblevisiblevisible、 、 、 、 、 、 、picture picture picturepicturepicturepicture、 、 、autsize autsize autsizeautsizeautsizeautsize 等） 等） 等）等）等）等） 在这次设计中主要使用了 在这次设计中主要使用了 在这次设计中主要使用了在这次设计中主要使用了在这次设计中主要使用了在这次设计中主要使用了 command command commandcommandcommandcommand、 、 、label label labellabellabellabel 和 和 和和和和 text text texttexttexttext 的功能，这也是重要并且基础 的功能，这也是重要并且基础 的功能，这也是重要并且基础的功能，这也是重要并且基础的功能，这也是重要并且基础的功能，这也是重要并且基础 的知识，除此之外还使用了的知识，除此之外还使用了 的知识，除此之外还使用了的知识，除此之外还使用了的知识，除此之外还使用了的知识，除此之外还使用了 timer timer timertimertimertimer 的功能，本来打算再添加一个背景音乐使用相对路 的功能，本来打算再添加一个背景音乐使用相对路 的功能，本来打算再添加一个背景音乐使用相对路的功能，本来打算再添加一个背景音乐使用相对路的功能，本来打算再添加一个背景音乐使用相对路的功能，本来打算再添加一个背景音乐使用相对路 径的，但是因为时间的原因只好留下了这些遗憾。径的，但是因为时间的原因只好留下了这些遗憾。 径的，但是因为时间的原因只好留下了这些遗憾。径的，但是因为时间的原因只好留下了这些遗憾。径的，但是因为时间的原因只好留下了这些遗憾。径的，但是因为时间的原因只好留下了这些遗憾。 系统功能需求分析系统功能需求分析 系统概述系统概述 随着社会的发展人们的物质条件已经不再被担心了，相应的精神享受收到了极大的重随着社会的发展人们的物质条件已经不再被担心了，相应的精神享受收到了极大的重 随着社会的发展人们的物质条件已经不再被担心了，相应的精神享受收到了极大的重随着社会的发展人们的物质条件已经不再被担心了，相应的精神享受收到了极大的重随着社会的发展人们的物质条件已经不再被担心了，相应的精神享受收到了极大的重随着社会的发展人们的物质条件已经不再被担心了，相应的精神享受收到了极大的重 视。就饭店吃饭来说人们已经不仅仅只是要求饭菜可口，对就餐环境、服务态度外还想要视。就饭店吃饭来说人们已经不仅仅只是要求饭菜可口，对就餐环境、服务态度外还想要 视。就饭店吃饭来说人们已经不仅仅只是要求饭菜可口，对就餐环境、服务态度外还想要视。就饭店吃饭来说人们已经不仅仅只是要求饭菜可口，对就餐环境、服务态度外还想要视。就饭店吃饭来说人们已经不仅仅只是要求饭菜可口，对就餐环境、服务态度外还想要视。就饭店吃饭来说人们已经不仅仅只是要求饭菜可口，对就餐环境、服务态度外还想要 些娱乐活动。本系统除了简单的界面外，做了顾客自助点菜系统些娱乐活动。本系统除了简单的界面外，做了顾客自助点菜系统 些娱乐活动。本系统除了简单的界面外，做了顾客自助点菜系统些娱乐活动。本系统除了简单的界面外，做了顾客自助点菜系统些娱乐活动。本系统除了简单的界面外，做了顾客自助点菜系统些娱乐活动。本系统除了简单的界面外，做了顾客自助点菜系统, , , , ,并可在提交之前随时进行 并可在提交之前随时进行 并可在提交之前随时进行并可在提交之前随时进行并可在提交之前随时进行并可在提交之前随时进行 修改，在就餐过程可对本餐厅进行认识。在消费一定金额时进行抽奖活动。修改，在就餐过程可对本餐厅进行认识。在消费一定金额时进行抽奖活动。 修改，在就餐过程可对本餐厅进行认识。在消费一定金额时进行抽奖活动。修改，在就餐过程可对本餐厅进行认识。在消费一定金额时进行抽奖活动。修改，在就餐过程可对本餐厅进行认识。在消费一定金额时进行抽奖活动。修改，在就餐过程可对本餐厅进行认识。在消费一定金额时进行抽奖活动。 系统的组成及各模块的功能系统的组成及各模块的功能 点菜系统由登陆页面、主页面点菜系统由登陆页面、主页面 点菜系统由登陆页面、主页面点菜系统由登陆页面、主页面点菜系统由登陆页面、主页面点菜系统由登陆页面、主页面 菜库管理、点菜界面、抽奖界面、留言板组成 菜库管理、点菜界面、抽奖界面、留言板组成 菜库管理、点菜界面、抽奖界面、留言板组成菜库管理、点菜界面、抽奖界面、留言板组成菜库管理、点菜界面、抽奖界面、留言板组成菜库管理、点菜界面、抽奖界面、留言板组成 登陆页面：当输入正确的用户名和密码是进入主页面，同时设计了滚动电子板，使页登陆页面：当输入正确的用户名和密码是进入主页面，同时设计了滚动电子板，使页 登陆页面：当输入正确的用户名和密码是进入主页面，同时设计了滚动电子板，使页登陆页面：当输入正确的用户名和密码是进入主页面，同时设计了滚动电子板，使页登陆页面：当输入正确的用户名和密码是进入主页面，同时设计了滚动电子板，使页登陆页面：当输入正确的用户名和密码是进入主页面，同时设计了滚动电子板，使页 面更美观面更美观 面更美观面更美观面更美观面更美观 主页面：该页有饭店的简单介绍及菜库管理、点菜、留言板三个功能按钮，点击可以主页面：该页有饭店的简单介绍及菜库管理、点菜、留言板三个功能按钮，点击可以 主页面：该页有饭店的简单介绍及菜库管理、点菜、留言板三个功能按钮，点击可以主页面：该页有饭店的简单介绍及菜库管理、点菜、留言板三个功能按钮，点击可以主页面：该页有饭店的简单介绍及菜库管理、点菜、留言板三个功能按钮，点击可以主页面：该页有饭店的简单介绍及菜库管理、点菜、留言板三个功能按钮，点击可以 进入相应页面。右下方有返回按钮，点击返回登录页面。进入相应页面。右下方有返回按钮，点击返回登录页面。 进入相应页面。右下方有返回按钮，点击返回登录页面。进入相应页面。右下方有返回按钮，点击返回登录页面。进入相应页面。右下方有返回按钮，点击返回登录页面。进入相应页面。右下方有返回按钮，点击返回登录页面。 菜库管理菜库管理 菜库管理菜库管理菜库管理菜库管理: : : : : :添加了 添加了 添加了添加了添加了添加了 sstab sstab sstabsstabsstabsstab 控件，点击不同的选项卡可以分别实现对肉菜、素菜、汤、主 控件，点击不同的选项卡可以分别实现对肉菜、素菜、汤、主 控件，点击不同的选项卡可以分别实现对肉菜、素菜、汤、主控件，点击不同的选项卡可以分别实现对肉菜、素菜、汤、主控件，点击不同的选项卡可以分别实现对肉菜、素菜、汤、主控件，点击不同的选项卡可以分别实现对肉菜、素菜、汤、主 食的添加、修改、删除及查看第一个、上一个、下一个、最后一个等功能。食的添加、修改、删除及查看第一个、上一个、下一个、最后一个等功能。 食的添加、修改、删除及查看第一个、上一个、下一个、最后一个等功能。食的添加、修改、删除及查看第一个、上一个、下一个、最后一个等功能。食的添加、修改、删除及查看第一个、上一个、下一个、最后一个等功能。食的添加、修改、删除及查看第一个、上一个、下一个、最后一个等功能。 点菜页面：可以分别点肉菜、素菜、汤、主食，在点击时可以看到菜种对应的样品图点菜页面：可以分别点肉菜、素菜、汤、主食，在点击时可以看到菜种对应的样品图 点菜页面：可以分别点肉菜、素菜、汤、主食，在点击时可以看到菜种对应的样品图点菜页面：可以分别点肉菜、素菜、汤、主食，在点击时可以看到菜种对应的样品图点菜页面：可以分别点肉菜、素菜、汤、主食，在点击时可以看到菜种对应的样品图点菜页面：可以分别点肉菜、素菜、汤、主食，在点击时可以看到菜种对应的样品图 片。同时可以实现退菜、查看价格等功能。落单时，根据消费额的高低可以进入对应的抽片。同时可以实现退菜、查看价格等功能。落单时，根据消费额的高低可以进入对应的抽 片。同时可以实现退菜、查看价格等功能。落单时，根据消费额的高低可以进入对应的抽片。同时可以实现退菜、查看价格等功能。落单时，根据消费额的高低可以进入对应的抽片。同时可以实现退菜、查看价格等功能。落单时，根据消费额的高低可以进入对应的抽片。同时可以实现退菜、查看价格等功能。落单时，根据消费额的高低可以进入对应的抽 奖页面。奖页面。 奖页面。奖页面。奖页面。奖页面。 抽奖页面：点击按钮会随机产生抽奖页面：点击按钮会随机产生 抽奖页面：点击按钮会随机产生抽奖页面：点击按钮会随机产生抽奖页面：点击按钮会随机产生抽奖页面：点击按钮会随机产生 1-3 1-3 1-31-31-31-3 之间的任一个数，显示顾客中了几等奖，并对应 之间的任一个数，显示顾客中了几等奖，并对应 之间的任一个数，显示顾客中了几等奖，并对应之间的任一个数，显示顾客中了几等奖，并对应之间的任一个数，显示顾客中了几等奖，并对应之间的任一个数，显示顾客中了几等奖，并对应 不同的奖品。不同的奖品。 不同的奖品。不同的奖品。不同的奖品。不同的奖品。 留言板：通过文本框输入的留言可以保存到系统磁盘，主要运用的是通用对话框。当留言板：通过文本框输入的留言可以保存到系统磁盘，主要运用的是通用对话框。当 留言板：通过文本框输入的留言可以保存到系统磁盘，主要运用的是通用对话框。当留言板：通过文本框输入的留言可以保存到系统磁盘，主要运用的是通用对话框。当留言板：通过文本框输入的留言可以保存到系统磁盘，主要运用的是通用对话框。当留言板：通过文本框输入的留言可以保存到系统磁盘，主要运用的是通用对话框。当 点击查看留言时，利用文件系统控件、组合框、文本框等，制作一个简单的浏览器可以找点击查看留言时，利用文件系统控件、组合框、文本框等，制作一个简单的浏览器可以找 点击查看留言时，利用文件系统控件、组合框、文本框等，制作一个简单的浏览器可以找点击查看留言时，利用文件系统控件、组合框、文本框等，制作一个简单的浏览器可以找点击查看留言时，利用文件系统控件、组合框、文本框等，制作一个简单的浏览器可以找点击查看留言时，利用文件系统控件、组合框、文本框等，制作一个简单的浏览器可以找 到留言并查看。到留言并查看。 到留言并查看。到留言并查看。到留言并查看。到留言并查看。 系统设计系统设计 总体机构设计 总体机构设计 总体机构设计总体机构设计总体机构设计总体机构设计 这个系统是我根据总分的结构设计的，由主页面展开得到。由于水平有限，只能粗糙地完这个系统是我根据总分的结构设计的，由主页面展开得到。由于水平有限，只能粗糙地完 这个系统是我根据总分的结构设计的，由主页面展开得到。由于水平有限，只能粗糙地完这个系统是我根据总分的结构设计的，由主页面展开得到。由于水平有限，只能粗糙地完这个系统是我根据总分的结构设计的，由主页面展开得到。由于水平有限，只能粗糙地完这个系统是我根据总分的结构设计的，由主页面展开得到。由于水平有限，只能粗糙地完 成，很多地方还有待提高。总体结构设计如下：成，很多地方还有待提高。总体结构设计如下： 成，很多地方还有待提高。总体结构设计如下：成，很多地方还有待提高。总体结构设计如下：成，很多地方还有待提高。总体结构设计如下：成，很多地方还有待提高。总体结构设计如下： 数据库设计数据库设计 数据库内的内容根据菜种的不同，可以分为肉菜素菜、汤、主食等几大类。每个大类中又数据库内的内容根据菜种的不同，可以分为肉菜素菜、汤、主食等几大类。每个大类中又 分为若干菜的具体内容。包括菜的名字、价格、和菜样的图片地址。这样在点菜时才能显分为若干菜的具体内容。包括菜的名字、价格、和菜样的图片地址。这样在点菜时才能显 示图样。由于时间有限，数据库内数据太少，有待提高。示图样。由于时间有限，数据库内数据太少，有待提高。 主页面 菜库管理点菜页面留言界页面 各种界面名称和图片组合搭配 系统实现系统实现 登录模块的设计与实现登录模块的设计与实现 privateprivate subsub command1_click()command1_click() 登陆界面登陆界面 ifif text1.texttext1.text = = “ “铁大铁大“ “ andand text2.texttext2.text = = “110“110“ thenthen form1.hideform1.hide form2.showform2.show elseelse msgboxmsgbox “ “用户名或密码不正确用户名或密码不正确“,“, 48,48, “ “警告！警告！“ “ text1.setfocustext1.setfocus endend ifif text1.texttext1.text = = “:“: text2.texttext2.text = = “ endend subsub privateprivate subsub command2_click()command2_click() 退出退出 endend endend subsub privateprivate subsub form_load()form_load() 设置滚动条幅设置滚动条幅 timer1.enabledtimer1.enabled = = truetrue ：text2.passwordchartext2.passwordchar = = “*“*“ endend subsub privateprivate subsub timer1_timer()timer1_timer() 滚动字符滚动字符 ifif label1.leftlabel1.left + + label1.widthlabel1.width 0 0 thenthen label1.movelabel1.move label1.leftlabel1.left - - 5050 elseelse label1.leftlabel1.left = = form1.scalewidthform1.scalewidth endend ifif endend subsub 信息维护模块的设计与实现信息维护模块的设计与实现 privateprivate subsub command1_click()command1_click() 进入菜库进入菜库 form2.hide:form2.hide: form3.showform3.show endend subsub privateprivate subsub command2_click()command2_click() 进入点菜系统进入点菜系统 form2.hide:form2.hide: form4.showform4.show endend subsub privateprivate subsub command3_click()command3_click() 进入留言板进入留言板 form2.hide:form2.hide: form5.showform5.show endend subsub privateprivate subsub command4_click()command4_click() 返回登录页面返回登录页面 form2.hide:form2.hide: form1.showform1.show endend subsub privateprivate subsub command1_click()command1_click() 添加菜的信息到数据库添加菜的信息到数据库 ifif command1.captioncommand1.caption = = “ “添加添加“ “ thenthen command1.captioncommand1.caption = = “ “确定确定“ “ markmark = = data1.recordset.bookmarkdata1.recordset.bookmark data1.recordset.addnewdata1.recordset.addnew text1.setfocustext1.setfocus elseelse ifif text1.texttext1.text = = “ oror text2.texttext2.text = = “ oror text3.texttext3.text = = “ thenthen msgboxmsgbox “ “请输入数据请输入数据“,“, 48,48, “ “警告警告!“!“ 判断字符是否为空判断字符是否为空 exitexit subsub endend ifif command1.captioncommand1.caption = = “ “添加添加“ “ 使按钮回到添加状态使按钮回到添加状态 data1.recordset.updatedata1.recordset.update 调用调用 updateupdate 方法，保存添加的数据方法，保存添加的数据 endend ifif endend subsub privateprivate subsub command2_click()command2_click() 修改菜的信息修改菜的信息 ifif command2.captioncommand2.caption = = “ “修改修改“ “ thenthen command2.captioncommand2.caption = = “ “确定确定“ “ markmark = = data1.recordset.bookmarkdata1.recordset.bookmark data1.recordset.editdata1.recordset.edit text1.setfocustext1.setfocus elseelse command1.captioncommand1.caption = = “ “修改修改“ “ data1.recordset.updatedata1.recordset.update endend ifif endend subsub privateprivate subsub command29_click()command29_click() form3.hideform3.hide form2.showform2.show endend subsub privateprivate subsub command3_click()command3_click() 删除菜的信息删除菜的信息 dimdim m m asas stringstring m m = = msgbox(“msgbox(“确定删除？确定删除？“,“, 4 4 + + 256,256, “ “提醒！提醒！“)“) ifif m m = = vbyesvbyes thenthen data1.recordset.deletedata1.recordset.delete data1.recordset.movenextdata1.recordset.movenext ifif data1.recordset.eofdata1.recordset.eof thenthen data1.recordset.movelast:data1.recordset.movelast: msgboxmsgbox “ “已经是最后一个已经是最后一个 “,“, 48,48, “ “提示！提示！“ “ 如果是最后一个提示并返回最后一个如果是最后一个提示并返回最后一个 endend ifif endend subsub privateprivate subsub command4_click()command4_click() 返回第一个记录返回第一个记录 data1.recordset.movefirstdata1.recordset.movefirst endend subsub privateprivate subsub command5_click()command5_click() 返回上一个记录返回上一个记录 data1.recordset.movepreviousdata1.recordset.moveprevious ifif data1.recordset.bofdata1.recordset.bof thenthen data1.recordset.movefirstdata1.recordset.movefirst msgboxmsgbox “ “已经是第一个已经是第一个“,“, 48,48, “ “注意啦注意啦“ “ 如果已经是第一个提示如果已经是第一个提示 并返回第一个并返回第一个 endend ifif endend subsub privateprivate subsub command6_click()command6_click() 返回下一条记录返回下一条记录 data1.recordset.movenextdata1.recordset.movenext ifif data1.recordset.eofdata1.recordset.eof thenthen data1.recordset.movelastdata1.recordset.movelast msgboxmsgbox “ “已经是最后一个已经是最后一个“,“, 48,48, “ “注意啦注意啦“ “ 如果是最后一个提示并返回最后一个如果是最后一个提示并返回最后一个 endend ifif endend subsub privateprivate subsub command7_click()command7_click() data1.recordset.movelastdata1.recordset.movelast 返回最后一条记录返回最后一条记录 privateprivate subsub command1_click()command1_click() 点菜点菜 list1.additemlist1.additem text1.texttext1.text & & space(10)space(10) & & text2.texttext2.text 列表框内显示的信息列表框内显示的信息 endend subsub privateprivate subsub command2_click()command2_click() 退菜退菜 ifif list1.listindexlist1.listindex -1-1 thenthen x x = = list1.listindexlist1.listindex endend ifif mitemmitem = = list1.list(x)list1.list(x) list1.removeitemlist1.removeitem x x text3.texttext3.text = = val(text3.text)val(text3.text) - - val(text2.text)val(text2.text) 自动更新落单价格自动更新落单价格 endend subsub privateprivate subsub command37_click()command37_click() form4.hideform4.hide form2.showform2.show endend subsub privateprivate subsub command4_click()command4_click() 落单落单 当消费额达到一定的数量时自动弹出不同层次当消费额达到一定的数量时自动弹出不同层次 的抽奖对话框的抽奖对话框 sumsum = = val(text2.text)val(text2.text) text3.texttext3.text = = sumsum + + val(text3.text)val(text3.text) ifif val(text3.text)val(text3.text) = 150150 andand val(text3.text)val(text3.text) = 300300 thenthen form7.showform7.show 符合抽奖的条件符合抽奖的条件 endend subsub privateprivate subsub command5_click()command5_click() 查看肉菜信息查看肉菜信息 data1.recordsourcedata1.recordsource = = “select“select * * fromfrom 肉菜肉菜“ “ data1.refreshdata1.refresh endend subsub privateprivate subsub command6_click()command6_click() 查看素菜信息查看素菜信息 data1.recordsourcedata1.recordsource = = “select“select * * fromfrom 素菜素菜“ “ data1.refreshdata1.refresh endend subsub privateprivate subsub command7_click()command7_click() 查看汤类信息查看汤类信息 data1.recordsourcedata1.recordsource = = “select“select * * fromfrom 汤汤“ “ data1.refreshdata1.refresh endend subsub privateprivate subsub command8_click()command8_click() 查看主食信息查看主食信息 data1.recordsourcedata1.recordsource = = “select“select * * fromfrom 主食主食“ “ data1.refreshdata1.refresh endend subsub privateprivate subsub form_load()form_load() 设置控件颜色设置控件颜色 list1.backcolorlist1.backcolor = = rgb(100,rgb(100, 100,100, 10)10) sstab1.backcolorsstab1.backcolor = = vbbluevbblue list2.backcolorlist2.backcolor = = rgb(100,rgb(100, 50,50, 0)0) list3.backcolorlist3.backcolor = = rgb(50,rgb(50, 250,250, 50)50) list4.backcolorlist4.backcolor = = rgb(150,rgb(150, 50,50, 50)50) list5.backcolorlist5.backcolor = = rgb(0,rgb(0, 150,150, 50)50) text1.backcolortext1.backcolor = = vbredvbred text2.backcolortext2.backcolor = = vbredvbred text3.backcolortext3.backcolor = = vbredvbred text4.backcolortext4.backcolor = = vbredvbred text5.backcolortext5.backcolor = = vbredvbred text6.backcolortext6.backcolor = = vbredvbred text7.backcolortext7.backcolor = = vbredvbred text8.backcolortext8.backcolor = = vbredvbred text9.backcolortext9.backcolor = = vbredvbred text10.backcolortext10.backcolor = = vbredvbred text11.backcolortext11.backcolor = = vbredvbred text12.backcolortext12.backcolor = = vbredvbred text13.backcolortext13.backcolor = = vbredvbred text14.backcolortext14.backcolor = = vbredvbred text15.backcolortext15.backcolor = = vbredvbred text16.backcolortext16.backcolor = = vbredvbred text17.backcolortext17.backcolor = = vbredvbred text18.backcolortext18.backcolor = = vbredvbred text20.backcolortext20.backcolor = = vbredvbred endend subsub privateprivate subsub msflexgrid1_mousedown(buttonmsflexgrid1_mousedown(button asas integer,integer, shiftshift asas inger,inger, x x asas single,single, y y asas single)single) text1.texttext1.text = = msflexgrid1.textmatrix(msflexgrid1.row,msflexgrid1.textmatrix(msflexgrid1.row, 0)0) 提取数据库内第一提取数据库内第一 列的信息并显示在文本框里列的信息并显示在文本框里 text2.texttext2.text = = msflexgrid1.textmatrix(msflexgrid1.row,msflexgrid1.textmatrix(msflexgrid1.row, 1)1) 提取数据库内第二提取数据库内第二 列的信息并显示在文本框里列的信息并显示在文本框里 text4.texttext4.text = = msflexgrid1.textmatrix(msflexgrid1.row,msflexgrid1.textmatrix(msflexgrid1.row, 2)2) 提取数据库内第三列提取数据库内第三列 的信息并显示在文本框里的信息并显示在文本框里 picture1.picturepicture1.picture = = loadpicture(text4.text)loadpicture(text4.text) endend subsub privateprivate subsub list1_click()list1_click() ifif list1.listindexlist1.listindex -1-1 thenthen x x = = list1.listindexlist1.listindex endend ifif mitemmitem = = list1.list(x)list1.list(x) text1.texttext1.text = = left(mitem,left(mitem, 5)5) text2.texttext2.text = = mid(mitem,mid(mitem, 6,6, 3)3) endend subsub 以上是第一桌以上是第一桌 由于每桌的情况是一样的所以不再一一列举其他的由于每桌的情况是一样的所以不再一一列举其他的 privateprivate subsub command1_click()command1_click() 中消费抽奖中消费抽奖 dimdim m m asas integerinteger 随机产生随机产生 1-31-3 之间的数并对应不同奖品之间的数并对应不同奖品 m m = = int(rndint(rnd * * 3 3 + + 1)1) text1.texttext1.text = = m m selectselect casecase m m casecase 1 1 x x = = “ “心相印心相印“ “ casecase 2 2 x x = = “ “打火机打火机“ “ casecase 3 3 x x = = “ “精美纪念品精美纪念品“ “ endend selectselect text2.texttext2.text = = x x endend subsub privateprivate subsub command1_click()command1_click() 高消费抽奖高消费抽奖 dimdim m m asas integerinteger 随机产生随机产生 1-31-3 之间的数并对应不同奖品之间的数并对应不同奖品 m m = = int(rndint(rnd * * 3)3) + + 1 1 text1.texttext1.text = = m m selectselect casecase m m casecase 1 1 x x = = “ “精美水杯精美水杯“ “ casecase 2 2 x x = = “ “中南海。中南海。8“8“ casecase 3 3 x x = = “ “太阳伞太阳伞“ “ endend selectselect text2.texttext2.text = = x x endend subsub privateprivate subsub command1_click()command1_click() 保存留言保存留言 withwith commondialog1commondialog1 留言的地址及文件类型留言的地址及文件类型 .defaultext.defaultext = = “txt“txt“ .initdir.initdir = = “d:“d:课程设计课程设计 留言板留言板“ “ .filename.filename = = “ “留言留言.txt“.txt“ .filter.filter = = “ “文本文件文本文件|*.txt|all|*.txt|all files(*.*)|*.*“files(*.*)|*.*“ .filterindex.filterindex = = 1 1 .action.action = = 2 2 endend withwith openopen commondialog1.filenamecommondialog1.filename forfor outputoutput asas #1#1 printprint #1,#1, text1.texttext1.text closeclose #1#1 endend subsub privateprivate subsub command2_click()command2_click() 打开以往的留言打开以往的留言 form5.hideform5.hide form8.showform8.show endend subsub privateprivate subsub command3_click()command3_click() 返回主页返回主页 form5.hideform5.hide form2.showform2.show endend subsub privateprivate subsub combo1_click()combo1_click() file1.patternfile1.pattern = = combo1.textcombo1.text endend subsub privateprivate subsub command1_click()command1_click() 退出退出 endend endend subsub privateprivate subsub command2_click()command2_click() 返回留言板返回留言板 form5.showform5.show unloadunload meme endend subsub privateprivate subsub dir1_change()dir1_change() file1.pathfile1.path = = dir1.pathdir1.path endend subsub privateprivate subsub drive1_change()drive1_change() dir1.pathdir1.path = = drive1.drivedrive1.drive endend subsub privateprivate subsub file1_dblclick()file1_dblclick() 打开过往留言打开过往留言 dimdim s s asas stringstring openopen file1.pathfile1.path + + “ + + file1.filenamefile1.filename forfor inputinput asas #1#1 dodo whilewhile notnot eof(1)eof(1) lineline inputinput #1,#1, s s text1.texttex