《影院售票管理系统-30页文档资料.doc》由会员分享，可在线阅读，更多相关《影院售票管理系统-30页文档资料.doc（28页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、如有侵权，请联系网站删除，仅供学习与交流影院售票管理系统【精品文档】第 28 页软 件 工 程 课 程 设 计 题 目： 影院售票管理系统 姓 名： 张小磊 饶强 郭威威 夏彬彬 学 号： 专 业： 计算机科学与技术1班 指导老师： 完成时间： 2011.05 信 息 工 程 学 院 计算机 系摘要本文以影院售票系统的设计与开发为主题，运用vb和SQL server编写的程序， 此系统是一个简单的影院售票系统， 其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的数据库。而对于后者则要求应用程序功能完备，操作简便，容易熟练掌
2、握等特点，用户界面直观,便于使用维护。关键字：影院，售票Abstract：In this paper, cinema ticketing system design and development of the theme, using vb and SQL server programs written, this theater system is a simple ticketing system, which mainly includes the establishment of database and front-end application maintenance and d
3、evelopment of the two.Request for the establishment of data consistency and integrity, data security database.For the latter applications require fully functional, simple, easy to master and so on, the user interface intuitive and easy to use and maintenance.Keyword: cinema, Ticketing目录第一章 绪论4系统的开发背
4、景4现有系统存在问题的分析4系统开发的必要性5系统开发目标与意义5第二章 应用技术理论6VB简介6数据库开发工具6第三章 需求分析7可行性分析7功能描述8数据字典8系统功能图12对性能的规定13数据管理能力要求13故障处理要求14第四章 主要界面及功能14影院售票管理系统14小卖部管理18查询统计20第五章 详细设计23结构程序设计23人机界面设计24第六章 功能实现26售票系统26小卖部系统32总结39参考文献39第一章 绪论系统的开发背景当今时代是飞速发展的信息时代，在各行各业中离不开信息处理，这正是计算机被广泛应用于信息管理系统的环境。计算机的最大好处在于利用它能够进行信息管理。使用计算
5、机进行信息控制，不仅提高了工作效率，而且大大的提高了其安全性。尤其对于复杂的信息管理，计算机能够充分发挥它的优越性。管理信息系统是进行信息的采集、存储、加工、维护和使用的系统，它是随着管理科学和技术科学的发展而形成的。影院售票管理系统是一个经济社会不可缺少的部分，它的内容对于企业管理的决策者和管理者来说都至关重要,所以影院售票管理系统应该能够为用户提供充足的信息和快捷的查询手段，对用户来说可以轻松的查阅自己消费信息等。但是一直以来人们都是靠传统人工的方式管理影院售票，这种管理方式存在着许多缺点,如:效率低、保密性差,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难
6、。随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分,使用计算机对影院售票管理进行管理,有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高影院售票管理的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。因此，开发这样的一套影院售票管理系统成为很有必要的事情。影院售票管理系统提供了强大的管理功能，方便系统用户使用。现有系统存在问题的分析在完成了针对“影院售票系统”软件市场的前期调查，同时与多位软件使用者进行了全面深入
7、地探讨和分析的基础上，我们提出了“影院售票系统”软件需求规格说明书。它全面细致的用户需求分析，明确所要开发的软件应具有的功能、性能与界面，使系统分析人员及软件开发人员能清楚地了解用户的需求。 随着时代的进步，在电影院中用人力售票越来越不能满足人们的需求，不但花费了大量劳动力，而且浪费时间。再现如今社会，时间就是金钱，所以为了节省时间，我们开发了“影院售票管理系统”。系统开发的必要性在21世纪的科技时代，科学技术突飞猛进，计算机已经不仅是在科技上应用，而且在生活中也是同样得到了广泛在应用。随着时间的变化，影院规模的扩大，有关售票管理工作和所涉及到的数据量越来越大越来越多，大多数影院不得不靠增加人
8、力、物力、财力来进行售票管理。但是人工售票管理具有效率低、查找麻烦、可靠性不高、保密性低等因素。因此开发出一个适用于相当规模的影院售票管理系统是必要的。开发一个影院售票管理系统，采用计算机对影院售票进行管理，进一步提高了影院的效益和现代化水平。为广大影院提高工作效率，实现影院售票工作流程的系统化、规范化和自动化。现在我国的很多影院的管理水平普遍都不是很高，有的还停留在全用纸介质基础上，这种管理方式已不能适应时代的发展，社会的需求，因为它浪费了大量的人力物力，也存在着许多不足的因素。在今天信息时代这种传统的管理方法必然会被计算机为基础的信息管理系统所代替。一个高效的影院售票管理系统可以存储很多影
9、院售票档案，不需要大量的人力，只需要几名专门录入员即可操作系统，节省大量人力，可以迅速查到所需信息、高效、安全。系统开发目标与意义系统开发目标为了使系统在影院的管理中发挥更大的作用，实现工作过程的计算机化，提高工作效率和工作质量，现提出如下的系统开发目标：1.系统应具有实用性、可靠性和适用性，同时注意到先进性。2.对各个数据库进行动态管理，防止混乱。3.能够按照用户选择的不同的条件进行简单查询和复合查询。4.能够对查询结果进行分类汇总，实现报表打印。5.注意数据的安全性，具有数据备份和恢复的功能。6.方便用户的操作，尽量减少用户的操作。意义影院售票管理是影院管理中异常重要的一个环节。计算机化是
10、整个影院管理中的重要一部分，能否实现这一步关系到影院售票整体效率的高低，介于它的重要性，影院售票管理系统的开发与应用就逐渐提入议程，并占着越来越重要的份量。运用影院售票管理系统可以减轻影院售票管理人员的工作量，缩小开支，提高工作效率与准确率，能够合理安排时间，能够尽快的知道自己的影院信息。从大的方向说，就是为了加速我国四化建设的发展，实现全部的自动化，使我国发展成为通讯网络化，决策科学化，办公自动化的国家。在现代，高科技的飞跃发展，人们工作习惯的改变，特别是电脑的大量普及，人们生活节奏越来越快，怎样提高工作效率是人们首先考虑的问题。影院售票管理系统是一个非常繁琐与复杂的一项工作，一个原因就是工
11、作量大，不好管。第二章 应用技术理论VB简介VB是Visual Basic的简称，是由美国微软公司于1991年开发的一种可视化的、 面向对象和采用事件驱动方式的结构化高级程序设计语言，可用于开发 Windows 环境下的各类应用程序。它简单易学、效率高，且功能强大可以与 Windows 专业开发工具SDK相媲美。在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的广泛应用程序接口（API）函数，动态链接库（DLL）、对象的链接与嵌入（OLE）、开放式数据连接（ODBC）等技术，可以高效、快速地开发Windows环境下功能强大、图形界面丰富
12、的应用软件系统。数据库开发工具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安装界面用。第三章 需求分析可行性分析可行性研究
13、的目的是用最小的代价在尽可能的时间内确定问题是否能够解决。考虑到系统开发时间、资源等因素，在实际开发该计算机系统时，常常要为资源不足和交付日期难以完成而苦恼，因而需要慎重地尽可能早地估价研制课题的可行性。可行性研究包括：经济可行性、技术可行性、操作可行性、不同的方案等等。经济上可行性：现在，计算机的价格已经十分低廉，性能却有了长足的进步。而本系统的开发，为学校的工作效率带来了一个质的飞跃，为此主要表现有以下几个方面：第一， 本系统的运行可以代替人工进行许多繁杂的劳动；第二， 本系统的运行可以节省许多资源；第三， 本系统的运行可以大大的提高学校的工作效率；第四， 本系统可以使敏感文档更加安全，等
14、等。所以，本系统在经济上是可行的。技术上可行性：本系统的开发利用Microsoft SQL Server2000作为本系统的数据库，它是一个支持多用户的新型数据库，适用于大中规模的数据量需求。学校校园网的建设也为新系统服务器/客户端的结构提供了硬件的支持。使用作为系统开发的开发环境，它提供完善的指令控制语句、类与对象的支持及丰富的数据类型，给开发高性能系统提供的保障为开发满足客户要求的系统，保证了代码的模块化要求，而代码模块化的提高，非常有利于以后对新系统的扩展与修改。综上所述，本系统的设计与开发在技术上和硬件设备上的条件都是满足的，因此，它在技术上是可行的。出走做可行性：本系统为一个小型的影
15、院售票管理系统，所耗费的资源非常的小，影院的电脑无论是硬件还是软件都能够满足条件，界面设计时充分考虑管理人员的习惯，使得操作简单；数据录入迅速、规范、可靠；统计准确；制表灵活；适应力强；容易扩充，因此，本系统在操作上是可行的。功能描述售票员：1.办理会员及查询、删除、修改会员信息2.查找即将上映的影片信息和放映厅号3.查询已卖票数和剩余票数和其对应的座位4.售票小卖部管理员：1.增添、删除、修改商品信息2.管理商品入库 3.销售商品数据字典、数据项售票系统数据项会员信息表，如表3.1所示，是描述会员的信息。会员卡号会员姓名性别联系方式折扣率卡内金额买票消费001张明男0.85100002张敏女
16、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】、数据结构售票系统数据结构数据结构名含义说明组成会员信息说明会员的有关信息会员卡号、会员姓名、省份证号、联系方式、折扣率、初期金额、卡内金额、充值总额、小卖部消费、买票消费影票信息说明影票的有关信息票类、票价、影院名称、
17、图示、电影名称、放映厅、上映时间、状态、上映日期小卖部系统数据结构数据结构名含义说明组成商品信息说明商品的有关信息商品编号、商品名称、进价、销售价、单位、入库单号、入库日期、数量、经办人、期初库存、E-R图 实体描述【会员】如图3-1所示：会员小卖部消费会员卡号会员姓名身份证号联系方式折扣率卡内余额充值总额买票消费期初金额备注【图3-1】【商品】如图3-2所示：商品进价销售价商品名称单位期初库存商品编号备注【图3-2】【影票】如图3-3所示：影票票类放映厅上映日期上映时间影片名称票价【图3-3】会员、商品等实体的E-R，如图3-4所示：售票员销售员买卖买影票会员卖商品1N1N1N1N【图3-4
18、】系统功能图进入界面：1. 售票员2. 销售员系统选择：启动售票系统1显示上映影片信息2.显示播放厅及票价1. 添加、修改、删除影片2. 设置播放厅及票价3. 清空无用数据是否会员显示会员信息是否充值是否买票是否办会员修改会员信息YNYN 售票管理系统功能图，如图3-5所示：【图3-5】进入界面：1. 售票员2. 销售员系统选择：小卖部系统1.显示商品信息2.显示库存明细是否购买更改库存及会员信息会员1.添加、删除、修改、查询商品信息2.商品入库3.商品盈利查询YN 小卖部管理系统功能图，如图3-6所示：【图3-6】对性能的规定 精度整型和double型 时间特性要求本软件的规模不大，一般的机
19、器都能跑的起来，对电脑的性能要求很不高，一般pc机都可以顺畅运行，能够满足绝大多数公司电脑配置的需求。数据管理能力要求 考虑到一个电影院它的规模是固定的，总体座位框架是不变的，座位的操作就采用二维数组来操作，然后将其操作结果存储在某场电影的座位文件中。某场电影的信息就采用链表来处理，因为链表操作便于对其进行增、删、改、查询，可以将所有电影的信息存储在一个电影信息文件中。故障处理要求 我们的这个系统它是采用实时更新文件的方法，电脑断电或死机等，不会丢失当前的操作信息，可以解决电脑断电后系统丢失已完成的操作问题，避免了客户因意外事件丢失数据。第四章 主要界面及功能影院售票管理系统1.1选择影院售票
20、管理系统，如图4-1：【图4-1】1.2节目设置，如图4-2，在此节点设置放映节目的信息，方便创建场次时调用；其中导演、片类、语种、产地等字段值具有记忆功能，只需录入一次，下次再使用时直接在下拉列表中选择即可。【图4-2】1.3票价设置，如图4-3，记录不同票类的票价，方便售票时调用。【图4-3】功能操作说明： 在面板中点击“票价设置”按钮或双击表格界面打开录入窗口。增加:点击录入窗口最下方工具栏的增加或者+按钮，即可新增一条记录，然后输入票价，完成后点号保存。 修改:点击录入窗口工具栏上的可以编辑一条现有的记录，修改完点保存。 删除:点击记录移动按钮,移动到要删除的记录上，单击-按钮，即可删
21、除当前记录。状态图示设置（注：座位平面图的图示默认为只读的，如果不适合可以调整的）1.4会员信息处理，如图4-4:【图4-4】功能操作说明： 在面板中点击“会员信息”按钮或双击表格界面打开录入窗口。 增加:点击录入窗口最下方工具栏的增加或者+按钮，即可新增一条记录，然后输入会员信息，完成后点号保存。 修改:点击录入窗口工具栏上的可以编辑一条现有的记录，修改完点保存。 删除:点击记录移动按钮,移动到要删除的记录上，单击-按钮，即可删除当前记录。 1.5会员充值，如图4-5，其中充值单号系统自动生成，通过会员卡号调用会员信息中的数据；充后总额=充前总额+充值金额，系统自动计算；经办人默认填写当前系
22、统登录者的名称。【图4-5】在面板中点击“会员充值”按钮，即可打开录入窗口对会员充值进行增加、修改或删除操作。 1.6设置影片上映，如下图4-6：【图4-6】在上图中选择对应的上映日期、上映时间，然后点确定，进入如下窗口，如图4-7。【图4-7】在上图中选择需要的座位（绿色底的表示未售、红色底的表示已售、黄色底表示订票），然后在右面操作，通过票类调用票价设置中的数据；也可以会员卡消费，默认是打折的，勾选掉是否打折，就是按票价从会员卡中扣除；将售票状态改为已售，然后点对号保存，座位平面图的颜色由绿色更新为红色。 小卖部管理2.1选择小卖部管理系统，如图4-8：【图4-8】2.2添加商品信息如图4
23、-9，其中商品编号不允许重复或者为空；其它字段值根据实际情况填写。【图4-9】功能操作说明： 在面板中点击“商品信息”按钮或双击表格界面打开录入窗口。 增加:点击录入窗口最下方工具栏的增加或者+按钮，即可新增一条记录，然后输入商品信息，完成后点号保存。 修改:点击录入窗口工具栏上的可以编辑一条现有的记录，修改完点保存。 删除:点击记录移动按钮,移动到要删除的记录上，单击-按钮，即可删除当前记录。2.3商品入库，如图4-10其中入库单号系统自动生成，入库日期默认填写当前机器时间，也可手工录入；经办人默认填写当前系统登录者的名称。从表中通过商品编号调用商品信息中的数据；手工录入数量；小计=数量*单
24、价，系统自动算。 【图4-10】在面板中点击“商品入库”按钮，即可打开录入窗口对商品入库进行增加、修改或删除操作。2.4商品销售，如图4-11，其中销售单号系统自动生成，销售日期默认填写当前机器时间，也可手工录入；经办人默认填写当前系统登录者的名称。从表中通过商品编号调用商品信息中的数据；手工录入数量；小计=数量*单价，系统自动计算。【图4-11】在面板中点击“商品销售”按钮，即可打开录入窗口对商品销售信息进行增加、修改或删除操作。 2.5库存明细，如图4-12，查看各商品的期初库存、累计入库、累计销售及库存数量，库存数量=期初库存+累计入库-累计销售，系统自动计算。【图4-12】商品入库期间
25、查询，查看期间内入库商品的信息；统计各种商品的入库数量及总额；并统计所有入库总额。查询统计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】
26、双击系统左边树形列表中的“按日期查询统计售票数”可打开此报表，若想打印此报表可在打开的报表页面中单击“打印”按钮即可打印此报表。本报表打印所有在开始日期和截止日期之间的售票信息，系统并自动统计售票数量和售票总额。按场次查询统计售票数，查看某场次售票信息，并统计各票类的售票数和售票金额，最后统计下该场次总的售票数和售票金额。第五章 详细设计结构程序设计 结构程序设计的定义为：“结构程序设计是尽可能少用GO TO 语句的程序设计方法。最好仅在检测出错误的时候才使用GO TO语句，而且应该总是使用前向GO TO语句。” 本系统包括三个模块：售票管理、小卖部管理和查询统计。它们的结构分布如下：1、售票
27、管理（如图5.1）图5.12、小卖部管理（如图5.2）图5.23、查询统计（如图5.3）图5.3人机界面设计1、系统响应时间 系统响应时间的两个重要属性：长度和易变性。据了解，一般来说，如果系统的响应时间过长，用户就会感到很沮丧。但是，一旦响应时间过短，这会迫使用户加快操作节奏，从而很可能发生错误。本系统经过多数人测试以后，发现响应时间值在一个合理的范围之类，即用户可以接受。2、用户帮助设施 几乎所有的交互式系统的每个用户都需要帮助，当遇到复杂的问题的时候，甚至需要查看用户手册才能寻求答案得以解决。本系统提供了联机帮助设施，这使得用户无须离开用户界面就能解决自己想解决的问题。具体的帮助设施设计
28、如下： （1）在用户与系统交互期间，在任何时候，用户都能获得关于系统任何功能的帮助信息，因为本系统为用户提供了两种选择：提供部分功能的帮助信息和提供全部功能的帮助信息。（在界面的右边帮助栏）（2）用户可以以下三种方式请求帮助：帮助菜单，特殊功能键和HELP命令。（3）本系统在主屏幕界面右边的固定位置会有帮助提示（4）用户可以选择屏幕上的返回按钮返回到正常的交互界面上（5）本系统采用以下几中结构来组织帮助信息：平面结构（帮助信息通过关键字访问）、信息的层次结构（通过该结构，用户可以查询到更详细的信息，例如主界面菜单栏下的下拉子菜单选项）和超文本链接3、出错信息处理 出错信息和警告信息，是用户在使
29、用系统时出现的“坏消息”。在用户正常的操作刚才中，如果发现系统提示错误信息，首先不要慌张，先看看错误信息是怎么描述的（一般说来，这些信息都是用户可以看的懂的），一般的问题，通过重启系统一般都能解决，如果遇到棘手的，用户可以采用联机帮助或者直接拨打客服电话以寻求解决。第六章 功能实现售票系统 1.1进入系统界面，用户名默认为admi，如图6-1: 【图6-1】代码：Private Sub Command1_Click()If Text1 = Or Text2 = ThenMsgBox 不能为空,请重新输入, , 提示x = x + 1Else If Text1.Text = admi And T
30、ext2.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可以选择是进入售票管理系统，还是进入小卖部管理系，统如图6-2: 【图6-2】代码：Private Sub Command1_Click()Form3.ShowForm2.HideEnd SubP
31、rivate 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
32、 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.Upd
33、ate 在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会
34、员修改：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
35、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 SubPri
36、vate 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
37、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
38、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_
39、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 Sub小卖部系统 2.1 admi选择小卖部管理系统，如图6-6：【图6-6】代码：Private Sub Command1_Click()Form3.ShowForm2.HideEnd SubPrivate Sub Co
40、mmand2_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(
41、)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.Te
42、xt = 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 A