影院售票管理系统

1、学号422016-2017学年第2学期C+金课程设计报告题目：电影院售票系统专业：计算机科学与技术班级：14（1）姓名：虞跃华指导教师：陈宝国成绩：计算机学院2017年4月21日（课外的，第十周答辩和总结）2017年5月21日（课内的，第十四周答辩和总结）目录1. 绪论4系统的开发背景4系统开发的必要性5系统开发目标与意义52. 开发工具6VB简介6数据库开发工具63. 需求分析7可行性分析7功能描述8数据字典8系统功能图12对性能的规定13数据管理能力要求13故障处理要求144. 主要界面及功能14影院售票管理系统14小卖部管理18查询统计205. 详细设计23结构程序设计23人机界面设计2

2、46. 功能实现26售票系统26小卖部系统32总结39参考文献391.绪论系统的开发背景当今时代是飞速发展的信息时代，在各行各业中离不开信息处理，这正是计算机被广泛应用于信息管理系统的环境。计算机的最大好处在于利用它能够进行信息管理。使用计算机进行信息控制，不仅提高了工作效率，而且大大的提高了其安全性。尤其对于复杂的信息管理，计算机能够充分发挥它的优越性。管理信息系统是进行信息的采集、存储、加工、维护和使用的系统，它是随着管理科学和技术科学的发展而形成的。影院售票管理系统是一个经济社会不可缺少的部分，它的内容对于企业管理的决策者和管理者来说都至关重要,所以影院售票管理系统应该能够为用户提供充足

3、的信息和快捷的查询手段，对用户来说可以轻松的查阅自己消费信息等。但是一直以来人们都是靠传统人工的方式管理影院售票，这种管理方式存在着许多缺点,如:效率低、保密性差,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分,使用计算机对影院售票管理进行管理,有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高影院售票管理的效率,也是企业的科学化、正规化管

4、理,与世界接轨的重要条件。因此，开发这样的一套影院售票管理系统成为很有必要的事情。影院售票管理系统提供了强大的管理功能，方便系统用户使用。系统开发的必要性在21世纪的科技时代，科学技术突飞猛进，计算机已经不仅是在科技上应用，而且在生活中也是同样得到了广泛在应用。随着时间的变化，影院规模的扩大，有关售票管理工作和所涉及到的数据量越来越大越来越多，大多数影院不得不靠增加人力、物力、财力来进行售票管理。但是人工售票管理具有效率低、查找麻烦、可靠性不高、保密性低等因素。因此开发出一个适用于相当规模的影院售票管理系统是必要的。开发一个影院售票管理系统，采用计算机对影院售票进行管理，进一步提高了影院的效益

5、和现代化水平。为广大影院提高工作效率，实现影院售票工作流程的系统化、规范化和自动化。现在我国的很多影院的管理水平普遍都不是很高，有的还停留在全用纸介质基础上，这种管理方式已不能适应时代的发展，社会的需求，因为它浪费了大量的人力物力，也存在着许多不足的因素。在今天信息时代这种传统的管理方法必然会被计算机为基础的信息管理系统所代替。一个高效的影院售票管理系统可以存储很多影院售票档案，不需要大量的人力，只需要几名专门录入员即可操作系统，节省大量人力，可以迅速查到所需信息、高效、安全。系统开发目标与意义系统开发目标为了使系统在影院的管理中发挥更大的作用，实现工作过程的计算机化，提高工作效率和工作质量，

6、现提出如下的系统开发目标：1. 系统应具有实用性、可靠性和适用性，同时注意到先进性。2. 对各个数据库进行动态管理，防止混乱。3. 能够按照用户选择的不同的条件进行简单查询和复合查询。4. 能够对查询结果进行分类汇总，实现报表打印。5. 注意数据的安全性，具有数据备份和恢复的功能。6. 方便用户的操作，尽量减少用户的操作。意义影院售票管理是影院管理中异常重要的一个环节。计算机化是整个影院管理中的重要一部分，能否实现这一步关系到影院售票整体效率的高低，介于它的重要性，影院售票管理系统的开发与应用就逐渐提入议程，并占着越来越重要的份量。运用影院售票管理系统可以减轻影院售票管理人员的工作量，缩小开支

