旅游信息管理系统毕业论文

1、河南师范大学新联学院本科毕业论文学号：11320474092旅游信息管理系统专业名称：计算机科学与技术年级班别：2011级二班姓 名：陈飞飞指导教师：王桂霞2015年5月旅游信息管理系统摘 要 旅游信息系统是对旅游信息资源进行管理的，面向现实的系统。随 着旅游业的不断发展，传统的旅游信息管理方法难度增大，灵活性低，已经难以 满足人们对信息实时更新变化的需求。而计算机的发展和普及，信息的网络化管 理恰恰为旅游业提供了一个更为高效、更为方便的管理方法。本系统在microsoft visual basic 6.0的基础上进行开发，其口的主要是为了加强旅行社和游客对旅游 信息资源更为准确、更为快捷地了

2、解、掌握和管理，大大地节约了人力、物力资 源。其屮的两个模块：景点信息管理、人员信息管理在与access数据库连接的 基础上，实现了通过vb平台对数据库信息进行查找、删除、增加，修改的功能。 因此，旅行社和游客可以通过此平台获取相关的信息來满足自己的需要。关键词 visual basic 6.0； access；旅游信息the travel information management systemabstract the travel information management system is a realistic system, which manages the travel i

3、nformation resource with the development of tourism industry, it is more difficult and unflexible if we continue using the traditional way to manage the travel information resource. and it is hardly to meet the need that people want to know and manage the information whenever and wherever they like.

4、 however, the growth and popularity of computer, and the network management of information provide a more efficient and convenient way for tourism industry. this system has been finished on the basis of microsoft visual basic 6.0, which is designed to make the tourists and the travel agency manage t

5、he information source more quickly and accurately. there is no doubt that it greatly saves manpower and material resources. in this system, there are two modules named the attractions information management and the personal information management based on the connection of access database, which can

6、 achieve the function of search, add, delete, and update to database.therefore, the visitors and travel agency can obtain some related information to satisfy their need.keywordsvisual basic 6.0; access; travel information目录1管理信息系统概述及系统开发工具11.1管理信息系统11. 2 visual basic 6.021. 3 access 数据库31. 4 m3u 文件4

7、2系统分析与设计52. 1问题定义与可行性分析52. 2需求分析62.3总体设计93详细设计113.1详细设计概述113. 2系统流程图123. 3系统详细设计124编码与模块功能实现164. 1登录模块编码及实现164. 2主界而模块编码及实现194. 3景点信息编码及实现234. 4其他子界面编码及设计效果285软件测试315. 1软件测试的定义315. 2测试的基木准则3153系统模块测试31总结33参考文献34致谢34附录361游客信息管理界面代码362导游信息管理界面代码393酒店信息管理界面代码421管理信息系统概述及系统开发工具1.1管理信息系统（1）管理信息系统简介在信息社会，

8、人们越來越清楚地认识到知识就是力量，信息就是财富，信息 资源在社会生产和生活中将发挥f1益重要的作用。但是，作为一种资源的必要条 件是对其进行有效的管理。如果没有信息管理，信息的价值就不可能很好地发挥 出来。因此，对信息及其相关活动因素进行科学的计划、组织、控制和协调，实 现信息资源的充分开发、合理配置和有效利用，是管理活动的必然要求，也是 管理信息系统的价值所在。（2）管理信息系统的发展管理信息系统通过对企业当前运行的数据进行处理来获得有关信息，以控制 企业的行为；利用过去和现在的数据及相应的模型，对未来的发展进行预测；能 从全局目标出发，对企业的管理决策活动予以辅助。从工业发达国家来看，管

9、 理信息系统的发展经历了以下几个阶段：第一阶段:（1953年至1965年）单项数据处理阶段，也称电子数据处理（edp） 阶段。这是电子计算机在管理领域应用的起步阶段。这一阶段，由于当吋计算机 硕、软件的限制，数据处理的性质只是使用计算机代替人的手工劳动，进行简单 的单项数据处理工作，如计算工资、数据统计、报表登记、编制计划等。这个阶 段的处理方式主耍是集中式的批处理。第二阶段：（1965年至1970年）综合数据处理阶段，也称事务处理系统（tps） 阶段。这个阶段计算机硬、软件有了很大的发展，出现了多用户的分时系统，计 算机开始应用于对某一个管理子系统的控制，并具有一定的反馈功能。如库存 管理系

