青岛火车站旅游信息查询系统研究

PAGE摘要随着互联网在我国的普及，人们对网络的需求也日益显著，从而利用计算机对旅游信息的管理也显得尤为重要。本旅游信息查询系统，从调查开始，采用Access数据库和VisualBasic程序，简单的对旅游信息查询系统进行了总体设计。旅游业作为一个新兴的产业在近年来已取得了快速的发展，各种旅行社如雨后春笋般遍及全国各省市，但是目前旅游行业普遍存在着企业规模少，管理非常不规范等弱点。由于旅游涉及到住宿、旅行、购物、出行、吃饭、娱乐等多种因素，并且这些因素又分布在不同的地域中，从而一个人不可能全面地掌握所有的信息。旅游资源及出行信息查询系统可以把各种旅游资源分类存储管理，并可以通过网络实现资源共享，这样不仅方便快捷，而且不会因为人员流动影响企业的经营。基于这一目的，本文就此目的简单的设计了酒店住宿、商场购物、火车出行、旅游景点的信息查询系统，把旅游中的一些相关的主要的信息包括在内，尽可能的使整个信息管理系统层次分明，概括清楚。当你详细的阅读完本文后你将可以简单的了解到一个旅游信息查询系统的具体设计和实现过程。

关键词：旅游信息查询系统、数据库、程序设计

ABSTRACTWiththepopularityoftheInternetinourcountry,thedemandfornetworkbecomessignificant,thustheuseofcomputermanagementoftouristinformationisalsoveryimportant.Thetouristinformationinquirysystem,fromthebeginningoftheinvestigation,usingtheAccessdatabaseandVisualBasicprogram,asimpletouristinformationinquirysystemfortheoveralldesign.Tourismindustryasanemergingindustryinrecentyearshasmade​​rapiddevelopment,variousagencieshavemushroomedalloverthecountryprovincesandcities,butthetourismindustryiscurrentlylesswidespreadscaleenterprises,managementisnotstandardizedweaknesses.Asthetourcomestoaccommodation,travel,shopping,travel,meals,entertainmentandavarietyoffactors,andthesefactorsaredistributedindifferentregions,soonecannotfullygraspalltheinformation.Tourismresourcesandtravelinformationinquirysystemcanstorethevariouscategoriesoftourismresourcesmanagement,andcanbeachievedthroughthesharingofnetworkresources,sonotonlyconvenient,butwillnotaffectthecompany'soperatingpersonnelmobility.Forthispurpose,thepurposeofthisarticlethesimpledesignofthehotelaccommodation,shopping,traintravel,touristattractionsinformationsystem,someofthetravel-relatedinformation,includingthemajor,asfaraspossiblesothattheentireinformationmanagementsystemlevelpointsthatsummarizeclear.Whenyoufinishreadingthisarticledetailsyouwillbeabletounderstandasimpletouristinformationinquirysystemspecificdesignandimplementationprocess.KEYWORDS：touristinformationinquirysystem，database，visualbasicPAGEPAGEI目录TOC\o"1-2"\h\z\u前言 11旅游信息查询系统现状 21.1概述 21.2国外旅游信息查询系统的运用现状 21.3旅游信息查询系统的国内发展现状 32旅游信息的资料的调查与搜集 42.1青岛火车站开往附近旅游城市的主要车次信息 42.2火车站附近的酒店 72.3火车站附近的购物中心 72.4火车站附近的旅游景点 83旅游信息查询系统关键技术的运用 103.1VB的运用 103.2数据库的运用 143.3VB与数据库的连接 184查询系统设计及成果展示 244.1系统整体设计 244.2成果展示及主要代码 27结论 52致谢 53参考文献 54英文翻译 55PAGE61前言本次毕业设计，目的是进一步培养学生综合应用Visual

Basic的各种编程知识和技巧进行程序设计的能力和利用数据库进行数据处理的能力。通过课程设计，可以培养学生自主学习、独立解决问题、自己动手操作、创新精神等能力。本次毕业设计的选题来源于社会还原于生活，随着科技的高速发展，人们生活水平的进一步提高，在闲暇时来一次有意义的旅行十分必要的；可是怎样才能舒适的享受旅游带来的快乐呢，怎样方便快捷的查询到相关旅游信息，这时就需要一个功能齐全的旅游信息查询系统。旅游信息查询系统在今天在设计其功能时主要注重其向旅游者提供全面的旅游信息查询功能。它所提供的旅游信息查询有助于旅游者策划和组织其旅游线路。国外旅游信息查询系统主要也有很多，例如丹麦数据库信息系统（DANDATA）比较有代表性的是欧洲蒂洛尔（TYROL）信息系统。荷兰率先建立了地区性的联网系统，并且英国和荷兰正在努力实现国家之间的系统联网。现代旅游业的快速发展，对旅游信息技术提出了更高的要求，旅游信息查询系统也从欧洲扩展到了世界各地。我国旅游信息查询系统的研究应用起步比较晚，当时，中国科学遥感应用研究所以海南为例，研制了一个面向游客的区域旅游信息查询系统（TORTIS）。

我国旅游信息查询系统的整体状况与国际先进水平相比存在显著差距，与旅游信息查询系统的国际化、市场化信、息化环境要求，也有很大的落差。我国旅游信息查询系统还没有走出技术驱动、信息技术厂商推动以及从技术和系统中寻找应用的格局。另外我国旅游信息查询系统的信息往往只停留在表层，缺乏对旅游信息资源有效的、深层次的分析和加工利用。因此难以高效的把信息资源化转化为效益和财富，在一定程度上制约了旅游业的发展。另外，我国旅游信息查询系统是单向传播的，没有很好的利用旅游信息查询系统这一平台，应加强旅游行政部门、旅游企业、旅游者之间的信息交流。

本次旅游信息查询系统的设计研究，是基于青岛市火车站而展开的，包括四个板块的内容分别是火车站附近酒店住宿查询、火车站购物中心查询、火车站出行查询、火车站附近著名景点查询，这些查询，通过各种数据资料的搜集整理，从而进行系统设计，基本上你可以简单地查询到你所想要了解的旅游信息。

