影院售票管理系统的
说明：文章内容仅供预览，部分内容可能不全。下载后的文档，内容与下面显示的完全一致。下载之前请确认下面内容是否您想要的，是否完整无缺。
学号 1408010142 2016-2017学年 第2学期 《C++》 课程设计报告 题目： 电影院售票系统 专业： 计算机科学与技术 班级： 14〔1〕 某某： 虞跃华 指导教师： 陈宝国 成绩： 计算机学院 2017年4月21日〔课外的，第十周辩论和总结〕 2017年5月21日〔课内的，第十四周辩论和总结〕 1.绪论4 1.1系统的开发背景4 1.2系统开发的必要性5 1.3系统开发目标与意义5 2.开发工具6 2.1VB简介6 2.2数据库开发工具6 3需求分析7 3.1可行性分析7 3.2功能描述8 3.3数据字典8 3.4系统功能图12 3.5对性能的规定13 3.6数据管理能力要求13 3.7故障处理要求14 4.主要界面与功能14 4.1影院售票管理系统14 4.2小卖部管理18 4.3查询统计20 5.详细设计23 5.1结构程序设计23 5.2人机界面设计24 6.功能实现26 6.1售票系统26 6.2小卖部系统32 总结39 参考文献39 1. 绪论 1.1系统的开发背景 当今时代是飞速开展的信息时代，在各行各业中离不开信息处理，这正是计算机被广泛应用于信息管理系统的环境。计算机的最大好处在于利用它能够进展信息管理。使用计算机进展信息控制，不仅提高了工作效率，而且大大的提高了其安全性。尤其对于复杂的信息管理，计算机能够充分发挥它的优越性。 管理信息系统是进展信息的采集、存储、加工、维护和使用的系统，它是随着管理科学和技术科学的开展而形成的。影院售票管理系统是一个经济社会不可缺少的局部，它的内容对于企业管理的决策者和管理者来说都至关重要,所以影院售票管理系统应该能够为用户提供充足的信息和快捷的查询，对用户来说可以轻松的查阅自己消费信息等。但是一直以来人们都是靠传统人工的方式管理影院售票，这种管理方式存在着许多缺点,如:效率低、某某性差,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。 随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一局部,使用计算机对影院售票管理进展管理,有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、某某性好、长、本钱低等。优点能够极大地提高影院售票管理的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。因此，开发这样的一套影院售票管理系统成为很有必要的事情。 影院售票管理系统提供了强大的管理功能，方便系统用户使用。 1.2系统开发的必要性 在21世纪的科技时代，科学技术突飞猛进，计算机已经不仅是在科技上应用，而且在生活中也是同样得到了广泛在应用。随着时间的变化，影院规模的扩大，有关售票管理工作和所涉与到的数据量越来越大越来越多，大多数影院不得不靠增加人力、物力、财力来进展售票管理。但是人工售票管理具有效率低、查找麻烦、可靠性不高、某某性低等因素。因此开发出一个适用于相当规模的影院售票管理系统是必要的。 开发一个影院售票管理系统，采用计算机对影院售票进展管理，进一步提高了影院的效益和现代化水平。为广阔影院提高工作效率，实现影院售票工作流程的系统化、规X化和自动化。现在我国的很多影院的管理水平普遍都不是很高，有的还停留在全用纸介质根底上，这种管理方式已不能适应时代的开展，社会的需求，因为它浪费了大量的人力物力，也存在着许多不足的因素。在今天信息时代这种传统的管理方法必然会被计算机为根底的信息管理系统所代替。一个高效的影院售票管理系统可以存储很多影院售票档案，不需要大量的人力， 只需要几名专门录入员即可操作系统，节省大量人力，可以迅速查到所需信息、高效、安全。 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 Server2000作为本系统的数据库，它是一个支持多用户的新型数据库，适用于大中规模的数据量需求。学校校园网的建设也为新系统服务器/客户端的结构提供了硬件的支持。使用ＶＢ作为系统开发的开发环境，它提供完善的指令控制语句、类与对象的支持与丰富的数据类型，给开发高性能系统提供的保障为开发满足客户要求的系统，保证了代码的模块化要求，而代码模块化的提高，非常有利于以后对新系统的扩展与修改。综上所述，本系统的设计与开发在技术上和硬件设备上的条件都是满足的，因此，它在技术上是可行的。 出走做可行性：本系统为一个小型的影院售票管理系统，所消耗的资源非常的小，影院的电脑无论是硬件还是软件都能够满足条件，界面设计时充分考虑管理人员的习惯，使得操作简单；数据录入迅速、规X、可靠；统计准确；制表灵活；适应力强；容易扩大，因此，本系统在操作上是可行的。 3.2功能描述 ①售票员： 1.办理会员与查询、删除、修改会员信息 2.查找即将上映的影片信息和放映厅号 3.查询已卖票数和剩余票数和其对应的座位 4.售票 ②小卖部管理员： 1.增添、删除、修改商品信息 2.管理商品入库 3.销售商品 3.3数据字典 Ⅰ、数据项 ①售票系统数据项 会员信息表，如表3.1所示，是描述会员的信息。 会员会员性别 联系折扣卡内买票卡号 某某 001 X明 男 002 X敏 女 方式 率 金额 消费 0.85 100 0.7 120 【表3.1】 影票信息表，如表3.2所示，是描述影票的详细信息。 电影名上映日上映时放映厅 票类 票价 称 期 间 18:00:0***** 0 18:00:0***** 0 【表3.2】 Vip 30 Vip 30 恋爱通2011.06告 .01 关云长 2011.06.07 ②小卖部系统数据项 商品信息表，如表3.3所示： 商品编号 商品名称 进价 001 康师傅方2 便面 002 爆米花 2 4 【表3.3】 Ⅱ、数据结构 ①售票系统数据结构 数据结构名 含义说明 会员信息 说明会员的有关信息 组成 会员卡号、会员某某、省份证号、联系方式、折扣率、初期金额、卡内金额、充值总额、小卖部消费、买票消费 影票信息 说明影票的有关信息 票类、票价、影院名称、图示、电影名称、放映厅、上映时间、状态、上映日袋 150 销售价 4 单位 袋 库存量 100 期 ②小卖部系统数据结构 数据结构名 含义说明 商品信息 说明商品的有关信息 组成 商品编号、商品名称、进价、销售价、单位、入库单号、入库日期、数量、经办人、期初库存 Ⅲ、E-R图 ① 实体描述 【会员】如图3-1所示： 小卖部消费 会员卡号 折扣率 买票消费 会员某某 会员 充值总额 某某号 期初金额 联系方式 卡内余额 备注 【图3-1】 【商品】如图3-2所示： 备注 期初库存 商品名称 商品 单位 进价 销售价 商品编号 【图3-2】 【影票】如图3-3所示： 票价 票类 影片名称 影票 上映时间 放映厅 上映日期 【图3-3】 ②会员、商品等实体的E-R，如图3-4所示： 1 买 买 N 影票 N 商品 N N 卖 1 销售员 【图3-4】3.4系统功能图 ① 售票管理系统功能图，如图3-5所示： 进入界面： 1. 售票员 2. 销售员 系统选择：启动售票系统 1显示上映影片信息 2.显示播放厅与票价 1. 添加、修改、删除影片 2. 设置播放厅与票价 3. 清空无用数据 N 是否会是否办会Y N 显示会员信息 是否买票 Y 是否充值 修改会员信【图3-5】 ② 小卖部管理系统功能图，如图3-6所示： 进入界面： 1. 售票员 2. 销售员 系统选择：小卖部系统 1.显示商品信息 2.显示库存明细 1.添加、删除、修改、查询商品信息 2.商品入库 3.商品盈利查询 会员 是否购置 N Y 更改库存与会员信息 【图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.1 2、小卖部管理〔如图5.2〕 图5.2 3、查询统计〔如图5.3〕 图5.3 5.2人机界面设计 1、系统响应时间 系统响应时间的两个重要属性：长度和易变性。据了解，一般来说，如果系统的响应时间过长，用户就会感到很沮丧。但是，一旦响应时间过短，这会迫使用户加快操作节奏，从而很可能发生错误。本系统经过多数人测试以后，发现响应时间值在一个合理的X围之类，即用户可以承受。 2、用户帮助设施 几乎所有的交互式系统的每个用户都需要帮助，当遇到复杂的问题的时候，甚至需要查看用户手册才能寻求答案得以解决。本系统提供了联机帮助设施，这使得用户无须离开用户界面就能解决自己想解决的问题。具体的帮助设施设计如下： 〔1〕在用户与系统交互期间，在任何时候，用户都能获得关于系统任何功能的帮助信息，因为本系统为用户提供了两种选择：提供局部功能的帮助信息和提供全部功能的帮助信息。〔在界面的右边帮助栏〕 〔2〕用户可以以下三种方式请求帮助：帮助菜单，特殊功能键和HELP命令。 〔3〕本系统在主屏幕界面右边的固定位置会有帮助提示 〔4〕用户可以选择屏幕上的返回按钮返回到正常的交互界面上 〔5〕本系统采用以下几中结构来组织帮助信息：平面结构〔帮助信息通过关键字访问〕、信息的层次结构〔通过该结构，用户可以查询到更详细的信息，例如主界面菜单栏下的下拉子菜单项选择项〕和超文本 3、出错信息处理 出错信息和警告信息，是用户在使用系统时出现的“坏消息〞。在用户正常的操作刚刚中，如果发现系统提示错误信息，首先不要慌X，先看看错误信息是描述的〔一般说来，信息都是用户可以看的懂的〕，一般的问题，通过重启系统一般都能解决，如果遇到棘手 的，用户可以采用联机帮助或者直接拨打客服 以寻求解决。 6. 功能实现与代码 6.1售票系统 1.1进入系统界面，用户名默认为admi，如图6-1: 【图6-1】 代码：Private Sub mand1_Click() If Text1 = "" Or Text2 = "" Then MsgBox "不能为空,请重新输入", , "提示" x = x + 1 Else If Text1.Text = "admi" And Text2.Text = "1234" Then Form1.Hide Form2.Show Else MsgBox "输入错误，请重新输入", 48, "提示" x = x + 1 End If End If If x = 3 Then MsgBox "强制退出", 16, "提示" End End If End Sub Private Sub mand2_Click() End End Sub 1.2系统选择界面，通过该界面admi可以选择是进入售票管理系统，还是进入小卖部管理系，统如图6-2: 【图6-2】 代码：Private Sub mand1_Click() Form3.Show Form2.Hide End Sub Private Sub mand2_Click() form5.Show Form2.Hide End Sub 1.3该界面是对会员信息管理，如图6-3： 【图6-3】 代码：Private Sub mand1_Click() Form4.Show Form3.Hide End Sub Private Sub mand2_Click() 会员信息查询.Show Form3.Hide End Sub Private Sub mand3_Click() Form2.Show Form3.Hide End Sub 1.4该界面是对会员信息添加、删除、修改界面，如图6-4： 【图6-4】 代码:会员添加 Dim con As New ADODB.Connection Dim rs As New ADODB.Recordset Private Sub mand1_Click() str1 = "select * from 会员信息" If con.State = 0 Then con.Open End If rs.Open str1, con, 1, 3 rs.AddNew DataShow rs.Update '在datagrid中显示数据 Adodc1.mandType = adCmdText con.Close End Sub Private 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 If End Sub 会员修改： Private Sub mand2_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.Execute ("update 会员信息 set 会员卡号='" & Text1.Text & " ',会员某某='" & Text2.Text & " ',某某号='" & Text3.Text & "',折扣率='" & Text4.Text & " ',联系方式='" & Text5.Text & " ', 卡内金额='" & Text6.Text & " ' ") MsgBox "信息修改成功", 64, "修改信息提示" rs.CursorLocation = adUseClient End If End If End Sub Private 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 mand3_Click() Dim con As New ADODB.Connection Dim rs As New ADODB.Recordset Dim str1 As String 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 'rs.CursorLocation = adUseClient MsgBox "删除成功！" End If Else MsgBox "当前数据库中没有可删除的数据记录", vbOKOnly, "提示信息" End If con.Close End Sub Private Sub mand4_Click() Form3.Show Form4.Hide End Sub 1.5该界面是对会员信息纤细查询界面，如图6-5： 【图6-5】 代码：Private Sub mand1_Click() Set DataGrid1.DataSource = Adodc1 End Sub Private Sub mand2_Click() Form3.Show 会员信息查询.Hide End Sub 6.2小卖部系统 2.1 admi选择小卖部管理系统，如图6-6： 【图6-6】 代码：Private Sub mand1_Click() Form3.Show Form2.Hide End Sub Private Sub mand2_Click() form5.Show Form2.Hide End Sub 2.2 小卖部信息处理界面，如图6-7 【图6-7】 代码：Private Sub add_Click() form7.Show End Sub Private Sub back_Click() Form9.Show Unload Me End Sub Private Sub count_Click() form6.Show End Sub Private Sub delete_Click() form8.Show End Sub 2.3该界面是商品添加界面，如图6-8: 【图6-8】 代码：Private Sub mand1_Click() str1 = "select * from CD where CD_NO ='" & Text1.Text & "'" If rs.State = 1 Then rs.Close End If rs.Open str1, conn, 1, 3 If Text1.Text = "" Then MsgBox "请输入菜单编号!", 64, "提示" Exit Sub End If If Text2.Text = "" Then MsgBox "请输入菜单名称!", 64, "提示" Exit Sub End If If Text3.Text = "" Then MsgBox "请输入菜单种类!", 64, "提示" Exit Sub End If If Text4.Text = "" Then MsgBox "请输入菜单单价!", 64, "提示" Exit Sub End If If rs.EOF Then conn.Execute ("insert into CD values('" & Text1.Text & "','" & Text2.Text & "','" & Text3.Text & "','" & Text4.Text & "','" & Text5.Text & "')") MsgBox "新添加菜单成功！", 64, "信息" End If End Sub Private Sub mand2_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" End Sub Private Sub mand3_Click() form5.Show Unload Me End Sub 2.4该界面是商品查询界面，如图6-9： 【图6-9】 Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim rs1 As New ADODB.Recordset Private Sub Check1_Click(Index As Integer) If Check1(Index).Value = 0 Or IsBusy Then Exit Sub Dim i As Integer IsBusy = True For i = 0 To Check1.UBound If i <> Index Then Check1(i).Value = 0 Next IsBusy = False End If End Sub Private Sub mand1_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 If End If If 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 If rs.Open "DC", conn, 2, 3 rs.AddNew rs.Fields("DC_NUM") = Text1.Text rs.Fields("DC_DESK") = bo2.Text rs.Fields("DC_COUNT") = Text4.Text If Check1(0).Value Then rs1.Open str1, conn, 1, 3 rs.Fields("CD_NO") = Text5.Text rs.Fields("CD_NAME") = rs1("CD_NAME") rs.Fields("CD_PRICE") = rs1("CD_PRICE") End If If Check1(1).Value Then rs1.Open str1, conn, 1, 3 rs.Fields("CD_NAME") = Text5.Text rs.Fields("CD_NO") = rs1("CD_NO") rs.Fields("CD_PRICE") = rs1("CD_PRICE") End If rs.Update Adodc1.RecordSource = str1 Set DataGrid1.DataSource = Adodc1 Adodc1.mandType = adCmdText Adodc1.Refresh End Sub Private Sub mand2_Click() Text5.Text = "" End Sub Private Sub mand3_Click() Unload Me End Sub 2.5该界面是商品删除界面，如图6-10： 【图6-10】 代码：Private Sub mand1_Click() str1 = "select * from CD where CD_NO='" & Text1.Text & "'" If rs.State = 1 Then rs.Close End If rs.Open str1, conn, 1, 3 If Text1.Text = "" Then MsgBox "请输入菜单编号!", 64, "提示" Exit Sub End If If rs.EOF Then MsgBox "不存在该菜单，请重新输入！", 48, "警告" Else conn.Execute ("delete from CD where CD_NO='" & Text1.Text & "'") MsgBox "删除成功！", 64, "信息" rs.Update rs.Close End If End Sub Private Sub mand2_Click() Text1.Text = "" End Sub Private Sub mand3_Click() form5.Show Unload Me End Sub 总结 通过此次数据库的课程设计，真正达到了学与用的结合，增强了对数据库方面应用的理解，对自己今后参与开发数据库系统积累了不少经验，在实验过程中，从建立数据开始，对数据库设计理念与思想上有更高的认识，从需求分析，到概念设计、逻辑设计和前后台结合，E-R图的表示，数据字典的创建，懂得了不少有关数据库开发过程中的知识，在实验中建表，与其关系模式，关系代数的建立与理解，将SQL语的查询语句用得淋漓尽致，增强了自己在数据库中应用SQL语言的灵活性，其中包括，插入、删除、修改、查询,牵涉表和表之间的联系，主建与外主键的定义，约束项的设置，使逻辑更严密。其中，前后台连接时难点，我在此花了大半局部时间。在学习过程中，我也能过上网查了不少资料，也看了一些别人设计的图书馆管理信息系统的设计报告，学以致用，自我创新，独立完成了这份自己的报告，从中在学到用，从用又到学，不断修改，系统更新。虽然不能达到完善系统，但也做到了尽善尽美，加强理论学习对完善系统会有很多帮助，不管说，对这次做的课程设计自己觉得还算满意 参考文献 1. 杜秋华, 康慧芳.可视化编程应用——Visual Basic 6.0. :人民邮电, 2004 2. 曹青,邱李华,郭志强. Visual Basic程序设计教程.机械工业,2004 3. X韬 骆娟. 数据库通用模块与典型系统开发. 人民邮电 4. 陈艳峰 高文姬.数据库项目案例导航. 清华大学 5. 王传华 姜虹. visual basic程序设计教程. 中国农业大学 6.周佩德.《数据库原理与应用》.电子工业 7. X炳文等，VISUAL BASIC程序设计——数据库篇，1999 8.李光明.《Visual Basic编程实例大制作》.冶金工业 9.李红等编著，管理信息系统开发与应用，电子工业，2003 10.软件工程，人民邮电，2002年3月第一版 11. 康博工作室，X红军，王红等缟著《Visual Basic中文版高级应用与开发指南》，人民邮电，2001年4月第一版 本文来源：https://www.wddqw.com/doc/b32634437d21af45b307e87101f69e314332fadd.html