10、统、生产调度系统、物资管理系统等。这个阶段的处理方式已发展为而向 终端的联机实时处理。第三阶段：（1970年至今）管理信息系统（mis）阶段。这个阶段是在企业 屮全面的使用计算机把各种管理子系统的功能集屮起来，构成了计算机化的全方 位的信息系统，即现代管理信息系统。这个阶段的处理方式是在数据库和网络 基础上组成分布式处理系统。它的特点是使用数据库和分时处理的计算机网络， 并充分利用运筹学等数学方法，实现了硬件、软件和数据资源的共享。1.2 visual basic 6.0(1) visual basic 6.0 简介visual basic 6.0是microsoft公司推出的基于window

11、s环境的计算机程序设 计语言，它继承了 basic语言简单易学的优点，同时增加了许多新的功能。由于 visual basic釆用而向对彖的程序设计技术，摆脱了而向过程语言的许多细节， 而将主要精力集中在解决实际问题和设计友好界面上，使开发windows应用程 序更加迅速、简捷。(2) visual basic的产生与发展1991年，microsoft公司推出visual basic 1.0版，它虽然存在一些缺陷，但 仍受到广大程序员的青睐。随后microsoft公司又分别在1992年，1993年，1995 年和1997年相继推出了 visual basic 2.0、3.0、4.0、5.0等多个

12、版本。目前常用 的版本是1998年下半年推出的。visual basic 6.0版较以前版本，其功能和性能 都大大增强了，它还提供了新的、灵巧的数据库和web开发工具。(3) visual basic 的特点而向对彖的可视化编程。visual basic采用而向对彖的程序设计方法，将数 据和对象作为一个对象封装在一起。结构化设计。虽然visual basic是属于面向对象的程序设计语言，但在编程 过程屮，依i口要用结构化程序设计。事件骡动的编程方式。在visual basic 6.0中，控制着程序走向的是用户的动 作，也就是事件。程序员需要为每个事件编写程序，用各个事件来驱动程序的运 行叫易学

13、易用的应用程序集成开发环境。在visual basic的集成开发环境中，用 户可以设计界面、编写程序、调试程序，然后将调试成功的程序打包生成exe文 件在windows上运行。支持多种类梨的数据库系统访问。数据访问特性允许包括microsoft sql service和其他企业数据库在内的大部数据库格式建立数据库和而端应用程序， 以及可调整的服务器端部件。利用数据控件不仅可以访问microsoft access. dbase、microsoft foxpro> paradox 等，而且也可以访问 microsoft excel 等多种 电子表格。1.3 access数据库（1）acces

14、s数据库概述access是office办公套件屮一个极为重要的组成部分。access是微软公司 推出的基于windows的桌面关系数据库管理系统（rdbms）,是office系列应 用软件之一。它捉供了表、查询、窗体、报表、页、宏、模块7种用来建立数据 库系统的对象；提供了多种向导、生成器、模板，把数据存储、数据查询、界面 设计、报表生成等操作规范化；为建立功能完善的数据库管理系统提供了方便， 也使得普通用户不必编写代码，就可以完成大部分数据管理的任务。（2）access数据库的特点access是一种关系型数据库管理系统，其主耍特点如下：存储方式单一。access管理的对象有表、查询、窗体、报

15、表、页、宏和模块, 以上对象都存放在后缀为（.mdb）的数据库文件种，便于用户的操作和管理。面向对象。access是一个面向对象的开发工具，利用面向对象的方式将数据 库系统中的各种功能对象化，将数拯库管理的各种功能封装在各类对象中。它将 一个应用系统当作是由一系列对彖组成的，对每个对象它都定义一组方法和屈 性，以定义该对象的行为和外国，用户还可以按需要给对象扩展方法和属性。通 过对象的方法、属性完成数据库的操作和管理，极大地简化了用户的开发工作。 同吋，这种基于面向对象的开发方式，使得开发应用程序更为简便。界面友好、易操作。access是一个可视化工具，是风格与windows完全一 样，用户想