1旅游信息查询系统现状1.1概述随着多媒体技术和地理信息系统技术的推广应用普及,各城市旅游主管部门和旅游企业开始重视旅游信息查询系统的开发和建设,国家旅游局甚至把触摸屏旅游信息查询系统作为城市创建优秀旅游城市的一个重要评分指标。由于用户对旅游信息数据直观性、生动性和丰富性的特殊要求,区域旅游信息查询系统区别于一般的信息查询系统,要求系统能够有效地管理地理空间图形、多媒体数据和旅游要素属性数据(包括文本),游客能够方便快速地实现三者之间的双向检索查询。当前的区域旅游信息查询系统大多数采用多媒体软件为制作平台,缺乏旅游交通、景点和宾馆等旅游要素分布图形的管理和相关操作(如地图的扩大、缩小、查询和统计等),而传统应用型地理信息系统由于缺乏声音、视频、动画等多媒体信息,旅游地理信息系统的多媒体效果较弱。如果将多媒体技术应用于地理信息系统软件中,开发基于地理信息系统和多媒体结合模式的区域旅游信息查询系统,势必增强区域旅游信息查询系统的表达能力,扩大多媒体和地理信息系统的应用领域。多媒体数据与地理信息系统空间图形库集成涉及到时空数据模型这一地理信息系统界研究热点,但目前国内还没有开发出成熟的基于时空数据模型的地理信息系统产品来解决空间数据库中动画数据的管理问题,尚不能通过在地理信息系统中使用动画技术来实现屏幕上的动态播放时空过程。从实用性、普及性和应用前景等方面的因素考虑,本文提出以地理信息系统和多媒体结合的新模式,以关系数据库为核心,把多媒体文件名信息存储在地理信息系统属性库,依靠多媒体字段实现多媒体数据与地理信息系统图形和属性的关联,实现查询的基本概念。[1]1.2国外旅游信息查询系统的运用现状旅游信息查询系统是利用计算机对旅游信息(包括旅游地图，交通图景点分布图，旅游路线图，旅店，购物中心分布图，旅游景点景观图片，旅店、服务设施图片，当地工业、商业、农业、交通运输、邮电通讯等基本情况，当地气候、风土人情、神话传说、名胜古迹介绍，各种表格、声音等)进行采集、存储、处理、分析和应用的空间型信息系统，它是随着计算机技术、信息技术、地理信息系统和旅游业的发展而产生的。20世纪80年代，旅游业管理人士就开始探索新的旅游信息获取和传输的方式。第一次是美利坚航空公司和IBM公司于1959年联合开发的世界上第一个计算机订位系统，这是旅游业信息化萌芽的标志。此后，旅游地理信息系统在许多旅游景区相继出现，许多公共场所安装了信息系统终端设备，从不同的终端设备上，游客可以从不同的地点获取旅游景区的多种信息。如丹麦国家旅游局设计的旅游目的地信息系统，奥地利蒂罗尔旅游信息查询系统和瑞士阿彭策尔旅游信息查询系统，荷兰建立的地区性网络旅游信息查询系统。国外旅游信息查询系统主要有三种：第一种是以国家为中心，一般是以国家旅游行政部门为中心，在全国各地旅游问讯处、地方旅游行政部门、饭店和旅游公司、名胜风景区、驻外办事处设立网络节点，这种信息系统存储全国各地旅游设施等方面的信息，例如丹麦数据库信息系统（DANDATA）。第二种是以地区为中心的，主要是旅游发达地区建立的覆盖本地区旅游机构的信息系统。这种系统只存储本地区旅游机构和旅游设施等方面的信息。比较有代表性的是欧洲蒂洛尔（TYROL）信息系统。第三种是地区性的网络结构，既是由多个地区性的信息系统联网形成。荷兰率先建立了地区性的联网系统，并且英国和荷兰正在努力实现国家之间的系统联网。现代旅游业的快速发展，对旅游信息技术提出了更高的要求，旅游信息查询系统也从欧洲扩展到了世界各地。1.3旅游信息查询系统的国内发展现状我国的旅游业起步较晚，而旅游信息查询系统的研究工作也是直到改革开放后的80年代初期才开始进行的。1981年，中国国际旅行社引进美国PRIME550型超级小型计算机系统，用于旅游团数据处理、财务管理、数据统计；1984年上海锦江饭店引入美国Conic公司的电脑管理系统，用于饭店的预订排房、查询、客户管理：在此后，航空公司的电脑订票网络系统、旅游企业办公室自动化系统等适用于旅游企业的计算机系统开始得到逐步推广。

20世纪90年代是我国旅游信息化的发展阶段。为适应旅游业的迅速发展与国际旅游信息化发展的趋势，国家旅游局从1990年起开始抓信息化管理并筹建信息中心，先后投资了1000多万元用于机房改造和设备的配置，并根据客观实际与发展的可能性，建设了一些旅游信息网络及信息传递系统。例如，于1997年开通的中国旅游网(ta.corn)，涉及旅游食、住、行、游、购、娱等各要素的多方面的旅游信息。从2000年至今，我国旅游信息化建设全面开放，并且取得了不俗的成绩。国家旅游局信息中心2001年启动“金旅工程”，全面推动旅游信息化工作。目前，全国旅游信息查询系统中心平台建设已初具规模澳、港、大连、三亚、珠海、深圳、厦门、苏州等很多个区域或城市的旅游信息查询系统已投入运行，在旅游信息的宣传等方面发挥了重要的作用。我国旅游信息查询系统的研究应用起于20世纪90年代初。当时，中国科学遥感应用研究所以海南为例，研制了一个面向游客的区域旅游信息查询系统（TORTIS）。这个系统实质上是提供旅行社、大饭店或有关部门使用的一个主要为旅游者服务的信息系统软件工具，提供功能有限，主要是有限查询和显示功能。它是用C语言和FOXBASE开发的。后来旅游信息系统开发多是在GIS的软件支持下或基于GIS概念下开发出来的，并且多以光盘的形式出现。主要有以下几种：1997年，由地质矿产部北京计算机中心所属的计算机公司研制的北京通光盘。主要内容包括“北京之窗”、“旅游休闲”、“公用信息”、“企事业大全”等几部分。主要是提供游客咨询所应用。1997年，中科院地理信息产业中心基于GIS技术自主开发了ActiveMap的构件库，研制了《香港之窗》的电子地图。它集地图、图片、视频、语言和文字为一体，给去香港的游客提供信息咨询服务。1998年，桂林市推出了中、英、日三种语言版本的《桂林旅游》光盘。该光盘主要用于旅游资源宣传之用。以科院地理信息产业为中心，在1999年相继推出了《南宁之窗》和《澳门之窗》电子地图光盘。它们所提供的服务和《香港之窗》大同小异。[2]

