影院售票综合管理系统.doc

学号- 第2学期C+课程设计汇报题目：电影院售票系统专业：计算机科学和技术班级：14（1）姓名：虞跃华指导老师：陈宝国成绩：计算机学院4月21日（课外，第十周答辩和总结） 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系统开发必需性在二十一世纪科技时代，科学技术突飞猛进，计算机已经不仅是在科技上应用，而且在生活中也是一样得到了广泛在应用。伴随时间改变，影院规模扩大，相关售票管理工作和所包含到数据量越来越大越来越多，大多数影院不得不靠增加人力、物力、财力来进行售票管理。不过人工售票管理含有效率低、查找麻烦、可靠性不高、保密性低等原因。所以开发出一个适适用于相当规模影院售票管理系统是必需。开发一个影院售票管理系统，采取计算机对影院售票进行管理，深入提升了影院效益和现代化水平。为广大影院提升工作效率，实现影院售票工作步骤系统化、规范化和自动化。现在中国很多影院管理水平普遍全部不是很高，有还停留在全用纸介质基础上，这种管理方法已不能适应时代发展，社会需求，因为它浪费了大量人力物力，也存在着很多不足原因。在今天信息时代这种传统管理方法肯定会被计算机为基础信息管理系统所替换。一个高效影院售票管理系统能够存放很多影院售票档案，不需要大量人力，只需要几名专门录入员即可操作系统，节省大量人力，能够快速查到所需信息、高效、安全。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 和Ashton-Tate三家企业共同开发，于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 Server作为本系统数据库，它是一个支持多用户新型数据库，适适用于大中规模数据量需求。学校校园网建设也为新系统服务器/用户端结构提供了硬件支持。使用作为系统开发开发环境，它提供完善指令控制语句、类和对象支持及丰富数据类型，给开发高性能系统提供保障为开发满足用户要求系统，确保了代码模块化要求，而代码模块化提升，很有利于以后对新系统扩展和修改。总而言之，本系统设计和开发在技术上和硬件设备上条件全部是满足，所以，它在技术上是可行。出走做可行性：本系统为一个小型影院售票管理系统，所花费资源很小，影院电脑不管是硬件还是软件全部能够满足条件，界面设计时充足考虑管理人员习惯，使得操作简单；数据录入快速、规范、可靠；统计正确；制表灵活；适应力强；轻易扩充，所以，本系统在操作上是可行。3.2功效描述售票员：1.办理会员及查询、删除、修改会员信息2.查找立即上映影片信息和放映厅号3.查询已卖票数和剩下票数和其对应座位4.售票小卖部管理员：1.增添、删除、修改商品信息2.管理商品入库 3.销售商品3.3数据字典、数据项售票系统数据项会员信息表，如表3.1所表示，是描述会员信息。会员卡号会员姓名性别联络方法折扣率卡内金额买票消费001张明男0.85100002张敏女0.7120【表3.1】影票信息表，如表3.2所表示，是描述影票具体信息。电影名称上映日期上映时间放映厅票类票价恋爱通告.06.0118:00:00*Vip30关云长.06.0718:00:00*Vip30【表3.2】小卖部系统数据项商品信息表，如表3.3所表示：商品编号商品名称进价销售价单位库存量001康师傅方便面24袋100002爆米花24袋150【表3.3】、数据结构售票系统数据结构数据结构名含义说明组成会员信息说明会员相关信息会员卡号、会员姓名、省份证号、联络方法、折扣率、早期金额、卡内金额、充值总额、小卖部消费、买票消费影票信息说明影票相关信息票类、票价、影院名称、图示、电影名称、放映厅、上映时间、状态、上映日期小卖部系统数据结构数据结构名含义说明组成商品信息说明商品相关信息商品编号、商品名称、进价、销售价、单位、入库单号、入库日期、数量、经办人、期初库存、E-R图 实体描述【会员】图3-1所表示：会员小卖部消费会员卡号会员姓名身份证号联络方法折扣率卡内余额充值总额买票消费期初金额备注【图3-1】【商品】图3-2所表示：商品进价销售价商品名称单位期初库存商品编号备注【图3-2】【影票】图3-3所表示：影票票类放映厅上映日期上映时间影片名称票价【图3-3】会员、商品等实体E-R，图3-4所表示：售票员销售员买卖买影票会员卖商品1N1N1N1N【图3-4】3.4系统功效图进入界面：1. 售票员2. 销售员系统选择：开启售票系统1显示上映影片信息2.显示播放厅及票价1. 添加、修改、删除影片2. 设置播放厅及票价3. 清空无用数据是否会员显示会员信息是否充值是否买票是否办会员修改会员信息YNYN 售票管理系统功效图，图3-5所表示：【图3-5】进入界面：1. 售票员2. 销售员系统选择：小卖部系统1.显示商品信息2.显示库存明细是否购置更改库存及会员信息会员1.添加、删除、修改、查询商品信息2.商品入库3.商品盈利查询YN 小卖部管理系统功效图，图3-6所表示：【图3-6】3.5对性能要求 精度整型和double型 时间特征要求本软件规模不大，通常机器全部能跑起来，对电脑性能要求很不高，通常pc机全部能够顺畅运行，能够满足绝大多数企业电脑配置需求。3.6数据管理能力要求 考虑到一个电影院它规模是固定，总体座位框架是不变，座位操作就采取二维数组来操作，然后将其操作结果存放在某场电影座位文件中。某场电影信息就采取链表来处理，因为链表操作便于对其进行增、删、改、查询，能够将全部电影信息存放在一个电影信息文件中。3.7故障处理要求 我们这个系统它是采取实时更新文件方法，电脑断电或死机等，不会丢失目前操作信息，能够处理电脑断电后系统丢失已完成操作问题，避免了用户因意外事件丢失数据。4. 关键界面及功效4.1影院售票管理系统1.1选择影院售票管理系统，图4-1：【图4-1】1.2节目设置，图4-2，在此节点设置放映节目标信息，方便创建场次时调用；其中导演、片类、语种、产地等字段值含有记忆功效，只需录入一次，下次再使用时直接在下拉列表中选择即可。【图4-2】1.3票价设置，图4-3，统计不一样票类票价，方便售票时调用。【图4-3】功效操作说明： 在面板中点击“票价设置”按钮或双击表格界面打开录入窗口。增加:点击录入窗口最下方工具栏增加或+按钮，即可新增一条统计，然后输入票价，完成后点号保留。 修改:点击录入窗口工具栏上能够编辑一条现有统计，修改完点保留。 删除:点击统计移动按钮,移动到要删除统计上，单击-按钮，即可删除目前统计。状态图示设置（注：座位平面图图示默认为只读，假如不适合能够调整）1.4会员信息处理，图4-4:【图4-4】功效操作说明： 在面板中点击“会员信息”按钮或双击表格界面打开录入窗口。 增加:点击录入窗口最下方工具栏增加或+按钮，即可新增一条统计，然后输入会员信息，完成后点号保留。 修改:点击录入窗口工具栏上能够编辑一条现有统计，修改完点保留。 删除:点击统计移动按钮,移动到要删除统计上，单击-按钮，即可删除目前统计。 1.5会员充值，图4-5，其中充值单号系统自动生成，经过会员卡号调用会员信息中数据；充后总额=充前总额+充值金额，系统自动计算；经办人默认填写目前系统登录者名称。【图4-5】在面板中点击“会员充值”按钮，即可打开录入窗口对会员充值进行增加、修改或删除操作。 1.6设置影片上映，以下图4-6：【图4-6】在上图中选择对应上映日期、上映时间，然后点确定，进入以下窗口，图4-7。【图4-7】在上图中选择需要座位（绿色底表示未售、红色底表示已售、黄色底表示订票），然后在右面操作，经过票类调用票价设置中数据；也能够会员卡消费，默认是打折，勾选掉是否打折，就是按票价从会员卡中扣除；将售票状态改为已售，然后点对号保留，座位平面图颜色由绿色更新为红色。 4.2小卖部管理2.1选择小卖部管理系统，图4-8：【图4-8】2.2添加商品信息图4-9，其中商品编号不许可反复或为空；其它字段值依据实际情况填写。【图4-9】功效操作说明： 在面板中点击“商品信息”按钮或双击表格界面打开录入窗口。 增加:点击录入窗口最下方工具栏增加或+按钮，即可新增一条统计，然后输入商品信息，完成后点号保留。 修改:点击录入窗口工具栏上能够编辑一条现有统计，修改完点保留。 删除:点击统计移动按钮,移动到要删除统计上，单击-按钮，即可删除目前统计。2.3商品入库，图4-10其中入库单号系统自动生成，入库日期默认填写目前机器时间，也可手工录入；经办人默认填写目前系统登录者名称。从表中经过商品编号调用商品信息中数据；手工录入数量；小计=数量*单价，系统自动算。 【图4-10】在面板中点击“商品入库”按钮，即可打开录入窗口对商品入库进行增加、修改或删除操作。2.4商品销售，图4-11，其中销售单号系统自动生成，销售日期默认填写目前机器时间，也可手工录入；经办人默认填写目前系统登录者名称。从表中经过商品编号调用商品信息中数据；手工录入数量；小计=数量*单价，系统自动计算。【图4-11】在面板中点击“商品销售”按钮，即可打开录入窗口对商品销售信息进行增加、修改或删除操作。 2.5库存明细，图4-12，查看各商品期初库存、累计入库、累计销售及库存数量，库存数量=期初库存+累计入库-累计销售，系统自动计算。【图4-12】商品入库期间查询，查看期间内入库商品信息；统计多种商品入库数量及总额；并统计全部入库总额。4.3查询统计3.1选择查询统计，图4-13：【图4-13】3.2会员消费明细查看，图4-14：【图4-14】依据需要填写会员卡号，就能够看到会员在小卖部具体消费，图4-15。 查询出来信息不许可用户自行更改、添加和删除。 【图4-15】3.3按日期查询统计售票数，查看期间内售票信息，并统计各票类售票数和售票金额，最终统计下全部售票数和售票金额，图4-16，输入日期。【图4-16】依据需要设置开始日期和截止日期，系统默认开始日期和截止日期为目前日期。单击确定，看以看下面窗口，图6-17： 【图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，图6-1: 【图6-1】代码：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 If End IfIf x = 3 ThenMsgBox 强制退出, 16, 提醒EndEnd IfEnd SubPrivate Sub Command2_Click()EndEnd Sub1.2系统选择界面，经过该界面admi能够选择是进入售票管理系统，还是进入小卖部管理系，统图6-2: 【图6-2】代码：Private Sub Command1_Click()Form3.ShowForm2.HideEnd SubPrivate Sub Command2_Click()form5.ShowForm2.HideEnd Sub1.3该界面是对会员信息管理，图6-3：【图6-3】代码：Private Sub Command1_Click()Form4.ShowForm3.HideEnd SubPrivate Sub Command2_Click()会员信息查询.ShowForm3.HideEnd SubPrivate Sub Command3_Click()Form2.ShowForm3.HideEnd Sub1.4该界面是对会员信息添加、删除、修改界面，图6-4：【图6-4】代码:会员添加 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该界面是对会员信息纤细查询界面，图6-5：【图6-5】代码：Private Sub Command1_Click()Set DataGrid1.DataSource = Adodc1End SubPrivate Sub Command2_Click()Form3.Show会员信息查询.HideEnd Sub6.2小卖部系统 2.1 admi选择小卖部管理系统，图6-6：【图6-6】代码：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该界面是商品添加界面，图6-8:【图6-8】代码：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：【图6-9】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.Text