16、要生成对象并应用，只要使用鼠标进行拖放即可，非常直观方便。系 统还提供了表生成器、查询生成器、报表设计器以及数据库向导、表向导、查询 向导、窗体向导、报表向导等工具，使得操作简便，容易使用和掌握。集成环境、处理多种数据信息。access基于windows操作系统下的集成开 发环境，该环境集成了各种向导和生成器工具，极大地提高了开发人员的工作效 率，使得建立数据库、创建表、设计用户界而、设计数据查询、报表打印等可以 方便有序地进行。access 支持 0dbc （开发数据库互连，open data base connectivity）,利用 access强大的dde （动态数据交换）和ole （

17、对象的联接和嵌入）特性，可以 在一个数据表中嵌入位图、声音、excel表格、word文档，还可以建立动态的数 据库报表和窗体等。access还可以将程序应用于网络，并与网络上的动态数据相 联接叫 利用数据库访问页对象生成html文件，轻松构建internet/intranet的应 用。1.4 m3u文件(1) m3u文件介绍m3u文件是一个元文件播放列表，它引用.mp3等咅频文件并为播放列表中 的项廿提供其他元数据。简单点说，m3u文件就是mp3等音频文件播放列表清 单。严格来说，m3u文件仅是一个类文木文档文件，它的作用不过是将一些 mp3/wma/mid等音频文件的名字集中在一起的一个表单

18、，作用很简单，就是 规定音频文件播放的顺序。也就是说，木质上.m3u文件并不是咅频文件，它是咅频文件的列表文件， 是纯文本文件。你下载下來打开它，或者自己制作完打开，播放软件并不是播放 它，而是根据它的记录找到文件所在的位置进行播放。m3u文件的所占用的空间很小，因为它里面没有任何音频数据。把文 件直接转换为音频文件是不可能的，除非你把它指向的音频文件下载下来再作处 理。m3u格式的文件只是存储多媒体播放列表，提供了一个指向其他位置的音频 视频文件的索引，你播放的述是那些被指向的文件，用记事木打开m3u文件可 以查看所指向文件的地址及文件的属性，以选用合适播放器播放。(2) m3u文件制作 用

19、文木编辑器新建一个文木文档； 在记事本的首行输入“#extm3u"； 接下来在文木内添加你想要添加的歌曲的路径和歌曲名了 ；(如果将.m3u 文件保存在歌曲所在目录，则路径名可以省掉) 最后，将文件期存为".m3u"格式。2系统分析与设计2.1问题定义与可行性分析(1) 问题定义问题定义是整个软件开发的第一步，在这个阶段主耍问题是：“耍解决的项 目问题是什么？ ”只有弄懂了要解决问题，才能够合理的分析和解决问题，并为 以后的总体设计和详细设计打下坚实的基础。根据软件工程，前期的问题定义占 软件开发很大部分，是很重要的环节屈。软件项目定义阶段的任务冇以下四项：制定软

20、件项目规划。包括：描述软件的工作范围、进行风险分析、提出开发 软件所需资源清单、估算软件项目的成本和进度，并易成本和进度估算为基础对 软件项口进行可行性论证。最后，生成经过项口管理组织评审的软件项口规划。软件需求分析和定义。确定软件的功能和性能，详细定义软件系统要素。定 义软件需求冇两种方法。一种是釆用形式化的信息分析方法。建立信息流和信息 结构模型，然后将这些模型扩展为软件规格说明。另一种是为软件开发原型，软 件工程师和用户一起对原型进行评审和修改，从而使获得用户满意的需求定义信 息叭确定软件性能和资源约束，这对软件设计特性会产生直接的影响。为软件要 素定义验收标准，它也是制定软件测试计划的

