VB点菜系统程序设计
VB菜单器教案
VB菜单编辑器教案教案章节：一、VB菜单编辑器概述二、创建菜单三、编辑菜单项四、添加菜单图像五、菜单事件处理一、VB菜单编辑器概述教学目标：1. 了解VB菜单编辑器的作用和功能。
2. 熟悉菜单编辑器的基本操作。
教学内容：1. 菜单编辑器的概念和作用。
2. 菜单编辑器的界面和功能。
3. 菜单编辑器的使用方法。
教学步骤：1. 介绍菜单编辑器的概念和作用。
2. 演示菜单编辑器的界面和功能。
3. 引导学生使用菜单编辑器进行菜单设计。
二、创建菜单教学目标：1. 学会使用菜单编辑器创建菜单。
2. 掌握菜单项的添加和删除方法。
教学内容：1. 创建菜单的基本步骤。
2. 添加和删除菜单项的方法。
教学步骤：1. 引导学生使用菜单编辑器创建新菜单。
2. 演示添加和删除菜单项的方法。
3. 让学生实践创建简单的菜单。
三、编辑菜单项教学目标：1. 学会编辑菜单项的属性。
2. 掌握编辑菜单项的方法。
教学内容：1. 菜单项属性的概念和作用。
2. 编辑菜单项的方法。
教学步骤：1. 介绍菜单项属性的概念和作用。
2. 演示编辑菜单项的方法。
3. 让学生实践编辑菜单项。
四、添加菜单图像教学目标：1. 学会为菜单项添加图像。
2. 掌握添加菜单图像的方法。
教学内容：1. 菜单项图像的概念和作用。
2. 添加菜单图像的方法。
教学步骤：1. 介绍菜单项图像的概念和作用。
2. 演示添加菜单图像的方法。
3. 让学生实践添加菜单图像。
五、菜单事件处理教学目标：1. 学会处理菜单事件。
2. 掌握菜单事件处理的方法。
教学内容：1. 菜单事件的概念和作用。
2. 菜单事件处理的方法。
教学步骤：1. 介绍菜单事件的concept and function.2. 演示menu event handling methods.3. 让学生practice handling menu events.六、VB菜单编辑器高级应用教学目标：1. 学会使用菜单编辑器创建复杂菜单。
Vb课程设计饭店点菜系统代码
Vb课程设计饭店点菜系统代码Vb课程设计饭店点菜系统代码Dim g As Single Private Sub Command1_Click()Data1.DatabaseName = "d:\菜品\素菜.mdb" Data1.RecordSource = "select * from 素菜" Data1.RefreshEnd SubPrivate Sub Command12_Click()Unload Form2Form4.ShowEnd SubPrivate Sub Command11_Click()End SubPrivate Sub Command13_Click()Unload Form1Form2.ShowEnd SubPrivate Sub Command14_Click()Unload Form1Form2.ShowEnd SubPrivate Sub Command15_Click()Unload Form1Form2.ShowEnd SubPrivate Sub Command2_Click()Data1.DatabaseName = "d:\菜品\荤菜.mdb" Data1.RecordSource = "select * from 荤菜" Data1.RefreshEnd SubPrivate Sub Command3_Click()Data1.DatabaseName = "d:\菜品\酒类.mdb"Data1.RecordSource = "select * from 酒类"Data1.RefreshEnd SubPrivate Sub Command4_Click()Data1.DatabaseName = "d:\菜品\汤类.mdb"Data1.RecordSource = "select * from 汤类"Data1.RefreshEnd SubPrivate Sub Command5_Click()Data1.DatabaseName = "d:\菜品\主食.mdb"Data1.RecordSource = "select * from 主食"Data1.RefreshEnd SubPrivate Sub Command6_Click()MsgBox "尊敬的顾客,恭喜您获得抽奖机会,请到抽奖板块中进行抽奖", vbInformation + vbOKOnly, "恭喜您"Data2.Recordset.AddNewText2.SetFocusData2.Recordset.UpdateCommand8.Enabled = FalseEnd SubPrivate Sub Command7_Click()Dim a, b As Integera = Len(Text1.Text)b = Len(Text2.Text) + Len(Text3.Text) + 1List1.AddItem Text1.Text & Space(18 - a * 2) & Text2.Text & "*" & Text3.Text & Space(18 - b) & Val(Text2) * Val(Text3)Dim c As Singlec = Val(Text2.Text) * Val(Text3.Text)Text5.Text = c + Val(Text5.Text)End SubPrivate Sub Command8_Click()If List1.ListIndex <> -1 Thenx = List1.ListIndexList1.RemoveItem xEnd IfText5 = Val(Text5) - gEnd SubPrivate Sub Form_Load()List1.AddItem " " & "菜名" & " " & "单价" & "*" & "数量" & " " & "总价"Text3.Text = 1MSFlexGrid1.ColWidth(1) = 16Combo1.AddItem "五百元以下"Combo1.AddItem "五百至一千元"Combo1.AddItem "一千至三千元"Combo1.AddItem "三千以上"End SubPrivate Sub List1_Click()If List1.ListIndex <> -1 Thenx = List1.ListIndexEnd IfDim e, f As Stringe = List1.List(x)Text1.Text = Left(e, 8)f = Right(e, 5)g = Val(f)End SubPrivate Sub MSFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)Text1.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 2)Text2.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 4)Picture4.Picture = LoadPicture(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 6)) End SubPrivate Sub Command9_Click()If Command9.Caption = "确认" ThenCommand9.Caption = "添加"mbookmark = Data3.Recordset.BookmarkData3.Recordset.AddNewText4.SetFocusElseIf Text6.Text = "" ThenMsgBox "留言内容不能为空！"Exit SubEnd IfCommand9.Caption = "确认"Data3.Recordset.UpdateEnd IfEnd SubPrivate Sub Combo1_Click()Select Case Combo1.TextDim intranum As Integer, i As Integer, j As Integer, a As IntegerCase "三千以上"RandomizeFor i = 1 To 1000intranum = Int(3 * Rnd) + 1a = 0For j = 1 To 10000a = a + 1Next jText1.Text = CStr(intranum) Text7.RefreshNext iText7.Text = CStr(intranum) Case "一千至三千元" RandomizeFor i = 1 To 1000intranum = Int(4 * Rnd) + 1a = 0For j = 1 To 10000a = a + 1Next jText1.Text = CStr(intranum) Text7.RefreshNext iText7.Text = CStr(intranum) Case "五百至一千元" Randomize For i = 1 To 1000intranum = Int(5 * Rnd) + 1a = 0For j = 1 To 10000a = a + 1Next jText1.Text = CStr(intranum) Text7.RefreshNext iText7.Text = CStr(intranum) Case "五百元以下" RandomizeFor i = 1 To 1000intranum = Int(6 * Rnd) + 1a = 0For j = 1 To 10000a = a + 1Next jText7.Text = CStr(intranum) Text7.RefreshNext iText1.Text = CStr(intranum) End SelectLabel10.Caption = "恭喜您！" Label10.FontName = "华文行楷" Label10.FontSize = 40Label10.ForeColor = vbRed End SubForm1抽奖Form4。
VBA应用实例：开发餐饮点菜单系统
VBA应⽤实例：开发餐饮点菜单系统VBA使⽤VBA开发餐饮点菜单系统基本要求1、选择桌位号；2、查看菜单；3、选菜；删菜；4、提交、⽣成菜单⽐如，请先欣赏下⾯这张菜单点击【点菜】后，出现下⾯这张丑陋的弹窗：可以看到，功能有：【选择桌位】【查看菜单】【加⼊菜单】【从菜单删除】【已选菜单】【提交菜单】然后噼⾥啪啦如下⼀顿操作：提交菜单后，我们看到了4号桌的菜单功能简陋⽆⽐，下⾯将贴出代码，先贴图，这样看起来⽐较清晰下⾯是窗体中的代码，图⽚看上去⽐较模糊（后⾯会贴出⽂字版），主要是看整体的样式窗体中的代码如下：Private Sub UserForm_Initialize()'菜单.RowSource = '菜单!C2:E29''引⽤表单内单元格的格式'caidan =Sheet2.Range('C2:D29')'For cai_i = LBound(caidan, 1) To UBound(caidan, 1)'菜单.AddItem'菜单.List(菜单.ListCount - 1, 0) = caidan(cai_i, 1)'菜单.List(菜单.ListCount - 1, 1) = caidan(cai_i, 2)'Next菜单.ColumnCount = 3 '列表框显⽰的列数已选菜单.ColumnCount = 4选择桌位号.RowSource = '菜单!F2:F51''或：选择桌位号.RowSource = '菜单!' & Range('F2:F51').AddressEnd SubPrivate Sub 查看菜单_Click()caidan = Sheet2.Range('C2:D29')For cai_i = LBound(caidan, 1) To UBound(caidan, 1)菜单.AddItem菜单.List(菜单.ListCount - 1, 0) = caidan(cai_i, 1)菜单.List(菜单.ListCount - 1, 1) = caidan(cai_i, 2)菜单.List(菜单.ListCount - 1, 2) = ''NextEnd SubPrivate Sub 从菜单删除_Click()For n = 0 To 已选菜单.ListCount - 1If 已选菜单.Selected(n) = True Then'遍历菜单，把即将从已选菜单中删除的菜的'√'去掉For n_caidan = 0 To 菜单.ListCount - 1If 菜单.List(n_caidan, 0) = 已选菜单.List(n, 0) Then菜单.List(n_caidan, 2) = ''Exit ForEnd IfNext'从已选菜单中删除已选菜单.RemoveItem (n)'ListBox.RemoveItem ⽅法，从列表中删除⼀⾏'格式：ListBox.RemoveItem(pvargIndex)，如果⽅法成功，则返回trueExit ForEnd IfNextEnd SubPrivate Sub 加⼊菜单_Click()'遍历菜单，如果被选中，则For i = 0 To 菜单.ListCount - 1If 菜单.Selected(i) = True Then'ListBox.Selected 属性，返回⼀个布尔值，指⽰listbox中项⽬的选择状态If 菜单.List(i, 2) <> '√' Then已选菜单.AddItem'先添加⼀个空⾏'⼀维数组或者单个元素，通过additem添加'ListBox.AddItem⽅法，向列表中添加项⽬已选菜单.List(已选菜单.ListCount - 1, 0) = 菜单.List(i, 0)已选菜单.List(已选菜单.ListCount - 1, 1) = 菜单.List(i, 1) '单价已选菜单.List(已选菜单.ListCount - 1, 2) = '1'已选菜单.List(已选菜单.ListCount - 1, 3) = 菜单.List(i, 1) '⾦额'⼆维数组，通过list添加菜单.List(i, 2) = '√''选过了的菜品，在原菜单中打钩ElseIf 菜单.List(i, 2) = '√' ThenFor i_already = 0 To 已选菜单.ListCount - 1If 菜单.List(i) = 已选菜单.List(i_already) Then已选菜单.List(i_already, 2) = 已选菜单.List(i_already, 2) + 1已选菜单.List(i_already, 3) = 已选菜单.List(i_already, 1) * 已选菜单.List(i_already, 2)ExitForEnd IfNextEnd IfEnd IfNextEnd SubPrivate Sub 提交菜单_Click()Set new_sheet =ThisWorkbook.Worksheets.Add'Set new_sheet = Worksheets.Addnew_ = 选择桌位号.Value & '号桌'new_sheet.Range('A1') = '菜名'new_sheet.Range('B1') = '单价'new_sheet.Range('C1') = '数量'new_sheet.Range('D1') = '⾦额'menu_num = 0menu_mon = 0'遍历已选菜单，在新表单中记录菜名、单价和数量For m = 0 To 已选菜单.ListCount - 1new_sheet.Range('A' & m + 2) = 已选菜单.List(m, 0) '菜名new_sheet.Range('B' & m + 2) = 已选菜单.List(m, 1) '单价new_sheet.Range('C' & m + 2) = 已选菜单.List(m, 2) '数量menu_num = menu_num + 已选菜单.List(m, 2)new_sheet.Range('D' & m + 2) = 已选菜单.List(m, 3) '⾦额menu_mon = menu_mon + 已选菜单.List(m, 3)Nexthuizong_row =new_edRange.Rows.Countnew_sheet.Range('A' & huizong_row + 1) = '汇总'new_sheet.Range('C' & huizong_row + 1) = menu_numnew_sheet.Range('D' & huizong_row + 1) = menu_monEnd Sub功能相当简陋同志仍需努⼒好书推荐最近中午在看的是《商君书》，篇幅很短，总共200页，也就100张。
VB教案(菜单设计)
VB菜单设计的未来发展趋势
智能化
随着人工智能和机器学习技术的不断发展，VB菜单设计将 更加智能化，能够根据用户的行为和习惯进行自适应调整， 提供更加个性化的使用体验。
动态化
动态化是未来VB菜单设计的一个重要趋势，通过实时获取 数据和信息，动态生成菜单项和功能，以满足用户不断变 化的需求。
交互性增强
访问常用功能。
菜单设计的原则
直观性
菜单设计应简单明了，易于理解和使用。选项和命令的名 称应清晰、准确，避免使用过于专业或晦涩难懂的术语。
简洁明了
菜单设计应简洁明了，避免过于复杂和混乱。选项和命令 的数量应适中，避免过多或过少。同时，菜单的布局和排 版应清晰、整洁，易于阅读。
分类合理
菜单中的选项和命令应根据功能和用途进行合理分类，以 便用户能够快速找到所需的功能。分类应遵循逻辑性和层 次性原则。
VB菜单设计的优点与不足
学习曲线陡峭
对于初学者来说，VB的语法和概 念可能较难理解和掌握，需要花
费较多时间和精力来学习。
维护成本高
由于VB的代码较为复杂，对开发 者的技能要求较高，因此对于大型 和复杂的应用程序，维护和更新成 本相对较高。
安全性问题
VB在安全性方面存在一些漏洞和隐 患，需要开发者特别注意和防范。
为了提高用户体验，VB菜单设计的交互性将不断增强，通 过丰富的交互方式和动画效果，使用户与应用程序的互动 更加自然和流畅。
感谢您的观看
THANKS
下拉菜单的设计
总结词
节省空间，提供更多选项
详细描述
下拉菜单是一种节省空间的菜单设计，用户可以通过点击一个按钮或菜单项来展开更多的选项。这种设计特别适 合在有限的空间内提供大量选项的情况。在设计时，应注意合理安排下拉菜单的深度和宽度，以便用户能够快速 找到所需选项。
VB点菜系统课程设计
VB点菜系统报告书摘要：本系统是顾客与饭店沟通的桥梁，顾客可以通过它实现对菜品酒水的浏览，集点菜、退菜、留言、抽奖于一体的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.2完成该此题用到数据结构和知识点用了文件的一些基本操作，如打开、访问、读写等操作以及EOF函数等，还有到了timer控件，利用timer控件完成滚动字幕，也用到了用到了picturebox以及用picturebox加载图片，用到还有加载图片时用到的相对路径app.path等。
二．系统功能需求分析2.1系统概述系统可以分类浏览饭店的所有菜式、酒水图片及价格；进行点菜操作后能预览点菜结果，并可对其进一步修改如退菜等。
当顾客的消费达到指定金额时，可以参与抽奖活动，顾客可以直接留言，系统具有记录顾客的意见和建议并具有浏览功能。
VB课程设计餐饮管理系统
VB课程设计餐饮管理系统餐饮管理系统是现代餐饮业中不可或缺的一部分。
它可以为餐饮店提供全面的管理服务，从管理菜单、库存、销售、员工、顾客到财务等方面。
为了更好地学习和应用餐饮管理系统，我们选择了VB作为编程语言，在VB中设计了一套餐饮管理系统。
该系统主要分为三个功能模块：订单管理、库存管理和财务管理。
第一部分：订单管理订单管理模块的主要功能是处理客户的订单信息，包括预定、堂食和外卖。
在该功能模块中，我们首先需要建立一个订单信息数据库，包括订单编号、订单日期、订单状态、用餐方式、下单时间、总价等信息。
然后，在订单页面中，我们需要实现菜品的添加、删除和修改等功能。
此外，我们还需要添加一个实时查询功能，方便查看订单状态和订单信息。
第二部分：库存管理库存管理是餐饮管理系统中最重要的一个模块，它负责管理存货信息、采购信息、销售信息和库存信息。
在该功能模块中，我们需要建立一个库存信息数据库，包括库存商品名称、进货时间、采购数量、商品分类、库存数量等信息。
此外，我们还需要添加一个采购管理功能，负责记录商品采购信息。
还需要添加一个销售管理功能，负责记录商品销售信息。
最后，我们需要设计一个统计页面，显示每个商品的销售情况和库存情况，并可以进行货物调拨和盘点等操作。
第三部分：财务管理财务管理是餐饮管理系统中最重要的一个模块之一，它负责管理财务收支和财务报表等信息。
在该功能模块中，我们需要建立一个财务信息数据库，包括银行账户信息、收入信息、支出信息和财务报表信息等。
此外，我们还需要添加一个收入管理功能，记录所有收入相关信息。
还需要添加一个支出管理功能，记录所有支出相关信息。
最后，我们需要设计一个报表功能，用于生成财务报表，并可以进行查看和打印等操作。
总结综上所述，我们在VB中设计了一套餐饮管理系统，包括订单管理、库存管理和财务管理三个模块。
通过该系统，可以方便地管理餐饮店的订单和库存，并生成详细的财务报表。
此外，该系统的界面简洁明了，易于使用，是一款非常优秀的餐饮管理系统。
VB饭店菜式管理系统课程设计
VB程序设计及数据库应用课程设计题目饭店菜式管理系统课程名称 VB程序设计及数据库应用课程设计专业工业工程学号姓名指导教师目录1.选题的意义 (1)1.1 选该题目的原因 (1)1.2 完成此题目用到的数据结构和知识点 (1)2.系统功能简介 (2)2.1登录 (2)2.2菜式管理系统 (2)2.3 菜式浏览 (2)2.4点菜系统 (2)3. 概要设计 (2)3.1 各模块之间关系 (3)3.2 各模块流程图 (3)4.系统实现 (4)4.1 主界面 (4)4.2 登录、注册、修改密码 (5)4.3 菜式管理界面 (8)4.4 菜式浏览界面 (11)4.5 点菜界面 (16)5.总结 (17)5.1 疑难点 (17)5.2 体会 (18)参考文献： (18)1.选题的意义1.1 选该题目的原因通过对饭店菜式管理系统的程序设计，了解软件开发基本步骤，诸如问题分析、系统设计、程序编码、测试等基本方法和技能。
本程序可实现顾客点菜，按菜名、价格、菜系浏览菜式功能，同时饭店内部人员可以通过该程序对菜式添加、删除、修改功能。
1.2 完成此题目用到的数据结构和知识点数据结构：通过可视化数据管理器可以进行数据库操作。
建立数据库：启动可视化数据管理器，创建数据库，创建数据库表，然后编辑数据库。
知识点：Access技术：可以开发关系数据库，数据库能汇集各种信息以供查询、存储和检索。
数据库(Database)是由一些有意义和有关系的数据(data)所组合而成。
一个数据库中，包含了许多条记录(Record),而每条记录是由多个字段(Field)所组成,不同的字段存放这不同的数据。
所以数据库的严格定义是一组相关记录的集合，而字段则是最基本的数据项，也是数据库中最小的单位。
在计算机中用来帮我们管理数据库的系统，我们称之为数据库管理管理系统（Database Management System DBMS）。
数据库管理系统是架构在一个或多个数据库之上，并针对数据库中的数据进行管理运用。
饭店点菜系统vb课程设计报告
饭店点菜系统vb课程设计报告饭店点菜系统VB课程设计报告一、前言这是针对饭店点菜系统VB课程设计项目的报告。
本次课程设计主要目的是为了提高学生设计和编码能力，加深对VB编程语言的理解和掌握程度，同时也是为了实现一个有效的饭店点菜系统。
二、需求分析点菜系统是一项用于快速提供菜品选择和服务的系统，旨在帮助顾客快速点菜，并且提高餐厅的效率。
基于以上的需求，我们就需要实现以下的功能：1. 系统需要提供菜品信息，并且能够按照类别和价格进行区分；2. 顾客可以选择菜品，并且系统能够实现点菜的快速和方便；3. 系统需要支持进入结算功能，包括结算和清除菜品等；4. 系统还需要有相关的报表功能，能够辅助餐厅管理者进行统计和分析。
三、系统设计1. 系统架构整个系统是由客户端和服务器端组成的，它们通过网络连接进行通信。
用户最终在客户端上实现功能的操作，这些操作被发送到服务器端，并且在数据库中进行实现。
通过这个架构，系统既保证了在不同客户端上的一致性，也能够实现系统的快速响应。
2. 数据库设计数据库是整个饭店点菜系统的核心部分，它包括餐厅基本信息和菜品信息。
其中，餐厅信息主要用于餐厅管理者对餐厅信息的管理，包括餐厅基本信息（餐厅名、地址、电话等）和菜品信息。
菜品信息则主要包括菜品名称、价格、口味和菜品类别等详细信息。
3. 界面设计界面设计是整个系统的重要部分，也是用户进行操作的主要入口。
通过一个简单的、直观的界面模式，使用户能够快速地查找到自己所需要的菜品，并且点菜也更加方便快捷。
四、系统实现本系统的开发主要基于VB编程语言和SQL Server数据库进行实现。
整个系统分为客户端和服务器端两部分，客户端是用户进行操作的主要入口，服务器端则实现了整个系统的后台管理以及对用户请求的处理。
具体的实现中，我们使用了VB的窗体设计和控件布局，对于复杂的菜单，我们使用了TreeView控件展现，同时使用了ListView和MenuStrip等控件对整个系统进行了功能和界面的实现。
vb课程设计报告,点菜系统
石家庄铁道大学课程设计饭店点菜管理系统单位工程力学分院（系）专业工程力学学号学生姓名指导老师完成日期年月日民以食为天，改革开发以来我国经济飞速发展，人民生活水平不断提高。
我国餐饮行业也呈现一派繁荣局面，去饭店就餐的人越来越多，交易金额快速上升。
为了适应餐饮行业的快速发展，方便人民就餐生活，促进餐饮行业的正常有序发展，减少餐馆的管理成本，帮助管理者更方便有效研究餐馆的经营状况，减少不必要的损失，提高利润。
本组特意开发款饭店点菜管理软件系统，帮助饭店管理人员更快更好更有效管理和处理餐饮数据，提高管理工作效率。
本款饭店点菜管理软件系统充分应用数据库技术和VB软件开发功能，解决了很多数据管理中的问题，具有较强的使用价值。
具有以下优点：简单易学，方便操作，可视化好，可以帮助管理者更好管理餐饮数据，经营餐馆。
关键词：点菜系统，管理，数据库技术，VB1.选题的意义 (1)2.系统功能需求分析……………………………………………………2.1系统概述…………………………………………………………………………2.2系统的组成及各模块的功能………………………………………………2.3系统的运行环境………………………………………………3系统设计…………………………………………………………………3.1总体结构设计………………………………………………………………3.2数据库设计………………………………………………………………4系统实现…………………………………………………………………4.1登陆模块的设计与实现…………………………………………………4.2其他（如学生信息模块）模块的设计与实现…………………………………5.总结……………………………………………………………………5.1总结………………………………………………………………5.2存在的主要问题………………………………………………………………参考文献………………………………………………………………饭店点菜管理系统软件设计一．选题的意义伴随我国经济的快速发展，人民生活水平的不断提高，餐饮行业亦欣欣向荣。
VB饭店点菜系统
课程设计报告书单位：专业：学号：学生姓名：指导老师：完成日期 2011年8月2日摘要现在的多数餐厅仍采用人工完成点菜、查菜等工作，这样需要大量的手工工作，而且完成的速度慢，人力多，时不时还会出错，导致工作效率低，造成不必要的损失。
为了节省时间及人力，避免出错，我们两个同学共同完成了这个饭店点菜系统。
本论文目的在于在现代餐厅管理制度上，建立科学的计算机餐饮管理系统数据库，用计算机代替大量的人力劳作，提高工作效率及管理水平，促进餐饮自动化，从而适应当今科技的发展的需求。
顾客可以通过本系统实现对菜品的浏览，集点菜、退菜、留言、抽奖于一体的VB多窗体应用程序。
它人性化、操作简单方便，能适应商家与顾客的同时两重需要。
关键词：VB6.0 ，饭店点菜系统， Access数据库，目录1.选题的意义 (4)2.题目相关要求 (5)3.功能描述 (6)4.工作流程 (7)5.详细设计 (8)6.总结 (31)6.1存在的问题及不足 (31)6.2心得体会 (31)参考文献 (32)一、选题的意义我选择这个题目一方面是切身经历使然，曾经在酒店当过服务员，餐厅需要的人力物力较大且效率不高，也是设身处地的想法；另一方面则是VB兴趣使然，自己VB知识基础不牢，饭菜系统里有基本语句、timer控件的用法、Access 数据库、组件的选择跟一些渐渐接触的EOF函数、相对路径app.path等知识的结合，可以说是比较综合，具有挑战的实验吧。
二、题目相关要求1.课程设计题目饭店点菜系统2.本次课程设计应达到的目的通过该题目的设计，使学生掌握软件开发过程饿问题分析、系统设计、程序编码、等基本方法和技能；掌握利用VB开发数据库系统的方法3.本次课程设计任务的主要内容和要求（包括原始数据、技术参数、设计要求等）主要功能有：菜式浏览功能：能分类浏览饭店的所有菜式、采样及价格；点菜功能：进行点菜操作后能预览点菜结果，并可对其进一步修改；留言板功能：记录顾客的意见和建议，并具有浏览功能；抽奖功能：当顾客的消费达到指定金额时，可分档抽取小奖品要求：（1）2~3人完成（2）用数据库或文件保存相关信息4.进度安排. 第1天：选题、查阅资料Ⅱ. 第2天：确定设计方案；Ⅲ. 3 -8天：方案的实现、调试与验证；Ⅳ. 9-10天：撰写课程设计报告初稿并修改；三、功能描述1.主界面：迎接功能、点菜功能、菜品管理2.点菜系统：查询、菜品浏览、点菜、落单结账3.留言板界面：留言功能4.抽奖系统：随机滚动抽奖功能、退出5.菜品管理系统：登陆、查询、增删菜品、改菜四、工作流程五、详细设计5.1.界面设计登陆界面需要满足顾客点菜与管理者对菜品管理的双重功能即既可让顾客快速进入点菜界面，又要使管理者通过输入账号密码进如进行菜品的管理，如下：<登录界面>顾客进入点菜界面，管理者的管理界面如下：<点菜界面>顾客通过对菜品的浏览看菜样菜价、点菜退菜、品尝落单。
vb课程设计点菜
vb 课程设计点菜一、教学目标本节课的学习目标包括以下三个方面：1.知识目标：学生需要掌握VB编程语言的基本语法和控制结构，了解面向对象编程的基本概念。
2.技能目标：学生能够运用VB编程语言实现简单的点菜系统，培养学生的编程能力和解决问题的能力。
3.情感态度价值观目标：通过本节课的学习，学生能够培养对编程的兴趣，增强自信心，培养团队协作和自主学习能力。
二、教学内容本节课的教学内容主要包括以下几个部分：1.VB编程语言的基本语法和控制结构，如变量、数据类型、条件语句、循环语句等。
2.面向对象编程的基本概念，如类、对象、属性、方法等。
3.点菜系统的需求分析、设计、实现和测试。
三、教学方法为了达到本节课的教学目标，我们将采用以下几种教学方法：1.讲授法：讲解VB编程语言的基本语法和控制结构，面向对象编程的基本概念。
2.案例分析法：通过分析实际案例，让学生了解点菜系统的实现过程，培养学生的编程能力和解决问题的能力。
3.实验法：让学生动手实践，编写VB程序实现点菜系统，培养学生的实际操作能力。
四、教学资源为了支持本节课的教学内容和教学方法的实施，我们将准备以下教学资源：1.教材：《VB编程基础》2.参考书：《VB编程实例解析》3.多媒体资料：教学PPT、视频教程4.实验设备：计算机、网络环境以上是本节课的教学设计，希望能够帮助学生更好地学习和掌握VB编程语言，培养学生的编程能力和解决问题的能力。
五、教学评估本节课的教学评估将采用以下几种方式：1.平时表现：通过观察学生在课堂上的参与程度、提问回答等情况，评估学生的学习态度和积极性。
2.作业：布置相关的编程作业，评估学生的编程能力和对知识的掌握程度。
3.考试：安排一次考试，测试学生对VB编程语言和点菜系统实现的掌握程度。
评估方式将客观、公正地全面反映学生的学习成果，帮助学生了解自己的学习情况，提高学生的学习动力和效果。
六、教学安排本节课的教学安排如下：1.教学进度：按照教学大纲和教材的章节顺序进行教学，确保在有限的时间内完成教学任务。
点餐系统vb课程设计
点餐系统vb课程设计一、课程目标知识目标：1. 学生能够理解点餐系统VB程序的基本结构，掌握其功能模块的使用方法；2. 学生能够运用VB语言实现点餐系统的基本功能，如菜单显示、菜品选择、数量增减、价格计算等；3. 学生了解数据库在点餐系统中的应用，并能够运用数据绑定控件实现数据的显示与存储。
技能目标：1. 学生能够独立设计并实现一个简单的点餐系统，运用VB编程技能解决实际问题；2. 学生通过课程学习，掌握程序调试与优化技巧，提高程序编写能力；3. 学生能够运用已学知识，结合实际需求，为点餐系统添加新的功能模块。
情感态度价值观目标：1. 学生通过点餐系统VB课程设计，培养编程兴趣，增强对计算机科学的热爱；2. 学生在团队合作中学会沟通与协作，培养团队精神，提高解决问题的能力；3. 学生关注现实生活中计算机技术的应用，认识到编程对解决实际问题的价值。
课程性质：本课程为实践性较强的课程，以项目为导向，结合实际应用场景，培养学生的编程能力和实际操作能力。
学生特点：学生具备一定的VB语言基础，对编程有一定了解，但对实际项目开发尚缺乏经验。
教学要求：教师应关注学生的个体差异，因材施教，引导学生运用已学知识解决实际问题，提高学生的编程能力和创新意识。
同时，注重培养学生的团队协作能力，提高学生的综合素质。
通过课程目标的分解，确保学生能够达到预期的学习成果，为后续的教学设计和评估提供依据。
二、教学内容1. 点餐系统需求分析：介绍点餐系统的功能模块，分析系统需求，让学生了解课程项目背景和实际应用场景。
2. VB程序设计基础：回顾VB编程基础知识，包括数据类型、变量、常量、运算符、控制结构等，为后续编程打下基础。
3. 界面设计：讲解如何使用VB控件设计用户界面，包括菜单界面、点餐界面等，以及如何实现界面间的切换。
4. 数据库应用：介绍数据库在点餐系统中的应用，教授使用Access数据库进行数据存储和管理，以及如何通过数据绑定控件实现数据的显示与操作。
vb语言写点餐系统课程设计
vb语言写点餐系统课程设计一、课程目标知识目标：1. 让学生掌握VB语言的基本语法和程序结构，能运用所学知识编写简单的点餐系统程序。
2. 让学生理解点餐系统的功能需求，学会分析问题、设计算法并实现功能模块。
技能目标：1. 培养学生运用VB语言进行程序设计的能力，提高编程实践技能。
2. 培养学生分析问题、解决问题的能力，提高逻辑思维和创新能力。
情感态度价值观目标：1. 培养学生对计算机编程的兴趣和热情，激发学习积极性。
2. 培养学生团队协作意识，学会与他人共同探讨、解决问题。
3. 培养学生关注社会生活，了解信息技术在实际应用中的价值。
课程性质：本课程为实践性较强的课程，旨在通过VB语言编程实现点餐系统，让学生在实际操作中掌握编程知识和技能。
学生特点：学生具备一定的计算机操作基础，对VB语言有初步了解，但对程序设计方法和技巧掌握不足。
教学要求：结合学生特点和课程性质，注重理论与实践相结合，强化编程实践，培养学生实际操作能力和问题解决能力。
通过课程学习，使学生在知识、技能和情感态度价值观方面取得具体的学习成果。
二、教学内容1. VB语言基础回顾：变量、数据类型、运算符、控制结构（顺序、选择、循环）。
2. VB界面设计：窗体、控件的基本属性和事件，菜单设计。
3. 点餐系统功能分析：需求分析，模块划分，功能描述。
4. 点餐系统数据库设计：数据表设计，数据访问对象（DAO）的使用。
5. 点餐系统功能实现：点餐、查看菜单、下单、结账等模块的编程实现。
6. 点餐系统测试与优化：测试用例设计，系统性能优化。
7. 项目总结与展示：总结编程过程中的经验教训，展示作品，互相评价。
教学内容安排与进度：第1周：VB语言基础回顾，熟悉开发环境。
第2周：VB界面设计，学习窗体和控件的使用。
第3-4周：点餐系统功能分析，进行数据库设计。
第5-6周：点餐系统功能实现，编写程序代码。
第7周：点餐系统测试与优化，完善系统功能。
第8周：项目总结与展示，进行作品交流和评价。
点菜单程序vb课程设计
点菜单程序vb课程设计一、课程目标知识目标：1. 让学生掌握VB编程语言中数组、循环和条件语句的基本概念和应用。
2. 使学生了解点菜单程序的逻辑结构和功能模块。
3. 帮助学生理解如何使用VB编写具有图形用户界面的程序。
技能目标：1. 培养学生运用VB编程语言解决实际问题的能力。
2. 提高学生分析需求、设计程序结构、编写代码、调试程序的综合技能。
3. 培养学生团队协作、沟通表达的能力。
情感态度价值观目标：1. 培养学生对计算机编程的兴趣和热情，激发主动学习的动力。
2. 培养学生严谨、细致、负责的工作态度，养成良好的编程习惯。
3. 培养学生面对问题敢于挑战、勇于创新的精神。
课程性质：本课程为实践性较强的计算机编程课程，以项目为导向，注重培养学生的实际操作能力和团队协作能力。
学生特点：学生具备一定的计算机操作基础，对VB编程有一定了解，但实际编程经验不足。
教学要求：结合学生特点，课程设计应注重理论与实践相结合，充分调动学生的积极性，引导学生主动参与，培养实际编程能力。
通过课程学习，使学生能够独立完成点菜单程序的编写和调试。
二、教学内容1. VB编程基础回顾：变量、数据类型、运算符、数组。
2. 控制结构：顺序结构、循环结构（For、While）、条件结构（If、Select Case）。
3. 界面设计：窗体、控件（按钮、文本框、列表框等）、菜单。
4. 事件处理：鼠标事件、键盘事件、控件事件。
5. 点菜单程序设计：- 需求分析：了解点菜单程序的功能和用户需求。
- 程序结构设计：模块划分、功能描述、界面布局。
- 编程实现：编写代码实现各模块功能，如添加菜品、删除菜品、计算总价等。
- 调试与优化：测试程序，查找并修复错误，优化用户体验。
6. 项目实践：分组进行点菜单程序的开发，培养学生的团队协作能力和实际编程能力。
教学内容安排和进度：1.VB编程基础回顾（1课时）2.控制结构（2课时）3.界面设计（2课时）4.事件处理（2课时）5.点菜单程序设计（5课时）- 需求分析（1课时）- 程序结构设计（2课时）- 编程实现（2课时）6.调试与优化（2课时）7.项目实践（4课时）教材章节关联：《VB程序设计》第3章 变量与数据类型第4章 控制结构第5章 界面设计第6章 事件处理第7章 数组第8章 文件操作（可选）三、教学方法1. 讲授法：在课程初期，针对VB编程基础知识和新概念，采用讲授法进行教学。
-vb点菜系统-课程设计报告书
基于ＶＢ６.０饭店点菜系统设计单位分院(系)专业学号学生姓名指导教师完成日期 2011年 8 月 31日摘要进行点菜是饭店为顾客服务的重要环节之一。
传统的点菜环节由于是手工操作，工作量大且容易出错。
随着计算机和网络技术的迅速发展，越来越多的饭店、酒店都拥有自己的点菜系统，制作一个方便、快捷的点菜系统能使点菜环节显得更加美观且便于操作。
饭店点菜系统技术基础是VB6.0，它有许多优点，例如：“编写一次、随处运行”的特性、方便存取数据的数据库, 使用者只需在窗体上进行操作而不用关心程序代码等等。
饭店点菜系统提供给顾客一个用来满足高可用性、高可靠性以及可扩展性的应用需求的软件，给饭店点菜提供了良好的机制、使饭店的工作流程更加顺利。
本文基于VB6.0，采用多窗体结构,设计并实现了顾客在饭店消费时的点菜、结账、抽奖、留言及工作人员管理等多项功能。
本文首先介绍了软件设计涉及的相关技术，围绕VB6.0的相关技术进行软件的解释。
其次，介绍了饭店点菜系统的总体分析与设计，包括需求分析、功能模块分析和数据库设计。
最后，对于主要功能进行了实现，并作了详细描述，主要采用图片与代码结合的方式详细地叙述了系统功能的实现。
关键词：文件、数据库、控件使用、图片载入目录1.选题的意义...................................................2.系统功能分析。
2.1系统概述。
2.2系统的组成及各模块的功能 ...........................................2 .3系统运行环境。
3．系统设计 ...................................................3.1总体结构设计.......................................................3.2数据库设计......................................................... 4．系统实现 ...................................................4.1点菜系统的设计与实现 ...............................................4.2管理系统模块的设计与实现 ...........................................5．总结.......................................................5.1总结................................................................5.2致谢词 .............................................................5.3存在的主要问题...................................................... 参考文献......................................................第1章选题的意义能够使饭店的点菜环节由传统的纯人工操作变为方便、快捷的计算机操作对于减少饭店的人力调配、减少操作流程、提高工作效率具有重要意义，将点菜环节依附于计算机的操作体现了高效、安全、快捷的高科技成果。
VB点餐系统设计
VB点餐系统设计在现实生活中，小型餐饮门店或中高档餐厅的管理大多都还停留在人工管理水平上，店家使用传统人工记录文件档案，这样的管理方式存在着很多缺点，比如:工作效率低、容易记录出错，另外时间过长时候 ,将可能产生大量的数据文件，这对于日后的数据文件查找、更新和维护都带来了很多的困难。
点餐系统是将管理信息系统融入餐饮行业管理之中，它通过查询和浏览菜方式，为消费者提供便捷的点菜通道。
信息化点餐系统简单易学，使消费者无需任何指导，即可进行点菜操作。
一般情况下是让顾客自行使用手机、平板和电脑等电子工具进行点菜，也可以是由顾客说着菜名，由服务员使用点餐系统设备进行点菜。
这样更方便快捷，避免出错。
点餐系统比传统人工点餐有以下几大优点：1、虽然传统纸制菜谱成本比电子菜谱便宜，但是传统菜谱需要长时间更替，所以使用点餐系统能降低成本。
2、传统点餐是由纸张记录菜名。
使用点餐系统，由信息管理系统记录点餐，可以避免不必的纸张浪费，为保护环境尽一份力。
3、使用点餐系统，店家可以随时添加新菜，变动价格，调整适时菜品，方便客人用餐。
4、本系统还带有留言功能，客人可以根据之前客人的对某些菜品的评价点菜，从而选择自己喜欢的菜。
5、餐厅顾客点菜可以和厨房做到同步，即客人点餐结束时就可以立马下单到厨房，厨房可以根据菜单立马做菜，提高效率，而且菜价不会搞错。
另外，当厨房做完菜后，可以立即找工作人员上菜，餐厅和厨房做到了双向沟通。
6、作为新兴的点餐系统，它的出现迎合了当下时髦的消费潮流，提升了餐厅的形象，使顾客感受到餐厅的现代时尚潮流元素。
用信息管理系统包装餐厅，是餐厅走向信息化，打造餐厅品牌。
7、电子点餐系统实现了从点菜、传菜、上菜全程自动化，方便顾客，也方便了餐厅自己，使餐厅和顾客做到了双赢。
同时，系统的顾客留言系统也可以给店家找到自身的缺点从而改正，以及厨师研发和改进新菜，进而完善餐厅。
1 设计目的与要求1.1 设计目的 (2)1.2 设计要求 (2)2 软件介绍2.1 各模块介绍 (2)2.2 各模块关系 (3)3 系统结构和程序3.1 筑梦小窝 (4)3.2 我为吃狂 (5)3.3 静候佳音 (9)3.4 指手画脚 (10)3.5 千里飘香 (12)4 心得体会 (14)5 参考文献 (14)1 设计目的与要求1.1 设计目的基于VB的点餐系统设计与实现是为了帮助店家管理好，减少不必要的损失，提高收益，减轻工作压力，提高工作效率。
点菜系统
vb程序设计饭店点菜系统(2010-07-24 12:02:43)转载▼vb程序设计饭店点菜系统部分代码，点菜界面和登陆界面，还可以自由发挥，弄些背景音乐。
《Visual Basic程序设计》课程设计报告课程设计题目：饭店点菜系统姓名：专业：班级：学号：指导老师：2010年6月18日摘要饭店点菜系统是用ＶＢ编写的一款软件，顾客可以分类浏览饭店的所有菜式、采样及价格并进行点菜，操作后能预览点菜结果，并可对其进一步修改；留言板能够记录顾客的意见和建议，并具有浏览功能；当顾客的消费达到指定金额时，可分档抽取小奖品。
饭店管理者可以通过登录系统进入到对菜品管理的界面，在此可以对菜品进行添加，删除，修改以及对历史消费记录金额的查看。
此软件主要用于饭店管理系统，有利于提高饭店工作效率。
目录封面 (1)内容摘要 (2)目录 (2)－、题目要求、目的及分工 (3)二、功能描述 (4)三、概要设计 (5)四、详细设计……………………………………… 6--11五、存在的问题及不足 (12)六、心得体会 (13)七、附录……………………………………－、题目要求、目的及分工１、本次课程设计任务的主要内容和要求（包括原始数据、技术参数、设计要求等）（１）主要功能有：菜式浏览功能：能分类浏览饭店的所有菜式、采样及价格；点菜功能：进行点菜操作后能预览点菜结果，并可对其进一步修改；留言板功能：记录顾客的意见和建议，并具有浏览功能；抽奖功能：当顾客的消费达到指定金额时，可分档抽取小奖品。
（２）要求：①2~3人完成②用数据库或文件保存相关信息２、本次课程设计应达到的目的通过该题目的设计，使学生掌握软件开发过程的问题分析、系统设计、程序编码、测试等基本方法和技能；掌握利用VB开发数据库系统的方法３、分工点菜界面：留言板：抽奖系统：菜品管理：二、功能描述1.运行打开饭店点菜系统，进入主界面。
两个按钮可以分别进入点菜系统和菜品管理系统。
2.点菜系统此页面分为三个板块：点菜；顾客留言；参加抽奖。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
课程设计课程程序设计班级08自Y2 姓名冯波学号********一、功能描述：菜式浏览功能：能分类浏览饭店的所有菜式、采样及价格；点菜功能：进行点菜操作后能预览点菜结果，并可对其进一步修改；二、概要设计：三、详细设计：1.登陆界面单击“菜谱”进入点菜系参数确定：在命令按钮的属性窗口确认其caption属性2、点菜界面该界面包含菜系浏览、点菜、减菜、提交菜单等功能。
点菜：分别点击菜系，再选择菜可以在下面的文本框中等显示；减菜：选中要删除的菜，单击删除；提交菜单：单击提交菜单，如果消费达到一定金额，可以抽奖；加菜：顾客还可以继续点菜。
代码窗口设置功能：1、与数据库连接：2、点菜：3、减菜并确定总消费：4、提交菜单抽奖功能：四、效果：五、心得体会经过两周周的VB课程设计，我解决实际问题的能力提高了并学会了自主学习，自我提高和自我完善，用已学过VB知识及的自学数据库技术编写程序。
程序设计期间，遇到问题自己思考并积极去解决，也向同学，老师和网络寻求帮助，在编程过程中，我们就遇到了连接数据库，提取数据等问题。
经过集思广益后，我们的收获很大，不仅解决了问题，还明白了互助的团队精神。
课程设计让我们学习与实践相结合，加深了了我们对书本知识的理解能力，学以致用。
锻炼了我的自主学习能力及创新能力。
在今后的学习中，还要继续加强自主学习与实践的锻炼。
最后，向帮助我的老师和同学表示衷心的感谢。
六、附录：附上各功能模块的主要代码Form1：Private Sub Label2_Click()Me.HideForm7.ShowEnd SubPrivate Sub Label3_Click()Dim a As Integera = MsgBox("确定退出整个程序？", 49, "注意")If a = 1 ThenEndElseMe.ShowEnd IfEnd SubPrivate Sub Label4_Click()Me.HideForm2.ShowEnd SubPrivate Sub Label5_Click()Me.HideForm4.ShowEnd SubForm2：Private Sub Form_Load()Text1(0).Text = ""Text2(2).Text = ""Text3(1).Text = ""Text5.Text = ""Label13.Enabled = FalseLabel14.Enabled = FalseLabel15.Enabled = FalseDim cnn As New ADODB.Connectioncnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\my own workers^_^\works\信息系统课程设计\课程设计-vb\程序设计\数据库\菜谱.mdb;Persist Security Info=False"Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\my own workers^_^\works\信息系统课程设计\课程设计-vb\程序设计\数据库\菜谱.mdb;Persist Security Info=False"End SubPrivate Sub Label12_Click()Dim cx As StringDim cm As StringDim jg As Integercx = Text1(0).Textcm = Text2(2).Textjg = Val(Text3(1).Text)List1.AddItem "菜系：" & cx & " 菜名：" & cm & " 价格：" & jgText4(1).Text = jg + Val(Text4(1).Text)Label13.Enabled = TrueLabel14.Enabled = TrueEnd SubPrivate Sub Label13_Click()Dim E, f As StringDim i As IntegerDim X As IntegerIf List1.ListIndex <> -1 ThenX = List1.ListIndexE = List1.List(X)End Iff = Right(E, 2)g = Val(f)For i = (List1.ListCount - 1) To 0 Step -1If List1.Selected(i) = True ThenList1.RemoveItem iText4(1).Text = Val(Text4(1).Text) - gEnd IfNext iIf List1.ListCount = 0 ThenText4(1).Text = ""End IfEnd SubPrivate Sub Label14_Click()Dim m As IntegerDim n As VariantDim i, j, p As IntegerIf Val(Text4(1).Text) >= 100 Thenm = MsgBox("提交成功！" & Chr(10) & Chr(13) & "您获得一次抽奖机会" & Chr(10) & Chr(13) & "是否确认抽奖？", 4)ElseIf List1.ListCount = 0 ThenMsgBox ("未点菜！")ElseMsgBox ("提交成功！")End Ifn = Array("恭喜您获得哆啦a梦", "恭喜您获得精美一台精美小风扇", "很抱歉，您未抽中", "恭喜您获得本店20元优惠券")RandomizeIf m = 6 Theni = Int(3 * Rnd + 1)Select Case iCase 1MsgBox (n(1))Case 2MsgBox (n(2))Case 3MsgBox (n(3))Case 4MsgBox (n(4))End SelectEnd IfFor p = 0 To List1.ListCountList1.List(p) = ""Next pList1.ClearLabel12.Enabled = FalseLabel13.Enabled = FalseLabel15.Enabled = TrueText4(1).Text = ""End SubPrivate Sub Label15_Click()Label14.Enabled = FalseLabel12.Enabled = TrueEnd SubPrivate Sub Label16_Click()Label12.Enabled = TrueSet DataGrid1.DataSource = NothingAdodc1.RecordSource = "SELECT * FROM huncai WHERE sort='" & Label16.Caption & "'"Adodc1.RefreshSet DataGrid1.DataSource = Adodc1End SubPrivate Sub Label17_Click()Label12.Enabled = TrueSet DataGrid1.DataSource = NothingAdodc1.RecordSource = "SELECT * FROM huncai WHERE sort='" & Label17.Caption & "'"Adodc1.RefreshSet DataGrid1.DataSource = Adodc1End SubPrivate Sub Label8_Click()Me.HideForm1.ShowEnd SubPrivate Sub Label9_Click()Label12.Enabled = TrueSet DataGrid1.DataSource = NothingAdodc1.RecordSource = "SELECT * FROM huncai WHERE sort='" & Label9.Caption & "'"Adodc1.RefreshSet DataGrid1.DataSource = Adodc1End SubPrivate Sub Label10_Click()Label12.Enabled = TrueSet DataGrid1.DataSource = NothingAdodc1.RecordSource = "SELECT * FROM huncai WHERE sort='" & Label10.Caption & "'"Adodc1.RefreshSet DataGrid1.DataSource = Adodc1DataGrid1.Visible = TrueEnd SubPrivate Sub Label11_Click()Label12.Enabled = TrueSet DataGrid1.DataSource = NothingAdodc1.RecordSource = "SELECT * FROM huncai WHERE sort='" & Label11.Caption & "'"Adodc1.RefreshSet DataGrid1.DataSource = Adodc1End SubPrivate Sub List1_Click()Dim X As IntegerIf List1.ListIndex <> -1 ThenX = List1.ListIndexEnd IfEnd Sub七、参考文献《Visual Basic应用与开发案例教程》，徐谡，清华大学出版社.《Visual Basic 6.0编程案例精解》，张路平，电子工业出版社. 《Visual Basic程序设计》，王学军，中国铁道出版社《Visual Basic+Access数据库项目开发实践》，周国民，中国铁道出版社岂兴明银华强等编著,Visual 项目开发宝典,电子工业出版社汉清计算机工作室，Visual Basic6.0数据库开发实例北京机械工业出版社何旭洪，Visual Basic 数据库开发实例导航北京人民邮电出版社李勇帆等. Visual Basic程序设计案例教程（21世纪高等学校规划教材）. 北京：人民邮电出版社，2009李勇帆等．Visual Basic程序设计上机指导与测试．北京：人民邮电出版社，2009亓莱滨等．Visual Basic程序设计．北京：清华大学出版社，2005罗朝盛．Visual Basic 6.0程序设计教程．北京：人民邮电出版社，2003刘炳文．Visual Basic程序设计教程（第三版）．北京：清华大学出版社，2006八、本人在该组中完成的部分：查资料，编写程序九、进度安排：第一二三天：查找资料，对设计要求加以分析研究，熟悉了解VB编程的基本知识。