2旅游信息的资料的调查与搜集2.1青岛火车站开往附近旅游城市的主要车次信息这一部分数据主要通过互联网搜集，即是查询12306（火车票官网）所得。初步设计时选择了大约11个城市，包括：济南、北京、天津、南京、上海、枣庄、泰安、临沂、烟台、石家庄。这些车次中有高铁、动车、普通车，可满足各类游客需求；信息主要包括：车次、出发与到达时间、运行时间、票价、中途停靠站。2.1.1对于到达济南的车次我选了其中十个车次表2.1青岛到达济南的一些车次信息目的地车次出发时间到达时间运行时间票价（元）中途停靠站济南G18607:2610:022h36min一等：144.5二等：119.5潍坊、淄博济南G24408:3111:082h37min一等：144.5二等：119.5潍坊、淄博济南D600610:2013：002h40min一等：145.5二等：121.5潍坊、青州市、淄博济南G19211:3614:122h36min一等：144.5二等：119.5潍坊、淄博济南G19412:1314:472h34min一等：144.5二等：119.5潍坊、淄博济南G24813:1116:102h59min一等：144.5二等：119.5胶州北、高密、潍坊、淄博济南D33814:3017:102h40min一等：144.5二等：119.5潍坊、青州市、淄博济南G19816:0518:402h35min一等：144.5二等：119.5潍坊、淄博济南K102609:4815:335h45min硬座：54.5硬卧：105.5高密、潍坊、青州市、淄博、章丘济南K34412:3717:425h05min硬座：54.5硬卧：105.5潍坊、淄博2.1.2到达北京南的主要七个车次表2.2青岛到达北京南的一些主要车次信息目的地车次出发时间达到时间运行时间票价（元）中途停靠站北京南G19008：2112：564h35min一等：474二等：314潍坊、淄博、济南、济南西、沧州西北京南D33410：1215：145h2min一等：354二等：249高密、潍坊、昌乐、淄博、济南、济南西、天津南北京南G19412：1316：534h40min一等：474二等：314潍坊、淄博、济南、济南西、德州东、天津南北京南G19613：2418：064h42min一等：474二等：314潍坊、淄博、济南、济南西、德州东、天津南北京南G19211：3616：104h34min一等：474二等：314潍坊、淄博、济南、济南西、德州东北京南D33814：3019：465h16min一等：354二等：249潍坊、青州市、淄博、济南、济南西、德州东、沧州西、天津南、廊坊北京南G19816：0520：384h33min一等：474二等：314潍坊、淄博、济南、济南西、沧州西2.1.3到达天津南的一些车次表2.3青岛到达天津南的主要的车次信息目的地车次出发时间到达时间运行时间票价（元）中途停靠站天津南D33410：1214：314h19min一等：294二等：214高密、潍坊、昌乐、淄博、济南、济南西天津南G19412：1316：174h4min一等：379二等：259潍坊、淄博、济南、济南西、德州东天津南G19613：2417：314h7min一等：379二等：259潍坊、淄博、济南、济南西、德州东天津南G17209：0613：314h25min一等：379二等：259潍坊、淄博、济南、济南西、沧州西天津南D33814：3019：054h35min一等：294二等：214潍坊、青州市、淄博、济南、济南西、德州东、沧州西天津南D34216：1220：394h27min一等：304二等：219高密、潍坊、青州市、淄博、济南、济南西、德州东2.1.4到达上海虹桥车站的一些主要车次表2.4青岛到达上海虹桥的车次信息目的地车次出发时间到达时间运行时间票价（元）中途停靠站上海虹桥G22406：5713：366h39min一等：818二等：518潍坊、青州市、淄博、济南、泰安、徐州东、南京南、镇江南、无锡东上海虹桥G23209：2416：136h49min一等：818二等：518胶州北、潍坊、淄博、济南、泰安、枣庄、徐州东、南京南、常州北、苏州北上海虹桥G22813：5320：456min52min一等：818二等：518潍坊、青州市、淄博、济南、曲阜东、滕州东、徐州东、南京南、常州北、苏州北2.1.5到达南京南的一些主要四个车次表2.5青岛到达南京的一些车次信息目的地车次出发时间到达时间运行时间票价（元）中途停靠站南京南G22406：5712：135h16min一等613.5二等398.5潍坊、青州市、淄博、济南、泰安、徐州东南京南G23209：2414：515h27min一等613.5二等398.5胶州北、潍坊、淄博、济南、泰安、枣庄、徐州东南京南G22813：5319：215h28min一等613.5二等398.5潍坊、青州市、淄博、济南、曲阜东、滕州东、徐州东南京南G25614：3819：565h18min一等613.5二等398.5潍坊、青州市、淄博、济南、泰安、徐州东2.1.6到达枣庄、泰安、石家庄、烟台、临沂的一些车次表2.6到达上述五城市的车次信息目的地车次出发时间达到时间运行时间票价（元）中途停靠站枣庄G24408：3112：293h58min一等：319二等：224潍坊、淄博、济南、曲阜东枣庄G26015：2219：003h38min一等：319二等：224潍坊、高密、淄博、济南枣庄G23616:2420:053h41min一等：319二等：224潍坊、高密、淄博、济南泰安G22406:5710:043h7min一等：194二等：149潍坊、青州市、淄博、济南泰安G23209:2412:323h8min一等：194二等：149胶州北、潍坊、淄博、济南泰安K91410:5617：546h58min硬座：69硬卧：126高密、潍坊、淄博、济南石家庄K128611：0921：3910h30min硬座：98硬卧：176蓝村、胶州、潍坊、淄博、济南东、禹城、德州、衡水、辛集烟台K825214:4618:554h9min硬座：37.5硬卧：88.5城阳、蓝村、海阳、桃村临沂502608:4313:415h3min硬座：40.5硬卧：91.5城阳、蓝村胶州、诸城、五莲、莒县沂南2.2火车站附近的酒店这一部分数据信息同样来自互联网的查找，所有酒店的地点距离火车站都在2公里以内，所选酒店的类型有经济型、二星级、三星级、四星级，可满足各类游客的需要；其主要信息包括：酒店名、地址、价格、联系电话。各类型酒店详细信息如下：表2.7火车站附近酒店信息级别酒店名地址价格联系电话经济型都市118连锁酒店位于青岛火车站东门50米93元起82340561经济型如家快捷青岛火车站栈桥店位于大沽路与河南路交叉路口99元起84324561经济型汉庭酒店青岛火车站店位于市南区北京路119元起83415672二星级青岛漫程青年旅馆海景店青岛市市南区新泰安路27号64元起85484911二星级青岛如意客栈位于青岛火车站东出站口对面80元起89078912三星级青岛金灯台花园度假酒店座落于青岛市莱阳路98元起89073452三星级青岛华能宾馆位于市南区安徽路102元起87609736三星级青岛前海商务宾馆贵州路32号107元起80945320四星级青岛鹰谷万雍酒店位于青岛火车站广场东侧187元起82113420四星级青岛金海大酒店位于火车站广场217元起84509282四星级青岛明珠海港大酒店位于市南区商业街中山路130元起82113366四星级青岛海鼎假日酒店位于市南区太平路224元起858564272.3火车站附近的购物中心这一部分内容主要是展示火车站附近的一些大型商场、购物中心，目的是方便游客购物，购买自己喜爱的物品。这些购物中心的距离离火车站全都在1公里以内，包括了购物中心的名字，具体地址，客服电话。表2.8火车站周围的购物中心信息距离火车站商场名地址客服电话0.1公里华联商厦市南区费县路6号828699990.1公里玻璃华百货市南区曲阜路13号828699010.3公里思民百货市南区河南路828689030.3公里第一百货商店市南区河南路40号828662040.5公里云鑫百货市南区云南路828635670.7公里百盛购物中心市南区中山路44-60号820210760.7公里利群前海购物广场市南区贵州路40号826668680.7公里中山商城市南区中山路828318760.9公里青岛国货市南区中山路149号828318180.9公里半岛购物中心市南区贵州路40号826528010.9公里广联商场市北区胶州路180号828211411.0公里麒麟商场市南区中山路176号828210291.0公里海滨食品商场市南区高密路828450711.0公里百盛商业大厦市南区曲阜路22号828340791.0公里发展大厦市南区中山路8号828356782.4火车站附近的旅游景点本部分精选了火车站附近的著名景点，可供游客随意选择去哪，方便游客出游旅行。主要信息包括景点的名字、所在地点、票价如何、景点简介、景区游览电话、开放时间。表2.9火车站附近著名景点信息景点名所在地点票价景区电话开放时间栈桥山东省青岛市市南区太平路12号免费82884548旺季07:00-19:00；淡季08:00-17:30骆驼祥子博物馆位于青岛市黄县路12号老舍故居免费828675809:00-16:00海军博物馆青岛市市南区莱阳路8号60元82876888淡季08:30-17:00旺季08:00-18:00浙江路天主教堂市南区浙江路15号5元82865960周一~周六：8:00-17:00周日12:00-17:00民俗博物馆市南区太平路19号30元8287765608:30-17:00青岛邮电博物馆青岛市安徽路5号免费828675808：30-17：30观海山公园观海二路东头免费86467580全天观象山公园市南区观象路21号免费88769012全天鲁迅公园青岛市市南区琴屿路1号五元870543207:30-18:30栈桥海水浴场青岛市市南区太平路41号免费80976053旺季：7：00-19：00；淡季8：00-17：30七鼎龙潭寺山东省青岛市市南区齐东路17号15元827941417:30-18:30青岛市美术馆市南区大学路7号免费828888868:00-17:00八大峡公园山东省青岛市市南区免费82888409全天江苏路基督教堂山东省青岛市崂山区江苏路15号4元82865970全天 青岛弯青岛市市南区免费87609254全天圣保罗教堂青岛市市南区观象二路1号免费828836358:00-17:00信号山公园山东青岛市市南区齐东路17号15元8279805507:30-18:30小青岛公园山东省青岛市胶州市琴屿路26号旺15元淡10元8286394409:00-17:00青岛钓鱼吧海钓青岛市莘县路65号小港平安快船码头普通垂钓260元8668756809:00-17:00每一小时一班

