VB493 基于VB地理信息系统的旅游及线路管理系统

本论文所述课题是在研究组件式GIS技术的基础上，使用MapX组件技术研制开发出来的旅游信息系统，对旅游信息化进行了分析与探讨。 (1)通过对基于GIS技术支持的旅游信息系统的比较与分析发现：基于GIS技术支持的旅游信息系统具有图形数据与属性数据的一体化，不仅可以用图形把数据直观地表现出来，还可以用属性数据表述其更加详尽的特征等优点，而传统的信息传递手段管理这些数据难免感到力不从心。因此，提出将GIS技术与旅游信息相结合，设计开发了旅游信息系统： (2)通过对地理信息系统应用开发的3种形式进行比较分析，提出以组件式开发方式更适合旅游信息系统的开发，并以VB+MapX组合形式，开发出旅游信息系统，实现一个小型的实用地理信息系统软件，论文详细介绍系统的数据结构、数据组织及各项主要功能，达到了旅游信息的查询、管理、显示和输出的一体化 copyright think58

[来源：http://www.think58.com]

随着信息时代的到来,社会科技高速发展,旅游业己成为近年来国民经济各行业中最具发展活力的新兴产业和新的经济增长点。从1950年开始，世界旅游业便以每年7.1％的速度增长，从1950年接待2530万人次增长到1998年的6.35亿人次，国际旅游收入也从21亿美元增加到4394亿美元，增长了208倍，年均增长达11.8％，1992年，世界国际国内旅游收入超过了石油、汽车工业，成为了世界上第一大产业，19％年旅游总产值（包括国内旅游收入）己经达到3.6万亿美元，占世界国内生产总值的10.7％,旅游总投资7660亿美元，占世界总投资的11.9％；旅游业总税收为6530亿美元，占世界税收总额的10.4％；旅游业就业人数达2.55亿人，占世界总就业人数的1/9，旅游业的发展规模己经在世界经济的发展中占据了相当重要的地位。但是，旅游涉及吃、住、行、游、购、娱等诸多要素，而且这些要素又分散在不同的地域中，一个人不可能全面掌握所有的信息。一旦掌握某方面信息的人离开企业，就会对企业的经营造成负面影响。目前旅游资源管理还很落后，有些景区由于管理技术水平较低，管理人员配备不足，致使景区内管理混乱，滥开滥建严重，成为旅游业发展的障碍。
21世纪的中国旅游业面临着前所未有的机遇和挑战。一方面，中国旅游业经过二十多年改革开放的发展历程，从无到有，从小到大，从弱到强，实现了历史性的进步，现在正在全面实施由亚洲旅游大国到世界旅游强国跨越的发展战略。在21世纪头20年，中国将成为世界第一位旅游接待大国和第四位客源输出国。另一方面，我们所处的时代深深地烙上了知识经济、网络经济、全球经济、消费经济、数字经济和注意力经济的特征，中国经济的持续发展、市场的长期繁荣和即将加入世界贸易组织的前景，不仅使中国的入境市场保持高速增长，而且也带来了国内旅游市场、出境旅游市场的空前繁荣。

本文来自think58

在信息化时代的今天，随着信息技术特别是遥感、数据库与地理信息系统、全球定位系统、宽带网络及仿真虚拟技术等现代高科技的高度综合和发展，为旅游业的发展提供强大的后盾，同时旅游业对信息交流的迫切需要等因素的综合作用，使得旅游资源管理方式向现代化、自动化、科学化的管理方式，建立旅游管理信息系统成为可能。建立旅游资源信息管理系统，不仅可以在时间上，人力上、统计方式便利上以及资料的处理、存储、传输上得以明显的提高，而且可以大大提高基本信息数据通信的准确性，提高旅游规划的工作效率，丰富其表现手段，提高其分析能力，同时为咨询者提供快速、动态的查询数据，因此充分发挥相关信息技术在旅游管理和开发中的作用，建立基于GIS的旅游资源信息管理系统(IMS)迫在眉睫。旅游资源及线路管理系统可以把各种旅游资源分类存储管理通过网络实现资源共享，不仅方便快捷，而且不会因为人员流动影响企业的经营。
由于如今的旅游景点繁多，旅游线路中包含的内容也很多，让人一下子很难清楚的了解到其中的所包含的信息，从而做出正确的旅游方案，让自己能够轻轻松松的享受到旅游中的乐趣。本系统旨在方便方便那些热爱出玩的人，让他们及时、准确、详细的了解到一些旅游方面的相关信息，为他们指引一条适合他们的旅游线路。因此，本文就详细的设计了一个旅游资源及线路管理系统，把旅游中的一些相关的详细信息囊括其中，尽量使整个管理系统层次鲜明，概括清楚。在阅读完本文后你将能够清楚的了解到一个旅游资源管理系统的具体设计和实现过程。

内容来自think58

由于我是第一次做这方面的论文，并且在一个相对比较陌生的开发环境之下，它一定还有许多不尽人意的地方，没有能够全面的实现设计要求的功能，不过，尽情各位评审老师在阅读完我这篇毕业论文后提出宝贵的修改意见，我会虚心的接受并认真的进行改进。 本文来自think58 [资料来源：THINK58.com]

Access支持ODBC（开放数据库互连，Open Data Base Connectivity）,利用Access强大的DDE（动态数据交换）和OLE（对象的联接和嵌入）特性，可以在一个数据表中嵌入位图、声音、Excel表格、Word文档，还可以建立动态的数据库报表和窗体等。Access还可以将程序应用于网络，并与网络上的动态数据相联接。利用数据库访问页对象生成HTML文件，轻松构建Internet/Intranet的应用。
(2) 系统开发工具结构图
该系统是在Visual Basic工作平台上利用MapX控件二次开发完成的. MapX是MapInfo提供基于COM技术的ActiveX控件,其功能强大,利用其强大的空间数据分析功能,实现用户所需要功能,从而设计出用户所需要的GIS系统,本系统所需的空间和属性数据存放在Microsoft Access 2000后台数据库中,使用后台数据库的数据生成各种统计分析图件,同时采用ODBC技术,实现空间和属性数据绑定,实现图数 [资料来源：THINK58.com]

Private Sub Cmd_Close_Click()
Unload Me
End Sub
Private Sub Cmd_Del_Click()
LiDel.Show 1
End Sub
Private Sub Cmd_Modi_Click()
LiModi.Show 1
End Sub
Private Sub Command1_Click()
LiIndex.Show 1
End Sub
Private Sub Command2_Click()
Unload Me
FrmLineManl.Show 1
End Sub
Private Sub Form_Load()
Timer1.Enabled = True
Label1.Left = Me.Width
End Sub
Private Sub Timer1_Timer()
Label1.Left = Label1.Left - 100
If Label1.Left <= -Label1.Width Then
Timer1.Enabled = True
Label1.Left = Me.Width
End If
End Sub copyright think58 [资料来源：www.THINK58.com]

第4章  程序调试、分析与结论
4.1 系统调试
4.1.1 功能模块测试
用黑盒测试的方法测试了如下功能模块：
地域资源管理、景点资源管理、宾馆资源管理、餐厅资源管理、娱乐资源管理、火车资源管理、公交车资源管理、旅游线路管理和系统用户管理。
4.1.2 接口测试
通过一组实验数据测试输入输出测试了下列接口：
① 数据采集接口
② 空间对象接口
③ 路线接口
④ 路线演示接口
4.1.3 集成测试
编译成为可执行文件，并且打包成安装文件，脱离原来的编译环境。在局域网内配置好服务器，局域网的其他计算机上安装客户端软件，经过了反复测试。
4.1.4 性能测试
单机环境下性能良好，性能取决于旅游景点的数量、地图数据量的大小和计算机工作站的性能。在 C/S 模 式下，主要的运算集中在客户端，工作站的性能是关键。服务器端是公用数据库服务器，性能取决于并发用户的数量、服务器和网络的性能，在局域网络(50台计算机)范围内运行良好。
经过以上的步骤后,整个系统的调试就基本上完成了,除此之外还要对一些数据进行测试。
(1) 输入数据测试
景点编号：不输入任何字符、输入非数字字符、输入数字字符。
输入字符景点：不输入任何字符、输入非数字字符、输入数字字符。

[资料来源：http://think58.com]

其他域：由于其他都是文本形式，且没有规定范围，可以输入任何字符、汉字等等。
(2) 输入键测试
在软件中分别点击‘查询’，‘修改’，‘增加’，‘删除’，‘退出’，‘刷新’及一些功能按纽，检查相应功能子界面功能测试
在软件中点击‘查询’按纽，出现查询对话框，输入查询条件，则界面中的数据库列表应列出符合条件的记录。
在软件中点击‘增加’按纽，出现增加对话框，此时输入各个域的内容，再点击对话框中的‘增加’按纽，则在数据库中增加了一个新记录，并在界面中的数据库列表列出增加后的记录。
在软件中点击‘删除’按纽，出现删除确认框，在此框中点击‘确认’按纽，则数据库中的相应记录被删除。
在软件中点击‘退出’按纽，出现提示对话况，选择是否退出。
在软件中点其它功能按纽，看是否有相应的界面出现
4.2 程序设计中遇到的问题及解决方法
在编程过程中不出现任何错误是不可能的，即使是最优秀程序员也是一样。随着程序长度的加长和逻辑的复杂度加深，出错概率更大。因此在进行调试程序的过程中,难免会遇到各种各样的问题,在这次调试过程中，我也遇到了下面一系列的问题：
(1) 变量未定义：      定义变量；
(2) 数据类型不匹配：  改变或转换数据类型为匹配类型； copyright think58
(3) 要求对象：        则找到对象声明的地方，加上正确的对象声明；
(4) 数据库不能打开或某些对象不再被设置： 这是因为数据库在不同的地方打开用过，需要把不再需要用的地方把打开的数据库给关闭；
(5) select语句错误：   重新定义数据库；
(6) data控件与ado控件混乱： 由于它们都可与数据库绑定，导致控件混乱；并且有些部件可与data控件连用，有些却只可与ado控件连用；仔细学习后记忆；
(7) 添加数据表内容时出错：提示说AddNew有误，经过检查得知是主键内容不得相同所致； think58好，好think58 [来源：http://think58.com]

宾馆退房信息管理：
Private Sub Command1_Click()
If Text5.Text = "0" Then
   MsgBox "您没有房间啊！别开玩笑！", , "提示"
  Else
Data1.Recordset.Edit
Data1.Recordset.Fields("号码") = Data1.Recordset.Fields("号码")
Data1.Recordset.Fields("姓名") = Data1.Recordset.Fields("姓名")
Data1.Recordset.Fields("所在地域") = Data1.Recordset.Fields("所在地域")
Data1.Recordset.Fields("宾馆号码") = Data1.Recordset.Fields("宾馆号码")
Data1.Recordset.Fields("我的床位") = Data1.Recordset.Fields("我的床位") - 1
Data1.Recordset.Fields("空床位") = Data1.Recordset.Fields("空床位") + 1
Data1.Recordset.Update
Data2.Recordset.Edit
Data2.Recordset.Fields("所属地域") = Data2.Recordset.Fields("所属地域")
Data2.Recordset.Fields("宾馆号码") = Data2.Recordset.Fields("宾馆号码")
Data2.Recordset.Fields("总床位") = Data2.Recordset.Fields("总床位")
Data2.Recordset.Fields("空床位") = Data2.Recordset.Fields("空床位") + 1
Data2.Recordset.Update
Data3.Recordset.Edit
Data3.Recordset.Fields("号码") = Data3.Recordset.Fields("号码") 本文来自think58 [资料来源：http://THINK58.com]
Data3.Recordset.Fields("姓名") = Data3.Recordset.Fields("姓名")
Data3.Recordset.Fields("性别") = Data3.Recordset.Fields("性别")
Data3.Recordset.Fields("我的床位") = "0"
Data3.Recordset.Update copyright think58 [资料来源：THINK58.com]

End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
公交车信息修改管理：
Private Sub Command1_Click()
Command2.Enabled = Not Command2.Enabled
If Command1.Caption = "开始修改" Then
mbookmark = Data1.Recordset.Bookmark
Command1.Caption = "确认"
Data1.Recordset.Edit
Text1.SetFocus
Else
Command1.Caption = "开始修改"
Data1.Recordset.Update
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
娱乐信息查询管理：
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Command5_Click()
Dim mzy As String
mzy = InputBox("请输入所属地域", "查找窗")
Data1.RecordSource = "Select * From 娱乐信息 where 所属地域 = '" & mzy & "'"
Data1.Refresh
If Data1.Recordset.EOF Then
MsgBox "无此所属地域！", , "提示"
Data1.RecordSource = "娱乐信息"
Data1.Refresh
End If
End Sub
[版权所有：http://think58.com]