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

学号
- 第2学期

《C++》

课程设计汇报

题目：
电影院售票系统
专业：
计算机科学和技术
班级：
14（1）
姓名：
虞跃华
指导老师：
陈宝国
成绩：

计算机学院
4月21日（课外，第十周答辩和总结）
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系统开发必需性
在二十一世纪科技时代，科学技术突飞猛进，计算机已经不仅是在科技上应用，而且在生活中也是一样得到了广泛在应用。伴随时间改变，影院规模扩大，相关售票管理工作和所包含到数据量越来越大越来越多，大多数影院不得不靠增加人力、物力、财力来进行售票管理。不过人工售票管理含有效率低、查找麻烦、可靠性不高、保密性低等原因。所以开发出一个适适用于相当规模影院售票管理系统是必需。
开发一个影院售票管理系统，采取计算机对影院售票进行管理，深入提升了影院效益和现代化水平。为广大影院提升工作效率，实现影院售票工作步骤系统化、规范化和自动化。现在中国很多影院管理水平普遍全部不是很高，有还停留在全用纸介质基础上，这种管理方法已不能适应时代发展，社会需求，因为它浪费了大量人力物力，也存在着很多不足原因。在今天信息时代这种传统管理方法肯定会被计算机为基础信息管理系统所替换。一个高效影院售票管理系统能够存放很多影院售票档案，不需要大量人力，
只需要几名专门录入员即可操作系统，节省大量人力，能够快速查到所需信息、高效、安全。
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.85
100

002
张敏
女

0.7
120

【表3.1】
影票信息表，如表3.2所表示，是描述影票具体信息。
电影名称
上映日期
上映时间
放映厅
票类
票价
恋爱通告
.06.01
18:00:00
*****
Vip
30
关云长
.06.07
18:00:00
*****
Vip
30
【表3.2】

②小卖部系统数据项
商品信息表，如表3.3所表示：

商品编号
商品名称
进价
销售价
单位
库存量
001
康师傅方便面
2
4
袋
100
002
爆米花
2
4
袋
150
【表3.3】

Ⅱ、数据结构
①售票系统数据结构
数据结构名
含义说明
组成
会员信息
说明会员相关信息
会员卡号、会员姓名、省份证号、联络方法、折扣率、早期金额、卡内金额、充值总额、小卖部消费、买票消费
影票信息
说明影票相关信息
票类、票价、影院名称、图示、电影名称、放映厅、上映时间、状态、上映日期
②小卖部系统数据结构
数据结构名
含义说明
组成
商品信息
说明商品相关信息
商品编号、商品名称、进价、销售价、单位、入库单号、入库日期、数量、经办人、期初库存

Ⅲ、E-R图
① 实体描述
【会员】图3-1所表示：

会员
小卖部消费
会员卡号
会员姓名
身份证号
联络方法
折扣率
卡内余额
充值总额
买票消费
期初金额
备注

【图3-1】
【商品】图3-2所表示：

商品
进价
销售价
商品名称
单位
期初库存
商品编号
备注

【图3-2】

【影票】图3-3所表示：

影票
票类
放映厅
上映日期
上映时间
影片名称
票价

【图3-3】
②会员、商品等实体E-R，图3-4所表示：

售票员
销售员
买
卖
买
影票
会员
卖
商品
1
N
1
N
1
N
1
N

【图3-4】3.4系统功效图
进入界面：
1. 售票员
2. 销售员
系统选择：开启售票系统
1显示上映影片信息
2.显示播放厅及票价
1. 添加、修改、删除影片
2. 设置播放厅及票价
3. 清空无用数据
是否会员
显示会员信息
是否充值
是否买票
是否办会员
修改会员信息
Y
N
Y
N
① 售票管理系统功效图，图3-5所表示：
【图3-5】

进入界面：
1. 售票员
2. 销售员

系统选择：小卖部系统
1.显示商品信息
2.显示库存明细
是否购置
更改库存及会员信息
会员
1.添加、删除、修改、查询商品信息
2.商品入库
3.商品盈利查询

Y
N
② 小卖部管理系统功效图，图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.1
2、小卖部管理（图5.2）

图5.2

3、查询统计（图5.3）

图5.3
5.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 = "" 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 Command2_Click()
End
End Sub

1.2系统选择界面，经过该界面admi能够选择是进入售票管理系统，还是进入小卖部管理系，统图6-2:

【图6-2】
代码：Private Sub Command1_Click()
Form3.Show
Form2.Hide
End Sub

Private Sub Command2_Click()
form5.Show
Form2.Hide
End Sub

1.3该界面是对会员信息管理，图6-3：

【图6-3】
代码：Private Sub Command1_Click()
Form4.Show
Form3.Hide
End Sub

Private Sub Command2_Click()
会员信息查询.Show
Form3.Hide
End Sub

Private Sub Command3_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 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 If
rs.Open str1, con, 1, 3
rs.AddNew
DataShow
rs.Update '在datagrid中显示数据

Adodc1.CommandType = 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 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 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 Command3_Click()
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim str1 As String
con.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.Close
End Sub

Private Sub Command4_Click()
Form3.Show
Form4.Hide
End Sub
1.5该界面是对会员信息纤细查询界面，图6-5：

【图6-5】
代码：Private Sub Command1_Click()
Set DataGrid1.DataSource = Adodc1
End Sub

Private Sub Command2_Click()
Form3.Show
会员信息查询.Hide
End Sub

6.2小卖部系统
2.1 admi选择小卖部管理系统，图6-6：

【图6-6】
代码：Private Sub Command1_Click()
Form3.Show
Form2.Hide
End Sub

Private Sub Command2_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 Command1_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 Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
End Sub

Private Sub Command3_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 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 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