数据库课程设计—旅行社管理信息系统.doc

数据库课程设计—旅行社管理信息系统.doc 计算机学院数据库系统设计 目录 第一章 系统概述................................................................................................. 错误～未定义 书 关于书的成语关于读书的排比句社区图书漂流公约怎么写关于读书的小报汉书pdf 签。1 1.1系统开发背景与意义 ................................................................................... 错误～未定义书签。1 1.1.1系统开发背景 .................................................................................... 错误～未定义书签。1 1.1.2系统开发意义 .................................................................................... 错误～未定义书签。1 第二章 系统需求分析 ......................................................................................... 错误～未定义书签。3 2.1 系统功能要求.............................................................................................. 错误～未定义书签。3 2.2. 需求分析概述............................................................................................. 错误～未定义书签。3 2.3 系统层次分析.............................................................................................. 错误～未定义书签。4 2.4 系统数据流图.............................................................................................. 错误～未定义书签。5 2.5 数据字典........................................................................................................................................ 7 第三章 系统总体设计............................................................................................. 错误～未定义书签。12 3.1 系统总体设计目标 ........................................................................................................................ 12 3.2 概念模型 ....................................................................................................................................... 12 3.2.1 概念模式(E-R) .............................................................................................................. 12 3.3数据库逻辑结构设计 ..................................................................................................................... 12 第四章 数据库系统实现 ......................................................................................... 错误～未定义书签。20 4.1 系统实现工具简介 ........................................................................................................................ 20 4.1.1 开发语言Visual Basic 6(0 ............................................................................................. 20 4.1.2 SQL Server 2000简介 .................................................................................................. 22 4.2人事管理系统数据库实现 ............................................................................................................. 23 结束语 .......................................................................................................................................................... 46 参考文献 ...................................................................................................................................................... 47 计算机学院数据库系统设计 第一章 系统概述 1.1系统开发背景与意义 1.1.1系统开发背景 天津中国青年旅行社创建于1986年，隶属于共青团天津市委员 会，为中国青旅集团天津公司，是经国家旅游局批准，具有国有独资 性质的国际旅行社，公司已逐步发展成为一家专业的旅游服务机构，以 自身良好的社会形象，完善的经营网络，先进的服务手段，丰富的旅游产 品，广泛的客户基础，完善并建成了现代化程度较高的旅行社。公司坚持 质量为本，效益优先的经营理念，将自身已有的国内旅游服务网络与丰富 的旅游资源、先进的服务理念及良好的服务质量紧密结合，专业从事为企 业及个人提供高品质的全球旅游资讯及出行服务。业务范围包括经营国内 旅游业务为主，组织团队、散客旅游，安排商务、会务、国内外考察活动， 代办国内、国际航班机票、火车票、轮船票，商务租车、会议安排、度假 产品的预订及自助旅行等全方位的服务。 天津青旅的奋斗目标:力创中国旅游行业“服务一流、实力一流、人才一 流、业务一流”的业绩。 由于旅游线路的增加和参团人员的增多和复杂性，旧的管理系统的处 理能力和管理方法很难满足现代化企业管理的需求，旧系统已成为实现企 业战略目标的主要障碍。但是公司的内部管理系统还不完善，还在进行以 人工统计和分配为主的工作，不但花费了人工，而且由于数据复杂往往难 以避免会出错，给企业造成一定的负面影响，降低了企业的工作效率。因 此，在这个以计算机网络技术为主流的时代，公司有必要开发一个完善的 内部管理系统。 1.1.2系统开发意义 我国的旅行社目前正处于一个科学技术日新月异飞速向前发展的环 境中。信息技术和通信技术以令人目不暇接的速度发展，尤其是互联网络 的广泛流行，使得各种服务信息已近乎透明，且个性突出的游客们已不再 满足于死板的 标准 excel标准偏差excel标准偏差函数exl标准差函数国标检验抽样标准表免费下载红头文件格式标准下载 化的旅游项目，要求量身定做，旅游行业内的竞争日趋 激烈。这就要求旅行社必须采取现代化的管理手段，利用计算机的发展成 1 计算机学院数据库系统设计 果结合旅行社的业务特点，建立高效的旅行社管理系统，以迅速、准确地捕捉客户要求，并加以高效回应，使游客满意，才能摆脱被挤出的危险并在业内脱颖而出。 旅行社管理信息系统是一个典型的多表操作系统，因为一个旅行社涉及到导游的管理与查询，导游与景点的分布，景点与游客的分布与查询，导游、景点和游客三者之间的分布与查询，还涉及到景点的各种管理、导游的各种管理和游客的各种管理等等，因此，它是一个比较复杂的管理系统。 2 计算机学院数据库系统设计 第二章 系统需求分析 2.1系统功能需求 旅游管理系统由团员信息表、线路信息表、团队信息表、游客团队信息表、密码信息表五个信息表组成，主要来实现旅游团队、团队团员及旅游路线相关信息的输入、查询和维护，以及旅游团队和团员信息的报表及输出、旅游路线排行榜的发布和密码的更改等各项功能。 2.2需求分析概述 人类社会在经历过农业革命和工业革命之后，如今已经如信息革命阶段。信息革命的核心是当今先进生产力的代表——信息技术。信息技术本身是一个庞大的扩展的高新技术群，包括电脑技术、电信技术、广播电视技术、网络技术、多媒体技术、数据库技术等等。信息技术的发展对人类社会的方方面面都产生了不同程度的影响，包括旅游业。同时信息技术也推动了旅游业的第二次革命，它对传统的旅游管理、旅游服务、旅游经营和销售手段等产生强大冲击。 随着中国加入WTO，旅游行业竞争变得日益地激烈，旅行社作为一个旅游企业，在整个旅游中起着非常重要的作用。旅行社对信息化的要求也变得越来越高。旅行社信息化不仅是适应信息时代快速变化的必然选择，同时也可以增加目前旅行社管理中的科技含量。 通过对本地多家旅行社进行信息化实施情况的调研，从实际情况中我们发现旅行社一般都配有电脑、电话、传真、计算机网络等信息化设备，工作人员使用电脑也比较熟练，其中有些旅行社有自己的网站，通过Internet宣传自己。但是旅行社信息化发展滞后于旅游业的整体发展、重硬件轻软件，几乎没有自己的管理信息系统。我们发现旅行社日常业务工作比较复杂，日常业务的操作基本上完全依靠手工劳动，员工工作强度较大，尤其在五一、十一黄金周期间。在目前的旅行社经营活动中，业务操作不够成熟规范，对游客和员工的信息资料管理也不够系统化和规范化。如何降低人力成本，跟上全球信息化的脚步，实现“无纸化’办公，越来越成为旅游企业要解决的问题。建立一个良好的管理信息系统相当必要。 3 计算机学院数据库系统设计 通过调研，我们发现目前为使用管理信息系统的旅行社业务操作中存在 以下问题: (1)游客报名的基本信息以及销售的旅游线路等信息均以文字形式 记录 混凝土 养护记录下载土方回填监理旁站记录免费下载集备记录下载集备记录下载集备记录下载 于纸上，于每天晚上呈报计调中心汇总;各种凭证为纸质，管理查询均不方 便。 (2)旅游线路、车票等旅游产品的基本信息更新速度慢，但是旅游市 场上旅游产品的价格改变非常快，基本上一天一变，现无法做到及时更新。 (3)由于旅行社有多个营业点在同时销售旅游产品，对某些需实时掌握的信息更困难。如剩余的座位号、当前报名人数等等，更新的主要方式是通过电话和MSN以及传真等设备。前台销售的员工接到游客的报名请求时就通过电话与计调部门联系，看是否还可以安排，如有空座位则从MSN中获得座位号等相关信息，报名流程结束要及时通知计调部门修改当前信息，以便其他营业点获得最新的信息。操作比较复杂，加大了计调部员工和前台销售员的工作量。此外，还有可能忙中出错，导致信息不一致。 通过建立旅行社管理信息系统可以解决以上这些问题。旅行社管理信息系统可以简化员工的手工操作，规范操作流程，提高工作效率，降低劳动强度;可以实现信息的实时更新能方便游客接受更好，更快的服务;可以方便各部门信息的交流，改变传统的文件满天飞的局面;此外管理人员也可以通过该系统查询当前经营情况以及各种电子单证，随时掌握企业经营动态，从而更好地进行管理。 2.3系统层次分析 4 计算机学院数据库系统设计 旅行社管理信息系 统 旅游团队管理 团员管理 密码管理 线路管理 团团团团团团团团密密线线线线队队队队员员员员码码路路路路信信信信信信信信信信信信信信息息息息息息息息息息息息息息的的的的的的的的的的的的的的输报维查输维查报存更输维查发 入 护 询 布 入 表护 询 入 护询 表储 改 及 及 输输 出 出 表2-1系统层次分析 2.4系统数据流图 5 计算机学院数据库系统设计 旅游团队信息 操作登录密码验证团员信息 员 处理 线路信息 图 2-2 系统总数据流图 P0 财务科 销售统计表 以下为本系 合同 游客 统数据字典 排团 计划 项目进度计划表范例计划下载计划下载计划下载课程教学计划下载 表 的 计调部门 旅游管理系统 图 2-3系统业务流程图 6 计算机学院数据库系统设计 D1 团员信息表 D2 线路信息表 财务科 F2销售统计表 P1 P2 F1合同 团员 D3 团队信息表 团员信息处理 排团处理 F3排团计划表 F4排团 计调部门 计划表 图 2-4系统业务流程图 2.5数据字典 1..以下为本系统数据字典的数据项部分: 1)数据项编号:DNum 2) 数据项编号:XNum 数据项名称:导游编号 数据项名称:线路编号 别 名:导游编号 别 名:线路编号 简 述:某导游的代码 简 述:某旅游线路的代码 类别及宽度:字符型，5位 类别及宽度:字符型，4位 取值范围:G0001-G9999 取值范围:I001-I999,A001-A999 3)数据项编号:TYNum 4) 数据项编号:TDNum 数据项名称:团员编号 数据项名称:团队编号 别 名:团员编号 别 名:团队编号 简 述:某团员的代码 简 述:某团队的代码 类别及宽度:字符型，5位 类别及宽度:字符型，3位 取值 范围:T0001-T9999 取值 范围:001-999 7 计算机学院数据库系统设计 2.以下为本系统数据字典的数据流部分: 1)数据流编号:F1 数据流名称:合同 简 述:游客与旅行社签订的合同 数据流来源:游客 数据流去向:P1 高峰 流量:200份/天 数据流组成:游客编号、姓名、性别、身份证号码，联系方式、地址、 是否交款、会员。 2)数据流编号:F2 数据流名称:销售统计表 简 述:外联销售部每天的收入情况 数据流来源:P1 数据流去向:财务科 流 量:1份/天 数据流组成:游客编号、单价、总金额、折扣率、日期、经办人。 3)数据流编号:F3 数据流名称:排团计划表 简 述:对游客进行团队编排的情况 数据流来源:P2 数据流去向:游客 高峰 流量:200份/天 数据流组成:团队编号、导游编号、开始时间、旅游天数、跟团人数、 旅游路线。 4)数据流编号:F4 8 计算机学院数据库系统设计 数据流名称:排团计划表 简 述:对游客进行团队编排的情况 数据流来源:P2 数据流去向:计调部门 数据流组成:团队编号、导游编号、开始时间、旅游天数、跟团人数、 旅游路线。 3. 以下为本系统数据字典的数据结构卡片部分: 数据结构卡片 数据结构名称:用户管理卡片 数据结构简述:登记系统用户信息时所记录的卡片 数据结构的组成:操作员、密码 4. 以下为本系统数据字典的数据存储部分: 数据存储卡片主要用于描述数据存储的结构、有关的数据流和查询要求。 1)数据存储卡片 编号:D1 文件名:游客信息表 简述:存储游客基本信息的表 组成:游客编号、姓名、性别、身份证号码，联系方式、地址、是否 交款、会员。 有关的数据流:P1-D1，D1-P2 有无立即查询要求:有 2)数据存储卡片 文件名:线路信息表 简述:存储旅游线路的具体信息的表 组成:线路编号、旅游路线、市场价格、本店价格、预订 有关的数据流:P2-D2 9 计算机学院数据库系统设计 有无立即查询要求:有 3)数据存储卡片 文件名:导游信息表 简述:存储导游的基本信息的表 组成:导游编号、姓名、性别、身份证号码、电话、地址、任职时间、 级别、备注。 有关的数据流:D3-P2 有无立即查询要求:有 5. 以下为本系统数据字典的逻辑处理部分: 1)编号:P1 名称:游客信息处理 简述:处理游客信息 输入:游客编号、姓名、性别、身份证号码，联系方式、地址、是否交 款、会员。 输出:游客信息表，销售统计表 处理:根据游客填写好的合同登记游客信息表，并对当天的营业额进行 统计，上报财务科。 2)编号:P2 名称:排团处理 简述:对游客进行团队编排。 输入:游客信息、线路信息、导游信息。 输出:排团计划表 处理:将游客信息、旅游线路和导游信息进行汇总，合理安排计划， 最终输出排团计划表。 6.以下为本系统数据字典的外部实体部分: 1)外部实体 10 计算机学院数据库系统设计 名称:游客 简述:旅行者 输入的数据流:排团计划表 输出的数据流:合同 2)外部实体 名称:财务科 简述:无 输入的数据流:销售统计表 输出的数据流:无 3)外部实体 名称:计调部门 简述:负责安排接待(房、餐、车、景点)等事宜 输入的数据流:排团计划表 输出的数据流:无 11 计算机学院数据库系统设计 第三章系统总体设计 3.1 系统总体设计目标 旅游管理系统的目标是对旅行社的导游人员以及客户进行管理和对 团队进行编排，以极大地提高业务信息记录、统计、编排等信息管理的工 流程设计与实际操作吻合,有一定的可行作效率。尽量使系统的功能设计, 性和现实意义。 旅行社对旅游管理系统的要求有以下几点: 1、系统要本着服从和服务于企业战略使命和长期目标要求，以及继承与 优化相结合的原则，来制定信息系统开发 方案 气瓶 现场处置方案 .pdf气瓶 现场处置方案 .doc见习基地管理方案.doc关于群访事件的化解方案建筑工地扬尘治理专项方案下载 。 2、系统既要解决现行系统存在的问题，又要充分预计未来的需求变化， 使系统具有足够的适应性和先进性，还要方便运行管理和维护。 3、系统反映的流程简洁，自动化程度比较高.如能自动打印报表，自动 进行一些简单的结算，为管理人员提供相对准确数据，保证高效率运作 等。 3.2 概念模型 3.2.1 概念模式(E-R) 数据库概念结构设计是在需求分析的基础上，设计出能够满足用户需 求的各种实体，以及它们之间的关系，为后面的逻辑结构设计打下基础。 用E-R图是描述数据实体关系的一种直观描述工具，所以本系统采用了 E-R图方法进行数据库概念结构设计。 12 计算机学院数据库系统设计 路线编号 团员编团队编号 号 备注 姓名 团员 团费交否 电话 性别 身份证通信 号码 地址 图3-1团员的E-R图 线路名称 团费 线路 路线编号 图形 简介 13 计算机学院数据库系统设计 图3-2 线路的E-R图 团队编号 线路编号 返程日期 团队 出发日期 团员人数 图3-3团队的E-R图 团队编号 盈亏 团队负责 人 团费 旅游团队 团队人数 是否出发 建团时间 爱你 14 计算机学院数据库系统设计 图3-4旅游团队的E-R图 操作员 密码 密码 图3-5密码的E-R图 N 1团员 带领 团队 N N 参加 1 负责 1 旅游团队 图3-6系统的E-R图 15 计算机学院数据库系统设计 3.3 数据库逻辑结构设计 概念结构是独立于实际数据模型的信息结构，必须将其转化为逻辑结构 后才能进行数据库应用的设计。也就是要将概念上的结构转化为BP数据库 系统所支持的实际数据模型。 团员信息表结构图: 图3-7团员信息表结构图 团员信息表实例图: 图3-8团员信息表实例图 线路信息表结构图: 16 计算机学院数据库系统设计 图3-9线路信息表结构图 线路信息表实例图: 图3-10线路信息表实例图 团队信息表结构图: 图3-11团队信息表结构图 团队信息表实例图: 17 计算机学院数据库系统设计 图3-12团队信息表实例图 旅游信息表结构图: 图3-13旅游信息表结构图 18 计算机学院数据库系统设计 旅游信息表实例图: 图3-14旅游信息表实例图 密码信息表结构图: 图3-15密码信息表结构图 密码信息表实例图: 图3-16密码信息表实例图 19 计算机学院数据库系统设计 第四章 数据库系统实现 4.1 系统实现工具简介 4.1.1 开发语言Visual Basic 6(0 从1998年发布到2002年正式推出Visual Basic. NET简直吊足了开发者的胃口。从2000年就开始传言的具有继承、Try„Catch语句等新功能的全新VB7.0一直没有露面。直到2001年，Visual Studio.NET的第一个BETA版问世的时候，所有人都呆了——这是Visual Basic吗,And语句变成了BitAnd，数组只能从0下标开始，而且连Dim语句的意义都变了，几乎所有的窗体控件都变了，Long变成了Integer而Integer变成了Short，Variant不见了，Static不能用了„„简直是翻天覆地，人们已经无暇关注这个版本有什么改进，转而担心我怎么才能接受这个本本了。其实Visual Basic. NET完全是为了.NET Framework这一全新的平台而设计的，Visual Basic. NET的设计者一开始没有掌握好新平台和旧语言的平衡。到了BETA2中，很多东西回归了6.0，如BitAnd又变回了And，数组的定义语句也变回了原有的意义，Static也回到了Visual Basic中。但是BETA1惊人的变化让所有的VB开发者怕了，他们觉得这种语言被改的千疮百孔，有些人干脆转去研究传说中的新语言C#。但是Visual Basic. NET渡过几个BETA版本之后还是找到了正确的定位。Visual Basic. NET有对CLR最完善的支持，同时尽量保留着BASIC易懂的语法风格和易用性。这个版本新增加的功能已经数不清，最重要的几个是: 1、 继承。至此，Visual Basic完成了向面向对象转变的道路。 2、 共享成员。 3、 Try„Catch结构化异常处理。 4、 Delegate和Interface。 5、 名称空间。 6、 对自由线程的支持。 特别的是，Visual Basic. NET大大减少了Visual Basic语言的关键字，如GoSub、PSet等等。原先的Visual Basic有多达120个关键字，这 20 计算机学院数据库系统设计 给写程序带来了很大的不便，现在经过精简，Visual Basic脱下了这个沉重的包袱。 Visual Basic. NET现在是一门现代的、强壮的、面向对象的、简单的可视化开发语言。强大的语言功能吸引了很多开发者。历史是在不断重演的，Visual Basic. NET如今的处境和Visual Basic 4.0很相似，由于兼容性变差，人气也降低了。同时由于依附于.NET Framework，程序发布造成了一定的困难。现在国内使用Visual Basic. NET的人相对于Visual Basic 6.0来讲显得很少。但是凭借Visual Basic. NET强大的语言功能和MS的支持，Visual Basic. NET一定会显出它的光辉来。 2003-稳中求变的新版本 Visual Basic. NET 2003是一个相当稳重的版本，改变很少，但对小处有很多改进。首先Visual Basic 6.0升级向导做了很大改进，这给从老版本痛苦升级的人带来了更多一些的希望。其次在IDE方面，Visual Basic. NET 2003修正了许多错误，还让事件处理恢复了6.0的开发体验。语言方面只有两项改进: 1、 在For、For Each语句中声明循环变量。 2、 增加了数学移位运算符<<和>>。 在这个比较成熟稳定的新版本下，许多Visual Basic的爱好和开始重新了解Visual Basic. NET，社区里面也渐渐热闹起来。但是，有些使用C#的开发者坚持认为Visual Basic. NET是垃圾，尽管Visual Basic. NET拥有比C#更多的功能和更好的IDE。这说明不了解Visual Basic. NET成为它普及的最大障碍。 2005-完美主义的Visual Basic，能否再现辉煌, 为了让Visual Basic有最佳的开发体验，Visual Basic 2005的设计者绞尽了脑汁。这次Visual Basic 2005光语言上的改进就足以让Visual Basic的开发人员高兴一阵子。大家可以去看看我那篇介绍Visual Basic 2005新增功能的贴子。挑重要的列在下边: 1、 泛型 2、 运算符重载 21 计算机学院数据库系统设计 3、 Partial Type 4、 窗体的默认实例(让你用VB6的语法使用窗体) 5、 语法的多种改进 现在用Visual Basic 2005只要一行代码就可以读写注册表、访问文件、读写串口、获取应用程序信息„„ 用Visual Basic 2005完全可以称作享受开发。而泛型、运算符重载等功能又可以让Visual Basic的开发人员深入.NET Framework的全部功能，开发出最优秀的应用程序。 4.1.2 SQL Server 2000简介 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 操作系统上的应用在本书中介绍的是Microsoft SQL Server 以后简称为SQL Server或MS SQL Server SQL Server 2000 是Microsoft 公司推出的SQL Server 数据库管理系统的最新版本该版本继承了SQL Server 7.0 版本的优点同时又比它增加了许多更先进的功能具有使用方便可伸缩性好与相关软件集成程度高等优点可跨越从运行Microsoft Windows 98 的膝上型电脑到运行Microsoft Windows 2000 的大型多处理器的服务器等多种平台使用。 SQL Server 2000是为迅速提供可伸缩性电子商务、企业及数据仓库解决方案而开发的完整数据库与分析软件产品。SQL SERVER 2000定位于Internet背景下的数据库应用，它为用户的Web应用提供了一款完善的数据管理和数据分析解决方案。同时SQL SERVER 2000还是Windows DNA(Distributed Internet Architecture)架构的一个核心组件。它极大地缩短了用户开发电子商务、数据仓库应用的时间。SQL SERVER 2000还提供对XML(Extensible Markup Language 扩展标示语言支持)和HTTP的全方位支持。 22 计算机学院数据库系统设计 4.2旅行社管理系统数据库实现 1.登录窗体 新建窗体，窗体的name属性改为loginform(单元文件名为login.pas)，caption属性改为:登录窗体 图4.2.2 登录窗体 用户操作说明:当用户名或密码输入错误时，系统会弹出对话框提示重新输入。 代码: implementation uses main; {$R *.dfm} //单击“确定”按钮 procedure TLoginForm.Button1Click(Sender: TObject); begin with q_yh do begin close; //关闭yh数集 23 计算机学院数据库系统设计 sql.Clear; //清除 sql.Add('select * from yh where 用户名=:a and 密码=:b'); parambyname('a').asstring:=trim(edit1.Text); //在edit1中输入用户名 parambyname('b').AsString:=trim(edit2.text); //在edit2中输入密码 open; //打开 end; if q_yh.recordcount>0 then mainform.show else showmessage('用户名或密码错误，请再输入'); end; //单击“取消”按钮 procedure TLoginForm.Button2Click(Sender: TObject); begin close; //关闭 end; end. 2.主窗体 设计如图所示界面(mainform，单元文件名为main.pas)。caption属性改为“主窗体”，用label实现显示其他窗体的功能。 24 计算机学院数据库系统设计 图4.2.3 主窗体 用户操作说明:用户单击前六个标签就可进入相应窗体进行操作。单击“退出”则退出主窗体，进入登录窗体重新登录。 代码: implementation uses yhglc, dyxxgl, xlxxgl, ykxxgl, ptxxgl, cxgl,login; {$R *.dfm} //单击“用户管理”，进入用户管理窗体 procedure TMainForm.Label1Click(Sender: TObject); begin yhglForm.show; end; //单击“导游信息管理”，进入导游信息管理窗体 procedure TMainForm.Label2Click(Sender: TObject); begin dyxxglForm.show; end; 25 计算机学院数据库系统设计 //单击“线路信息管理”，进入线路信息管理窗体 procedure TMainForm.Label3Click(Sender: TObject); begin xlxxglForm.show; end; //单击“游客信息管理”，进入游客信息管理窗体 procedure TMainForm.Label4Click(Sender: TObject); begin ykxxglForm.show; end; //单击“排团信息管理”，进入派团信息管理窗体 procedure TMainForm.Label5Click(Sender: TObject); begin ptxxglForm.show; end; //单击“查询管理”，进入查询管理窗体 procedure TMainForm.Label6Click(Sender: TObject); begin cxglForm.show; end; //单击“退出”，退出主窗体 procedure TMainForm.Label7Click(Sender: TObject); begin close; 26 计算机学院数据库系统设计 loginForm.edit1.text :=''; loginForm.edit2.text :=''; end; end. 3.用户管理窗体 创建窗体yhglform(单元文件名为yhglc.pas)。该窗体包含一个table组键和导航器，可方便地对用户进行操作。 图4.2.4 用户管理窗体 用户操作说明:操作人员通过导航器对用户表进行“添加、删除、修改、保存”。 本窗体无代码。 4.导游信息管理窗体 创建窗体dyxxglForm(单元文件名为dyxxgl.pas)。该窗体包含一个table组键和导航器，可方便地对导游信息进行操作。 27 计算机学院数据库系统设计 图4.2.5 导游信息管理窗体 用户操作说明:操作人员通过导航器对导游信息表进行“添加、删除、修改、保存”。 本窗体无代码。 5( 线路信息管理 创建窗体xlxxglForm(单元文件名为xlxxgl.pas)。该窗体包含一个table组键和导航器，可方便地对旅游线路信息进行操作。 28 计算机学院数据库系统设计 图4.2.6 线路信息管理窗体 用户操作说明:操作人员通过导航器对线路信息表进行“添加、删除、修改、保存”。单击“打印”按钮，生成打印报表。 代码: implementation uses xlxxdy; {$R *.dfm} //单击“打印”，显示打印报表 procedure TxlxxglForm.BitBtn3Click(Sender: TObject); begin xlxxReportForm.show; end; end. 6(游客信息管理窗体 创建窗体ykxxglForm(单元文件名为ykxxgl.pas)。该窗体包含一个table 组键和导航器，可方便地对游客信息进行操作。 29 计算机学院数据库系统设计 图4.2.8 游客信息管理窗体 用户操作说明:操作人员通过导航器对游客信息表进行“添加、删除、修改、保 存”。单击“打印”按钮，生成打印报表。 代码: implementation uses ykxxdy; {$R *.dfm} //单击“打印”，显示打印报表 procedure TykxxglForm.BitBtn4Click(Sender: TObject); begin ykxxReportForm.show; end; end. 30 计算机学院数据库系统设计 7(查询窗体 创建窗体cxglForm(单元文件名为cxgl.pas)。在窗体中添加pagecontrol组件并新建四页，并更改其相关属性。 (1) 导游查询 图4.2.12 查询管理窗体--导游查询 用户操作说明:用户可以按编号、姓名、性别、级别分别对导游信息进行查询，清空按钮用来清除输入内容后可重新查询，还可浏览全部数据，并且对编号、姓名、性别进行升序、降序排列，先选排序内容再选排序方法。 代码: //查询 procedure TcxglForm.Button1Click(Sender: TObject); begin with Q_dycx do begin close; //关闭query组件 sql.Clear; //清除原来SQL属性内容 31 计算机学院数据库系统设计 sql.Add('select * from dyxx where 导游编号=:a or 姓名=:b or 性别=:c or 级别=:d '); //添加新的SQL属性内容 parambyname('a').AsString:=edit1.Text;//将edit1输入内容赋值给a parambyname('b').AsString:=edit2.Text; //将edit2输入内容赋值给b parambyname('c').AsString:=combobox1.Text; //将combobox1输入内容赋值给c parambyname('d').AsString:=combobox2.Text;// 将combobox2输入内容赋值给d open; //执行语句 end; end; //清除 procedure TcxglForm.Button2Click(Sender: TObject); begin edit1.Clear; //清除edit1中输入内容 edit2.Clear //清除edit2中输入内容 //浏览全部数据 procedure TcxglForm.CheckBox1Click(Sender: TObject); begin if checkbox1.Checked then with Q_dycx do begin close; sql.Clear; sql.Add('select * from dyxx'); 32 计算机学院数据库系统设计 open; end; end; //升序排序 procedure TcxglForm.RadioButton1Click(Sender: TObject); var context:string; begin if (radiogroup2.ItemIndex=0) then context:='导游编号' //按导游编号 else if (radiogroup2.ItemIndex=1) then context:='姓名' //按姓名 else if (radiogroup2.ItemIndex=2) then context:='级别'; //按级别 with Q_dycx do //更新查询 begin close; sql.Clear ; sql.Add('select * from dyxx order by '+context+' '); open; //开始查询 end; end; //降序排序 procedure TcxglForm.RadioButton2Click(Sender: TObject); var context:string; 33 计算机学院数据库系统设计 begin if (radiogroup2.ItemIndex=0) then context:='导游编号' //按导游编号 else if (radiogroup2.ItemIndex=1) then context:='姓名' //按姓名 else if (radiogroup2.ItemIndex=2) then context:='级别'; //按级别 with Q_dycx do //更新查询 begin close; sql.Clear ; sql.Add('select * from dyxx order by '+context+' desc '); open; //开始查询 end; end; (2) 线路查询 34 计算机学院数据库系统设计 图4.2.13 查询管理窗体--线路查询 用户操作说明:用户可以按线路编号、本店价格分别对线路信息进行查询，可以查询价格在一定范围之内的所有线路，清空按钮用来清除输入内容后可重新查询，还可浏览全部数据，并且对编号、路线、本店价格进行升序、降序排列，先选排序内容再选排序方法。 代码: //查询 procedure TcxglForm.Button3Click(Sender: TObject); begin if edit4.text<>'' then with Q_xlcx do begin close; //关闭query组件 sql.Clear; //清除原来SQL属性内容 sql.Add('select * from xlxx where 线路编号=:a '); //添加新的SQL属性内容 parambyname('a').AsString:=edit4.Text; //将edit4输入内容赋值给a open; //执行语句 end; if (combobox3.Text<>'') and (combobox4.Text<>'') then with Q_xlcx do begin close; //关闭query组件 sql.Clear; //清除原来SQL属性内容 sql.Add('select * from xlxx where 本店价格 between :b and :c '); // 添加新的SQL属性内容 parambyname('b').AsCurrency:=strtoCurr(combobox3.Text);//将combobox3 35 计算机学院数据库系统设计 输入内容赋值给b parambyname('c').AsCurrency:=strtoCurr(combobox4.Text); //将combobox4 输入内容赋值给c open; //执行语句 end; end; //清除 procedure TcxglForm.Button4Click(Sender: TObject); begin edit4.Clear; //清除edit4中输入内容 end; //浏览全部数据 procedure TcxglForm.CheckBox2Click(Sender: TObject); begin if checkbox2.Checked then with Q_xlcx do begin close; sql.Clear; sql.Add('select * from xlxx'); open; end; end; //升序排序 procedure TcxglForm.RadioButton3Click(Sender: TObject); var 36 计算机学院数据库系统设计 context:string; begin if (radiogroup4.ItemIndex=0) then context:='线路编号' //按线路编号 else if (radiogroup4.ItemIndex=1) then context:='旅游路线' //按旅游路线 else if (radiogroup4.ItemIndex=2) then context:='本店价格'; //按本店价格 with Q_xlcx do //更新查询 begin close; sql.Clear; sql.Add('select * from xlxx order by '+context+' '); open; //开始查询 end; end; //降序排序 procedure TcxglForm.RadioButton4Click(Sender: TObject); var context:string; begin if (radiogroup4.ItemIndex=0) then context:='线路编号' //按线路编号 else if (radiogroup4.ItemIndex=1) then context:='旅游路线' //按旅游路线 else if (radiogroup4.ItemIndex=2) then context:='本店价格'; //按本店价格 37 计算机学院数据库系统设计 with Q_xlcx do //更新查询 begin close; sql.Clear ; sql.Add('select * from xlxx order by '+context+' desc '); open; //开始查询 end; end; (3) 游客查询 图4.2.14 查询管理窗体--游客查询 用户操作说明:用户可以按编号、姓名、性别、会员以及交款分别对游客信息进行查询，清空按钮用来清除输入内容后可重新查询，还可浏览全部数据，并且对编号、姓名、会员、交款进行升序、降序排列，先选排序内容再选排序方法。 代码: //查询 38 计算机学院数据库系统设计 procedure TcxglForm.Button5Click(Sender: TObject); begin with Q_ykcx do begin close; //关闭query组件 sql.Clear; //清除原来SQL属性内容 sql.Add('select * from ykxx where 游客编号=:a or 姓名=:b or 性别=:c or 会员=:d or 是否交款=:e'); //添加新的SQL属性内容 parambyname('a').AsString:=edit5.Text; //将edit5输入内容赋值给a parambyname('b').AsString:=edit6.Text; //将edit6输入内容赋值给b parambyname('c').AsString:=combobox5.Text; //将combobox5输入内容赋值给c parambyname('d').AsString:=combobox6.Text; //将combobox6输入内容赋值给d parambyname('e').AsString:=combobox7.Text; //将combobox7输入内容赋值给e open; //执行语句 end; end; //清除 procedure TcxglForm.Button6Click(Sender: TObject); begin edit5.Clear; //清除edit5中输入内容 edit6.Clear; //清除edit6中输入内容 //浏览全部数据 procedure TcxglForm.CheckBox3Click(Sender: TObject); 39 计算机学院数据库系统设计 begin if checkbox3.Checked then with Q_ykcx do begin close; sql.Clear; sql.Add('select * from ykxx'); open; end; end; //升序排序 procedure TcxglForm.RadioButton5Click(Sender: TObject); var context:string; begin if (radiogroup6.ItemIndex=0) then context:='游客编号' //按游客编号 else if (radiogroup6.ItemIndex=1) then context:='姓名' //按姓名 else if (radiogroup6.ItemIndex=2) then context:='会员' //按会员 else if (radiogroup6.ItemIndex=3) then context:='是否交款'; //按是否交款 with Q_ykcx do //更新查询 begin close; sql.Clear ; 40 计算机学院数据库系统设计 sql.Add('select * from ykxx order by '+context+' '); open; //开始查询 end; end; //降序排序 procedure TcxglForm.RadioButton6Click(Sender: TObject); var context:string; begin if (radiogroup6.ItemIndex=0) then context:='游客编号' //按游客编号 else if (radiogroup6.ItemIndex=1) then context:='姓名' //按姓名 else if (radiogroup6.ItemIndex=2) then context:='会员' //按会员 else if (radiogroup6.ItemIndex=3) then context:='是否交款'; //按是否交款 with Q_ykcx do //更新查询 begin close; sql.Clear ; sql.Add('select * from ykxx order by '+context+' desc '); open; //开始查询 end; end; 41 计算机学院数据库系统设计 图4.2.15 查询管理窗体--排团查询 用户操作说明:用户可以按团队编号、导游编号、线路编号、旅游天数以及开始时间分别对排团信息进行查询，可以查询开始时间在一定范围之内的所有旅游线路，清空按钮用来清除输入内容后可重新查询，还可浏览全部数据，并且对团队编号、导游编号、开始时间进行升序、降序排列，先选排序内容再选排序方法。 代码: //查询 procedure TcxglForm.Button7Click(Sender: TObject); begin if (edit7.text<>'') or (edit8.text<>'') or (edit9.Text<>'') then with Q_ptcx do begin close; //关闭query组件 sql.Clear; //清除原来SQL属性内容 sql.Add('select * from ptxx where 团队编号=:a or 导游编号=:b or 线路编号=:c ');//添加新的SQL属性内容 parambyname('a').AsString:=edit7.Text; //将edit7输入内容赋值给a 42 计算机学院数据库系统设计 parambyname('b').AsString:=edit8.Text; //将edit8输入内容赋值给b parambyname('c').AsString:=edit9.Text; //将edit9输入内容赋值给c open; //执行语句 end; if edit10.text<>'' then with Q_ptcx do begin close; //关闭query组件 sql.Clear; //清除原来SQL属性内容 sql.Add('select * from ptxx where 旅游天数=:d '); parambyname('d').Asinteger:=strtoint(edit10.Text);//将edit10输入内容赋值给d open; //执行语句 end; end; //清除 procedure TcxglForm.Button8Click(Sender: TObject); begin edit7.Clear; //清除edit7中输入内容 edit8.Clear; //清除edit8中输入内容 edit9.Clear; //清除edit9中输入内容 edit10.Clear; //清除edit10中输入内容 end; //浏览全部数据 procedure TcxglForm.CheckBox4Click(Sender: TObject); begin 43 计算机学院数据库系统设计 if checkbox4.Checked then with Q_ptcx do begin close; sql.Clear; sql.Add('select * from ptxx'); open; end; end; //升序排序 procedure TcxglForm.RadioButton7Click(Sender: TObject); var context:string; begin if (radiogroup8.ItemIndex=0) then context:='团队编号' //按团队编号 else if (radiogroup8.ItemIndex=1) then context:='导游编号' //按导游编号 else if (radiogroup8.ItemIndex=2) then context:='开始时间' ; //按开始时间 with Q_ptcx do //更新查询 begin close; sql.Clear ; sql.Add('select * from ptxx order by '+context+' '); open; //开始查询 end; 44 计算机学院数据库系统设计 end; //降序排序 procedure TcxglForm.RadioButton8Click(Sender: TObject); var context:string; begin if (radiogroup8.ItemIndex=0) then context:='团队编号' //按团队编号 else if (radiogroup8.ItemIndex=1) then context:='导游编号' //按导游编号 else if (radiogroup8.ItemIndex=2) then context:='开始时间' ; //按开始时间 with Q_ptcx do //更新查询 begin close; sql.Clear ; sql.Add('select * from ptxx order by '+context+' desc '); open; //开始查询 end; end; end. 45 计算机学院数据库系统设计 结束语 数据库的课程设计基本上做完了，但是还有好多不足的地方。在开始做的时候，我很盲目，自己根本就不知道该怎么做，自己心里很郁闷，于是我就去问我们班成绩比较好的同学，他们说他们也不会，我当时心都冷了，不知道自己该怎么办，一个同学的话刺激了我，我相信自己一定能做好，而且会比别人做的都好。在这个过程中，我遇到了很多苦难，有很多东西自己都不懂，我就自己上网查资料，实在不会就请教同学，我对图形用户界面有了更深的了解，但是对它的应用还是不是很熟练。 通过此次的课程设计，我知道按照《数据库库系统概论》中描述的方法:需求分析，概念结构设计，逻辑结构设计，物理结构设计，实施，运行和维护等步骤进行开发，我们自己有了一个大概的框架，就不会太盲目了。还有就是程序模块的编制中，重点把握系统内部完整性、功能性、实用性,使其能够协调统一、运行无误。 46 计算机学院数据库系统设计 参考文献 [1]Visual Basic 企业办公系统开发实例导航(人民邮电出版社) 刘萌 周学明 郭安源 编著 [2]Visual Basic 程序设计(清华大学出版社) 李春葆 刘圣才 张植民 编著 [3]Visual Basic 用户编程手册(人民邮电出版社) 林永 张乐强 编著 [4]数据库系统概论(高等教育出版社) 萨师煊 王珊 编著 [5]管理信息系统(第四版) 黄梯云 李一军 编著 [6]Office 2003中文版(清华大学出版社) 东方人华 编著 [7]VB数据库程序设计高手(科学出版社) 温贤发 编著 [8]VB6.0中文版教程(电子工作出版社) [9] Visual Basic 6.0 程序设计教程(高等教育出版社) 龚沛曾 陆慰民 杨志强 编著 47