精品数据库课程设计—旅行社管理信息系统[1]

1、目录第一章系统概述1系统开发背景与意义1系统开发背景1系统开发意义1第二章系统需求分析3系统功能要求32.2.需求分析概述3系统层次分析4系统数据流图5数据字典7第三章系统总体设计12系统总体设计目标12概念模型12概念模式（E-R）123.3数据库逻辑结构设计16第四章数据库系统实现20系统实现工具简介20开发语言VisualBasic6020SQLServer2000简介22人事管理系统数据库实现23结束语46参考文献47第一章 系统概述系统开发背景天津中国青年旅行社创建于1986年，隶属于共青团天津市委员会，为中国青旅集团天津公司，是经国家旅游局批准，具有国有独资性质的国际旅行社，公司已

2、逐步发展成为一家专业的旅游服务机构，以自身良好的社会形象，完善的经营网络，先进的服务手段，丰富的旅游产品，广泛的客户基础，完善并建成了现代化程度较高的旅行社。公司坚持质量为本，效益优先的经营理念，将自身已有的国内旅游服务网络与丰富的旅游资源、先进的服务理念及良好的服务质量紧密结合，专业从事为企业及个人提供高品质的全球旅游资讯及出行服务。业务范围包括经营国内旅游业务为主，组织团队、散客旅游，安排商务、会务、国内外考察活动，代办国内、国际航班机票、火车票、轮船票，商务租车、会议安排、度假产品的预订及自助旅行等全方位的服务。天津青旅的奋斗目标：力创中国旅游行业“服务一流、实力一流、人才一流、业务一流

3、”的业绩。由于旅游线路的增加和参团人员的增多和复杂性，旧的管理系统的处理能力和管理方法很难满足现代化企业管理的需求，旧系统已成为实现企业战略目标的主要障碍。但是公司的内部管理系统还不完善，还在进行以人工统计和分配为主的工作，不但花费了人工，而且由于数据复杂往往难以避免会出错，给企业造成一定的负面影响，降低了企业的工作效率。因此，在这个以计算机网络技术为主流的时代，公司有必要开发一个完善的内部管理系统。系统开发意义我国的旅行社目前正处于一个科学技术日新月异飞速向前发展的环境中。信息技术和通信技术以令人目不暇接的速度发展，尤其是互联网络的广泛流行，使得各种服务信息已近乎透明，且个性突出的游客们已不

4、再满足于死板的标准化的旅游项目，要求量身定做，旅游行业内的竞争日趋激烈。这就要求旅行社必须采取现代化的管理手段，利用计算机的发展成果结合旅行社的业务特点，建立高效的旅行社管理系统，以迅速、准确地捕捉客户要求，并加以高效回应，使游客满意，才能摆脱被挤出的危险并在业内脱颖而出。   旅行社管理信息系统是一个典型的多表操作系统，因为一个旅行社涉及到导游的管理与查询，导游与景点的分布，景点与游客的分布与查询，导游、景点和游客三者之间的分布与查询，还涉及到景点的各种管理、导游的各种管理和游客的各种管理等等，因此，它是一个比较复杂的管理系统。第二章系统需求分析旅游管理系统由团

5、员信息表、线路信息表、团队信息表、游客团队信息表、密码信息表五个信息表组成，主要来实现旅游团队、团队团员及旅游路线相关信息的输入、查询和维护，以及旅游团队和团员信息的报表及输出、旅游路线排行榜的发布和密码的更改等各项功能。人类社会在经历过农业革命和工业革命之后，如今已经如信息革命阶段。信息革命的核心是当今先进生产力的代表信息技术。信息技术本身是一个庞大的扩展的高新技术群，包括电脑技术、电信技术、广播电视技术、网络技术、多媒体技术、数据库技术等等。信息技术的发展对人类社会的方方面面都产生了不同程度的影响，包括旅游业。同时信息技术也推动了旅游业的第二次革命，它对传统的旅游管理、旅游服务、旅游经营和