21、基础。(2) 可行性分析开发任何一个基于计算机的系统，都会受到时间和资源上的限制3。因此, 在接受项口之前必须根据客户可能提供的吋间和资源条件进行可行性研究。可行 性研究进一步探讨问题定义阶段所确定的问题是否具有可能的解。在对问题正确 定义的基础上，通过分析问题，导岀试探性的解，然后反复检查并修正问题定义, 最终提出一个符合系统口标的高层次的逻辑模型。然后根据这个模型设想各种可 能的物理系统。可行性研究与风险分析在许多方面是互相关联的。可行性研究的 口的就是用最小的代价在尽可能短的吋间内确定问题是否能够顺利解决。它可以 避免人力、物力和才力上的浪费。项目风险越大，开发高质量软件的可行性就越 小

22、。因此，可行性研究实质上是要进行一次大大压缩简化了的系统分析和设计的 过程问。可行性研究包括经济可行性、技术可行性、法律可行性和开发方案的选 择性等。以下从三个方面对旅行社管理系统进行可行性分析：技术可行性、经济可行 性和操作可行性分析。技术可行性分析：为了确定现有技术能否实现目标系统。vb 6.0自带的工 具和控件、microsoft access拥冇的对表的操作以及microsoft excel协调操作完 全可以实现木系统要求达到的各种功能。旅行信息管理系统把景点、导游、游客和其他用户的信息贮存在数据库里， 然后经过数据的抽取和分类，显示在需要的窗口内。因此，使用现有的技术，可 以实现此旅

23、游信息管理系统。经济可行性分析：为了确定待开发的系统的经济效益能否超过开发成本。旅 行社管理系统是一个不会直接产生经济效益的投资，但是能够节省人员资源的消 耗和浪费，从而节约成本，提高效率。从成本效益角度來观察，这个系统的开发 成木不是很高，在使用后，能够起到的作用也是十分可观的。操作的可行性分析：旅行社管理系统是基于vb6.0平台开发的，vb系列是 被广泛应用于数据库开发和操作的一套成熟的软件平台，而且它对于一个小型的 数据库处理具有不可比拟的优点和简单方便。所以从操作可行性方面是可行的。 开发出來的界面也是十分容易使用，具有简单，容易上手的特点。2. 2需求分析（1）需求分析简述需求分析是

24、介丁系统分析和软件设计阶段z间的重耍桥梁。一方而，需求分 析以系统规格说明和项目规划作为分析活动的基木出发点，并从软件角度对他们 进行检查和调整。另一方面，需求规格说明又是软件设计、实现、测试，直至维 护的主要基础叫需求分析是在可行性研究的基础上进行的，可行性研究实质上是一次完整的 分析和设计过程，只不过是在抽彖的层次上进行的大大压缩和简化的分析和设计 过程。需求分析的结杲是软件开发的基础，必须仔细验证它的止确性，开发人员 必须和用户取得完全一致的意见，需求分析的文档应该被用户所确认。为了更准 确、更具体地确定用户的需求，往往需要构造出口标系统的原型，供用户试用以 取得实践。良好的分析活动有助

25、于避免或尽早剔除早期错误，从而提高软件生产 率，降低开发成本，改进软件质量何。需求分析的基本任务是确定目标系统必须 具备那些功能，准确完整的体现用户的要求，通过仔细分析应该得出用数据流图、 e-r图、数据字典和简洁的算法描述所定义的详细的系统逻辑模型。（2）旅游信息管理系统的需求分析根据旅游信息管理的需求，我们对景点、酒丿占、游客、导游等常见旅游相关 信息的进行管理。主要包括景点信息的管理、酒店信息管理、游客信息管理以及 导游信息管理等几个方面的内容。这几方面内容中包括信息的查询、删除、修改 以及信息的实吋更新。相关人员通过自身所具有的权限登录界面进入该旅游信息管理系统，通过具 体对各个子系统

26、的操作，对相关信息进行管理，获取信息或者对相关信息进行更 新，保证信息的最新性和准确性。（3）e-r 图数据库设计屮常用e-r图来描绘数据库的结构。er模型屮包含“实体j “联 系”和“属性”等三个基本成分，下面介绍这三个基本成分：第一：实体。实体是客观世界中存在的r可相互区分的事物。实体可以是人 也可以是物；可以是具体事物也可以是抽象概念。例如，员工、原料、商品、定 单等都是实体。在er图中用矩形代表实体。第二：联系。客观世界屮的事物彼此间往往是有联系的。例如，客户与金业 间有“卖”这种联系；企业与供应商之间存在“买”这种联系。联系可分为三类:一对一联系（1： 1）例如，一个公司只冇一个总经

