毕业论文-影院售票系统

无 锡 职 业 技 术 学 院 毕 业 设 计 论 文 说 明 书 1 无锡职业技术学院 系别 分院 部 班级 姓名 学号 课 题 名 称 指 导 教 师职称 指 导 教 师职称 年月日 无 锡 职 业 技 术 学 院 毕 业 设 计 论 文 说 明 书 2 无无 锡锡 职职 业业 技技 术术 学学 院院 毕业设计任务书毕业设计任务书 课课 题题 名名 称称 指指 导导 教教 师师职职称称 指指 导导 教教 师师职职称称 专专 业业 名名 称称班班级级 学学 生生 姓姓 名名学学号号 课题需要完成的任务 基于 VB NET ADO NET 进行 C S 架构的数据库应用程序的开发 采用 visual Basic 开 发平台和 SqlServer2005 数据库后台的方法 实现一个易于使用的现代的影院售票管理系统 功能包括系统管理 售票管理 检票 退票 售票统计等模块 界面采用 winForm 技术 推崇美观 友好的设计理念 在程序中尽量减少代码的重复 提高代码的复用率 课题实践步骤 1 需求分析 问题的提出 问题的解决方案设计 2 概要设计 在需求分析的基础之上进行概要设计 绘制模块图 选择开发工具和开发技 术 3 详细设计 包括数据库设计 系统界面设计 4 系统开发 进入真正的编码阶段 利用具体的技术实现具体的功能 设计类 界面 5 部署运行 最后的测试 部署 调试阶段 保证程序可以顺利运行 课题计划 1 第一周 主要进行需求分析 抽取业务所在 并提供一个预订的解决方案 2 第二周 概要设计 选择合适的开发工具 开发模式 并绘制系统的模块图 3 第三周 详细设计数据库 表结构 4 第四周 第六周 系统功能实现 也就是真正的编码阶段 具体功能的实现 5 第七周 写出各类文档和毕业论文 6 对毕业论文进行修改 并准备答辩 答辩时间 部 分院 部 分院 2010 年年月月日日 无 锡 职 业 技 术 学 院 毕 业 设 计 论 文 说 明 书 3 论计算机在影视业的应用论计算机在影视业的应用 关键字 电影 计算机 应用 票务管理 程序设计 visual Basic mvc 设计模式 摘要 电影的产生改变人们的生活和娱乐习惯 去影院看电影也成为人们平时休闲娱乐 交友 学习的重要内容 生活习惯的改变影响着影院的发展 影院的规模越来越大 经营管理也越 来越受到影院经营者的关注 计算机的发展和软件业的兴起对影院的发展产生了很大的影 响 借助与计算机的软件的强大功能 影院的经营管理模式发生了中大变化 文章将结合电 影业的发展和变迁 讨论计算机的发展对电影业的影响 讨论计算机技术在电影业的应用 以及使用 visual basic 语言开发影院售票系统相关问题 论文主要介绍了本课题的开发背景 系统分析 数据库设计和系统的设计与实现 Keyword movie computer application ticket program visual Basic mvc Design parttern Abstract Filmdom s development change the habit of people we go to the cinema with our friends it s very good so the size of cinema become bigger and bigger The businessof cinema arouse people sattention Thisarticlewillbetallabouttheeffecttofilmdomofcomputer develop Through the talk I will notice the history of filmdom My topic is the application that made by program in filmdom and also I will spend the most sections to talk about programming in develop application with visual basic 无 锡 职 业 技 术 学 院 毕 业 设 计 论 文 说 明 书 4 目录目录 第一章 绪论 5 1 前言 5 2 研究背景 5 第二章 系统概述及工具介绍 6 1 系统概述 6 2 数据库技术 6 3 visual Basic 6 4 控件介绍 7 5 ADO net 技术 8 第三章 需求分析 10 1 需求分析 10 2 系统框架图 10 第四章 系统设计 1 数据库设计 11 2 程序设计 13 a 登录模块 13 b 系统主界面 15 c 影片管理 17 d 操作员管理 20 e 预订票管理 22 f 检票退票 25 g 售票统计 27 第五章 结束语 28 第六章 参考文献 28 无 锡 职 业 技 术 学 院 毕 业 设 计 论 文 说 明 书 5 第一章第一章 绪论绪论 前言 计算机软件作为一门学科得到了迅速发展 相关技术和方法层出不穷 研究领域不断深 入和发展 计算机的应用范围也得到了很大程度的普及 影视业的蓬勃发展也对计算机应用 产生了极大的需求 不仅在电脑特效 音效合成 电影宣传 影院的经营与完善也要借助与 计算机提供的强大支持 如影院的自动播放系统 售票系统等等 这篇文章就主要讨论影院 的售票系统发展 开发背景 电影的产生改变人们的生活和娱乐习惯 去影院看电影也成为人们平时休闲娱乐 交友 学习的重要内容 生活习惯的改变影响着影院的发展 影院的规模越来越大 经营管理也越 来越受到影院经营者的关注 随着计算机技术的发展 特别是计算机软件技术与数据库技术的发展 使用人们的生活 与工作方式发生了很大的改观 数据库始于 20 世纪 60 年代 经过 40 多年的发展 现在已 经形成了理论体系 成为计算机软件的一个重要分支 数据库技术体现了当代先进的数据管 理方法 使计算机的应用真正渗透到国民经济各个部门 在数据处理领域发挥着越来越大的 作用 统的影院售票模式是人工的 一旦影院规模扩大 多场次 多包间 业务越来越细化 这种传统的售票模式就不能适应 必须有一种快捷 方便的经营模式出现 利用计算机软件 的强大功能 就可以很容易完成这些任务 并且还能提供更多的更人性化的服务 比如预订 票 更换场次 推迟场次 更换包间 退票 检票等等 如果是传统的人工售票模式 将很 难完成 接下来我就将介绍我使用微软 net 框架下的 visual Basic 语言开发的售票系统 无 锡 职 业 技 术 学 院 毕 业 设 计 论 文 说 明 书 6 第二章第二章系统概述及工具介绍系统概述及工具介绍 系统概述 这是一个简单的影院售票管理系统 提供了影院售票过程中可能遇到的各种操作 如 添加新影片 修改或删除影片信息 搜索影片 售票 打印影票 检票 退票 预订票 统 计售票基本情况等 数据库技术 数据库引擎是用于存储 处理和保护数据的核心服务 数据库引擎提供了受控访问和快 速事务处理 以满足企业内最苛刻的数据消费应用程序的要求 数据库引擎还提供了大量的 支持以保持高可用性 SQL Server 提供了设计 开发 部署和管理关系数据库 Analysis Services 多维数据集 数据转换包 复制拓扑 报表服务器和通知服务器所需的工具 SQL Server Management Studio 这是微软的另外一款强大的数据库系统开发工具 他除 了是一个强大的 IDE 同时还包含了数据库服务 报表服务等功能 它也是最流行的数据库 系统之一 现在最常见的数据库系统有 oracle 甲骨文 DB2 IBM 公司 Sysbase 等 该工具秉承了微软的一贯作用 高集成 它可与 vsiaul studio 进行无缝的集成 使用开发人 员在开发应用时更加的快速和方便 可以使用 Vs 提供的数据库访问工具很轻松的连接到 sql server 服务 同时可以建立数据库 表 存储过程 视图等 SQL Server 是微软推出的中小 型网络数据库系统 是目前最常用的数据库系统之一 随着 SQL Server 网络数据库应用程 序日益增多 这种 Web 数据库应用系统的正常运行一般依赖于已存在的用户数据库 创建 维护数据库的工作可用 SQL Server 提供的 SQL Enterprise Manager 工具来进行 如能提供一 种定制的数据库管理工具 通过管理应用程序来管理数据库及其设备 对用户来说无疑是最 理想的 SQLServer2005 客户端 服务器数据库系统由以下两个组件组成 程序 为基于客户端的用户提供界面以访问数据 数据库结构 管理和存储服务器上的数据 例如 如果使用 Microsoft SQL Server 2005 创建支票帐户应用程序 则必须设置一个数据库结构来管理帐户交易数据 还要设置一个应 用程序充当数据库的用户界面 这使用户可以访问支票帐户信息 创建能够满足业务需要的数据库 要求了解如何设计 创建和维护各个组件 这样才能 确保数据库的性能处于最佳状态 visual Basic Microsoft Visual Studio 6 0 这是微软公司提供的一款集成 IDE 开发工具 主要使 用对象为 net 程序员 即使用 net 框架下的语言进行开发的程序员 该工具为 c s 架构下的 GUI 开发和 B S 架构下的网站开发都提供了强大的工具支持 如工程建立 代码联想 代码 着色 控件化开发 调试 测试等 而且该工具不只适合与 vb 程序员 C vf 等程序员 也可以使用该工具提供的功能 工具的最新版本是 vs2010 增加了对 C 程序员 基于 ajax 的网站开发 linq silverlight 富客户端开发等的支持 功能更加强大 VB 访问 SQL Server 数据的常用方法 使用 Visual Basic 作为前端开发语言 与 SQL Server 接口有几种常用的方法 即 无 锡 职 业 技 术 学 院 毕 业 设 计 论 文 说 明 书 7 数据访问对象 Jet 为 ODBC API 编程 使用 SQL Server 的 Visual Basic 库 VBSQL 为 DB 库的 API 编程 RDO 远程数据对象 RemoteData Objects ADO 数据对象 Active Data Objects 控件介绍 1 Windows 窗体 Windows 窗体控件是可重用的组件 它们封装了用户界面功能 可以在基于 Windows 的 客户端应用程序中使用 Windows 窗体 不仅提供了许多现成控件 还提供了自行开发控 件的基础结构 可以组合现有控件 扩展现有控件或创作自己的自定义控件 2 DataGrid 控件 Windows 窗体 DataGrid 控件可为 ADO NET 数据集提供用户界面 以显示表格数据 并允许对数据源进行更新 当 DataGrid 控件设置为有效的数据源时 该控件将被自动填充 同时根据数据的形状创建列和行 DataGrid 控件可以用于显示单个表或显示一组表之间的 分层关系 3 DataGridVIew 控件 新版的 net 框架中 该控件替换了 DataGrid DataGridView 控件提供一种强大而灵活的 以表格形式显示数据的方式 可以使用 DataGridView 控件来显示少量数据的只读视图 也 可以对其进行缩放以显示特大数据集的可编辑视图 可以用很多方式扩展 DataGridView 控 件 以便将自定义行为内置在应用程序中 例如 可以采用编程方式指定自己的排序算法 以及创建自己的单元格类型 通过选择一些属性 可以轻松地自定义 DataGridView 控件的 外观 可以将许多类型的数据存储区用作数据源 也可以在没有绑定数据源的情况下操作 DataGridView 控件 4 ListView 控件 Windows 窗体 ListView 控件显示了带图标的项的列表 可使用列表视图创建类似于 Windows 资源管理器右窗格的用户界面 该控件具有四种视图模式 LargeIcon SmallIcon List 和 Details ListView 控件的主要属性是 Items 该属性包含该控件 显示的项 SelectedItems 属性包含控件中当前选定项的集合 如果将 MultiSelect 属性设置 为 true 则用户可选择多项 例如 同时将若干项拖放到另一个控件中 如果将 CheckBoxes 属性设置为 true ListView 控件可以显示这些项旁的复选框 Activation 属性可以确定用户 激活列表中的某项时必须执行的操作类型 选项有 Standard OneClick 和 TwoClick 执行 OneClick 激活时 需要通过一次单击激活该项 执行 TwoClick 激活时 要求用户通过双 击激活该项 一次单击可以更改该项的文本颜色 执行 Standard 激活时 要求用户通过双 击激活某项 但是该项的外观不会发生更改 5 imageList 控件 在Visual Basic 6 0 中 Picture DownPicture 和DisabledPicture 属性用于根据 CheckBox CommandButton 或 OptionButton 控件的状态显示不同的图片 例如 如果选 中 CheckBox 控件 则显示 DownPicture 图像 如果禁用该控件 则显示 DisabledPicture 图 无 锡 职 业 技 术 学 院 毕 业 设 计 论 文 说 明 书 8 像 在 Visual Basic 2005 中 使用 ImageList 控件可以获得同样的效果 例如 在运行时 显示 DisabledPicture 图像 If CheckBox1 Enabled False Then Assign the third image DisabledPicture to the Image property CheckBox1 Image ImageList1 Images 2 ElseIf CheckBox1 Checked True Then Assign the second image DownPicture to the Image property CheckBox1 Image ImageList1 Images 1 Else Assign the first image Picture to the Image property CheckBox1 Image ImageList1 Images 0 End If 以上介绍的控件在本应用中都进行了使用 ADO net 技术 任何数据库应用程序的一项主要功能是连接数据源并检索数据源中包含的数据 ADO NET 的 NET Framework 数据提供程序充当应用程序和数据源之间的桥梁 使您可以 执行命令以及使用 DataReader 或 DataAdapter 检索数据 例如下面的一个应用 读取数据库连接信息 Dim strTmp As String strT As String OpenApp Path sql inf For InputAs 1 If EOF 1 False Then Line Input 1 strTmp Close 1 strTmp Trim strTmp If strTmp Then strT Split strTmp For i 0 To 3 strT i strT i Next strserver strT 0 struser strT 1 strpwd strT 2 strdb strT 3 End If 执行一个查询操作 Dim sqlAs String Dim rsAs NewADODB Recordset sql select from maintain where mtnnum Trim Me Combo2 Text rs Open sql cn If rs EOF False Then Me DTPicker1 0 Value Trim rs Fields rpttime Value Me Text2 Text Trim rs Fields consumer Value 无 锡 职 业 技 术 学 院 毕 业 设 计 论 文 说 明 书 9 Me Text3 Text Trim rs Fields csmphoto Value Me Text4 Text Trim rs Fields csmaddress Value Me Text5 Text Trim rs Fields rtpcontent Value idflag Trim rs Fields mtnid Value Else MsgBox 没有找到该记录 vbOKOnly vbExclamation 信息提示 End If End Sub 要编写安全的 ADO NET 应用程序 所涉及的问题不仅仅是要避免常见的编码缺陷 访问数据的应用程序包含许多潜在的故障点 攻击者可以利用这些故障点来检索 操纵或破 坏敏感的数据 一定要了解安全的各个方面 从应用程序设计阶段建立威胁模型的过程 到 应用程序的最终部署 到对应用程序的不断的实时维护 都要考虑到 无 锡 职 业 技 术 学 院 毕 业 设 计 论 文 说 明 书 10 第三章第三章 需求分析需求分析 需求分析 需求分析是软件设计当中最重要的步骤之一 它也是决定一个软件产品好坏的重要因 素 通过需求分析可以得知该系统的可行性程度 开发难度 并决定应该使用的技术和开发 工具 这是一个基于 C S 架构的数据库应用程序 主要用在影院的影片和售票管理方面 主 要功能模块如下 1 影片管理 增加 删除 修改影片 2 系统管理 该模块又包含了操作员管理 重新登录 退出系统模块 3 预订票管理 提供了预订票的功能 4 登录模块 主要给操作员提供一个登录系统的界面 并验证用户名称和密码 5 检票 在观众入场时使用 6 退票 该功能有时间限制 在开场之后一段时间是不能退票的 7 统计信息 可以按照年月日对过去的售票记录进行查询 统计 这样很容易得 到当天或一段时间内的销售业绩 系统框架图 影 院 售 票 管 理 系 影片管理 系统管理 预订票管理 登录模块 检票 退票 影片管理 统计信息 图 1 功能模块图 本系统选择 VisualBasic6 0 集成开发工具和 SqlServer2005 数据库系统 无 锡 职 业 技 术 学 院 毕 业 设 计 论 文 说 明 书 11 第四章第四章 系统设计系统设计 1 数据库设计 数据库设计 数据库设计分为详细设计和物理设计 根据系统的需求分析得出 该系统的数据流向和 数据可能有以下内容 操作员 影片信息 售票信息 退票信息 公告信息 检票口信息等 以下是根据需求分析之后得出的系统的数据结构字典 详细设计 表 1 操作员信息表 字段名数据类型及长度说 明备 注 optidint管理员编号主关键字 自增 optnamechar 12 管理员姓名不能为空 optpwdnchar 20 管理员密码不能为空 optrgtbit帐号是否有效不能为空 表 2 影片信息 字段名数据类型及长度说 明备 注 Tstidint影片编号主关键字 自增 tstnamevarchar 50 影片名称不能为空 tstxbvarchar 50 检票口号码不能为空 tstdepartmentvarchar 50 包间号码不能为空 tstnlsmallint总票数不能为空 tstphonedatetime开始时间不能为空 tstzcvarchar 50 备注可以为空 表 3 售票信息 字段名数据类型及长度说 明备 注 mtnidbigint编号主关键字 自增 mtnnumnvarchar 12 票的编号不能为空 rpttimedatetime销售时间不能为空 rtpcontenttext影片名称不能为空 consumerchar 12 检票口号码不能为空 csmaddresschar 50 包间号码不能为空 csmphotochar 30 备注可以为空 tsttimevarchar 50 有效时间可以为空 csmattitudetinyint票的状态可以为空 tstpaynchar 19 操作员可以为空 无 锡 职 业 技 术 学 院 毕 业 设 计 论 文 说 明 书 12 sfclint价格可以为空 表 4 公告信息 字段名数据类型及长度说 明备 注 ggidint编号主关键字 自增 ggrqdatetime发布时间不能为空 ggnrtext公告内容不能为空 表 5 检票口信息 字段名数据类型及长度说 明备 注 tmpidtinyint编号主关键字 自增 tmpnumtinyint检票口号码不能为空 物理设计 即根据ER图或根据详细设计部分得出的数据字典 在数据库设计器中进行数据库模型 表结构的具体建立 数据库设计器是一种可视化工具 它允许您对所连接的数据库进行设计 和可视化处理 设计数据库时 可以使用数据库设计器创建 编辑或删除表 列 键 索引 关系和约束 为使数据库可视化 可创建一个或更多的关系图 以显示数据库中的部分或全 部表 列 键和关系 除了通过设计器进行建立 还可以通过编写 sql 脚本来建立数据库和表结构 脚本实例 use master go if exists select from sysdatabases where name Hr drop database Hr go create database Hr ON PRIMARY NAME hr db FILENAME d hr db mdf SIZE 3 MB MAXSIZE UNLIMITED FILEGROWTH 256 KB LOG ON NAME hr log FILENAME d hr log ldf SIZE 1 MB MAXSIZE UNLIMITED FILEGROWTH 256 KB go 以上脚本可以完成数据库的建立 use Hr go create table users u id int identity not null u name varchar 60 not null u true name varchar 60 not null 无 锡 职 业 技 术 学 院 毕 业 设 计 论 文 说 明 书 13 u password varchar 60 not null roleId int 以上脚本可以完成在数据库 hr 中建立一个用户表 2 程序设计 程序设计 程序设计即 coding 阶段 本系统采用 vb 语言进行实现 下面是主要功能的实现思路和 代码逻辑 A 登录模块 登录模块 图 2 登录窗口 实现思路 该窗口在系统开始运行前首先显示 通过验证输入的用户名和密 码来让操作员进入系统 登录成功后将进入系统主界面 流程图 无 锡 职 业 技 术 学 院 毕 业 设 计 论 文 说 明 书 14 开始 登录窗体 退出 终止 Y N 系统主界面 验证登录 Y N 图 3 登录流程图 实现代码 代码段 1 验证输入的用户名称是否为空 Private Sub Command1 Click If Text1 Text Or Text2 Text Then If Text1 Text Then MsgBox 请输入用户名 16 Text1 SetFocus Exit Sub Else MsgBox 请输入密码 16 Text2 SetFocus Exit Sub End If End If 不为空则到数据库去查询该用户的信息 验证密码和用户名是否正确 If rs State 1 Then rs Close rs Open select from operator where optname Text1 Text and optpwd Text2 Text cn If rs EOF False Then If rs Fields optrgt Value True Then MDIForm1 MenuOperator Visible False MDIForm1 OperEmp Visible False MDIForm1 Toolbar1 Buttons 1 Visible False MDIForm1 Toolbar1 Buttons 2 Visible False End If 无 锡 职 业 技 术 学 院 毕 业 设 计 论 文 说 明 书 15 MDIForm1 Show Unload Me Exit Sub Else lcount lcount 1 If lcount 4 Then MsgBox 输入有错误 你还剩下 3 lcount 登录机会 32 Else MsgBox 超出了输入的次数 Unload Form2 rs Close cn Close Exit Sub End End If End If End Sub 这里采用了一种安全机制 以防有人进行恶意的密码破解 每次程序程序用户 只有三次输入密码的机会 如果三次密码都不正确 则退出系统 B 系统主界面 系统主界面 图 4 系统主界面 实现思路 该界面应该包含用户常用的功能菜单 工具条等 点击相应的按 钮或下拉菜单即可运行相应的模块 如图所示 无 锡 职 业 技 术 学 院 毕 业 设 计 论 文 说 明 书 16 流程图 登录成功 系统主界面 系统管理 影片管理 售票管理检票 退票 统计 结束 退出系统 图 5 系统主界面流程图 代码实现 该界面的代码实现只包含相应的子窗体调用代码 例如 1 点击退出按钮 将根据用户的选择来判断是否退出系统 Private Sub Toolbar1 ButtonClick ByVal Button As MSComctlLib Button Select Case Button Index Case 1 Frmopt Show Case 2 frmemp Show Case 3 frmmate Show Case 4 FrmRep Show Case 5 frmdeal Show Case 6 Case 7 frmsearch Show Case 8 Dim a As Integer a MsgBox 确定退出系统吗 vbYesNo 48 信息提示 If a 6 Then Unload MDIForm1 End 无 锡 职 业 技 术 学 院 毕 业 设 计 论 文 说 明 书 17 End If End Select End Sub 2 点击重新登录的时候要退出系统 并显示登录界面 Private Sub Menurelogin Click login Show Unload MDIForm1 End Sub C 影片管理模块 影片管理模块 图 6 影片管理界面 实现思路 当用户点击影片管理按钮时应显示该界面 同时在下拉列表中加 载出所有的检票口信息 然后操作员输入相应的信息 点击增加即可完成影片 的添加 新添加的影片将显示在下面的列表中 当用户在 ListView 控件中点 击某一部影片的时候应在上半部分显示出该影片的详细信息 并将增加按钮禁 用 启用修改和删除按钮 点击取消的时候关闭该窗口 无 锡 职 业 技 术 学 院 毕 业 设 计 论 文 说 明 书 18 流程图 开始管理 退出 N 结束返回 主界面 输 入 内 容 增加 Y N 点 击 修 改 修改 N 图 7 添加影片的流程图 代码实现 主要部分代码 增加影片功能代码 1 点击添加按钮将执行下面的代码 代码中从文本框中获取用户的输入 并拼接到插入的 sql 语句中 最后执行插入 Private Sub Command1 Click Dim sAs Date s Me DTPicker1 Value cn Execute insert into transactor tstname tstxb tstdepartment tstnl tstphone tstzc values Me Text1 Text Me Combo1 Text Me Text2 Text Me Text3 Text Me DTPicker1 Value Me Text5 Text MsgBox 添加成功 vbOKOnly vbInformation 信息提示 lstrefresh txtclr End Sub 2 修改功能的代码 Dim sqlAs String sql update transactorset tstname Me Text1 Text tstxb Me Combo1 Text tstdepartment Me Text2 Text tstnl Me Text3 Text tstphone Me DTPicker1 Value tstzc Me Text5 Text where tstid id cn Execute sql lstrefresh MsgBox 已经修改信息 vbOKOnly vbExclamation 修改结果 无 锡 职 业 技 术 学 院 毕 业 设 计 论 文 说 明 书 19 txtclr Me Command1 Enabled True Me Command3 Enabled False Me Command2 Enabled False 3 删除按钮功能 Private Sub Command3 Click Dim sqlAs String sql deletefrom transactor where tstid id cn Execute sql lstrefresh MsgBox 已经删除信息 vbOKOnly vbExclamation 删除结果 txtclr Me Command1 Enabled True Me Command3 Enabled False Me Command4 Enabled False End Sub 4 点击 ListView 中一项 将在上面显示该项目的详细信息 并让修改按钮 可以使用 增加按钮不能使用 Private Sub ListView1 ItemClick ByVal ItemAs MSComctlLib ListItem Me Text1 Text ListView1 SelectedItem Text Me Combo1 Text ListView1 SelectedItem ListSubItems 1 Text Me Text2 Text ListView1 SelectedItem ListSubItems 2 Text Me Text3 Text ListView1 SelectedItem ListSubItems 3 Text Me DTPicker1 Value ListView1 SelectedItem ListSubItems 4 Text Me Text5 Text ListView1 SelectedItem ListSubItems 5 Text id ListView1 SelectedItem ListSubItems 6 Text Me Command1 Enabled False Me Command2 Enabled True Me Command3 Enabled True End Sub 5 添加或修改完毕后 刷新 ListView 信息的显示 Private Sub lstrefresh Dim rsAs NewADODB Recordset Set rs TransactSQL SQL If rs State 1 Then rs Close rs Open select from transactor cn Me ListView1 ListItems Clear If rs EOF False Then While rs EOF True Set lb ListView1 ListItems Add Trim rs Fields tstname Value 无 锡 职 业 技 术 学 院 毕 业 设 计 论 文 说 明 书 20 lb SubItems 1 Trim rs Fields tstxb Value lb SubItems 2 Trim rs Fields tstdepartment Value lb SubItems 3 Trim rs Fields tstnl Value lb SubItems 4 Trim rs Fields tstphone Value lb SubItems 5 Trim rs Fields tstzc Value lb SubItems 6 Trim rs Fields tstid Value rs MoveNext Wend rs Close End If End Sub D 操作员管理 操作员管理 这是系统模块的其中一个模块 图 8 操作员管理 实现思路 该模块的实现与影片管理模块类似 不再赘述 该功能只有系统 管理员才能拥有 实现代码 1 实现了窗体加载时应该进行的操作 Private Sub Form Load ListView1 ColumnHeaders Add 管理员名称 2000 ListView1 ColumnHeaders Add 密码 0 ListView1 ColumnHeaders Add 权限 3000 ListView1 ColumnHeaders Add id 0 If rs State 1 Then rs Close rs Open select from operator cn If rs EOF False Then While rs EOF True Set lb ListView1 ListItems Add Trim rs Fields optname Value lb SubItems 1 Trim rs Fields optpwd Value 无 锡 职 业 技 术 学 院 毕 业 设 计 论 文 说 明 书 21 If Trim rs Fields optrgt True Then lb SubItems 2 管理员 Else lb SubItems 2 售票员 End If lb SubItems 3 Trim rs Fields optid Value rs MoveNext Wend rs Close End If Me Command3 Enabled False Me Command4 Enabled False End Sub 2 增加管理员 Private Sub Command1 Click Dim optflag As Integer If Me Option1 Value True Then optflag 1 End If cn Execute insertintooperator optname optpwd optrgt values Me Text1 Text Me Text2 Text optflag lst txtclr End Sub 3 修改管理员 Private Sub Command3 Click Dim optflag As Integer If Me Option1 Value True Then optflag 1 End If If rs State 1 Then rs Close cn Execute update operator set optname Me Text1 Text optpwd Me Text2 Text optrgt optflag where optid optid lst Me Command3 Enabled False Me Command4 Enabled False Me Command1 Enabled True txtclr End Sub 4 删除管理员 Private Sub Command4 Click If rs State 1 Then rs Close 无 锡 职 业 技 术 学 院 毕 业 设 计 论 文 说 明 书 22 cn Execute delete from operator where optid optid MsgBox 删除成功 vbExclamation 信息提示 lst Me Command3 Enabled False Me Command4 Enabled False Me Command1 Enabled True txtclr End Sub 5 listView 的项点击事件处理代码 Private Sub ListView1 ItemClick ByVal ItemAs MSComctlLib ListItem Me Text1 Text ListView1 SelectedItem Text Me Text2 Text ListView1 SelectedItem ListSubItems 1 Text If ListView1 SelectedItem ListSubItems 2 Text 超级管理员 Then Me Option1 Value True Else Me Option2 Value True End If optid ListView1 SelectedItem ListSubItems 3 Text Me Command3 Enabled True Me Command4 Enabled True Me Command1 Enabled False End Sub E 预订票管理 预订票管理 图 9 预订票界面 无 锡 职 业 技 术 学 院 毕 业 设 计 论 文 说 明 书 23 实现思路 在该窗体通过点击查询可以按钮可以得到下拉列表中的影票的详 细信息 然后输入相应的信息点击打印即可完成票的预订 窗体加载时 下拉 列表中预先加载出所有影票的名称 以供选择 实现代码 主要代码 1 打印按钮的代码 Private Sub Command1 Click cn Execute insertinto maintain mtnnum rpttime rtpcontent consumer csmphoto csmaddress tsttime sfcl values Me Text1 Text Me DTPicker1 Value Me Text2 Text Me Text3 Text Me Text4 Text Me Text5 Text Me Text7 Text 1 Dim rsAs NewADODB Recordset Dim sqlAs String Dim sumAs Integer sum 1 sql select from tictable where fimid id rs Open sql cn If rs EOF False Then sum rs Fields filmticket 1 cn Execute update tictable set filmticket sum where fimid id Else cn Execute insert into tictable fimid filmname filmtime filmticket values id Me Text2 Text Me DTPicker1 Value sum MsgBox 添加成功 vbOKOnly vbInformation 信息提示 lstrefresh txtclr End If frmprint Show End Sub 2 窗体加载 Private Sub Form Load Me DTPicker1 Value Now Dim sqlAs String Dim rsAs NewADODB Recordset Me Combo2 Text sql selecttstname tstphone from transactororder by tstid If rs State 1 Then rs Close rs Open sql cn If rs EOF False Then 无 锡 职 业 技 术 学 院 毕 业 设 计 论 文 说 明 书 24 While Not rs EOF If DateDiff s rs 1 Now getdate cn Me ListView1 ListItems Clear If rs EOF False Then While rs EOF True Set lb ListView1 ListItems Add Trim rs Fields tstname Value lb SubItems 1 Trim rs Fields tstxb Value lb SubItems 2 Trim rs Fields tstdepartment Value lb SubItems 3 Trim rs Fields tstnl Value lb SubItems 4 Trim rs Fields tstphone Value 无 锡 职 业 技 术 学 院 毕 业 设 计 论 文 说 明 书 25 lb SubItems 5 Trim rs Fields tstzc Value lb SubItems 5 Trim rs Fields tsttime Value lb SubItems 6 Trim rs Fields tstid Value rs MoveNext Wend rs Close End If End Sub F 检票 退票 检票 退票 图 7 检票 实现代码 该界面的功能较为简单 代码片段 代码段 7 检票功能 Dim sqlAs String Dim fname As String Dim filmdate As Date Dim sumAs Integer Dim rsAs NewADODB Recordset sql select from maintainwhere mtnnum Me Text1 Text rs Open sql cn If rs Fields sfcl 3 Then sql update maintain set sfcl 3 where mtnnum Me Text1 Text If rs State 1 Then rs Close rs Open sql cn 无 锡 职 业 技 术 学 院 毕 业 设 计 论 文 说 明 书 26 图 8 退票 代码实现 代码段 8 实现退票功能的代码 Dim sqlAs String Dim fname As String Dim filmdate As Date Dim sumAs Integer Dim rsAs NewADODB Recordset sql select a filmname a filmtime a filmticket