展会管理系统毕业论文.doc

所 在 系 专 业 姓 名 学 号 指导教师 本科生毕业论文 设计 本科生毕业论文 设计 题目 展会管理系统题目 展会管理系统 数学与信息技术院 计算机科学与技术 李薇薇 0921410012 刘潇 论文完成日期 2011 年 4 月 30 日 目录 一 绪 论 1 一 选题的目的与意义 1 二 课题的开发环境 1 三 开发平台的特点 1 二 开发平台的相关技术 3 一 VISUAL BASIC6 0 平台概述及相关技术 3 二 ADO 数据库访问技术及其在 VB 中的应用 4 三 展会管理系统的设计 5 一 系统的总体设计 5 二 系统应用软件架构设计 5 三 系统的功能设计 5 四 系统的后台数据库设计 8 五 设计规范的约定 12 四 展会管理系统的实现 13 一 登录窗体模块的实现 13 二 主窗口模块的实现 14 三 展位查询窗体模块的实现 15 四 收款管理窗体模块的实现 17 五 收费查询窗体模块的实现 19 总结 21 参考文献 21 致谢 21 展会管理系统展会管理系统 李薇薇李薇薇 0921410012 摘要摘要 随着目前国内会议会展的日趋增多 传统的以手工方式为主的展会管理模式受到了很大的冲击 展 会资源不能合理得到利用 管理者不能实时掌握展会的各项动态资料 因此有必要开发出一套针对展会组织 者专用的计算机辅助管理软件 展会管理系统便应运而生 展会管理信息系统能够帮助组委会在展会筹备阶 段对展商 观众 活动和花费进行管理 系统高度抽象了展会筹备阶段的业务模型 在设计上采用弹性 活 动的设计方法 具有一定的独到之处 允许用户根据实际需要定义展会中的活动的各项属性 使得组委会能 够根据实际情况在系统中定制展会活动 并对活动和资源计划以及发生的费用进行全程的监控 做出正确的 决策 关键词关键词 展会管理 管理信息系统 VB Access 中图分类号 中图分类号 tp315tp315 文献标识码文献标识码 A A AbstractAbstract Can exhibition along with the present domestic conference increases day by day the tradition primarily exhibition by the manual way can manage the pattern to be under the very big impact exhibition meets the resources not to be able to obtain the use reasonably the superintendent cannot real time grasp exhibitions the meeting each item of dynamic material Therefore has the necessity to develop a set in view of to exhibition meets the organizer special purpose computer assistance to manage the software exhibitions can the management system management system then arise at the historic moment This exhibition management system helps the committee to plan and design in several aspets such as size of exhibitor and vistor activities and budges of eshibition It does not only integrate the abstract work flow in eshibition but aso contains some special features to provided a flexible manner With the help of customized definitions of activities and different properties in the system different users can design according to different real world circumstances observing the procedure and resources of the exhibit on time so as make correct dscisions KeyKey Words Words exhibition management Management Information System Visual Basic access 毕业设计 论文 1 一 绪 论 一 选题的目的与意义 信息技术的飞速发展大大推动了社会的进步 已经逐渐改变了人类的生活 工作 学 习等方式 数据库技术和网络技术是信息技术中最重要的两大支柱 随着我国经济的蓬勃 发展并逐渐与世界接轨 各行各业都在举办各种规模的国际展会 展会经济已经成为社会 活动的热点 但是大多数展会主办机构对展会筹备的整个过程缺乏信息化 智能化管理 仍停留在分散的 手工管理的初级水平上 已经不能满足人们的需求 甚至会影响到展会 产业的长期可持续发展 如何利用先进的管理手段 提高展会的管理水平 是当今大多数 展会主办机构面临的一个重要课题 要想提高展会的管理水平 必须全方位的提高展会管 理意识 只有以为展商和观众提供高标准 高质量的服务为目标才能满足人们的需要 面 对信息时代的挑战 利用高科技手段计算机管理系统来提高展会管理的组织和协调过程无 疑是一条行之有效的途径 在某种意义上 信息与科技在展会管理与展会经济现代化建设 中显现出越来越重要的地位 展会管理的信息化与科学化 已成为展会经济现代化水平步 入高台阶的重要标志 因此有必要开发出一套针对展会组织者专用的计算机辅助管理软件 展会管理系统便应运而生 二 课题的开发环境 Visual Basic6 0 版是微软公司出品的一个可视化程序开发工具软件 它不仅继承了以 往版本的各种先进技术 而且适应目前计算机技术的发展潮流 提供了基于组件 Web 及多 层结构的快速开发环境 它借助微软在操作系统和办公软件的垄断地位 Visual Basic6 0 在短短的几年内就风靡了全球 Visual Basic6 0 是极有特色和功能强大的软件 主要表 现在 所见即所得的界面设计 基于对象的设计方法 极短的软件开发周期 轻易维护的 生成代码 功能 Visual Basic6 0 具有强大的数据访问 internet 编程 使用新的控件 利用 增强的控件提高性能 熟悉语言特性的向导功能等重要特性 Visual Basic6 0 具有的这 些特点可以大大简化利用 Visual Basic6 0 开发的美观实用程序的难度 随着数据库技术的发展 面向对象的数据库 分布式数据库 多媒体数据库 数据库 开发工具的研究方兴未艾 这些技术的发展使应用软件的开发速度更快 成本更低 质量 更好 功能更强 Visual Basic6 0 是其中最杰出的代表之一 它集面向对象数据库技术 分布式应用技术 多媒体技术于一身 是目前最有代表性的数据库开发工具 几乎已发展成 为客户 服务器前端工具的标准 因此 在开发展会管理系统时 我选用了 Visual Basic6 0 作为开发工具 三 开发平台的特点 展会管理系统的开发将采用 VB 6 0 和 Microsoft Access 2000 数据库作为开发平台 Visual Basic 是运行于 windows 平台上的可视化集成开发环境 面对对象的编程 面 向对象的设计方法 OP Objected Programming 从应用领域内的问题着手 以直观自然 的方式描述客观世界的实体 Visual Basic 作为一种面向对象的编程方法 把程序和数据 毕业设计 论文 2 封装起来作为一个对象 并为每个对象赋予相应的属性 在设计对象时 不必编写建立和 描述每个对象的程序代码 而是用工具画在界面上 Visual Basic 应用程序基本的构建块 是用户所创建的对象 每一个对象都具有一些特性和行为 属性 事件和方法 开发人员 可以最有效利用所创建的每一个对象 使用应用程序具有可通用性可说扩展性和强有力的 功能 Visual Basic 应用由一系列对象组成 包括有函数 菜单 函数 结构和数据窗口 用户对象 用户事件等等 对象中又包含若干控件如命令按钮 单行编辑器等这些对象和 控件都可在许多应用中重复使用 VB6 0 以人们所熟知的 BASIC 语言为基础 不仅易于学习 掌握 它的可视化特性还 为应用程序的界面设计提供了迅速便捷的途径 在 VB 编程中不需编写大量代码去描述界面 元素的外观和位置 而只要把预先建立的对象拖放到适当位置即可 VB 同时还是一个包括 了编辑 测试和程序调试等各种程序开发工具的集成开发环境 IDE 从应用程序的界面 设计 程序编码 测试和调试 编译并建立可执行程序 直到应用程序的发行 种种功能 VB 无不包容 不论是 Microsoft Windows 应用程序的专业开发人员 还是初学者 VB 都为 他们提供了完整的开发工具 Microsoft Access 2000 可以在单一的数据库文件中管理所有的信息 在这个文件中 用户可以将自己的数据分别保存在各自独立的存储空间中 这些空间称作表 可以使用联 机窗体来查看 添加及更新表中的数据 使用查询来查找并检索所要的数据 也可以使用 报表以特定的版面布置来分析及打印数据 Access 2000 是一种关系型数据库管理系统 其主要特点如下 1 存储方式单一 Access 管理的对象有表 查询 窗体 报表 页 宏和模块 以上对象都存放在后缀 为 mdb 的数据库文件种 便于用户的操作和管理 2 界面友好 易操作 Access 是一个可视化工具 是风格与 Windows 完全一样 用户想要生成对象并应用 只要使用鼠标进行拖放即可 非常直观方便 系统还提供了表生成器 查询生成器 报表 设计器以及数据库向导 表向导 查询向导 窗体向导 报表向导等工具 使得操作简便 容易使用和掌握 3 集成环境 处理多种数据信息 Access 基于 Windows 操作系统下的集成开发环境 该环境集成了各种向导和生成器工 具 极大地提高了开发人员的工作效率 使得建立数据库 创建表 设计用户界面 设计 数据查询 报表打印等可以方便有序地进行 4 Access 支持 ODBC 开发数据库互连 Open Data Base Connectivity 利用 Access 强大的 DDE 动态数据交换 和 OLE 对象的联接和嵌入 特性 可以在一个数据 表中嵌入位图 声音 Excel 表格 Word 文档 还可以建立动态的数据库报表和窗体等 Access 还可以将程序应用于网络 并与网络上的动态数据相联接 利用数据库访问页对象 生成 HTML 文件 轻松构建 Internet Intranet 的应用 5 支持广泛 易于扩展 弹性较大 能够将通过链接表的方式来打开 EXCEL 文件 格式化文本文件等 这样就可以利用数 据库的高效率对其中的数据进行查询 处理 还可以通过以 Access 作为前台客户端 以 SQL Server 作为后台数据库的方式 如 ADP 开发大型数据库应用系统 总之 Access 是一个既可以只用来存放数据的数据库 也可以作为一个客户端开发工 具来进行数据库应用系统开发 即可以开发方便易用的小型软件 也可以用来开发大型的 应用系统 毕业设计 论文 3 二 开发平台的相关技术 一 Visual Basic6 0 平台概述及相关技术 为了理解应用程序开发过程 先要理解 Visual Basic 赖以创建的一些关键概念 因为 Visual Basic 是 Windows 开发语言 所以有必要与 Windows 环境保持一定的相似性 如果不熟悉 Windows 编程 就需要明白在 Windows 环境下编程和在其它环境下编程的一些根本性的差别 全面地讨论 Windows 的内部工作机制将需要整整一本书的容量 没有必要深入了解所有的技术细 节 Windows 的工作机制 简单地说就是三个关键的概念 窗口 事件和消息 Microsoft Windows 操作系统通过给每一个窗口指定一个唯一的标识号来管理所有的窗口 操作 系统连续地监视每一个窗口的活动或事件的信号 事件可以通过诸如单击鼠标或按下按键的操作而产 生 也可以通过程序的控制而产生 甚至可以由另一个窗口的操作而产生 每发生一次事件 将引发一条消息发送至操作系统 操作系统处理该消息并广播给其它窗口 然 后 每一个窗口才能根据自身处理该条消息的指令而采取适当的操作 例如 当窗口解除了其它窗口 的覆盖时 重显自身窗口 可以想象 处理各种窗口 事件和消息的所有可能的组合将有惊人的工作量 幸运的是 Visual Basic 使您摆脱了所有的低层消息处理 许多消息由 Visual Basic 自动处理了 其它的作为事件过 程由编程者自行处理 这样可以快速创建强大的应用程序而毋需处理不必要的细节 事件驱动模型 在传统的或 过程化 的应用程序中 应用程序自身控制了执行哪一部分代码和按何种顺序执行 代码 从第一行代码执行程序并按应用程序中预定的路径执行 必要时调用过程 在事件驱动的应用程序中 代码不是按照预定的路径执行 而是在响应不同的事件时执行不同的 代码片段 事件可以由用户操作触发 也可以由来自操作系统或其它应用程序的消息触发 甚至由应 用程序本身的消息触发 这些事件的顺序决定了代码执行的顺序 因此应用程序每次运行时所经过的 代码的路径都是不同的 因为事件的顺序是无法预测的 所以在代码中必须对执行时的 各种状态 作一定的假设 当作 出某些假设时 例如 假设在运行来处理某一输入字段的过程之前 该输入字段必须包含确定的值 应该组织好应用程序的结构 以确保该假设始终有效 例如 在输入字段中有效值之前禁止使用启动 该处理过程的命令按钮 在执行中代码也可以触发事件 例如 在程序中改变文本框中的文本将引发文本框的 Change 事 件 如果 Change 事件中包含有代码 则将导致该代码的执行 如果原来假设该事件仅能由用户的交 互操作所触发 则可能会产生意料之外的结果 正因为这一原因 所以在设计应用程序时事件驱动模 型并牢记在心是非常重要的 交互式开发 传统的应用程序开发过程可以分为三个明显的步骤 编码 编译和测试代码 但是 Visual Basic 与传统的语言不同 它使用交互式方法开发应用程序 使三个步骤之间不再有明显的界限 在大多数语言里 如果编写代码时发生了错误 则在开始编译应用程序时该错误就会被编译器捕 获 此时必须查找并改正该错误 然后再次进行编译 对每一个发现的错误都要重复这样的过程 Visual Basic 在编程者输入代码时便进行解释 即时捕获并突出显示大多数语法或拼写错误 看起来 就像一位专家在监视代码的输入 除即时捕获错误以外 Visual Basic 也在输入代码时部分地编译该代码 当准备运行和测试应 用程序时 只需极短时间即可完成编译 如果编译器发现了错误 则将错误突出显示于代码中 这时 可以更正错误并继续编译 而不需从头开始 毕业设计 论文 4 由于 Visual Basic 的交互特性 因此可以发现在开发应用程序时 您自己正频繁地运行着您的 应用程序 通过这种方式 代码运行的效果可以在开发时进行测试 而不必等到编译完成以后 Basic 的工作环境常常是指集成开发环境或 IDE 这是因为它在一个公共环境里集成了许多不同 的功能 例如 设计 编辑 编译和调试 在大多传统开发工具中 每个功能都是以一个独立的程序 运行 并都有自己的界面 当运行 Visual Basic 安装程序时 允许将程序项置于已存在的程序组中 或在 Windows 中为 Visual Basic 创建一个新的程序组和程序项 这时可准备从 Windows 启动 Visual Basic 二 ADO 数据库访问技术及其在 VB 中的应用 ActiveX Data Objects ADO 是微软最新的数据访问技术 它被设计用来同新的数据访问层 OLE DB Provider 一起协同工作 以提供通用数据访问 Universal Data Access OLE DB 是一个低层的 数据访问接口 用它可以访问各种数据源 包括传统的关系型数据库 以及电子邮件系统及自定义的 商业对象 ADO 向我们提供了一个熟悉的 高层的对 OLE DB 的 Automation 封装接口 对那些熟悉 RDO 的程 序员来说 你可以把 OLEDB 比作是 ODBC 驱动程序 如同 RDO 对象是 ODBC 驱动程序接口一样 ADO 对 象是 OLE DB 的接口 如同不同的数据库系统需要它们自己的 ODBC 驱动程序一样 不同的数据源要求 它们自己的 OLE DB 提供者 OLE DB provider 目前 虽然 OLE DB 提供者比较少 但微软正积极推 广该技术 并打算用 OLE DB 取代 ODBC ADO 向 VB 程序员提供了很多好处 包括易于使用 熟悉的界面 高速度以及较低的内存占用 已 实现 ADO2 0 的 Msado15 dll 需要占用 342K 内存 比 RDO 的 Msrdo20 dll 的 368K 略小 大约是 DAO3 5 的 Dao350 dll 所占内存的 60 同传统的数据对象层次 DAO 和 RDO 不同 ADO 可以独立 创建 因此你可以只创建一个 Connection 对象 但是可以有多个 独立的对象来使用它 ADO 针对 客户 服务器以及 WEB 应用程序作了优化 ODBC 是 Open DataBase Connectivity 的缩写 称为开放式数据库链接 它相当于是一个数据库 引擎 或者简单理解为是一种数据库驱动程序 由于不同数据库系统的运作方式和存取方法是各不相 同的 为了能统一对不同数据库的存取操作 为此 就诞生了 ODBC 有了 ODBC 驱动程序 就可实现 用同样的方法 来存取各种不同类型的关系型数据库 而不必关心所存取数据库类型 利用 ODBC 可实现存取和访问任何符合 ODBC 标准的关系型数据库 ADO 对象模型的使用技巧 ADO 提供了 7 个独立的对象 利用这些对象 可实现对数据库的存取和访问 在这 7 个对象中 Connection Command 和 RecordSet 对象是整个 ADO 的核心 通过 Connection 对象与一个数据库 建立连接 然后利用 Command 对象执行查询 从而返回查询结果 并将结果 记录集 存入 RecordSet 对象中 利用服务器端脚本 通过访问 RecordSet 对象遍可获得所查询到的记录内容 除了 Command 对象可以执行查询外 另外 利用 Connection 对象的 Execute 方法和 RecordSet 对 象的 Open 方法 也可以执行一个查询 从而返回一个记录集 使用 adodata ADO Data Control 控件访问数据库可以完全不用编写代码 只需要通过简单的设 置和操作其属性就可以实现与数据库的连接 通过绑定数据感知控件 就能提供一个访问数据库的界面 用来实现对数据库的浏览 贴加 删除 修改等操作 毕业设计 论文 5 三 展会管理系统的设计 一 系统的总体设计 程序功能设计 软件分为系统管理 展会数据初始化 查询与收费管理 展会管理 系统维护 5 大模块 1 系统管理 用户管理 更改密码 登录系统 退出系统 2 展会数据初始化 展会展位登记 展会登记 客户资料登记 3 查询与收费管理 展会展位查询 展会查询 客户资料查询 收费登记 收费查询 4 展会管理 展会管理人员登记 展会展位合同管理 收款管理 展会管理人员查询 展会展位 合同查询 收款情况查询 5 系统维护 数据库备份 数据库恢复 6 帮助 关于展会管理 系统结构图 图 1 系统结构图 二 系统应用软件架构设计 1 采用 C S 结构设计 2 数据库运行在 Server 机上 3 展会管理信息系统程序分别运行在 Client 机上 4 主办机构负责人 总监 具有不同的权限来使用系统的各个功能 三 系统的功能设计 1 展会管理系统功能结构图 展会管理系统 系统维护 展会管理 系统管理 展会数据初始化 查询与收费管理 毕业设计 论文 6 图 2 系统功能结构图 系统功能模块说明 1 系统功能的说明 系统管理部分 系统管理具有用户管理和退出系统的功能 对系统支持性数据作维护 用户管理 可以添加 删除 修改用户 设置用户登陆密码 以及确认用户角色 退出系统 断开与数据库的连接 退出系统 系统维护 查询与收费管理 收费登记 收费查询 系统管理 展会管理信息系统 用户管理 退出系统 登录系统 更改密码 客户资料登记 展会展位登记 展会登记 展会数据初始化 客户资料查询 展会展位查询 数据库备份 数据库恢复 帮助 展会展位合同管理 展会管理人员登记 收款管理 展会管理 收款情况查询 展会管理人员查询 展会展位合同查询 毕业设计 论文 7 展会数据初始化部分 展会信息包括 展会名称 场馆 开始时间 地点 展会组办机构等信息 客户资料包括 单位法人名 单位地址 电话等信息 删除展会信息时需检查 查询与收费管理部分 管理和查看展会展位及参展单位的负责人 实现对单位按其名称执行模糊 查询 还能够按照其他属性进行全方位的查找 操作员添加参展单位后 记录该单位的展会活动和活动明细 每项活动的收费金额合计 应收账款 资源单价 资源数量 员选择参展单位后 系统自动调 出该单位的活动和活动明细 并可对收费纪录进行票据打印 2 展会管理部分 展会管理人员的信息包括 姓名 身份证号码等信息 展会展位合同管理 是对展会展位合同管理和查看 实现对合同按其名称执行模糊查询 还 能够按照其他属性进行全方位的查找 收款管理 是对展会展位租金的收取 其中收款资料包括 交款日期 收款编号 交款方式 等信息 并可对其打印 展会管理人员查询 可以按照展会管理人员的编号和姓名查询 展会展位合同查询 展会展位合同查询包括按照合同编号的查询和按照展会展位综合编号查 询等 收款情况查询 收款情况查询包括按照合同编号查询 按照展会展位综合编号查询和按照交 费日期时间范围查询等 系统维护部分 包括对数据备份和数据恢复 实现将现有的后台数据库进行备份和恢复功能 帮助部分 对本系统的开发和使用进行简要的说明 主要程序结构的流程图 图 3 用户登陆数据流图 1 用户登陆数据流图 展位类别表 系统信息 登陆信息 缺少项目 用户界面 登陆信息 用户口令 用户表 登陆信息初始化 主界面 身份 验证处理 用户权限 系统登陆 提交数据 检验 毕业设计 论文 8 图 4 展位管理模块的数据流图 图 5 收款管理模块的数据流图 四 系统的后台数据库设计 1 数据库平台的选择 在分析阶段已确定本系统的数据库平台选择微软公司的 Access 2000 2 关系数据表的建立 2 展位管理模块的数据流 图 展位类别 展位 登记 展位清单表 展位类别表 展位清单 3 收款管理模块的数据 流图 收款单 活动 活动 收款单 活动 收款单表单位活动 收款明细表 收款 处理 收款 登记 收款单 毕业设计 论文 9 1 展会信息表字段的定义 表 1 展会信息表 字段名数据类型主键说明 ZongID 文本 Yes 展会展位综合编号 ExhID 文本 No 展位代码 ExhName 文本 No 展会名称 Exhprice 货币 No 展位单位价格 2 参展单位信息表字段的定义 表 2 参展单位信息表 字段名数据类型主键说明 CompanyID 文本 Yes 参展单位代码 法人身份 证号 CompanyName 文本 No 单位名称 Address 文本 No 单位地址 PostCode 文本 No 邮编 Email 文本 No 电子邮件 Btithday 日期 No 出生日期 法人 Sex 文本 No 性别 联系人 Name 文本 No 联系人姓名 Carcode 文本 No 车牌号 Tel 文本 No 电话 Mobtel 文本 No 手机 ExhNo 浮点 No 参展次数 Remark 文本 No 备注 3 场馆表字段的定义 表 3 场馆表 字段名数据类型主键说明 ExhID 文本 Yes 展位代码 MaxArea 浮点 No 展位面积 MaxStationNo 浮点 No 内部面积 HighLimit 文本 No 展位形状 WeightLimit 文本 No 图片 Remark 文本 No 简介 毕业设计 论文 10 4 合同资料信息表字段的定义 表 4 合同资料信息表 字段名数据类型主键数据说明 PctID 浮点 Yes 合同编号 ExhID 文本 Yes 展位代码 CompanyID 文本 Yes 单位代码 SampleClassID 文本 Yes 联系人身份证号码 SaleID 文本 Yes 销售人员编号 Price 文本 No 租金单价 Discountrate 浮点 No 折扣率 Discoutcash 货币 No 折扣金额 Number 文本 No 车位号 TotalValue 货币 No 车位租金 TransMark 文本 No 仓库号 TransExplain 货币 No 仓库租金 Basement 文本 No 付款方式 Bank 文本 No 贷款银行 Remark 数字 No 是否交款 BeginDate 日期 No 签订日期 EndDate 日期 No 付款日期 5 单位活动表字段的定义 表 5 单位活动表 字段名数据类型主键数据说明 CompanyActiveID 文本 Yes 单位活动代码 ExhCompanyID 文本 No 参展单位代码 Remark 文本 No 备注 IsCharge 逻辑 No 是否收费 ShouldReceive 货币 No 应收金额 AlreadyReceive 货币 No 实收金额 ConfirmDate 日期 No 审核日期 OperateDate 日期 No 操作日期 Operator 文本 No 操作员 毕业设计 论文 11 6 活动资源明细表字段的定义 表 6 活动资源明细表 字段名数据类型主键说明 ExhlID 文本 Yes 展位代码 ResourceID 文本 Yes 资源代码 Price 货币 No 单价 MaxNot 浮点 No 最大数量 ResourceNo 文本 No 资源名称 Unit 货币 No 单位 7 销售管理人员表字段的定义 表 7 销售管理人员表 字段名数据类型主键说明 PeopleID 文本 Yes 销售管理人员代码 ID 文本 Yes 身份证号 PeopleName 文本 No 姓名 Zipcode 文本 No 邮编 Brithday 日期 No 出生日期 Sex 逻辑 No 性别 OfficeTel 文本 No 办公电话 Mobile 文本 No 手机 Email 文本 No 电子邮件 Remark 文本 No 备注 8 收费表字段的定义 表 8 收费信息表 字段名数据类型主键说明 ReceiveID 文本 Yes 收款代码 ExhID 文本 Yes 展位代码 ReceiveValue 货币 No 收费金额 ReceiveDate 日期 No 收费日期 Operator 文本 No 收费人 Checker 文本 No 交费人 Zanwfee 货币 No 展位管理费 Telfee 货币 No 电话机及网络通信费 毕业设计 论文 12 9 收款单明细字段的定义 表 9 收款信息表 字段名数据类型主键说明 ReceiveID 文本 Yes 收款代码 CompanyActiveID 文本 Yes 单位活动代码 ReceiveDetailID 文本 Yes 回款明细代码 MinusShould 货币 No 减应收金额 FactReceive 货币 No 实收金额 Remark 文本 No 备注 10 系统管理表字段的定义 表 10 系统管理表 字段名数据类型主键说明 czyz 文本 Yes 操作员号 password 文本 No 操作员密码 qx 文本 No 权限 五 设计规范的约定 1 结构化编码约定 编码应清晰 可读性好 运用缩进 空行 结合大小写区别等方法保持程序结构良好 凡与数据 库操作相关的模块一律加上容错代码 涉及多表操作的模块应运用 事务 处理 以保持数据完整性 2 数据源的约定 数据源组件是数据显示组件和数据集组件之间的中介 数据集从数据库获得数据后 将其发送到 数据源 然后数据源将数据送到界面上的数据显示组件进行显示 当使用数据模块时 数据源组件是 数据模块的一部分 3 数据集约定 数据集是数据库应用程序的核心 数据集组件保存了一系列从底层的数据库取出的记录 这些记 录的数据可以取自一个表 一个表中的若干字段 多个数据表的若干字段 数据集组件实际上为应用 程序提供了一个缓冲区 来保存数据库中实际存在表中的数据 如果系统要用到数据集组件 一律使 用 ADO 页中的数据集组件 毕业设计 论文 13 四 展会管理系统的实现 一 登录窗体模块的实现 程序运行时最先启动此窗口 连接数据库并验证登录用户身份 输入用户 名及密码 验证通过后进入系统主窗口 1 登录窗体模块的界面设计 窗体样式 图 1 登录窗体 2 登录窗体模块实现的代码 代码如下 Private Sub cmdcancel Click conn Close 关闭数据库连接 Set conn Nothing End Sub Private Sub cmdok Click If Trim cmbName Text Then 判断输入的用户名是否为空 MsgBox 没有这个用户 vbOKOnly vbExclamation cmbName SetFocus Else 判断用户名和密码是否正确 sql select from 系统管理表 where czyh data source App Path House mdb conn Open connectionstring 打开数据库 sql select from 系统管理表 检索系统管理表 rs login Open sql conn adOpenKeyset adLockPessimistic 打开记录集 If rs login EOF False Then 有记录时逐一添加到 cmbName 组合 框 Do While rs login EOF False cmbName AddItem rs login Fields 0 rs login MoveNext Loop cmbName ListIndex 0 默认显示第一个子项 End If rs login Close cnt 0 初始化输入次数 End Sub 二 主窗口模块的实现 主程序窗体 是其它窗口的容器 负责调用其它子程序模块 并在其容器窗口内进行 显示及操作 主窗体模块的界面设计 窗体样式 毕业设计 论文 15 图 2 主窗体界面 登录窗体模块实现的代码 代码如下 Private Sub Form QueryUnload Cancel As Integer UnloadMode As Integer If MsgBox 确实要退出本系统吗 vbYesNo vbQuestion 提示 vbNo Then Cancel True 如果用户不退出 则取消卸载 Else If conn State 0 Then conn Close 关闭数据库连接 Set conn Nothing End If End Sub Private Sub Toolbar1 ButtonClick ByVal Button As MSComctlLib Button Select Case Button Key 按关键字选择 Case bt loupan frmBuildingFind Show 1 Case bt kehu frmKehuFind Show 1 Case bt shoufei frmShoufeiFind Show 1 Case bt shoulou frmHetongLogin Show 1 Case bt shoukuan frmShoukuanLogin Show 1 Case bt tuichu Unload Me End Select End Sub 毕业设计 论文 16 三 展位查询窗体模块的实现 查询展位户型信息 可查看展位的详细介绍资料 提供按展位编号 展位面积和展位 结构三种方式查找 支持模糊查找 1 展位查询窗体模块的界面设计 窗体样式 图 3 用户查询窗体界面 2 展位查询窗体模块实现的代码 代码如下 Private Sub cmdfind Click On Error GoTo finderror Dim sql As String CInt Trim txtmianji1 Text and CInt Trim txtmianji2 Text rs huxing CursorLocation adUseClient rs huxing Open sql conn adOpenKeyset adLockPessimistic setgrid setgridhead displaygrid rs huxing Close Exit Sub End If If Option3 Value True Then 选择户型结构作为查询条件 sql select from 户型资料表 where Hst type Trim Combo1 Text rs huxing CursorLocation adUseClient rs huxing Open sql conn adOpenKeyset adLockPessimistic 毕业设计 论文 17 setgrid setgridhead displaygrid rs huxing Close Exit Sub End If Exit Sub finderror MsgBox Err Description End Sub 四 收款管理窗体模块的实现 本窗体主要用来对是对展会展位租金的收取进行统计 其中收款资料包括 交款日期 收款编号 付费方式等信息收费资料进行登记 可以进行添加 打印等操作 1 收款管理窗体模块的界面设计 窗体样式 图 4 收款管理窗体界面 2 收款管理窗体模块实现的代码 代码如下 Private Sub cmdsave Click Dim i As Integer If Trim txtloupannum Text Then MsgBox 展位编号不能为空 vbOKOnly vbExclamation txtloupannum SetFocus Exit Sub End If Label7 Caption CStr CCur Trim txtprice Text Label6 Caption ChineseFormat CCur Trim txtprice Text 毕业设计 论文 18 rs shoufei AddNew rs shoufei Fields 0 Val Trim Label5 Caption rs shoufei Fields 1 Val Trim Combo1 Text rs shoufei Fields 2 Trim txtloupannum Text rs shoufei Fields 3 Date rs shoufei Fields 4 CCur Trim txtprice Text rs shoufei Fields 5 Trim Combo2 Text rs shoufei Fields 6 Trim txtskr Text rs shoufei Fields 7 Trim txtjkr Text rs shoufei Update MsgBox 保存成功 vbOKOnly vbExclamation Exit Sub End Sub Private Sub cmdprint Click Dim X X BitBlt Picture1 hDC 0 0 Picture1 Width Picture1 Height Picture1 hDC 0 0 SRCCOPY Picture1 Picture Picture1 Image Printer PaintPicture Picture1 Picture 0 0 End Sub Private Sub cmdexit Click rs shoufei Close Unload Me End Sub Private Sub Form Load Dim sql As String Dim i As Integer On Error GoTo loaderror sql select from 收款登记表 If rs shoufei State 0 Then rs shoufei Close rs shoufei CursorLocation adUseClient rs shoufei Open sql conn adOpenKeyset adLockPessimistic txtprice Text 0 00 i rs shoufei RecordCount Label2 Caption Year Date Date 取得当前系统日期 Label3 Caption Month Date Month 函数取得日期的月 数部分 Label4 Caption Day Date Label5 Caption Format i 1 000000 系统中现有记录条数加 1 Combo2 AddItem 现金 Combo2 AddItem 刷卡 Combo2 AddItem 银行票据 Combo2 ListIndex 0 sql select from 合同资料表 毕业设计 论文 19 If rs hetong State 0 Then rs hetong Close rs hetong CursorLocation adUseClient rs hetong Open sql conn adOpenKeyset adLockPessimistic If rs hetong RecordCount 0 Then rs hetong MoveFirst Do While Not rs hetong EOF Combo1 AddItem Trim rs hetong Fields 0 rs hetong MoveNext Loop Combo1 ListIndex 0 End If rs hetong Close Exit Sub loaderror MsgBox Err Description End Sub 五 收费查询窗体模块的实现 本窗体主要用来对收费资料进行查询 包括以收费单号 展会编号 交款人以及交款 日期进行查询 1 收费查询窗体模块的界面设计 窗体样式 图 5 收费查询窗体界面 2 收费查询窗体模块实现的代码 代码如下 Private Sub cmdfind Click Dim sql As String On Error GoTo loaderror grdShoufeiFind Clear If optionid Value True Then 毕业设计 论文 20 sql select from 收费信息表 where fee ID CInt txtshoufeinum Text rs shoufei CursorLocation adUseClient rs shoufei Open sql conn adOpenKeyset adLockPessimistic setgrid setgridhead displaygrid rs shoufei Close Exit Sub End If End If If Optionjkr Value True Then sql select from 收费信息表 where fee jkr txtjkr Text rs shoufei