影院售票管理系统.doc

计算机学院综合设计报告学号2016-2017学年 第2学期1408010142C+课程设计报告题目：电影院售票系统专业：计算机科学与技术班级：14（1）姓名:虞跃华指导教师:陈宝国成绩：计算机学院2017年4月21日（课外的,第十周答辩和总结） 2017年5月21日（课内的，第十四周答辩和总结）目录1。绪论41。1系统的开发背景41。2系统开发的必要性51。3系统开发目标与意义52.开发工具62。1VB简介62.2数据库开发工具63需求分析73.1可行性分析73。2功能描述83。3数据字典83.4系统功能图123。5对性能的规定133.6数据管理能力要求133。7故障处理要求144.主要界面及功能144。1影院售票管理系统144。2小卖部管理184。3查询统计205.详细设计235。1结构程序设计235。2人机界面设计246.功能实现266。1售票系统266.2小卖部系统32总结39参考文献391。 绪论1。1系统的开发背景当今时代是飞速发展的信息时代,在各行各业中离不开信息处理，这正是计算机被广泛应用于信息管理系统的环境.计算机的最大好处在于利用它能够进行信息管理。使用计算机进行信息控制,不仅提高了工作效率,而且大大的提高了其安全性。尤其对于复杂的信息管理，计算机能够充分发挥它的优越性。管理信息系统是进行信息的采集、存储、加工、维护和使用的系统，它是随着管理科学和技术科学的发展而形成的。影院售票管理系统是一个经济社会不可缺少的部分,它的内容对于企业管理的决策者和管理者来说都至关重要，所以影院售票管理系统应该能够为用户提供充足的信息和快捷的查询手段，对用户来说可以轻松的查阅自己消费信息等.但是一直以来人们都是靠传统人工的方式管理影院售票,这种管理方式存在着许多缺点，如：效率低、保密性差,另外时间一长,将产生大量的文件和数据，这对于查找、更新和维护都带来了不少的困难。随着科学技术的不断提高，计算机科学日渐成熟,其强大的功能已为人们深刻认识，它已进入人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分，使用计算机对影院售票管理进行管理，有着手工管理所无法比拟的优点。例如：检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等.这些优点能够极大地提高影院售票管理的效率，也是企业的科学化、正规化管理，与世界接轨的重要条件。因此，开发这样的一套影院售票管理系统成为很有必要的事情.影院售票管理系统提供了强大的管理功能,方便系统用户使用。1。2系统开发的必要性在21世纪的科技时代，科学技术突飞猛进，计算机已经不仅是在科技上应用，而且在生活中也是同样得到了广泛在应用。随着时间的变化，影院规模的扩大，有关售票管理工作和所涉及到的数据量越来越大越来越多，大多数影院不得不靠增加人力、物力、财力来进行售票管理。但是人工售票管理具有效率低、查找麻烦、可靠性不高、保密性低等因素.因此开发出一个适用于相当规模的影院售票管理系统是必要的。开发一个影院售票管理系统，采用计算机对影院售票进行管理，进一步提高了影院的效益和现代化水平。为广大影院提高工作效率,实现影院售票工作流程的系统化、规范化和自动化。现在我国的很多影院的管理水平普遍都不是很高,有的还停留在全用纸介质基础上，这种管理方式已不能适应时代的发展，社会的需求，因为它浪费了大量的人力物力，也存在着许多不足的因素。在今天信息时代这种传统的管理方法必然会被计算机为基础的信息管理系统所代替.一个高效的影院售票管理系统可以存储很多影院售票档案，不需要大量的人力，只需要几名专门录入员即可操作系统，节省大量人力，可以迅速查到所需信息、高效、安全。1.3系统开发目标与意义系统开发目标为了使系统在影院的管理中发挥更大的作用，实现工作过程的计算机化，提高工作效率和工作质量，现提出如下的系统开发目标：1。系统应具有实用性、可靠性和适用性,同时注意到先进性。2。对各个数据库进行动态管理，防止混乱。3。能够按照用户选择的不同的条件进行简单查询和复合查询。4。能够对查询结果进行分类汇总,实现报表打印.5。注意数据的安全性，具有数据备份和恢复的功能。6。方便用户的操作，尽量减少用户的操作。意义影院售票管理是影院管理中异常重要的一个环节。计算机化是整个影院管理中的重要一部分，能否实现这一步关系到影院售票整体效率的高低，介于它的重要性,影院售票管理系统的开发与应用就逐渐提入议程，并占着越来越重要的份量。运用影院售票管理系统可以减轻影院售票管理人员的工作量，缩小开支，提高工作效率与准确率，能够合理安排时间,能够尽快的知道自己的影院信息。从大的方向说,就是为了加速我国四化建设的发展，实现全部的自动化，使我国发展成为通讯网络化，决策科学化，办公自动化的国家.在现代，高科技的飞跃发展，人们工作习惯的改变，特别是电脑的大量普及，人们生活节奏越来越快，怎样提高工作效率是人们首先考虑的问题。影院售票管理系统是一个非常繁琐与复杂的一项工作，一个原因就是工作量大,不好管。2。 开发工具2。1VB简介VB是Visual Basic的简称，是由美国微软公司于1991年开发的一种可视化的、 面向对象和采用事件驱动方式的结构化高级程序设计语言,可用于开发 Windows 环境下的各类应用程序.它简单易学、效率高，且功能强大可以与 Windows 专业开发工具SDK相媲美。在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的广泛应用程序接口（API)函数,动态链接库（DLL）、对象的链接与嵌入（OLE)、开放式数据连接(ODBC)等技术,可以高效、快速地开发Windows环境下功能强大、图形界面丰富的应用软件系统。2。2数据库开发工具SQL Server 是一个关系数据库管理系统。它最初是由Microsoft Sybase 和AshtonTate三家公司共同开发的,于1988 年推出了第一个OS/2 版本.在Windows NT 推出后，Microsoft与Sybase 在SQL Server 的开发上就分道扬镳了，Microsoft 将SQL Server 移植到Windows NT系统上，专注于开发推广SQL Server 的Windows NT 版本。Sybase 则较专注于SQL Server在UNIX操作系统上的应SQL Server安装界面用。3. 需求分析3。1可行性分析可行性研究的目的是用最小的代价在尽可能的时间内确定问题是否能够解决。考虑到系统开发时间、资源等因素，在实际开发该计算机系统时,常常要为资源不足和交付日期难以完成而苦恼，因而需要慎重地尽可能早地估价研制课题的可行性。可行性研究包括：经济可行性、技术可行性、操作可行性、不同的方案等等。经济上可行性：现在,计算机的价格已经十分低廉，性能却有了长足的进步。而本系统的开发,为学校的工作效率带来了一个质的飞跃，为此主要表现有以下几个方面：第一， 本系统的运行可以代替人工进行许多繁杂的劳动;第二， 本系统的运行可以节省许多资源;第三， 本系统的运行可以大大的提高学校的工作效率；第四， 本系统可以使敏感文档更加安全，等等。所以，本系统在经济上是可行的.技术上可行性:本系统的开发利用Microsoft SQL Server2000作为本系统的数据库,它是一个支持多用户的新型数据库,适用于大中规模的数据量需求。学校校园网的建设也为新系统服务器/客户端的结构提供了硬件的支持。使用作为系统开发的开发环境，它提供完善的指令控制语句、类与对象的支持及丰富的数据类型，给开发高性能系统提供的保障为开发满足客户要求的系统，保证了代码的模块化要求，而代码模块化的提高，非常有利于以后对新系统的扩展与修改。综上所述，本系统的设计与开发在技术上和硬件设备上的条件都是满足的，因此,它在技术上是可行的.出走做可行性：本系统为一个小型的影院售票管理系统，所耗费的资源非常的小，影院的电脑无论是硬件还是软件都能够满足条件，界面设计时充分考虑管理人员的习惯,使得操作简单；数据录入迅速、规范、可靠；统计准确；制表灵活；适应力强；容易扩充，因此，本系统在操作上是可行的。3。2功能描述售票员：1。办理会员及查询、删除、修改会员信息2。查找即将上映的影片信息和放映厅号3.查询已卖票数和剩余票数和其对应的座位4。售票小卖部管理员:1.增添、删除、修改商品信息2。管理商品入库 3。销售商品3。3数据字典、数据项售票系统数据项会员信息表,如表3.1所示，是描述会员的信息。会员卡号会员姓名性别联系方式折扣率卡内金额买票消费001张明男0。85100002张敏女0。7120【表3。1】影票信息表，如表3.2所示,是描述影票的详细信息.电影名称上映日期上映时间放映厅票类票价恋爱通告2011。06。0118:00：00*Vip30关云长2011。06。0718：00:00*Vip30【表3。2】小卖部系统数据项商品信息表，如表3。3所示:商品编号商品名称进价销售价单位库存量001康师傅方便面24袋100002爆米花24袋150【表3.3】、数据结构售票系统数据结构数据结构名含义说明组成会员信息说明会员的有关信息会员卡号、会员姓名、省份证号、联系方式、折扣率、初期金额、卡内金额、充值总额、小卖部消费、买票消费影票信息说明影票的有关信息票类、票价、影院名称、图示、电影名称、放映厅、上映时间、状态、上映日期小卖部系统数据结构数据结构名含义说明组成商品信息说明商品的有关信息商品编号、商品名称、进价、销售价、单位、入库单号、入库日期、数量、经办人、期初库存、E-R图 实体描述【会员】如图3-1所示：会员小卖部消费会员卡号会员姓名身份证号联系方式折扣率卡内余额充值总额买票消费期初金额备注【图3-1】【商品】如图3-2所示：商品进价销售价商品名称单位期初库存商品编号备注【图32】【影票】如图33所示：影票票类放映厅上映日期上映时间影片名称票价【图33】会员、商品等实体的ER，如图3-4所示：售票员销售员买卖买影票会员卖商品1N1N1N1N【图34】3。4系统功能图进入界面：1. 售票员2. 销售员系统选择：启动售票系统1显示上映影片信息2.显示播放厅及票价1. 添加、修改、删除影片2. 设置播放厅及票价3. 清空无用数据是否会员显示会员信息是否充值是否买票是否办会员修改会员信息YNYN 售票管理系统功能图，如图35所示：【图3-5】进入界面：1. 售票员2. 销售员系统选择：小卖部系统1.显示商品信息2.显示库存明细是否购买更改库存及会员信息会员1.添加、删除、修改、查询商品信息2.商品入库3.商品盈利查询YN 小卖部管理系统功能图,如图36所示:【图3-6】3。5对性能的规定 精度整型和double型 时间特性要求本软件的规模不大，一般的机器都能跑的起来,对电脑的性能要求很不高，一般pc机都可以顺畅运行，能够满足绝大多数公司电脑配置的需求.3。6数据管理能力要求 考虑到一个电影院它的规模是固定的，总体座位框架是不变的，座位的操作就采用二维数组来操作，然后将其操作结果存储在某场电影的座位文件中。某场电影的信息就采用链表来处理,因为链表操作便于对其进行增、删、改、查询，可以将所有电影的信息存储在一个电影信息文件中。3。7故障处理要求 我们的这个系统它是采用实时更新文件的方法,电脑断电或死机等，不会丢失当前的操作信息，可以解决电脑断电后系统丢失已完成的操作问题，避免了客户因意外事件丢失数据。4. 主要界面及功能4.1影院售票管理系统1.1选择影院售票管理系统，如图4-1:【图4-1】1。2节目设置，如图42，在此节点设置放映节目的信息，方便创建场次时调用;其中导演、片类、语种、产地等字段值具有记忆功能，只需录入一次，下次再使用时直接在下拉列表中选择即可。【图4-2】1。3票价设置,如图43,记录不同票类的票价,方便售票时调用.【图4-3】功能操作说明:在面板中点击“票价设置按钮或双击表格界面打开录入窗口。增加：点击录入窗口最下方工具栏的增加”或者”+按钮,即可新增一条记录，然后输入票价,完成后点”号保存.修改:点击录入窗口工具栏上的”可以编辑一条现有的记录,修改完点”保存。删除:点击记录移动按钮，移动到要删除的记录上，单击”按钮,即可删除当前记录.状态图示设置（注：座位平面图的图示默认为只读的，如果不适合可以调整的)1。4会员信息处理，如图4-4：【图44】功能操作说明:在面板中点击“会员信息”按钮或双击表格界面打开录入窗口.增加：点击录入窗口最下方工具栏的增加或者+”按钮，即可新增一条记录，然后输入会员信息，完成后点号保存.修改:点击录入窗口工具栏上的”可以编辑一条现有的记录，修改完点”保存。删除：点击记录移动按钮，移动到要删除的记录上，单击-”按钮，即可删除当前记录. 1.5会员充值，如图45，其中充值单号系统自动生成，通过会员卡号调用会员信息中的数据;充后总额=充前总额+充值金额，系统自动计算;经办人默认填写当前系统登录者的名称。【图45】在面板中点击“会员充值”按钮，即可打开录入窗口对会员充值进行增加、修改或删除操作.1。6设置影片上映，如下图46：【图46】在上图中选择对应的上映日期、上映时间，然后点确定,进入如下窗口，如图4-7。【图47】在上图中选择需要的座位（绿色底的表示未售、红色底的表示已售、黄色底表示订票),然后在右面操作，通过票类调用票价设置中的数据；也可以会员卡消费,默认是打折的,勾选掉是否打折，就是按票价从会员卡中扣除；将售票状态改为已售，然后点对号保存，座位平面图的颜色由绿色更新为红色。 4。2小卖部管理2.1选择小卖部管理系统，如图4-8：【图48】2。2添加商品信息如图4-9，其中商品编号不允许重复或者为空;其它字段值根据实际情况填写。【图49】功能操作说明：在面板中点击“商品信息”按钮或双击表格界面打开录入窗口.增加:点击录入窗口最下方工具栏的增加”或者”+”按钮，即可新增一条记录，然后输入商品信息，完成后点”号保存。修改：点击录入窗口工具栏上的可以编辑一条现有的记录,修改完点”保存。删除:点击记录移动按钮，移动到要删除的记录上，单击”-按钮，即可删除当前记录。2.3商品入库，如图410其中入库单号系统自动生成，入库日期默认填写当前机器时间，也可手工录入；经办人默认填写当前系统登录者的名称。从表中通过商品编号调用商品信息中的数据；手工录入数量；小计=数量*单价，系统自动算。 【图410】在面板中点击“商品入库按钮，即可打开录入窗口对商品入库进行增加、修改或删除操作.2。4商品销售，如图411，其中销售单号系统自动生成,销售日期默认填写当前机器时间，也可手工录入；经办人默认填写当前系统登录者的名称。从表中通过商品编号调用商品信息中的数据;手工录入数量;小计=数量单价，系统自动计算。【图411】在面板中点击“商品销售”按钮,即可打开录入窗口对商品销售信息进行增加、修改或删除操作.2.5库存明细，如图412,查看各商品的期初库存、累计入库、累计销售及库存数量，库存数量=期初库存+累计入库累计销售，系统自动计算。【图412】商品入库期间查询，查看期间内入库商品的信息；统计各种商品的入库数量及总额；并统计所有入库总额。4。3查询统计3。1选择查询统计,如图413：【图413】3。2会员消费明细查看，如图414:【图4-14】根据需要填写会员卡号，就可以看到会员在小卖部的详细消费,如图415。查询出来的信息不允许用户自行更改、添加和删除。 【图415】3.3按日期查询统计售票数,查看期间内售票信息,并统计各票类的售票数和售票金额，最后统计下所有售票数和售票金额,如图4-16，输入日期。【图4-16】根据需要设置开始日期和截止日期，系统默认开始日期和截止日期为当前日期.单击确定，看以看下面窗口，如图617：【图6-17】双击系统左边树形列表中的“按日期查询统计售票数可打开此报表,若想打印此报表可在打开的报表页面中单击“打印按钮即可打印此报表.本报表打印所有在开始日期和截止日期之间的售票信息,系统并自动统计售票数量和售票总额.按场次查询统计售票数,查看某场次售票信息，并统计各票类的售票数和售票金额，最后统计下该场次总的售票数和售票金额.5。 详细设计5.1结构程序设计结构程序设计的定义为：“结构程序设计是尽可能少用GO TO 语句的程序设计方法。最好仅在检测出错误的时候才使用GO TO语句，而且应该总是使用前向GO TO语句。 本系统包括三个模块：售票管理、小卖部管理和查询统计.它们的结构分布如下：1、售票管理（如图5。1）图5.12、小卖部管理（如图5.2）图5。23、查询统计（如图5。3）图5。35.2人机界面设计1、系统响应时间 系统响应时间的两个重要属性：长度和易变性。据了解，一般来说，如果系统的响应时间过长，用户就会感到很沮丧。但是,一旦响应时间过短，这会迫使用户加快操作节奏，从而很可能发生错误。本系统经过多数人测试以后,发现响应时间值在一个合理的范围之类，即用户可以接受.2、用户帮助设施 几乎所有的交互式系统的每个用户都需要帮助,当遇到复杂的问题的时候,甚至需要查看用户手册才能寻求答案得以解决。本系统提供了联机帮助设施，这使得用户无须离开用户界面就能解决自己想解决的问题.具体的帮助设施设计如下： （1）在用户与系统交互期间，在任何时候,用户都能获得关于系统任何功能的帮助信息,因为本系统为用户提供了两种选择：提供部分功能的帮助信息和提供全部功能的帮助信息。（在界面的右边帮助栏）（2)用户可以以下三种方式请求帮助:帮助菜单，特殊功能键和HELP命令。（3)本系统在主屏幕界面右边的固定位置会有帮助提示（4）用户可以选择屏幕上的返回按钮返回到正常的交互界面上（5）本系统采用以下几中结构来组织帮助信息：平面结构（帮助信息通过关键字访问)、信息的层次结构（通过该结构，用户可以查询到更详细的信息,例如主界面菜单栏下的下拉子菜单选项）和超文本链接3、出错信息处理 出错信息和警告信息，是用户在使用系统时出现的“坏消息”。在用户正常的操作刚才中，如果发现系统提示错误信息，首先不要慌张，先看看错误信息是怎么描述的（一般说来，这些信息都是用户可以看的懂的）,一般的问题，通过重启系统一般都能解决，如果遇到棘手的，用户可以采用联机帮助或者直接拨打客服电话以寻求解决。6。 功能实现及代码6.1售票系统 1。1进入系统界面，用户名默认为admi，如图61： 【图61】代码:Private Sub Command1_Click(）If Text1 = ” Or Text2 = ” ThenMsgBox 不能为空,请重新输入， ， ”提示”x = x + 1Else If Text1。Text = ”admi And Text2。Text = 1234 Then Form1。Hide Form2.Show Else MsgBox 输入错误,请重新输入”, 48， ”提示” x = x + 1 End IfEnd IfIf x = 3 ThenMsgBox ”强制退出”, 16, ”提示EndEnd IfEnd SubPrivate Sub Command2_Click()EndEnd Sub1.2系统选择界面，通过该界面admi可以选择是进入售票管理系统，还是进入小卖部管理系，统如图62： 【图6-2】代码:Private Sub Command1_Click（）Form3.ShowForm2.HideEnd SubPrivate Sub Command2_Click（）form5。ShowForm2。HideEnd Sub1.3该界面是对会员信息管理，如图63：【图63】代码：Private Sub Command1_Click()Form4.ShowForm3.HideEnd SubPrivate Sub Command2_Click(）会员信息查询.ShowForm3.HideEnd SubPrivate Sub Command3_Click（)Form2。ShowForm3。HideEnd Sub1.4该界面是对会员信息添加、删除、修改界面，如图64：【图64】代码：会员添加 Dim con As New ADODB.ConnectionDim rs As New ADODB。RecordsetPrivate Sub Command1_Click（)con.ConnectionString = Provider=Microsoft.Jet。OLEDB.4.0;Data Source=H：张小磊售票管理。MDB；Persist Security Info=False” str1 = ”select from 会员信息” If con。State = 0 Then con。Open End Ifrs。Open str1， con， 1， 3rs.AddNewDataShowrs。Update 在datagrid中显示数据Adodc1。CommandType = adCmdTextcon.CloseEnd SubPrivate Sub DataShow（) rs(会员卡号”） = Text1。Text rs(”会员姓名”) = Text2。Text rs（”身份证号”） = Text3.Text rs（折扣率”） = Text4.Text rs(”联系方式”） = Text5.Text rs(”卡内金额”） = Text6.Text If rs（”会员卡号”） = ” Then MsgBox ”会员卡号不能为空， 64， 提示 Else MsgBox ”添加成功！， 64， 提示”End IfEnd Sub会员修改：Private Sub Command2_Click()Dim con As New ADODB。Connection Dim rs As New ADODB.Recordset Dim str1 As String c = MsgBox（”确定要修改该记录吗?”， vbOKCancel, 提示信息”） If c = vbOK Then 如果确认修改的话进行修改操作 If Text1。Text = Then MsgBox ”会员卡号不能为空值!”， 48, 修改信息提示 Else 连接所要修改的数据库 con.Open Provider=Microsoft。Jet.OLEDB。4。0；Data Source=H：张小磊售票管理。MDB；Persist Security Info=False 开始修改数据库 con。Execute （”update 会员信息 set 会员卡号=” Text1.Text ” ,会员姓名=” Text2。Text ,身份证号=” Text3。Text & ,折扣率= Text4。Text ” ，联系方式= & Text5.Text ， 卡内金额= Text6。Text & ” ） MsgBox ”信息修改成功, 64, ”修改信息提示” rs.CursorLocation = adUseClient End If End IfEnd SubPrivate Sub DataSave(） rs（”会员卡号） = Text1。Text rs（”会员姓名”） = Text2。Text rs(”身份证号”） = Text3.Text rs(”折扣率”） = Text4。Text rs(”联系方式”) = Text5。Text rs(卡内金额”) = Text6。Text If rs（”会员卡号”） = ” Then MsgBox ”会员卡号不能为空”, 64, ”提示 Else MsgBox ”添加成功！, 64, 提示End If会员删除：Private Sub Command3_Click（)Dim con As New ADODB。Connection Dim rs As New ADODB。Recordset Dim str1 As Stringcon。ConnectionString = Provider=Microsoft。Jet.OLEDB。4.0;Data Source=H：张小磊售票管理。MDB;Persist Security Info=False” con.CursorLocation = adUseClient str1 = ”select from 会员信息 where 会员卡号 = & Text1。Text ” ” If con。State = 0 Then con。Open End If rs.Open str1, 1， 3 rs。Open str1， con， adOpenKeyset, adLockOptimistic If rs。EOF = False Then c = MsgBox(您确认要删除该记录吗?”, vbOKCancel， ”删除提示信息”） If c = vbOK Then rs。delete Adodc1.Recordset。Update rs。CursorLocation = adUseClient MsgBox ”删除成功!End If Else MsgBox ”当前数据库中没有可删除的数据记录”， vbOKOnly， ”提示信息” End If con.CloseEnd SubPrivate Sub Command4_Click（）Form3.ShowForm4。HideEnd Sub1。5该界面是对会员信息纤细查询界面，如图65：【图65】代码：Private Sub Command1_Click()Set DataGrid1.DataSource = Adodc1End SubPrivate Sub Command2_Click（）Form3.Show会员信息查询。HideEnd Sub6。2小卖部系统2。1 admi选择小卖部管理系统，如图6-6:【图66】代码：Private Sub Command1_Click(）Form3.ShowForm2.HideEnd SubPrivate Sub Command2_Click（)form5。ShowForm2。HideEnd Sub2。2 小卖部信息处理界面，如图6-7【图6-7】代码:Private Sub add_Click(）form7.ShowEnd SubPrivate Sub back_Click（）Form9。ShowUnload MeEnd SubPrivate Sub count_Click（）form6。ShowEnd SubPrivate Sub delete_Click(）form8。ShowEnd Sub2。3该界面是商品添加界面，如图68：【图68】代码:Private Sub Command1_Click(）str1 = ”select from CD where CD_NO =” Text1。Text ”If rs.State = 1 Thenrs。CloseEnd Ifrs.Open str1， conn， 1， 3If Text1。Text = ” Then MsgBox 请输入菜单编号！, 64， ”提示” Exit SubEnd IfIf Text2.Text = Then MsgBox 请输入菜单名称！， 64， ”提示 Exit SubEnd IfIf Text3.Text = Then MsgBox 请输入菜单种类!， 64， ”提示” Exit SubEnd IfIf Text4。Text = ” Then MsgBox ”请输入菜单单价！”, 64， ”提示” Exit SubEnd IfIf rs。EOF Thenconn。Execute （”insert into CD values（ & Text1.Text ”，” Text2。Text ”,” & Text3。Text ，” & Text4.Text ”,” Text5。Text ”)）MsgBox 新添加菜单成功！, 64， 信息”End IfEnd SubPrivate Sub Command2_Click(）Text1。Text = ”Text2。Text = ”Text3。Text = ”Text4。Text = ”Text5。Text = ”Text6。Text = ”End SubPrivate Sub Command3_Click（）form5。ShowUnload MeEnd Sub2。4该界面是商品查询界面，如图6-9:【图69】Dim conn As New ADODB.ConnectionDim rs As New ADODB。RecordsetDim rs1 As New ADODB.RecordsetPrivate Sub Check1_Click（Index As Integer）If Check1(Index)。Value = 0 Or IsBusy ThenExit SubDim i As IntegerIsBusy = TrueFor i = 0 To Check1。UBoundIf i Index Then Check1（i).Value = 0NextIsBusy = FalseEnd IfEnd SubPrivate Sub Command1_Click（）If Check1(0）。Value Then If Trim(Text5。Text） = ” Then MsgBox ”菜单编号不能为空!， 48， ”警告 Else str1 = ”select from CD where CD_NO like ” Text5。Text ” End IfEnd IfIf Check1(1)。Value Then If Trim（Text5。Text) = ” Then MsgBox ”菜单名字不能为空！”， 48, ”警告” Else str1 = ”select * from CD where CD_NAME like Text5。Text & %” End If End If If Check1（2）。Value Then If Trim(Text5.Text) = ” Then MsgBox 请输入菜单价格”, 48, 警告 Else str1 = ”select * from CD where CD_PRICE like ” Text5。Text ” End If End Ifrs。Open ”DC, conn, 2, 3rs。AddNewrs。Fields（DC_NUM) = Text1。Textrs。Fields(”DC_DESK”） = Combo2。Textrs.Fields（”DC_COUNT”) = Text4。TextIf Check1（0）.Value Then rs1.Open str1， conn， 1， 3 rs.Fields(CD_NO”） = Text5。Text rs