27、理，而每个总经理只在一 个公司任职，则公司与总经理z间的联系是一对一的；一对多联系（1： n）例如, 公司与员工之间存在一对多的联系“雇佣二即每个公司雇佣了多名员工；多对 多联系（m： n）例如，客户与公司之间存在的联系（“买t是多对多的，即每个 客户可以向多家公司购买商品，而每个公司也可以向多家客户出售产品。在e-r 图中，用连接相关实体的菱形框来表示联系。第三：屈性。屈性是实体或联系所具有的性质。通常一个实体由若干个属性 來刻画。例如，“公司”实体冇名称、类别、地址、电话等属性；“员工”实体 有姓名、性别、职位、家庭住址等属性。“定单”实体有定单号、定货日期、截 止日期、商品、数量、定金等

28、属性。在e-r图中用椭圆形来表示实体（或联系） 的屈性，并用无向边把实体（或联系）与其屈性连接起來。人们通常就是用实体、联系和属性三个概念來理解现实问题的，因此，e-r 模型比较接近人的习惯思维方式。此外，er模型使用简单的图形符号来表达系 统分析员对问题的理解，不熟悉计算机技术的用户也能理解它，因此，e-r模型 可以作为用户与分析员z间有效的交流工具。景点的屈性主要包括景点名称、编号、类型、门票、地点、以及其他信息。 其er图如图2. 1所示：图2. 1景点e-r图用户的属性主要包括用户名、密码、权限。其er图如图2. 2所示:图2. 2川户e-r图游客的属性主要包括游客姓名、编号、年龄、所

29、选景点、所选导游、联系方式等。其er图如图2. 3所示：图2.3游客e-r图导游的属性主耍包括姓名、导游编号、年龄、联系方式、级别等。其e-r图如图2. 4所示：圏2. 4导游e-r圏2. 3总体设计（1）总体设计概述总体设计的基木口的就是冋答“概括地说，系统应该如何实现？”这个问 题。因此，总体设计乂称为概要设计或初步设计。总体设计阶段的基本目的是用 比较抽象概括的方式确定系统如何完成预定的任务，也就是说，总体设计阶段主 要由两个小阶段组成。首先需耍进行系统设计，从数据流图出发设想完成系统功 能的若干种合理的物理方案，分析员应该综合分析比较这些方案，从中选择一个 最佳方案向用户和部门负责人推

30、荐。如果用户和使用部门负责人接收了这个方 案，那么分析员应为这个方案进行软件结构设计，确定软件由那些模块组成以及 这些模块z间的动态调用关系屈。在进行软件结构设计时，应该遵循的最主耍的原理是模块独立原理，也就是 说，软件应该出一组完成相对独立的子功能的模块组成，这些模块彼此之间的接 口关系应该尽量简单。软件结构设计吋一种有效的方法是，由抽象到具体地分析 和构造岀软件的层次结构。自顶而下逐步求精是进行软件结构设计的常用途径; 但是，如果已经冇了详细的数据流图，也可以使用而向数据流的设计方法，用形 式化的方法由数据流图影射出软件结构。数据库设计是建立数据库及其应用系统的技术，是信息系统开发和建设中

31、的 核心技术，具体说，数据库设计是指对于一个给定的应用环境，构造最优的数据 库模式，建立数据库及其应用系统，使之能够有效地存储数据，满足各种用户的 应用需求（信息要求和处理要求）1110通过这个阶段的工作将划分出组成系统的 物理元素一程序，文件,数据库，人工过程和文档等。（2）系统的模块划分根据对系统需求的分析，可以把系统划分以下五个模块：系统用户模块、景点信息模块、酒店信息模块、游客信息模块以及导游信息模块、旅游服务模块。详情如图2.5所示。图2. 5系统总体模块图3详细设计3.1详细设计概述(1) 详细设计简介详细设计是软件工程中软件开发的一个步骤，就是对概要设计的一个细化， 就是详细设计