7、，提高工作效率与准确率，能够合理安排时间，能够尽快的知道自己的影院信息。从大的方向说，就是为了加速我国四化建设的发展，实现全部的自动化，使我国发展成为通讯网络化，决策科学化，办公自动化的国家。在现代，高科技的飞跃发展，人们工作习惯的改变，特别是电脑的大量普及，人们生活节奏越来越快，怎样提高工作效率是人们首先考虑的问题。影院售票管理系统是一个非常繁琐与复杂的一项工作，一个原因就是工作量大，不好管。2. 开发工具简介VB是VisualBasic的简称，是由美国微软公司于1991年开发的一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言，可用于开发Windows环境下的各类应用程序。它

8、简单易学、效率高，且功能强大可以与Windows专业开发工具SDKJ目媲美。在VisualBasic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的广泛应用程序接口(API)函数，动态链接库(DLD、对象的链接与嵌入(OLE、开放式数据连接(ODBC等技术，可以高效、快速地开发Windows环境下功能强大、图形界面丰富的应用软件系统。数据库开发工具SQLServer是一个关系数据库管理系统。它最初是由MicrosoftSybase和Ashton-Tate三家公司共同开发的，于1988年推出了第一个OS/2版本。在WindowsNT推出后，Microsoft与S

9、ybase在SQLServer的开发上就分道扬镳了，Microsoft将SQLServer移植到WindowsNT系统上，专注于开发推广SQLServer的WindowsNT版本。Sybase则较专注于SQLServer在UNIX操作系统上的应SQLServer安装界面用。3. 需求分析可行性分析可行性研究的目的是用最小的代价在尽可能的时间内确定问题是否能够解决。考虑到系统开发时间、资源等因素，在实际开发该计算机系统时，常常要为资源不足和交付日期难以完成而苦恼，因而需要慎重地尽可能早地估价研制课题的可行性。可行性研究包括：经济可行性、技术可行性、操作可行性、不同的方案等等。经济上可行性：现在，

10、计算机的价格已经十分低廉，性能却有了长足的进步。而本系统的开发，为学校的工作效率带来了一个质的飞跃，为此主要表现有以下几个方面：第一，本系统的运行可以代替人工进行许多繁杂的劳动；第二，本系统的运行可以节省许多资源；第三，本系统的运行可以大大的提高学校的工作效率；第四，本系统可以使敏感文档更加安全，等等。所以，本系统在经济上是可行的。技术上可行性：本系统的开发利用MicrosoftSQLServer2000作为本系统的数据库，它是一个支持多用户的新型数据库，适用于大中规模的数据量需求。学校校园网的建设也为新系统服务器/客户端的结构提供了硬件的支持。使用VB作为系统开发的开发环境，它提供完善的指令

11、控制语句、类与对象的支持及丰富的数据类型，给开发高性能系统提供的保障为开发满足客户要求的系统，保证了代码的模块化要求，而代码模块化的提高，非常有利于以后对新系统的扩展与修改。综上所述，本系统的设计与开发在技术上和硬件设备上的条件都是满足的，因此，它在技术上是可行的。出走做可行性：本系统为一个小型的影院售票管理系统，所耗费的资源非常的小，影院的电脑无论是硬件还是软件都能够满足条件，界面设计时充分考虑管理人员的习惯，使得操作简单；数据录入迅速、规范、可靠；统计准确；制表灵活；适应力强；容易扩充，因此，本系统在操作上是可行的功能描述售票员：1 .办理会员及查询、删除、修改会员信息2 .查找即将上映的

12、影片信息和放映厅号3 .查询已卖票数和剩余票数和其对应的座位4 .售票小卖部管理员：1 .增添、删除、修改商品信息2 .管理商品入库3 .销售商品数据字典I、数据项售票系统数据项会员信息表，如表所示，是描述会员的信息。会员会员姓名性别联系方式折扣率卡内金额消费001张明男100002张敏女120【表】影票信息表，如表所示，是描述影票的详细信息电影名上映日上映时放映厅票类票价称期问恋爱通告关公长【表】小卖部系统数据项商品信息表，如表所小:冏口口编会冏品名称进价销售价单位库#001康师傅方便向24袋100002爆米花24袋150【表】H、数据结构售票系统数据结构数据结构名含义说明组成会员信息说明会

13、员的肩关信息会员卡号、会员姓名、省份证号、联系方式、折扣率、初期金额、卡内金额、充值总额、小卖部消费、买票消费影票信息说明影票的肩关信息票类、票价、影院名称、图示、电影名称、放映厅、上映时间、状态、上映日期小卖部系统数据结构数据结构名含义说明组成商品信息说明商品的肩关信息商品编号、商品名称、进价、销售价、单位、入库单号、入库日期、数量、经办人、期初库存田、E-R图实体描述【会员】如图3-1所示:【图3-1】【商品】如图3-2所示:【图3-2】【影票】如图3-3所示:【图3-3】会员、商品等实体的E-R,如图3-4所示:【图3-4】系统功能图售票管理系统功能图，如图3-5所示:【图3-5】小卖部

14、管理系统功能图，如图3-6所示:【图3-6】对性能的规定精度整型和double型时间特性要求本软件的规模不大，一般的机器都能跑的起来，对电脑的性能要求很不高，一般pc机都可以顺畅运行，能够满足绝大多数公司电脑配置的需求。数据管理能力要求考虑到一个电影院它的规模是固定的，总体座位框架是不变的，座位的操作就采用二维数组来操作，然后将其操作结果存储在某场电影的座位文件中。某场电影的信息就采用链表来处理，因为链表操作便于对其进行增、删、改、查询，可以将所有电影的信息存储在一个电影信息文件中。故障处理要求我们的这个系统它是采用实时更新文件的方法，电脑断电或死机等，不会丢失当前的操作信息，可以解决电脑断电

15、后系统丢失已完成的操作问题，避免了客户因意外事件丢失数据。4 .主要界面及功能影院售票管理系统选择影院售票管理系统，如图4-1 :会丘戈值 葬看我，场所设百 伏奇圉球过重*当前节目,置觎看节目厮次影院售票菅理系统伸周1瞄可11吊兆3节前导痂由口【图4-1】节目设置，如图4-2,在此节点设置放映节目的信息，方便创建场次时调用；其中导演、片类、语种、产地等字段值具有记忆功能，只需录入一次，下次再使用时直接在下拉列表中选择即可。【图4-2】票价设置，如图4-3,记录不同票类的票价，方便售票时调用【图4-3】功能操作说明:在面板中点击“票价设置”按钮或双击表格界面打开录入窗口增加：点击录入窗口最下方工

16、具栏的“增加"或者"+"按钮，即可新增一条记录，然后输入票价，完成后点"，”号保存。修改：点击录入窗口工具栏上的""可以编辑一条现有的记录，修改完点"，"保存。删除：点击记录移动按钮，移动到要删除的记录上，单击"-"按钮，即可删除当前记录。状态图示设置（注：座位平面图的图示默认为只读的，如果不适合可以调整的）会员信息处理，如图4-4:【图4-4】功能操作说明：在面板中点击“会员信息”按钮或双击表格界面打开录入窗口。增加：点击录入窗口最下方工具栏的“增加"或者"+"按

17、钮，即可新增一条记录，然后输入会员信息，完成后点"，"号保存。修改：点击录入窗口工具栏上的""可以编辑一条现有的记录，修改完点"，”保存。删除：点击记录移动按钮，移动到要删除的记录上，单击"-"按钮，即可删除当前记录。会员充值，如图4-5,其中充值单号系统自动生成，通过会员卡号调用会员信息中的数据；充后总额二充前总额+充值金额，系统自动计算；经办人默认填写当前系统登录者的名称。【图4-5】在面板中点击“会员充值”按钮，即可打开录入窗口对会员充值进行增加、修改或删除操作。设置影片上映，如下图4-6:【图4-6】在上图中选择对应

18、的上映日期、上映时间，然后点确定，进入如下窗口，如图4-7。在上图中选择需要的座位（绿色底的表示未售、红色底的表示已售、黄色底表示订票），然后在右面操作，通过票类调用票价设置中的数据；也可以会员卡消费，默认是打折的，勾选掉是否打折，就是按票价从会员卡中扣除；将售票状态改为已售，然后点对号保存，座位平面图的颜色由绿色更新为红色。小卖部管理选择小卖部管理系统，如图4-8:"腿笛注系绕rtjiN£TAfLlf!>i【图4-8】添加商品信息如图4-9,其中商品编号不允许重复或者为空；其它字段值根据实际情况填写。jG-J. £3-1"【图4-9】功能操作说明

19、：在面板中点击“商品信息”按钮或双击表格界面打开录入窗口。增加：点击录入窗口最下方工具栏的“增加"或者"+"按钮，即可新增一条记录，然后输入商品信息，完成后点"V"号保存。修改：点击录入窗口工具栏上的""可以编辑一条现有的记录，修改完点"，”保存。删除：点击记录移动按钮，移动到要删除的记录上，单击"-"按钮，即可删除当前记录。商品入库，如图4-10其中入库单号系统自动生成，入库日期默认填写当前机器时间，也可手工录入；经办人默认填写当前系统登录者的名称。从表中通过商品编号调用商品信息中的数据；手工

20、录入数量；小计=数量*单价，系统自动算。【图4-10】在面板中点击“商品入库”按钮，即可打开录入窗口对商品入库进行增加、修改或删除操作。商品销售，如图4-11,其中销售单号系统自动生成，销售日期默认填写当前机器时间，也可手工录入；经办人默认填写当前系统登录者的名称。从表中通过商品编号调用商品信息中的数据；手工录入数量；小计=数量*单价，系统自动计算。【图4-11】在面板中点击“商品销售”按钮，即可打开录入窗口对商品销售信息进行增加、修改或删除操作。库存明细，如图4-12,查看各商品的期初库存、累计入库、累计销售及库存数量，库存数量二期初库存+累计入库-累计销售，系统自动计算。商品入库期间查询，

21、查看期间内入库商品的信息；统计各种商品的入库数量及总额；并统计所有入库总额。查询统计选择查询统计，如图4-13:能帆片塞曾理系统-倬f珀，I4-HTnp国SS不/f4手前，加10iI【图4-13会员消费明细查看，如图4-14:【图4-14】根据需要填写会员卡号，就可以看到会员在小卖部的详细消费，如图4-15查询出来的信息不允许用户自行更改、添加和删除。【图4-15按日期查询统计售票数，查看期间内售票信息，并统计各票类的售票数和售票金额，最后统计下所有售票数和售票金额，如图4-16,输入日期【图4-16根据需要设置开始日期和截止日期，系统默认开始日期和截止日期为当前日期单击确定，看以看下面窗口，

22、如图6-17:【图6-17双击系统左边树形列表中的“按日期查询统计售票数”可打开此报表，若想打印此报表可在打开的报表页面中单击“打印”按钮即可打印此报表。本报表打印所有在开始日期和截止日期之间的售票信息，系统并自动统计售票数量和售票总额。按场次查询统计售票数，查看某场次售票信息，并统计各票类的售票数和售票金额，最后统计下该场次总的售票数和售票金额。5 .详细设计结构程序设计结构程序设计的定义为：”结构程序设计是尽可能少用GOTO语句的程序设计方法。最好仅在检测出错误的时候才使用GOTO语句，而且应该总是使用前向GOTO吾句。”本系统包括三个模块：售票管理、小卖部管理和查询统计。它们的结构分布如

23、下：1、售票管理（如图）.士属与亘:E无直.李俗风宜历明还宣V.“古三丁苗苴节目遍查当前节目设置创建节目场所官.票清空无用裁据图2、小卖部管理（如图）图3、查询统计(如图)I8F?台布铺痔咽.51声'k葫日期直询,？宾鼬5*e扭烤法算诲,甘生Ht整瓶工质置询即tHN宗毅图人机界面设计1、系统响应时间系统响应时间的两个重要属性：长度和易变性。据了解，一般来说，如果系统的响应时间过长，用户就会感到很沮丧。但是，一旦响应时间过短，这会迫使用户加快操作节奏，从而很可能发生错误。本系统经过多数人测试以后，发现响应时间值在一个合理的范围之类，即用户可以接受。2、用户帮助设施几乎所有的交互式系统的每

24、个用户都需要帮助，当遇到复杂的问题的时候，甚至需要查看用户手册才能寻求答案得以解决。本系统提供了联机帮助设施，这使得用户无须离开用户界面就能解决自己想解决的问题。具体的帮助设施设计如下：(1)在用户与系统交互期间，在任何时候，用户都能获得关于系统任何功能的帮助信息，因为本系统为用户提供了两种选择：提供部分功能的帮助信息和提供全部功能的帮助信息。(在界面的右边帮助栏)(2)用户可以以下三种方式请求帮助：帮助菜单，特殊功能键和HEL骑令,(3)本系统在主屏幕界面右边的固定位置会有帮助提示(4)用户可以选择屏幕上的返回按钮返回到正常的交互界面上(5)本系统采用以下几中结构来组织帮助信息：平面结构(帮

25、助信息通过关键字访问)、信息的层次结构(通过该结构，用户可以查询到更详细的信息，例如主界面菜单栏下的下拉子菜单选项)和超文本链接3、出错信息处理出错信息和警告信息，是用户在使用系统时出现的“坏消息”。在用户正常的操作刚才中，如果发现系统提示错误信息，首先不要慌张，先看看错误信息是怎么描述的(一般说来，这些信息都是用户可以看的懂的)，一般的问题，通过重启系统一般都能解决，如果遇到棘手的，用户可以采用联机帮助或者直接拨打客服电话以寻求解决。6 .功能实现及代码售票系统进入系统界面，用户名默认为admi,如图6-1:【图6-1】代码：PrivateSubCommand1_Click()IfText1

26、=""OrText2=""ThenMsgBox”不能为空，请重新输入“一"提示"x=x+1ElseIf="admi"And="1234"ThenElseMsgBox"输入错误，请重新输入”,48,"提示”x=x+1EndIfEndIfIfx=3ThenMsgBox"强制退出"，16,"提示"EndEndIfEndSubPrivateSubCommand2_Click()EndEndSub系统选择界面，通过该界面admi可以选择是进入售票

27、管理系统，还是进入小卖部管理系，统如图6-2:打、主却管淳孝聿在【图6-2】代码：PrivateSubCommand1_Click()EndSubPrivateSubCommand2_Click()EndSub该界面是对会员信息管理，如图6-3:【图6-3】代码：PrivateSubCommand1_Click()EndSubPrivateSubCommand2_Click()会员信息查询.ShowEndSubPrivateSubCommand3_Click()EndSub该界面是对会员信息添加、删除、修改界面，如图6-4:代码：会员添加DimconAsNewDimrsAsNewPrivate

28、 Sub Command1_Click()张 小 磊 售 票 管 理 .MDB;Persist Security会员信息 "="Provider=Info=False"str1="select*fromIf=0ThenEndIfstr1,con,1,3DataShow'在datagrid中显示数据=adCmdTextEndSubPrivateSubDataShow（）rs（"会员卡号"）=rs（"会员姓名"）=rs（"身份证号"）=rs（"折扣率"）=rs（"

29、;联系方式"）=rs（"卡内金额"）=Ifrs（"会员卡号"）=""ThenMsgBox"会员卡号不能为空",64,"提示"ElseMsgBox"添加成功！",64,"提示"EndIfEndSub会员修改：PrivateSubCommand2_Click（）DimconAsNewDimrsAsNewDimstr1AsStringc=MsgBox（"确定要修改该记录吗",vbOKCancel,"提示信息"）I

30、fc=vbOKThen'如果确认修改的话进行修改操作If=""ThenMsgBox"会员卡号不能为空值!",48,"修改信息提示"Else'连接所要修改的数据库张小磊售票管理.MDB;PersistSecurityInfo=False"'开始修改数据库（"update会员信息set会员卡号='"&&"',会员姓名='"&&"',身份证号='"&&"

31、;',折扣率='"&&"',联系方式='"&&"',卡内金额='"&&"'"）MsgBox"信息修改成功",64,"修改信息提示"=adUseClientEndIfEndIfEndSubPrivateSubDataSave()rs（"会员卡号"）=rs（"会员姓名"）=rs（"身份证号"）=rs（"折扣率"

32、;）=rs（"联系方式"）=rs（"卡内金额"）=Ifrs("会员卡号")=""ThenMsgBox"会员卡号不能为空",64,"提示"ElseMsgBox"添加成功！",64,"提示"EndIf会员删除：PrivateSubCommand3_Click()DimconAsNewDimrsAsNewDimstr1AsString="Provider=张小磊售票管理.MDB;PersistSecurityInfo=False&q

33、uot;=adUseClientstr1="select*from会员信息where会员卡号='"&&"'"If=0ThenEndIf'strl,1,3strl,con,adOpenKeyset,adLockOptimisticIf=FalseThenc=MsgBox("您确认要删除该记录吗",vbOKCancel,"删除提示信息")Ifc=vbOKThen'=adUseClientMsgBox"删除成功！"EndIfElseMsgBox"

34、;当前数据库中没有可删除的数据记录",vbOKOnly,"提示信息”EndIfEndSubPrivateSubCommand4_Click()EndSub该界面是对会员信息纤细查询界面，如图6-5:史员市E育耳姓龙名榜L工31注3之00L光明341GtElSBSCrekTlM88语T7强铺34IBH7河flfWV5TLT$|51RfWfifiin|1<11.【图6-5】代码：PrivateSubCommand1_Click()Set=Adodc1EndSubPrivateSubCommand2_Click()会员信息查询.HideEndSub小卖部系统admi选择小卖

35、部管理系统,如图6-6:【图6-6】代码：PrivateSubCommand1_Click()EndSubPrivateSubCommand2_Click()EndSub小卖部信息处理界面，如图6-7【图6-7】代码：PrivateSubadd_Click()EndSubPrivateSubback_Click()UnloadMeEndSubPrivateSubcount_Click()EndSubPrivateSubdelete_Click()该界面是商品添加界面，如图6-8:【图6-8】代码：PrivateSubCommand1_Click()strl="select*fromC

36、DwhereCD_NO='"&&""'If=1ThenEndIfstr1,conn,1,3If=""ThenMsgBox"请输入菜单编号！",64,"提示"ExitSubEndIfIf=""ThenMsgBox"请输入菜单名称!",64,"提示"ExitSubEndIfIf=""ThenMsgBox"请输入菜单种类!",64,"提示"ExitSubEndI

37、fIf=""ThenMsgBox"请输入菜单单价!",64,"提示"ExitSubEndIfIfThen("insertintoCDvalues。'&&",'"&&",'"&&",'"&&"','"&&")")MsgBox”新添加菜单成功！",64,"信息”EndIfEndSubE

38、ndSubPrivateSubCommand3_Click()UnloadMeEndSub该界面是商品查询界面，如图6-9:策号电称厂价格敬量二T【图6-9】DimconnAsNewDimrsAsNewDimrs1AsNewPrivateSubCheck1_Click(IndexAsInteger)IfCheck1(Index).Value=0OrIsBusyThenExitSubDimiAsIntegerIsBusy=TrueFori=0ToIfi<>IndexThenCheck1(i).Value=0NextIsBusy=FalseEndIfEndSubPrivate Sub

39、Command1_Click()IfCheck1(0).ValueThenIfTrim=""ThenMsgBox"菜单编号不能为空！",48,"警告"Elsestr1="select*fromCDwhereCD_NOlike'"&&"%'"EndIfEndIfIfCheck1(1).ValueThenIfTrim=""ThenMsgBox"菜单名字不能为空！",48,"警告"Elsestr1="

40、select*fromCDwhereCDNAMElike'"&&"%'"EndIfEndIfIfCheck1(2).ValueThenIfTrim=""Then越土 n警告MsgBox"请输入菜单价格",48,"Elsestr1="select*fromCDwhereCD_PRICElike'"&&"%'"EndIfEndIf"DC",conn,2,3("DC_NUM")=

41、("DC_DESK")=("DC_COUNT")=IfCheck1(0).ValueThenstr1,conn,1,3("CD_NO")=("CD_NAME")=rs1("CD_NAME")("CD_PRICE")=rs1("CD_PRICE")EndIfIfCheck1(1).ValueThenstr1,conn,1,3("CD_NAME")=("CD_NO")=rs1("CD_NO")("CD_PRICE")=rs1("CD_PRICE")EndIf=str1Set=Adodc1=adCmdTextEndSubPrivateSubCommand2_Click()HI!EndSub