3旅游信息查询系统关键技术的运用3.1VB的运用3.1.1VB简介1．VB是什么Visual

Basic,简称VB，是Microsoft公司推出的一种Windows应用程序开发工具。是当今世界上使用最广泛的编程语言之一，它也被公认为是编程效率最高的一种编程方法。无论是开发功能强大、性能可靠的商务软件，还是编写能处理实际问题的实用小程序，VB都是最快速、最简便的方法。

何谓

Visual

Basic？“Visual”指的是采用可视化的开发图形用户界面（GUI）的方法，一般不需要编写大量代码去描述界面元素的外观和位置，而只要把需要的控件拖放到屏幕上的相应位置即可；“Basic”指的是BASIC语言，因为VB是在原有的BASIC语言的基础上发展起来的，至今包含了数百条语句、函数及关键词，其中很多和

Windows

GUI

有直接关系。专业人员可以用

Visual

Basic

实现其它任何

Windows

编程语言的功能，而初学者只要掌握几个关键词就可以建立实用的应用程序。[3]2．VB的功能Visual

Basic

所做的很多事情一点也不简单。它是一种强大的语言，即您所能想到的编程任务，它基本都能完成。从设计新型的用户界面到利用其它应用程序的对象；从处理文字图象到使用数据库；从开发个人或小组使用的小工具，到大型企业应用系统，甚至通过

Internet

的遍及全球分布式应用程序，都可在

Visual

Basic

提供的工具中各取所需。

VB是微软公司的一种通用程序设计语言，包含在Microsoft

Excel、Microsoft

Access等众多Windows应用软件种的VBA都使用VB语言，以供用户二次开发；目前制作网页使用较多的VBScript脚本语言也是VB的子集。

利用

VB的数据访问特性，用户可以对包括Microsoft

SQL

Server和其他企业数据库在内的大部分数据库格式创建数据库和前端应用程序，以及可调整的服务器端部件。利用ActiveX(TM)技术，VB可使用如Microsoft

Word、Microsoft

Excel及其他Windows应用程序提供的功能，甚至可直接使用VB专业版和企业版创建的应用程序对象。[4]3.1.2VB的特点1．面向对象

VB采用了面向对象设计思想，它基本思路是把复杂的设计问题分解为多个能够完成独立功能且相对简单的对象集合。所谓“对象”就是个可操作实体如窗体、窗体中命令按钮、标签、文本框等，面向对象编程就是指程序员可根据界面设计要求直接在界面上设计出窗口、菜单、按钮等类型对象并为每个对象设置属性。

2．事件驱动

在Windows环境下是以事件驱动方式运行每个对象的都能响应多个区别事件，每个事件都能驱动段代码事件过程，该代码决定了对象功能。通常称这种机制为事件驱动的编程机制。可由用户操作触发也可以由系统或应用触发例如单击个命令按钮就触发了按钮Click(单击)事件该事件中代码就会被执行，若用户未进行任何操作(未触发事件)则就处于等待状态整个应用就是由彼此独立事件过程构成。

3．软件Software集成式开发

VB为编程提供了个集成开发环境在这个环境中编程者可设计界面、编写代码、调试直至把应用编译成可在Windows中运行可执行文件并为它生成安装VB集成开发环境为编程者提供了很大方便。

4．结构化设计语言

VB具有丰富数据类型是种符合结构化设计思想语言而且简单易学此外作为种设计语言VB还有许多独到的处

。5．强大数据库访问功能

VB利用数据Control控件可以访问多种数据库VB

6.0提供ADOControl控件不但可以用最少代码实现数据库操作和控制也可以取代DataControl控件和RDOControl控件。

6．支持对象链接和嵌入技术

VB核心是对对象链接和嵌入(OLE)技术支持它是访问所有对象种思路方法利用OLE技术能够开发集声音、图像、动画、字处理、Web等对象于一体的功能强大的软件。

7．网络功能

VB

6.0提供了DltTML(DynamictTML)设计工具利用这种技术可以动态创建和编辑Web页面使用户在VB中开发多功能网络应用软件Software

。8．多个应用向导

VB提供了多种向导如应用向导、安装向导、数据对象向导和数据窗体向导通过它们可以快速地创建区别类型、区别功能应用。

9．支持动态交换、动态链接技术

通过动态数据交换(DDE)编程技术VB开发应用能和其他Windows应用的间建立数据通信通过动态链接库技术在VB中可方便地用C语言或汇编语言编写也可Windows应用接口(．API)。