6、销售手段等产生强大冲击。随着中国加入WTO，旅游行业竞争变得日益地激烈，旅行社作为一个旅游企业，在整个旅游中起着非常重要的作用。旅行社对信息化的要求也变得越来越高。旅行社信息化不仅是适应信息时代快速变化的必然选择，同时也可以增加目前旅行社管理中的科技含量。通过对本地多家旅行社进行信息化实施情况的调研，从实际情况中我们发现旅行社一般都配有电脑、 、 、计算机网络等信息化设备，工作人员使用电脑也比较熟练，其中有些旅行社有自己的网站，通过Internet宣传自己。但是旅行社信息化发展滞后于旅游业的整体发展、重硬件轻软件，几乎没有自己的管理信息系统。我们发现旅行社日常业务工作比较复杂，日常业务的操作基

7、本上完全依靠手工劳动，员工工作强度较大，尤其在五一、十一黄金周期间。在目前的旅行社经营活动中，业务操作不够成熟规范，对游客和员工的信息资料管理也不够系统化和规范化。如何降低人力成本，跟上全球信息化的脚步，实现“无纸化办公，越来越成为旅游企业要解决的问题。建立一个良好的管理信息系统相当必要。通过调研，我们发现目前为使用管理信息系统的旅行社业务操作中存在以下问题：（1）游客报名的基本信息以及销售的旅游线路等信息均以文字形式记录于纸上，于每天晚上呈报计调中心汇总；各种凭证为纸质，管理查询均不方便。（2）旅游线路、车票等旅游产品的基本信息更新速度慢，但是旅游市场上旅游产品的价格改变非常快，基本上一天一

8、变，现无法做到及时更新。（3）由于旅行社有多个营业点在同时销售旅游产品，对某些需实时掌握的信息更困难。如剩余的座位号、当前报名人数等等，更新的主要方式是通过 和MSN以及 等设备。前台销售的员工接到游客的报名请求时就通过 与计调部门联系，看是否还可以安排，如有空座位则从MSN中获得座位号等相关信息，报名流程结束要及时通知计调部门修改当前信息，以便其他营业点获得最新的信息。操作比较复杂，加大了计调部员工和前台销售员的工作量。此外，还有可能忙中出错，导致信息不一致。通过建立旅行社管理信息系统可以解决以上这些问题。旅行社管理信息系统可以简化员工的手工操作，规范操作流程，提高工作效率，降低劳动强度；可

9、以实现信息的实时更新能方便游客接受更好，更快的服务；可以方便各部门信息的交流，改变传统的文件满天飞的局面；此外管理人员也可以通过该系统查询当前经营情况以及各种电子单证，随时掌握企业经营动态，从而更好地进行管理。旅行社管理信息系统旅游团队管理团员管理线路管理团队信息的报表及输出团队信息的维护团队信息的查询团员信息的输入团队信息的输入团员信息的维护团员信息的查询团员信息的报表及输出线路信息的输入线路信息的维护线路信息的查询线路信息的发布表2-1系统层次分析密码管理密码信息的存储密码信息的更改操作员登录密码验证处理旅游团队信息团员信息线路信息图2-2系统总数据流图财务科P0以下为本系统数据字典的旅游

10、管理系统销售统计表游客合同计调部门排团计划表图2-3系统业务流程图财务科D1团员信息表D2线路信息表F2销售统计表P2排团处理P1团员信息处理团员F1合同D3团队信息表计调部门F3排团计划表F4排团计划表图2-4系统业务流程图1.以下为本系统数据字典的数据项部分:1）数据项编号：DNum2）数据项编号：XNum数据项名称：导游编号数据项名称：线路编号别名：导游编号别名：线路编号简述：某导游的代码简述：某旅游线路的代码类别及宽度：字符型，5位类别及宽度：字符型，4位取值范围：G0001-G9999取值范围：I001-I999,A001-A9993）数据项编号：TYNum4）数据项编号：TDNum