32、每个模块实现算法，所需的局部结构他。详细设计是软件生命周期 的一个重要阶段，它最根木的任务是确定为了满足用户的需要系统必须做什么。 具体地说，应该确定系统必须具有的功能和性能，系统要求的运行环境，并且预 测系统发展的前景；必须仔细分析系统屮的数据，既耍分析系统屮的数据流又要 分析长期使用的数据存储。图形工具比文字叙述能更好地表达重要的细节，数据流图能够极好地概括描 述-个系统的信息。e-r图能直观、准确地描绘系统的数据需求数据字典也是重 要的，数据是把一个系统的各个组成元素连接在一起的“黏合剂”，为了成功地 把所冇系统元素连接起来，这些元素必须共享公共的数据定义，数据字典正是这 些数据定义的集

33、合算法同样是重要的，分析的目的是确定系统必须做什么，广义 地说，任何一个计算机系统的基本功能都是把输入数据转变成输出信息，算法定 义了转变的规则凹。因此，没有对算法的了解就不能确切知道系统必须做什么。 此外，在需求分析阶段还应该根据对目标系统的更深入更具体的认识，修正开发 目标系统的计划。(2) 详细设计目标详细设计阶段的根本廿标是确定应该怎么具体地实现所要求的系统，也就是 说，经过这个阶段的设计工作，应该得出对口标系统的精确描述，从而在编阶段 可以把这个描述直接翻译成用某利咏呆序设计语言书写的程序叫(3) 详细设计的基本任务 为每个模块进行详细的算法设计。 为每个模块内的数据结构进行设计。

34、对数据库进行设计，即确定数据库的物理结构。 其他设计。如代码设计、输入输出设计、人机对话设计等。 编写详细设计说明书。 评审。3. 2系统流程图该旅游信息管理系统流程图如图3.1所示:图3. 1系统流程图3. 3系统详细设计(1)系统详细设计分析为了满足旅行信息管理系统的使用要求，木系统通过使用microsoft access 2000创建有4张表，分别是用户登录表、导游信息表、游客信息表以及景点信 息表。用户登录表的作用是验证登录吋的用户名和密码，并判断用户的使用权限 來启动或关闭某些按钮的操作导游信息表的作用是存放导游的基本资料，便于 及时查看和更新。游客信息表是用來存放游客资料信息，随时

35、可以添加删除记录, 方便用户的记录管理；景点信息表屮存放景点的具体信息，用户可以根据具体的 情况对信息进行添加、修改和删除。（2）数据库设计数据库是信息系统的核心和基础，把信息系统中大量的数据按一定的模型组 织起來，提供存储、维护、检索数据的功能，使信息系统口j以方便、及时、准确 地从数据库屮获得所需的信息。数据库设计是指根据用户的需求，在某一具体的数据库管理系统上，设计数 据库的结构和建立数据库的过程。数据库系统需要操作系统的支持。数据库设计 是信息系统开发和建设中的核心技术，貝体说，数据库设计是指对于一个给定的 应用环境，构造最优的数据库模式，建立数据库及其应用系统，使之能够冇效地 存储数

36、据，满足各种用户的应用需求（信息要求和处理要求）。根据旅游信息系统的需要和实际操作的要求，本系统所建的表详细如下：用户登录表主耍包括三个字段：用户名、密码和权限。其表结构如表31所 示：表31用户登录表结构列名数据类型允许为空值usernametext否pwdtext否righttext否用户登录表内容如表3-2所示:表3-2用户登录表usernamepwdright00100100020020003()03000400400050050001100111002200221003300331004400441005500551景点信息表包括6个字段，分别为vsbh（景点名称）、vsname （

37、编号）、area （地点）、price （门票）、type（类型）以及info （其他信息）。其中,“vsbh （景点 编号）"为主键。景点信息表结构如表3-3所示：表3-3景点信息农结构列名数据类型允许为空值vsbhtext否vsnametext是areatext是typetext是infotext是pricetext是景点、信息表内容如表3-4所水：农3-4景点信息表vsbhvsnameareatypepr i cei nfo01龙门石紅洛阳石刻120龙门石規是中国石刻艺术宝02丽江古城丽江建筑60丽江古城，乂名“大研古镇”，03泰山泰安山峰no泰山，世界文化与白然双重遗04华山