10．联机帮助功能

在VB中利用帮助菜单和F1功能键用户可随时方便地得到所需要帮助信息VB帮助窗口中显示了有关举例代码通过复制、粘贴操作可获取大量举例代码为用户学习和使用提供方便。11．VB6.0新功能能创建超高速的应用程序的本地代码编辑器。

新增了创建Internet应用程序的服务器端编程模型。使用新增的创建可重用基于组件的从ActiveX

Data

Object(ADO)的环境,可简便访问远程数据。

集成了可视化浏览、创建、修改数据库方案的企业版Visual

Database

Tools.

可快速方问Oracle和Microsoft

SQL

Server

数据库。

单独版本的MSDN

Library，是用户使用Microsoft技术创建解决方案的基本资源，包括：超过1.1GB

的技术编程信息、示例代码、技术文章和各种文档。[5]3.1.3VB在旅游信息查询系统中的运用1．概述利用VB进行旅游信息查询系统的编程，需要熟悉VB知识，拥有一定的编程方法与技巧。在此次编程中，再次学习了VB的基础知识和编程方法，从而能够进行一些简单的编程，基本能够将这个旅游信息查询系统完成。在程序设计中，使用了各种控件，主要包括标签、命令按钮、下拉式菜单、组合框、列表框、文本框、计时器、图片框、图像框；也使用了一些编程语句，例如if语句、图片的加载等等。2．VB的主要控件运用（1）文本框的使用文本框是一个文本编辑区域，在设计阶段或运行期间可以在这个区域中输入、编辑和显示文本，类似于一个简单的文本编辑器。文本框有很多属性，可以使用属性窗口改变，也可以使用代码改变其属性。在文本框中想要输入多行文本，这就需要将文本框的MultiLine属性设置为True。文本框中用的最多的是它的Text属性，通过Text属性可以设置文本框中要显示的内容，所用代码为：Text1.Text=“”，引号中可以输入想要显示的内容。当然此代码可以在窗体里写，也可以在命令按钮里写，从而用命令按钮控制。（2）列表框的使用对于列表框，我们通常使用的是它的List属性，下表从0开始，其格式为：S$=List1.List(2),将在第3行显示出所输内容；另外也可以改变数组中已有的值，例如List1.list(3)=“华联商厦”，将把列表框List1的第四项内容设置为“华联商厦”。对于列表框方法，这些也正是我们需要用到的，列表框可以使用AddItem、Clear、RemoveItem等方法。对于AddItem,该方法是用来向列表框中插入文本，其格式为：列表框.AddItem项目字符串[,索引值]，例如List1.list(1).AddItem“海军博物馆”。对于Clear,该方法是用来清除列表框的全部内容，其格式为：列表框.Clear,例如List2.Clear.对于RemoveItem,该方法是用来清除列表框中的指定项目，其格式为：列表框.RemoveItem索引值，例如List3.RemoveItem,1。（3）组合框的使用组合框（ComboBox）是组合列表框和文本框的特性而成的控件。在组合框中，所使用的是它的Text属性，利用该属性就可以向组合框中编辑文本。不过还要利用组合框的AddItem方法才可以加载文本，其格式是：组合框.AddItem项目字符串，例如Combo1.AddItem“鲁迅公园”。（4）图片框的使用利用图片框的Picture属性可以向图片框中装入图片。但又有两种方法，一是在设计阶段装入，就是利用属性窗口中的Picture属性装入，主要步骤是找到属性窗口的Pictures属性，单机该属性条，其右端出现3个点（…），然后单击有三个点的小格，就将显示加载图片对话框，然后选择所要加载的图片的文件类型和图形文件的目录，最后单机“打开按钮”即可。二种是在运行期间装入图片，这时需要利用LoadPicture函数,一般格式为:对象.Picture=LoadPicture(“文件名”),例如Picture1.Picture=LoadPicture(“D:\我的文档\图片11\02.jpg”)（5）下拉式菜单的使用采用菜单编辑器建立下拉式菜单，执行“工具”菜单中的“菜单编辑器”命令。通过数据区和编辑区即可建立菜单，具体方法这里不再叙述。（6）计时器的使用使用计时器的Interval属性可以设置计时器事件之间的间隔，再利用计时器的Timer事件就可以实现一些处理，例如标签中文字的间隔移动，窗体中文字的放大等等。对于写入文字的标签在窗体中间隔移动，其代码如下：PrivateSubForm_Load()Timer1.Interval=150Label1.FontBold=TrueLabel1.FontName="华文隶书"Label1.ForeColor=vbRedEndSubPrivateSubTimer1_Timer()IfLabel1.Left<Width+Left-200ThenLabel1.MoveLabel1.Left+200ElseLabel1.Left=Label1.Left-WidthEndIfEndSub（7）窗体的切换对于窗体的切换，需要用到命令按钮，通过命令按钮控制窗体的切换。当然也要使用Show方法和Hide方法才能实现。例如：窗体Form1与窗体Form2之间的切换，其代码如下：PrivateSubCommand1_Click()Form1.HideForm2.ShowEndSubPrivateSubCommand4_Click()Form2.HideForm1.ShowEndSub(8)文件的操作对于文件的操作主要包括文件的建立、打开、读、写、和删除。想要读取一个文件，是之在VB运行时显示在窗体上或者文本框中，首先需要建立一个文件格式是txt或者doc；其次是打开文件，这里可以使用open语句，例如：Open“C:\DocumentsandSettings\Administrator\桌面\景区简介\19.txt”ForInputAs19；接下来是读取文件，可以使用input语句，当然还需要加上EOF函数或者LOF函数方可进行，例如:DoWhileNotEOF(1)Input#1,MylineText1.Text=Text&MyLine&vbCrLf。最后是文件的关闭，采用close语句，格式是：Close#文件号。3.2数据库的运用3.2.1什么是数据库1．Access简介Access

是微软公司推出的基于Windows的桌面关系数据库管理系统（RDBMS，即Relational

Database

Management

System），是Office系列应用软件之一。它提供了表、查询、窗体、报表、页、宏、模块7种用来建立数据库系统的对象；提供了多种向导、生成器、模板，把数据存储、数据查询、界面设计、报表生成等操作规范化；为建立功能完善的数据库管理系统提供了方便，也使得普通用户不必编写代码，就可以完成大部分数据管理的任务。[9]Access能够存取

Access/Jet、Microsoft

SQL

Server、Oracle(甲骨文软件公司)，或者任何

ODBC

兼容数据库内的资料。熟练的软件设计师和资料分析师利用它来开发应用软件，而一些不熟练的程序员和非程序员的"进阶用户"则能使用它来开发简单的应用软件。虽然它支援部份面向对象（OO）技术，但是未能成为一种完整的面向对象开发工具。

2．Access的功能及用途Microsoft