11、数据项名称：团员编号数据项名称：团队编号别名：团员编号别名：团队编号简述：某团员的代码简述：某团队的代码类别及宽度：字符型，5位类别及宽度：字符型，3位取值范围：T0001-T9999取值范围：001-999:1）数据流编号：F1数据流名称：合同简述：游客与旅行社签订的合同数据流来源：游客数据流去向：P1高峰流量：200份/天数据流组成：游客编号、姓名、性别、身份证号码，联系方式、地址、是否交款、会员。2）数据流编号：F2数据流名称：销售统计表简述：外联销售部每天的收入情况数据流来源：P1数据流去向：财务科流量：1份/天数据流组成：游客编号、单价、总金额、折扣率、日期、经办人。3）数据流编号：

12、F3数据流名称：排团计划表简述：对游客进行团队编排的情况数据流来源：P2数据流去向：游客高峰流量：200份/天数据流组成：团队编号、导游编号、开始时间、旅游天数、跟团人数、旅游路线。4）数据流编号：F4数据流名称：排团计划表简述：对游客进行团队编排的情况数据流来源：P2数据流去向：计调部门数据流组成：团队编号、导游编号、开始时间、旅游天数、跟团人数、旅游路线。3.以下为本系统数据字典的数据结构卡片部分:数据结构卡片数据结构名称：用户管理卡片数据结构简述：登记系统用户信息时所记录的卡片数据结构的组成：操作员、密码4.以下为本系统数据字典的数据存储部分:数据存储卡片主要用于描述数据存储的结构、有关

13、的数据流和查询要求。1）数据存储卡片编号：D1文件名：游客信息表简述：存储游客基本信息的表组成：游客编号、姓名、性别、身份证号码，联系方式、地址、是否交款、会员。有关的数据流：P1-D1，D1-P2有无立即查询要求：有2）数据存储卡片文件名：线路信息表简述：存储旅游线路的具体信息的表组成：线路编号、旅游路线、市场价格、本店价格、预订有关的数据流：P2-D2有无立即查询要求：有3）数据存储卡片文件名：导游信息表简述：存储导游的基本信息的表组成：导游编号、姓名、性别、身份证号码、 、地址、任职时间、级别、备注。有关的数据流：D3-P2有无立即查询要求：有5.以下为本系统数据字典的逻辑处理部分:1）

14、编号：P1名称：游客信息处理简述：处理游客信息输入：游客编号、姓名、性别、身份证号码，联系方式、地址、是否交款、会员。输出：游客信息表，销售统计表处理：根据游客填写好的合同登记游客信息表，并对当天的营业额进行统计，上报财务科。2）编号：P2名称：排团处理简述：对游客进行团队编排。输入：游客信息、线路信息、导游信息。输出：排团计划表处理：将游客信息、旅游线路和导游信息进行汇总，合理安排计划，最终输出排团计划表。6.以下为本系统数据字典的外部实体部分：1）外部实体名称：游客简述：旅行者输入的数据流：排团计划表输出的数据流：合同2）外部实体名称：财务科简述：无输入的数据流：销售统计表输出的数据流：无

15、3）外部实体名称：计调部门简述：负责安排接待（房、餐、车、景点）等事宜输入的数据流：排团计划表输出的数据流：无第三章系统总体设计旅游管理系统的目标是对旅行社的导游人员以及客户进行管理和对团队进行编排，以极大地提高业务信息记录、统计、编排等信息管理的工作效率。尽量使系统的功能设计,流程设计与实际操作吻合,有一定的可行性和现实意义。旅行社对旅游管理系统的要求有以下几点：1、系统要本着服从和服务于企业战略使命和长期目标要求，以及继承与优化相结合的原则，来制定信息系统开发方案。2、系统既要解决现行系统存在的问题，又要充分预计未来的需求变化，使系统具有足够的适应性和先进性，还要方便运行管理和维护。3、系

16、统反映的流程简洁，自动化程度比较高.如能自动打印报表，自动进行一些简单的结算，为管理人员提供相对准确数据，保证高效率运作等。概念模型概念模式（E-R）数据库概念结构设计是在需求分析的基础上，设计出能够满足用户需求的各种实体，以及它们之间的关系，为后面的逻辑结构设计打下基础。用E-R图是描述数据实体关系的一种直观描述工具，所以本系统采用了E-R图方法进行数据库概念结构设计。性别通信地址身份证号码 团员姓名团员编号团队编号路线编号备注团费交否图3-1团员的E-R图线路名称团费路线编号线路简介图形图3-2线路的E-R图线路编号团队编号返程日期团队出发日期团员人数图3-3团队的E-R图团队编号团队负责