38、渭南山峰90华山古称“西岳”，为中国著05敦煌石總敦煌石刻150敦煌石總，被誉为20世纪最06黄山黄山山峰90黄山，中国5a级旅游景区、07青海湖青海湖泊30青海湖又名“措温布”，即藏08太湖无锡湖泊60太湖位于长江三角洲的南缘，09鼓浪屿厦门海滩30鼓浪屿是福建省厦门市思明10故宫北京建筑80北京故宫，旧称为紫禁城，是游客信息表包扌舌6个字段，分别为bh （游客编号）、name （姓名）、vsname （所选旅游景点）、tel （联系方式）、age （年龄）、gid （所选导游）。其中“bh （游客编号）”为主键。游客信息表结构如表3-5所示:表3-5游客信息表结构列名数据类型允许为空值bh

39、text是nametext是vsnametext是teltext是gidtext是agetext是游客信息表内容如表3-6所示:表3-6游客信息表bhnamevsnamegidagete 11001上林故宫11127132030455171002李华龙门石窟11336192533212111003石雨青海湖11224156397033711004孟青太湖11426131668725391005孙仪故宫11137151371883691006刘悦华山11620137147532284编码与模块功能实现4.1登录模块编码及实现(1) 通用模块代码如下：private declare functio

40、n setwindowrgn lib uuser32n (byvai hwnd as long,by vai hrgn as long, by vai bredraw as boolean) as longprivate declare function createroundrectrgn lib"gdi32m (byvai xi aslong,by vai y1 as long, by vai x2 as long, by vai y2 as long, by vai x3 aslong,by vai y3 as long) as long(2) 窗体模块代码private su

41、b cmdcancel_click()msgbox ”您已成功退出！ ”, vbokonly + vbexclamation, ”提示“unload meend subprivate sub commandok_click()iftextl.text = ,h, thenmsgbox ”用户名不能为空! ”, vbokonly + vblnformation, ”提示”elsers.movefirstrs.find "usemame= & trim(textl.text) & *""if rs.eof thentext 1 .text 二"

42、;text2.text = ”textl.setfocusmsgbox ”用户名输入错误! ”, vbcritical, “提示”elseiftext2.text = nh thenmsgbox ”密码不能为空，请输入密码！ ”, vbcritical, ”提示”text2.text = ,u,text2.setfocuselself rs.fields("pwdh) = text2.text thenselect case rs.fields("rightn)case 0if option 1 .value = true thenme.hideform2.showform

43、2.statusbarl.panels(2).text = ”当前用户：”& text 1.textelsemsgbox ”您没有此权限”,vbokonly + vbcritical, ”提示”end ifcase 1if option2.value = true thenme.hideform2.showform2.statusbarl.panels(2).text = ”当前用户:"& text 1 .textelsemsgbox ”您没有此权限u, vbokonly + vbcritical, ”提示”end ifend selectelsemsgbox (”密

44、码输入错误，请重新输入！ u), vbcritical, ”捉示”text2.text = ,u,text2.setfocusend ifend ifend ifend subprivate sub form_load()setwindowrgn me.hwnd, createroundrectrgn(0, 0, width / 15, height / 15,20,20), trueset conn = new adodb.connectionset rs = new adodb.recordsetconn.open "provider=microsoft.jet.oledb.4.

45、0;data source=" & app.path & "fc.mdb"rs.open "select * from userl", conn, 2, 2me.picture = loadpicture(app.path + "l.jpgh)option 1 .value=trueend subprivate sub form_resize()me.paintpicture me.picture, 0, 0, me.width, me.heightend subprivate sub timerl_timer()ti

46、mer 1 .interval= 100if label3.left > me.width label3.width thenme.tag = 2elself label3.left < 0 thenme.tag = 1end ifif me.tag = 1 thenlabel3.left = label3.left + 100elself me.tag = 2 thenlabel3.left = labeb.left - 100end ifend sub(3) 登录模块界面登录模块界面如图4.1所示:图4.1登录界而4. 2主界面模块编码及实现(1)主界面代码如下:private