Access在很多地方得到广泛使用，例如小型企业，大公司的部门，和喜爱编程的开发人员专门利用它来制作处理数据的桌面系统。它也常被用来开发简单的WEB应用程序。这些应用程序都利用ASP技术在Internet

Information

Services运行。比较复杂的WEB应用程序则使用PHP/MySQL或者ASP/Microsoft

SQL

Server。[6]它的使用方便程度和强大的设计工具为初级程序员提供许多功能。不过，这种便于使用可能使人误解。这类开发者都是没有在应用或者数据设计方面训练的办公室从业人员。因此许多人以为这样的开发者能够创造可用的系统，但也有很多人认为工具本身的局限性产生了这样的误导。

一些专业的应用程序开发人员使用

Access

用作

快速应用开发，特别是给街道上的推销员制作一个初型或独立应用程序的工具。可是如果是透过网络存取数据的话，Access

的可扩放性并不高．因此当程序被较多使用者使用时，他们的选择多会是倾向于一些客户端-服务器为本的方案，例如

Oracle、DB2、Microsoft

SQL

Server、Windows

SharePoint

Services、PostgreSQL、MySQL、Alpha

Five、MaxDB，或者Filemaker。无论如何，不少

Access

的功能（表单，报告，序列和VB代码）可以用作其他数据库的后期应用，包括

JET（档案为主的数据库引擎，Access

缺省使用）、Microsoft

SQL

Server、Oracle和任何其他跟ODBC兼容的产品。这种方法允许开发者把一个成熟的应用的数据移动到一台更大功率的服务器而没有已经在适当的位置牺牲发展。

很多Microsoft

Access的开发者使用Leszynski命名约定，虽然这不普遍；它是一次编程大会，并非一个DBMS实施的规章。3.2.2Access的特性导入导出报表的生成程序，当时有能力和到这项任务的复杂报告创造，没有另一受欢迎数据库报表程序的生成程序充满特色和强有力-水晶报告。MSDE(微软公司SQL服务器桌面发动机)2000，袖珍版本的MSSQL服务器2000，被包括开发版的办公室XP并且被用于进入可能作为除之外的另一种选择JET数据库引擎。(尽快的将版本的MSDE和微软公司交换服务器实际上使用这台喷气发动机处理巨大大量数据并且安置一“赝品”在它之上的那些应用的应用层。大约这事实的缺乏知识因进入/喷口家庭的软件产品而为该不该受不敬做贡献，特别是关于"大"工程。)

[7]进入分割和粘贴功能性能使它有用工具在其他数据库之间连结(例如，在数据或者数据库变换期间的Oracle和微软公司SQL服务器)。进入与给与窗子和其他平台应用一起的积分的各种各样进口和退场门特征一起来，一经请求从应用的里面或者手工由用户其中几可以被执行。例如非常紧密SNP完全格式化的为分享的形式与没有全部的进入软件的人们报告。它也能容易被升级到微软公司SQL服务器。与一般的RDBMS完全不同，它缺乏数据库触发和预存程序。自从MS

Access

2000

(Jet

4.0)，开发人员可以在查询中设定参数，这跟预存程序很相似的，但这些“预存程序”只能处理一个程序。当资料表内数据发生变化时，它确实允许形式包含被引发的代码，使用是普通的透过查询和其他技术在进入营运储存的程序在方面RDBMS支援这些的。

进入可提供的编程语言，当时在另一个内产品Microsoft

Office家具，微软公司应用的Visual

Basic。两个数据库进入讯息库COM组成部分被提供：这笔遗产数据存取物体(DAO)，用进入和新只可提供ActiveX数据对象(忙乱)。MicrosoftAccess容易被应用于小的工程，但是如果设计的不好对大工程是无用的。

全部数据库质问，形式和报告被储存在数据库里，并且与相关的模型的理想协调，没有与他们做一个身体上组织的阶层的可能性。