17、人盈亏团费团队人数旅游团队建团时间爱你是否出发图3-4旅游团队的E-R图操作员密码密码图3-5密码的E-R图带领团员团队1N参加NN1负责旅游团队1图3-6系统的E-R图概念结构是独立于实际数据模型的信息结构，必须将其转化为逻辑结构后才能进行数据库应用的设计。也就是要将概念上的结构转化为BP数据库系统所支持的实际数据模型。团员信息表结构图：图3-7团员信息表结构图团员信息表实例图：图3-8团员信息表实例图线路信息表结构图：图3-9线路信息表结构图线路信息表实例图：图3-10线路信息表实例图团队信息表结构图：图3-11团队信息表结构图团队信息表实例图：图3-12团队信息表实例图旅游信息表结构图：

18、图3-13旅游信息表结构图旅游信息表实例图：图3-14旅游信息表实例图密码信息表结构图：图3-15密码信息表结构图密码信息表实例图：图3-16密码信息表实例图第四章数据库系统实现开发语言VisualBasic60从1998年发布到2002年正式推出VisualBasic.NET简直吊足了开发者的胃口。从2000年就开始传言的具有继承、TryCatch语句等新功能的全新VB7.0一直没有露面。直到2001年，VisualStudio.NET的第一个BETA版问世的时候，所有人都呆了这是VisualBasic吗？And语句变成了BitAnd，数组只能从0下标开始，而且连Dim语句的意义都变了，几乎

19、所有的窗体控件都变了，Long变成了Integer而Integer变成了Short，Variant不见了，Static不能用了简直是翻天覆地，人们已经无暇关注这个版本有什么改进，转而担心我怎么才能接受这个本本了。其实VisualBasic.NET完全是为了.NETFramework这一全新的平台而设计的，VisualBasic.NET的设计者一开始没有掌握好新平台和旧语言的平衡。到了BETA2中，很多东西回归了6.0，如BitAnd又变回了And，数组的定义语句也变回了原有的意义，Static也回到了VisualBasic中。但是BETA1惊人的变化让所有的VB开发者怕了，他们觉得这种语言被改

20、的千疮百孔，有些人干脆转去研究传说中的新语言C#。但是VisualBasic.NET渡过几个BETA版本之后还是找到了正确的定位。VisualBasic.NET有对CLR最完善的支持，同时尽量保留着BASIC易懂的语法风格和易用性。这个版本新增加的功能已经数不清，最重要的几个是：1、继承。至此，VisualBasic完成了向面向对象转变的道路。2、共享成员。3、TryCatch结构化异常处理。4、Delegate和Interface。5、名称空间。6、对自由线程的支持。特别的是，VisualBasic.NET大大减少了VisualBasic语言的关键字，如GoSub、PSet等等。原先的Vis

21、ualBasic有多达120个关键字，这给写程序带来了很大的不便，现在经过精简，VisualBasic脱下了这个沉重的包袱。VisualBasic.NET现在是一门现代的、强壮的、面向对象的、简单的可视化开发语言。强大的语言功能吸引了很多开发者。历史是在不断重演的，VisualBasic.NET如今的处境和VisualBasic4.0很相似，由于兼容性变差，人气也降低了。同时由于依附于.NETFramework，程序发布造成了一定的困难。现在国内使用VisualBasic.NET的人相对于VisualBasic6.0来讲显得很少。但是凭借VisualBasic.NET强大的语言功能和MS的支持