47、 sub exit_click()endend subprivate sub form_click()randomizefor x = 1 to 255green = int(rnd * 255 + 1)blue = int(rnd * 255 + i)me.currentx = 400 + xme.currenty = 300 + xme.forecolor = rgb(x, green, blue)print”欢迎来到旅游信息系统！”nextend subprivate sub form_load（）i = 0me.picture = loadpicture（app.path + &quo

48、t;6.jpg”）dim nodx as nodeset nodx = tree vie wl. nodes. add（,，” vs”，”旅游信息管理系统”,1）set nodx = treeview 1.nodes.add（"vs", tvwchild, nvsvw",”景点信息管理”,2）set nodx = tree view 1 .nodes. add（hvs", tvwchild, "vsry",”人员信息管理”,2）set nodx = tree view 1.nodes.addc'vs", tvwchi

49、ld, "vsjd",”酒店信息管理”,2）set nodx = treeview 1.nodes.add（"vsry", tvwchild, "qrl","游客信息”，3）set nodx = treeview 1 .nodes.add（"vsry", tvwchild, "qr2","导游信息”,3）set nodx = treeview 1 .nodes.add（"vsry", tvwchild, "qr3",”用户登录信息”,3

50、）nodx.ensurevisibleend subprivate sub image l_click（）if timer i.enabled = true thentimerl.enabled = flaseelsetimerl.enabled = trueend ifend subprivate sub open_click（）on error resume nextdim strtxt$commondialogl jnitdir = nc:hcommondialog 1 .filter = "word 文档(*.doc)l*.docl文本文件_(*.txt)l*.txtlcom

51、mondialog 1 .filterindex = 2commondialogl .showopentextl.text = ,u,open commondialog 1 .filename for input as #1if err.number = 0 thendo while not eof(l)line input #1, strtxttextl = textl + strtxt + vbcrlfloopclose #1end ifend subprivate sub print_click()dim i as integercommondialog3-showprinterprin

52、ter.enddocend subprivate sub save_click()on error resume nextcommondialog2.initdir = "c:"commondialog2.filter = "word 文档(*.doc)l*.docl文本文件_(*.txt)l*.txtlcommondialog2.defaultext = h*.txtncommondialog2.showsaveopen commondialog2.filename for output as #2for i = 1 to len(textl)print #2,

53、 mid$(textl, i, 1)next iclose #2end subprivate sub timerl_timer()static i as integertimer 1 .interval=2800i = (i+ l)mod5image 1.picture = loadpicture(app.path & "v & (11 + i) & ".jpg")end subprivate sub treeviewl_nodeclick(byval node as mscomctllib.node)if node.text二”景点信息管

54、理” thenform4.showend ifif node.text = ”游客信息” thenform 1.showend ifif node.text 二”导游信息” thenform6.showend ifif node.text二”用户登录信息” thenform7.showend ifif node.text二”洒店信息管理” thenform2.hideform5.showend ifend sub（2）主界面效果图主界面设计效果如图4.2所示:图4. 2主界面4. 3景点信息编码及实现（1）景点信息界面编码如下：private sqlcon as new adodb.conne

55、ctionprivate sqlres as new adodb.recordsetprivate sqlcmd as new adodb.commandprivate sub commandl_click() ，查找dim sqlstr as stringadodc 1 .recordsource = "select * from vw where vsbh =,n & text 1.text & ,nor vsname=h, & text2.text &sqlstr =,hiftrim(textl)ohh thensqlstr 二” where v

56、sbh like '%" + trim(textl.text) +end ififtrim(text2) o ” thensq-sw = = where vsname 一 ike = + trim(texm.text) + -%-= end ifsq-sw h se 一 ect*from vw - + sq-sr sqlres.open sqlst 尸 sqlcop adopendynamipadlockpessimishcif not sq一res.eof thentex 二.texi = sq_res(=vsbh) text2tex h sqlres(<=snamq=)texcs.texi h sq-res (二 price-.)tex4.texi n sqlres(=area=) combo 1.text h sqlres(二type-)tex5.tex<-