一种设计技术是把进入应用在数据和计划之间进行分发。一数据库应该只包含桌子和关系，当另一个将有全部计划时，形式，报告和质问和对第一个数据库桌子的连接。令人遗憾，当连结时，进入允许没有有关的道路，因此那些发展环境作为这种生产环境有相同的道路应该(虽然你写你们自己的能"动态连接程序"常规在里VBA那搜出能一定背面结束档案以透过这个目录树搜寻，如果它发现这条电流通路它不能)。这种技术也允许开发者在不同的档案中分申请，因此一些架构是可能的。3.2.3数据库的建立1．使用Access数据库（1）启动和关闭Access对于启动Access数据库的具体流程如下所示:首先要双击要启动的数据库文件图标，然后是在弹出的“安全警告”对话框中单击“打开”按钮。而对于关闭Access只需要单击数据库界面上右上角的“关闭”图标即可。（2）Access的基本操作一是新建表：即是在数据库中创建一个新的表，其具体操作流程如下所示。首先使用打开Access数据库，在左侧界面中选择“表”选项，如下图3.1所示：图3.1左侧界面选择“表”选项然后在弹出的界面选择“通过输入数据创建表”选项，单击就会出现一个编辑界面，就可以在里面输入数据进行编辑，如下图3.2所示：图3.2数据创建界面在弹出的“只有保存表或查询之后，才可以创建基于他们的新对象”界面中单击“是”按钮完成，如下图3.3所示：图3.3“是否”保存对话框单击“是”按钮之后出现另一个对话框，输入表明，单击“确定”按钮，如下图3.4示：图3.4“另存为”对话框在弹出的“尚未定义主键”界面中单击“是”按钮，完成表的创建，如下图3.5所示：图3.5“尚未定义主键”界面2．数据数据是旅游查询信息系统的基础和核心，组织和建立直接关系整个系统后期的开发，必须进行很好的规划。旅游信息系统数据又具有数据量大，数据类型多（有地图数据，属性和多媒体数据等）不同数据组织困难等特点，是系统开发的难点和核心之一。在这里，我们提出“以景点、地市点为核心，以地图空间数据为核心”的原则。即在组织数据时，要对景点、地市点统一编码，其他的数据（如：景区、宾馆、交通、购物中心等）在其基础上进一步扩展编码；多媒体数据以外部文件的形式组织，并在其对应主体的属性数据表中设立关联字段。[8]3.3VB与数据库的连接3.3.1概述在VB编程中常要与数据库打交道，虽然可以选择各种数据库格式，但对于数据量较小的应用，一般选用Access作为数据库。因为Access数据库比较简单，功能也比较齐全，数据的备份、拷贝都很方便，且程序发布时不需要额外单独安装其它的数据库管理软件。因此，在功能能够满足要求的条件下，Access数据库往往成为小型数据库软件的首选。而且最容易使用的还是VisualBasic的数据库格式—MicrosoftAccess，因为VisualBasic与MicrosoftAccess互相支持，可以使用丰富的特性集。[9]Jet数据库引擎（MicrosoftJointEngineeringTech-nologe）是应用程序和数据库之间的一种接口。它将与数据库相关的内容管理、游标管理和错误处理等具体而复杂的细节问题抽象为一个既高度一致又相对简化的编程接口。对所支持的数据库提供统一的外部接口，将对记录的操作转化为对数据库的物理操作。基于VB的数据库应用程序从逻辑上可分为三部分：用户接口、数据库引擎和数据库存储。由用户接口实现对具体数据库的连接，通过数据库引擎完成数据库存储。ODBCDirect技术能给应用程序数据库访问加入全新的视角，可以检索一个数据库的大量信息。应用程序向ODBC发出SQL语句并接收作为语句结果的数据。数据源是已安装的数据库服务器。ODBC把特殊的ODBC驱动程序和一个指定的数据库联合起来，数据源定位在本地硬盘或网络上。最主要的就是用ActiveX数据对象ADO（activexdataobjects）这种新的数据访问标准代替了原有的访问对象DAO（dateaccessobject）和远程数据访问对象RDO（remotedateobjects）。MicrosoftActiveXDataObjects（ADO）：使客户端应用程序能通过OLEDB提供者访问和操作数据库服务器中的数据。ActiveXDataObjectsExtensionsforDDLandSecurity（ADOX）：将ADO扩展为包括创建、修改和删除的模式对象，如表格和过程，以及包括用于维护用户和组以及管理对象权限的安全对象。ActiveXDataObjects（Multidimensional）（ADOMD）：将ADO扩展为包括指定到多维数据的对象，并允许浏览多维模式、查询立方和检索结果。ADO具有高度的灵活性，它可以使用相同的编程模式连接到不同的数据提供者，而不管给定提供者的特定特性，具有较低的内存占用率。具有远程数据服务（RDS）功能，通过RDS可以在一次往返过程中将数据从服务器移动到客户端应用程序或Web页，并在客户端对数据进行处理后将更新结果返回服务器。同传统的数据对象层次（DAO和RDO）不同，ADO可以独立创建，也可以只创建一个“Connection”对象，然后由多个独立的“Recordset”对象来使用它。ODBC本身是以SQLServer、Oracle等关系数据库作为访问对象，而OLEDB则不仅限于此，它还可以对电子邮件、文本文件、复合文件、数据表等各种各样的数据通过统一的接口进行存取。3.3.2使用Data控件和ADO控件在这里只介绍使用ADO控件连接数据库的方法，由于ADO控件不在VisualBasic6.0的工具箱中显示，因此在使用前需要先添加，即是选择“工程”→“部件”命令，在弹出的“部件”对话框中勾选“MicrosoftADODataControl6.0(OLEDB)复选框，单击确定即可，这样就完成了添加，具体如下图3.6所示：图3.6VisualBasic6.0中的ADO控件接下来是具体操作用ADO控件连接Access的方法，首先打开VisualBasic6.0,新建一个标准EXE工程，在窗体内插入一个ADO控件，如下图3.7所示：图3.7插入“ADO”控件用鼠标右键单击插入的ADO控件，在弹出的快捷菜单中选择“Adodc属性”命令，弹出“属性页”对话框，并选则“使用连接字符串”单选按钮，然后单击“生成”按钮，在弹出的对话框中“提供程序”选项卡中，选择连接的数据类型为“MicrosoftJetOLEDBProvider”选项，然后单击“下一步”按钮，再出现的对话框中选择“连接”选项卡，在该选项卡中选择要连接的数据库，单击“测试连接”按钮，在弹出的测试连接成功提示框后表示连接成功，如下图3.8所示：图3.8测试连接的数据库界面3.3.3使用DataGrid控件进行数据绑定1．数据绑定具体运用过程，首先新建一个标准EXE工程，并设置窗体的属性在窗体内插入标签、文本框、一个ADO控件，并分别设置个空间的属性。然后用鼠标右键单击插入的ADO控件，在弹出的快捷菜单中选择“Adodc属性”命令，弹出“属性页”对话框，选择“使用连接字符串”单选按钮，单击“生成”按钮，在弹出的“数据链接属性”对话框中选择要连接的数据库名称，再选择“记录源”选项卡，然后选择命令类型为“2”，表名为“123”。最后设置完各控件的属性值之后，运行后单击ADO控件内的按钮就可以浏览库内的数据。2．绑定DataGrid与ADO控件DataGrid控件需要首先添加，执行“工程”→“部件”命令，然后在“部件”对话框中勾选“MicrosoftDataGridControl6.0(ODLEB)复选框即可。通过绑定DataGrid与ADO控件，可以不编写代码就可以实现对数据库数据的操作处理。接下来通过一个简单例子来说明ODBC数据源连接Access方法，功能是通过绑定DataGrid与ADO控件，实现对指定数据库内数据的显示功能。DataGrid控件的添加如下图3.9所示：图3.9VisualBasic中的DataGrid控件当然了，首先得建立数据源，选择“控制面板”→“管理工具”→“数据源ODBC”选项，弹出“ODBC数据管理器”，选择“系统DSN”选项卡，单击“添加”按钮，在弹出的的“创建新数据源”对话框中选择“DiverdoMicrosoftAccess(*mdb)”选项，单击“完成”按钮，在弹出的“ODBCMicrosoftAccess安装”对话框中设置数据源的名称为“dd”；单击“选择”按钮，在弹出的“选择数据库”对话框中选择要连接的数据库“南京南db4.mdb”；单击确定按钮后将成功创建一个数据源“dd”。如图3.10：图3.10创建了一个数据源“dd”接下来就是怎样读取数据库中的数据，新建一个标准EXE工程，在窗体内插入7个Label控件，6个TextBox控件，1个ADO控件，1个DataGrid控件；用鼠标右键单击插入的DataGrid控件，在弹出的快捷菜单中选择“检索字段”命令，在弹出的“检索字段”对话框中单击“是”按钮；鼠标单击在弹出的快捷菜单中选择“属性”命令，在弹出的“属性页”对话框中设置显示的样式。然后设置ADO的“ADODC”属性，单击鼠标选择“ADODC”,再出现的“属性页”中选择“使用ODBC数据源名称”，并下拉选择“dd”,在“属性页”中单击“记录源”选项，然后选择命令类型为“2”，表名为“南京南表4”。最后一个非常重的就是将DataGrid的DataSourece属性设置为“Adodc1”。到这里，全部准备工作就完成了，然后运行就可以。其结果如下图3.11所示：图3.11执行效果图3.4多媒体数据与地理数据的结合统一