22、，VisualBasic.NET一定会显出它的光辉来。2003-稳中求变的新版本VisualBasic.NET2003是一个相当稳重的版本，改变很少，但对小处有很多改进。首先VisualBasic6.0升级向导做了很大改进，这给从老版本痛苦升级的人带来了更多一些的希望。其次在IDE方面，VisualBasic.NET2003修正了许多错误，还让事件处理恢复了6.0的开发体验。语言方面只有两项改进：1、在For、ForEach语句中声明循环变量。2、增加了数学移位运算符<<和>>。在这个比较成熟稳定的新版本下，许多VisualBasic的爱好和开始重新了解VisualBa

23、sic.NET，社区里面也渐渐热闹起来。但是，有些使用C#的开发者坚持认为VisualBasic.NET是垃圾，尽管VisualBasic.NET拥有比C#更多的功能和更好的IDE。这说明不了解VisualBasic.NET成为它普及的最大障碍。2005-完美主义的VisualBasic，能否再现辉煌？为了让VisualBasic有最佳的开发体验，VisualBasic2005的设计者绞尽了脑汁。这次VisualBasic2005光语言上的改进就足以让VisualBasic的开发人员高兴一阵子。大家可以去看看我那篇介绍VisualBasic2005新增功能的贴子。挑重要的列在下边：1、泛型2、

24、运算符重载3、PartialType4、窗体的默认实例（让你用VB6的语法使用窗体）5、语法的多种改进现在用VisualBasic2005只要一行代码就可以读写注册表、访问文件、读写串口、获取应用程序信息用VisualBasic2005完全可以称作享受开发。而泛型、运算符重载等功能又可以让VisualBasic的开发人员深入.NETFramework的全部功能，开发出最优秀的应用程序。4.1.2 SQLServer2000简介SQLServer是一个关系数据库管理系统它最初是由MicrosoftSybase和Ashton-Tate三家公司共同开发的于1988年推出了第一个OS/2版本在Wind

25、owsNT推出后Microsoft与Sybase在SQLServer的开发上就分道扬镳了Microsoft将SQLServer移植到WindowsNT系统上专注于开发推广SQLServer的WindowsNT版本Sybase则较专注于SQLServer在UNIX操作系统上的应用在本书中介绍的是MicrosoftSQLServer以后简称为SQLServer或MSSQLServer。SQLServer2000是为迅速提供可伸缩性电子商务、企业及数据仓库解决方案而开发的完整数据库与分析软件产品。SQLSERVER2000定位于Internet背景下的数据库应用，它为用户的Web应用提供了一款完善的

26、数据管理和数据分析解决方案。同时SQLSERVER2000还是WindowsDNA（DistributedInternetArchitecture）架构的一个核心组件。它极大地缩短了用户开发电子商务、数据仓库应用的时间。SQLSERVER2000还提供对XML(ExtensibleMarkupLanguage扩展标示语言支持)和HTTP的全方位支持。旅行社管理系统数据库实现1.登录窗体新建窗体，窗体的name属性改为loginform（单元文件名为），caption属性改为：登录窗体图登录窗体用户操作说明：当用户名或密码输入错误时，系统会弹出对话框提示重新输入。代码：implementatio

27、nusesmain;$R*.dfm/单击“确定”按钮procedureTLoginForm.Button1Click(Sender:TObject);beginwithq_yhdobeginclose;/关闭yh数集sql.Clear;/清除sql.Add('select*fromyhwhere用户名=:aand密码=:b');parambyname('a').asstring:=trim(edit1.Text);/在edit1中输入用户名parambyname('b').AsString:=trim(edit2.text);/在edit2中输入

28、密码open;/打开end;ifq_yh.recordcount>0thenelseshowmessage('用户名或密码错误，请再输入');end;/单击“取消”按钮procedureTLoginForm.Button2Click(Sender:TObject);beginclose;/关闭end;end.2.主窗体设计如图所示界面（mainform，单元文件名为）。caption属性改为“主窗体”，用label实现显示其他窗体的功能。图主窗体用户操作说明：用户单击前六个标签就可进入相应窗体进行操作。单击“退出”则退出主窗体，进入登录窗体重新登录。代码：implemen

29、tationusesyhglc,dyxxgl,xlxxgl,ykxxgl,ptxxgl,cxgl,login;$R*.dfm/单击“用户管理”，进入用户管理窗体procedureTMainForm.Label1Click(Sender:TObject);beginyhglForm.show;end;/单击“导游信息管理”，进入导游信息管理窗体procedureTMainForm.Label2Click(Sender:TObject);begindyxxglForm.show;end;/单击“线路信息管理”，进入线路信息管理窗体procedureTMainForm.Label3Click(Sen

30、der:TObject);beginxlxxglForm.show;end;/单击“游客信息管理”，进入游客信息管理窗体procedureTMainForm.Label4Click(Sender:TObject);beginykxxglForm.show;end;/单击“排团信息管理”，进入派团信息管理窗体procedureTMainForm.Label5Click(Sender:TObject);beginptxxglForm.show;end;/单击“查询管理”，进入查询管理窗体procedureTMainForm.Label6Click(Sender:TObject);begincxgl

31、Form.show;end;/单击“退出”，退出主窗体procedureTMainForm.Label7Click(Sender:TObject);beginclose;loginForm.edit1.text:=''loginForm.edit2.text:=''end;end.3.用户管理窗体创建窗体yhglform（单元文件名为yhglc.pas）。该窗体包含一个table组键和导航器，可方便地对用户进行操作。图用户管理窗体用户操作说明：操作人员通过导航器对用户表进行“添加、删除、修改、保存”。本窗体无代码。创建窗体dyxxglForm(单元文件名为dyx

32、xgl.pas)。该窗体包含一个table组键和导航器，可方便地对导游信息进行操作。图导游信息管理窗体用户操作说明：操作人员通过导航器对导游信息表进行“添加、删除、修改、保存”。本窗体无代码。5 线路信息管理创建窗体xlxxglForm(单元文件名为xlxxgl.pas)。该窗体包含一个table组键和导航器，可方便地对旅游线路信息进行操作。图线路信息管理窗体用户操作说明：操作人员通过导航器对线路信息表进行“添加、删除、修改、保存”。单击“打印”按钮，生成打印报表。代码：implementationusesxlxxdy;$R*.dfm/单击“打印”，显示打印报表procedureTxlxxgl

33、Form.BitBtn3Click(Sender:TObject);beginxlxxReportForm.show;end;end.6游客信息管理窗体创建窗体ykxxglForm(单元文件名为ykxxgl.pas)。该窗体包含一个table组键和导航器，可方便地对游客信息进行操作。图游客信息管理窗体用户操作说明：操作人员通过导航器对游客信息表进行“添加、删除、修改、保存”。单击“打印”按钮，生成打印报表。代码：implementationusesykxxdy;$R*.dfm/单击“打印”，显示打印报表procedureTykxxglForm.BitBtn4Click(Sender:TObje

34、ct);beginykxxReportForm.show;end;end.7查询窗体创建窗体cxglForm(单元文件名为cxgl.pas)。在窗体中添加pagecontrol组件并新建四页，并更改其相关属性。（1） 导游查询图查询管理窗体-导游查询用户操作说明:用户可以按编号、姓名、性别、级别分别对导游信息进行查询，清空按钮用来清除输入内容后可重新查询，还可浏览全部数据，并且对编号、姓名、性别进行升序、降序排列，先选排序内容再选排序方法。代码：/查询procedureTcxglForm.Button1Click(Sender:TObject);beginwithQ_dycxdobegincl

35、ose;/关闭query组件sql.Clear;/清除原来SQL属性内容sql.Add('select*fromdyxxwhere导游编号=:aor姓名=:bor性别=:cor级别=:d');/添加新的SQL属性内容parambyname('a').AsString:=edit1.Text;/将edit1输入内容赋值给aparambyname('b').AsString:=edit2.Text;/将edit2输入内容赋值给bparambyname('c').AsString:=combobox1.Text;/将combobox1输