旅游信息查询系统区别于别的GIS系统的另外一个特点就是其“多媒体属性”，旅游信息的先天性质决定了其数据类型的多样性，特别是与多媒体数据结合的属性。同时，也正是多媒体数据的加入使旅游信息系统更具形象性，直观性和趣味性。显然，一个成功的旅游信息系统应该能充分发挥多媒体数据的作用，这一点在设计和开发中突出地体现在多媒体数据与地理数据的结合程度上。在能够统一存储各种数据的新一代空间数据技术还没有成熟之前，我们现在能采用的机制还只能是“分离存储，统一处理”，这其中的关键点也就集中在了处理的效率上。基于上面提到的“两个核心”原则组织起来的多媒体数据使我们能够实现可观的处理效率。例如在用户查询一个景点信息时，系统给出相关字段信息的同时还能够在图片区显示该景点的风景图片，如果用户需要，还可以进一步查看该景区的介绍等。[10]

4查询系统设计及成果展示4.1系统整体设计4.1.1系统总体结构设计青岛火车站旅游信息查询系统酒店查询购物中心查询青岛火车站旅游信息查询系统酒店查询购物中心查询出行查询附近景点查询图4.1旅游信息查询系统整体设计图4.1.2系统数据库设计数据库是一种存储数据并对数据进行操作的工具。数据库的作用在于组织和表达信息，数据库就是信息的集合。按照一定结构的相关数据的集合，是在计算机存储设备上合理存放的相互关联的数据集。数据库的作用在于组织和表达信息。简而言之，数据库就是信息的集合。本系统的实体有：景点实体，酒店实体，出行实体，购物中心实体；对于附近的景点实体，主要包括景点的名称、景点的地址、景点的票价、景点的开放时间以及景区服务电话；对于酒店实体包括酒店的名称、星级、地址、价格、预约电话；对于购物中心实体，包括购物中心的名称、地址、服务电话；对于火车站出行实体，则包括青岛火车站到达附近城市的车次、出发时间、到达时间、运行时间、票价、中途停靠站。各实体的具体描述如下列图所示：酒店实体图如下图4.2所示：酒店酒店名称价格地址预约电话星级图4.2酒店查询实体图购物中心实体图如下图4.3所示：购物中心购物中心商场名地址服务电话图4.3购物中心查询实体图

火车站出行实体图如下图4.4所示：火车站出行火车站出行车次运行时间中途停靠站目的地地票价图4.4火车站出行实体景点实体图如下图4.5所示：附近景点附近景点名称地址开放时间票价景区电话图4.5景点实体4.1.3系统详细操作流程图对于系统的详细操作流程图，通过它你可以正确的使用旅游信息查询系统，也可以了解到该旅游信息查询系统的功能以及所能查询到的主要信息；另外，通过该流程图你可以知道该系统的总共分几部分或者共几个模块组成，相信你理解熟知这个流程图之后，你能够熟练的操作运行此旅游信息查询系统；当然了，此旅游信息查询系统，也有很多不足之处，望使用者提出宝贵意见、指正；详细流程图如下4.6图所示：开始开始登录系统查询系统主界面选择酒店查询购物查询出行查询景点查询返回退出图4.6旅游信息查询流程图4.2成果展示及主要代码4.2.1登陆界面登陆界面作为旅游信息查询系统的第一界面，也是代表着旅游信息查询系统的形象。在这一界面，使用了4个Label,2个TextBox,1个ComboBox,2个Command,1个Timer；分别设置各控件的属性。其主要代码如下：PrivateSubCommand1_Click()Form1.HideForm2.ShowEndSubPrivateSubcommand2_Click()EndEndSub运行效果如下图4.7所示：图4.7登陆界面运行图PrivateSubCommand3_Click()IfCombo1.Text="管理员"AndText1.Text="lihong"AndText2.Text="20100103028"ThenForm2.ShowElseIfCombo1.Text="游客"AndText1.Text="minzhipeng"AndText2.Text="20100103025"ThenForm2.ShowElseIfCombo1.Text="游客"AndText1.Text="wangxin"AndText2.Text="20100103030"ThenForm2.ShowEndIfEndSubPrivateSubForm_Load()Combo1.AddItem"管理员"Combo1.AddItem"游客"Timer1.Interval=200Label1.FontBold=TrueLabel1.FontName="华文隶书"EndSubPrivateSubTimer1_Timer()IfLabel1.Left<Width+Left-200ThenLabel1.MoveLabel1.Left+200ElseLabel1.Left=Label1.Left-WidthEndIfEndSub4.2.2主界面这一界面是旅游信息查询系统的主界面，在这一界面你可以选择要查询的项目，从进入目的界面。这一界面，使用了1个文本框，1个标签，1个计时器，6个命令按钮，分别设置各控件的属性。其运行效果图如下图4.8所示：4.8查询主界面运行图其主要代码如下：PrivateSubCommand1_Click()Form2.HideForm3.ShowEndSubPrivateSubcommand2_Click()Form2.HideForm4.ShowEndSubPrivateSubCommand3_Click()Form2.HideForm5.ShowEndSubPrivateSubCommand4_Click()Form2.HideForm1.ShowEndSubPrivateSubCommand5_Click()Form2.HideForm7.ShowEndSubPrivateSubCommand6_Click()EndEndSubPrivateSubForm_Load()Timer1.Interval=150EndSubPrivateSubTimer1_Timer()IfText1.Left<Width+Left-200ThenText1.MoveText1.Left+200ElseText1.Left=Text1.Left-WidthEndIfEndSub4.2.3附近酒店查询界面进入这一界面，可以查询到附近的酒店信息，包括酒店名称、地址、价格、预约电话共四个方面的内容。这一界面，使用了6个标签，6个文本框，2个命令按钮，1个ADO空间，1个DataGrid控件，分别设置各控件的属性。其主要代码如下：PrivateSubCommand1_Click()EndEndSubPrivateSubcommand2_Click()Form3.HideForm2.ShowEndSubPrivateSubForm_Load()SetText1.DataSource=Adodc1Text1.DataField="编号"SetText2.DataSource=Adodc1Text2.DataField="字段1"SetText3.DataSource=Adodc1Text3.DataField="字段2"其运行效果图如下图4.9所示：图4.9酒店查询运行界面SetText4.DataSource=Adodc1Text4.DataField="字段3"SetText5.DataSource=Adodc1Text5.DataField="字段4"SetText6.DataSource=Adodc1Text6.DataField="字段5"DataGrid1.Columns(0).Width=600DataGrid1.Columns(1).Width=1000DataGrid1.Columns(2).Width=2500DataGrid1.Columns(3).Width=1000DataGrid1.Columns(4).Width=1500DataGrid1.Columns(5).Width=3000EndSub4.2.4附近购物中心查询界面进入这一界面，可以查询到火车站附近的一些购物中心信息，从而快速的购物。在这一界面，使用了5个标签，5个文本框，2个命令按钮，1个ADO控件，1个DataGrid控件，分别设置各控件的属性。标签用来标明所要酒店的主要信息，文本框就是用来显示这些主要信息，使用ADO与DataGrid控件实现VB与数据库的连接，并将数据库里的数据显示在DataGrid中，两个命令按