36、入内容赋值给cparambyname('d').AsString:=combobox2.Text;/将combobox2输入内容赋值给dopen;/执行语句end;end;/清除procedureTcxglForm.Button2Click(Sender:TObject);beginedit1.Clear;/清除edit1中输入内容/清除edit2中输入内容/浏览全部数据procedureTcxglForm.CheckBox1Click(Sender:TObject);beginwithQ_dycxdobeginclose;sql.Clear;sql.Add('sele

37、ct*fromdyxx');open;end;end;/升序排序procedureTcxglForm.RadioButton1Click(Sender:TObject);varcontext:string;beginif(radiogroup2.ItemIndex=0)thencontext:='导游编号'/按导游编号elseif(radiogroup2.ItemIndex=1)thencontext:='姓名'/按姓名elseif(radiogroup2.ItemIndex=2)thencontext:='级别'/按级别withQ_dy

38、cxdo/更新查询beginclose;sql.Clear;sql.Add('select*fromdyxxorderby'+context+'');open;/开始查询end;end;/降序排序procedureTcxglForm.RadioButton2Click(Sender:TObject);varcontext:string;beginif(radiogroup2.ItemIndex=0)thencontext:='导游编号'/按导游编号elseif(radiogroup2.ItemIndex=1)thencontext:='姓

39、名'/按姓名elseif(radiogroup2.ItemIndex=2)thencontext:='级别'/按级别withQ_dycxdo/更新查询beginclose;sql.Clear;sql.Add('select*fromdyxxorderby'+context+'desc');open;/开始查询end;end;（2） 线路查询图查询管理窗体-线路查询用户操作说明:用户可以按线路编号、本店价格分别对线路信息进行查询，可以查询价格在一定范围之内的所有线路，清空按钮用来清除输入内容后可重新查询，还可浏览全部数据，并且对编号、路线、

40、本店价格进行升序、降序排列，先选排序内容再选排序方法。代码：/查询procedureTcxglForm.Button3Click(Sender:TObject);beginifedit4.text<>''thenwithQ_xlcxdobeginclose;/关闭query组件sql.Clear;/清除原来SQL属性内容sql.Add('select*fromxlxxwhere线路编号=:a');/添加新的SQL属性内容parambyname('a').AsString:=edit4.Text;/将edit4输入内容赋值给aopen;

41、/执行语句end;if(combobox3.Text<>'')and(combobox4.Text<>'')thenwithQ_xlcxdobeginclose;/关闭query组件sql.Clear;/清除原来SQL属性内容sql.Add('select*fromxlxxwhere本店价格between:band:c');/添加新的SQL属性内容parambyname('b').AsCurrency:=strtoCurr(combobox3.Text);/将combobox3输入内容赋值给bparamby

42、name('c').AsCurrency:=strtoCurr(combobox4.Text);/将combobox4输入内容赋值给copen;/执行语句end;end;/清除procedureTcxglForm.Button4Click(Sender:TObject);beginedit4.Clear;/清除edit4中输入内容end;/浏览全部数据procedureTcxglForm.CheckBox2Click(Sender:TObject);beginwithQ_xlcxdobeginclose;sql.Clear;sql.Add('select*fromxlx

43、x');open;end;end;/升序排序procedureTcxglForm.RadioButton3Click(Sender:TObject);varcontext:string;beginif(radiogroup4.ItemIndex=0)thencontext:='线路编号'/按线路编号elseif(radiogroup4.ItemIndex=1)thencontext:='旅游路线'/按旅游路线elseif(radiogroup4.ItemIndex=2)thencontext:='本店价格'/按本店价格withQ_xlcx

44、do/更新查询beginclose;sql.Clear;sql.Add('select*fromxlxxorderby'+context+'');open;/开始查询end;end;/降序排序procedureTcxglForm.RadioButton4Click(Sender:TObject);varcontext:string;beginif(radiogroup4.ItemIndex=0)thencontext:='线路编号'/按线路编号elseif(radiogroup4.ItemIndex=1)thencontext:='旅游路

45、线'/按旅游路线elseif(radiogroup4.ItemIndex=2)thencontext:='本店价格'/按本店价格withQ_xlcxdo/更新查询beginclose;sql.Clear;sql.Add('select*fromxlxxorderby'+context+'desc');open;/开始查询end;end;（3） 游客查询图查询管理窗体-游客查询用户操作说明:用户可以按编号、姓名、性别、会员以及交款分别对游客信息进行查询，清空按钮用来清除输入内容后可重新查询，还可浏览全部数据，并且对编号、姓名、会员、交款进行

46、升序、降序排列，先选排序内容再选排序方法。代码：/查询procedureTcxglForm.Button5Click(Sender:TObject);beginwithQ_ykcxdobeginclose;/关闭query组件sql.Clear;/清除原来SQL属性内容sql.Add('select*fromykxxwhere游客编号=:aor姓名=:bor性别=:cor会员=:dor是否交款=:e');/添加新的SQL属性内容parambyname('a').AsString:=edit5.Text;/将edit5输入内容赋值给aparambyname(

47、9;b').AsString:=edit6.Text;/将edit6输入内容赋值给bparambyname('c').AsString:=combobox5.Text;/将combobox5输入内容赋值给cparambyname('d').AsString:=combobox6.Text;/将combobox6输入内容赋值给dparambyname('e').AsString:=combobox7.Text;/将combobox7输入内容赋值给eopen;/执行语句end;end;/清除procedureTcxglForm.Button6

48、Click(Sender:TObject);beginedit5.Clear;/清除edit5中输入内容edit6.Clear;/清除edit6中输入内容/浏览全部数据procedureTcxglForm.CheckBox3Click(Sender:TObject);beginwithQ_ykcxdobeginclose;sql.Clear;sql.Add('select*fromykxx');open;end;end;/升序排序procedureTcxglForm.RadioButton5Click(Sender:TObject);varcontext:string;begi

49、nif(radiogroup6.ItemIndex=0)thencontext:='游客编号'/按游客编号elseif(radiogroup6.ItemIndex=1)thencontext:='姓名'/按姓名elseif(radiogroup6.ItemIndex=2)thencontext:='会员'/按会员elseif(radiogroup6.ItemIndex=3)thencontext:='是否交款'/按是否交款withQ_ykcxdo/更新查询beginclose;sql.Clear;sql.Add('sele

50、ct*fromykxxorderby'+context+'');open;/开始查询end;end;/降序排序procedureTcxglForm.RadioButton6Click(Sender:TObject);varcontext:string;beginif(radiogroup6.ItemIndex=0)thencontext:='游客编号'/按游客编号elseif(radiogroup6.ItemIndex=1)thencontext:='姓名'/按姓名elseif(radiogroup6.ItemIndex=2)thenco

51、ntext:='会员'/按会员elseif(radiogroup6.ItemIndex=3)thencontext:='是否交款'/按是否交款withQ_ykcxdo/更新查询beginclose;sql.Clear;sql.Add('select*fromykxxorderby'+context+'desc');open;/开始查询end;end;图查询管理窗体-排团查询用户操作说明:用户可以按团队编号、导游编号、线路编号、旅游天数以及开始时间分别对排团信息进行查询，可以查询开始时间在一定范围之内的所有旅游线路，清空按钮用来清除

52、输入内容后可重新查询，还可浏览全部数据，并且对团队编号、导游编号、开始时间进行升序、降序排列，先选排序内容再选排序方法。代码：/查询procedureTcxglForm.Button7Click(Sender:TObject);beginif(edit7.text<>'')or(edit8.text<>'')or(edit9.Text<>'')thenwithQ_ptcxdobeginclose;/关闭query组件sql.Clear;/清除原来SQL属性内容sql.Add('select*frompt

53、xxwhere团队编号=:aor导游编号=:bor线路编号=:c');/添加新的SQL属性内容parambyname('a').AsString:=edit7.Text;/将edit7输入内容赋值给aparambyname('b').AsString:=edit8.Text;/将edit8输入内容赋值给bparambyname('c').AsString:=edit9.Text;/将edit9输入内容赋值给copen;/执行语句end;ifedit10.text<>''thenwithQ_ptcxdobeginclose;/关闭query组件sql.Clear;/清除原来SQL属性内容sql.Add('select*fromptxxwhere旅游天数=:d');par