GIS软件开发课程设计报告书

GIS软件开发课程设计

报告书题目名称：全球信息查询系统院系：管理学院地理科学专业班级：地理科学0811开发组员：张波张萍李旭周鑫张茫邓晓燕董晶晶马严彪国完成日期：2010年12月26TOC\o"1-5"\h\z1弓1言32系统分析3\o"CurrentDocument"1需求分析33系统设计3\o"CurrentDocument"1总体设计3\o"CurrentDocument"3.1.1用户需求3\o"CurrentDocument"3.1.2系统目标4\o"CurrentDocument"3.1.3总体结构4\o"CurrentDocument"3.1.4系统功能5\o"CurrentDocument"3.2详细设计5\o"CurrentDocument"子系统设计5\o"CurrentDocument"数据库设计6\o"CurrentDocument"3.2.3功能模块设计6\o"CurrentDocument"3.2.4用户界面设计114设计结论1引言随着我国经济水平突飞猛进的发展，科学技术不断向前，传统的教学方式效率不高，因此越来越不能满足教育服务工作的需要。全球查询服务系统将为科学技术普及及中学教学工作提供一种方便、快捷的方式。该系统将为科学普及和教学工作的发展带来很好的促进作用。2系统分析1需求分析目前，随着信息化水平的不断提高以及信息技术的普及，相关技术逐渐进入一般人的生活中，因而数字化信息化的教学方式被引入一般中学教学以及一些科学技术普及工作中，然而在相关需求不断扩大的现在，与其相配套的技术却略有滞后，传统的方法不仅操作难度大，同时效率低下。如何满足人们日益增长的需求以及方便教师与科普工作者进行一般的教育科普工作，是当前必须解决的一个问题。基于GIS的全球地理查询系统是一个拥有全球个地方简易地理信息的数据库，集成了地理信息管理模块可以实现GIS的空间查询，分析功能及可视化功能的软件。其旨在满足广大教育与科学普及工作者的需求，采用GIS技术，使地理数据的查询、分析更加方便快捷，且操作简单容易，易于一般没有任何计算机操作的人员使用。实现了授课的高科技化。该信息平台大大提高了信息化、智能化程度，提高了数据的集成度，对空间数据的查询，分析更加方便、数据结构更为合理，并增加了对动态数据的存储、处理和显示，提供了更多的管理与分析模块，在一般中学教学与科学普及工作中有一定的优势。3系统设计1总体设计3.1.1用户需求在系统具体设计前必须明确所要设计系统的用户需求，只有了解了用户的具体要求才能依此为依据进行系统具体功能的设计，这样设计的系统才有其存在的意义。然而对于本系统来说其用户的需求是能够方便快捷的查询，分析世界地图上各个地区的一些基本的地理信息属性，例如面积，经纬度，距离等，并可以实现数据筛选功能。同时操作要求便捷，数据要用文字，数字，图形等快速的显示出来。3.1.2系统目标全球地理查询系统的目标主要是实现中学课堂教学及一般科学普及单位科普工作的信息化，来满足当前社会发展趋势下用户要求，可以给用户提供一些最基本的地理信息，为了提高课堂教学以及科学普及工作的信息化，加快教育信息化发展，为地理教学科普而开发基于SuperMapObject6.0和VisualBasic语言GIS建立的全球地理查询系统，并希望通过这个系统使课堂地理教学信息化更加普及，系统目标如下：（1）系统应能实现图形和属性的连接，实现用户对图形及属性的双向检索；（2）系统具有快速对地理信息进行查询、空间分析与显示功能；（3）系统应具有良好的扩展性与改进空间。3.1.3总体结构本课题所研究的全球地理查询系统根据用户的需要，实现了地理信息查询，以及测距，侧面积的功能。经过需求分析阶段的工作后，系统必须“做什么”的问题已经解决了，现在是解决“怎么做”这个问题的时候了。总体设计的基本目的就是回答系统应该如何实现这个问题。系统总体结构设计是要根据系统分析的要求和组织的实际情况来对新系统的总体结构形式进行大致设计，它是一种宏观、总体上的设计和规划。1）全球地理查询系统主要功能是让用户方便对于基础地理信息的查询与分析工作，方便教学与科普活动。2）数据的属性查询模块主要功能是对所属地区基本地理信息，例如面积，经纬度等的查询。3）条件查询的主要功能是设置一条件，对于满足此条件的地域进行显示的功能。系统功能总体结构图如图1：

全球地理查询系统图1、系统功能总结构图3.1.4系统功能全球地理查询系统图1、系统功能总结构图本课题主要基本地理信息的查询分析服务，目的是为课堂教学更加科学更加人性化，是用户轻而易举就可以完成地理相关信息的查询与检索功能。本系统重要包括五个独立的模块：地图浏览模块，查询模块，娱乐模块，精确查询模块，帮助模块。几个模块的使用大大提高了用户信息检索的效率与精确度，为用户提供了很大的方便。3.2详细设计3.2.1子系统设计本系统主要分为5个独立的模块：地图浏览模块、娱乐模块、精确查询模块、查询功能模块，帮助模块。在地图浏览模块中，用户可以使用相关控件对地图进行漫游，放大，缩小，也可以根据个人需要进行自由缩放，以及全屏观看在娱乐模块中，为大家在学习工作之余提供了小游戏。在精确查询模块中，进行SQL查询，根据用户的不同需求对信息进行检索，并对检索结果进行排序，并且可以保存输出查询结果。在查询模块中，可以查询相关地域的属性，使用条件查询可以对地图上的符合查询条件的地点通过图像进行显示。帮助模块用于对用户提供一定的帮助。3.2.2数据库设计由于是地理信息系统，全球地理查询系统数据库也应包括空间数据库和属性数据库，再此采用关系型数据库模式。具体的属性数据以图表形式记录，而图形数据以拓扑关系记录。并且在这些建立这些专题数据库时要注意各种专题信息的关系字段，保证互相之间都有联系。数据建库时，要按照分类标准进行科学分类，要符合数据编码的一般要求：（1）凡国家已施行的编码规范和标准，均按国家规定的执行；（2）科学编码系统的设计必须可靠地识别数据信息的分类，以较少的代码提供丰富的参考信息，以及根据代码结构能进行数据间关系的逻辑推理和判别；（3）编码不宜过长，一般为4—7位，以减少出错的可能性和节省存储空间。对于多要素的数据信息，通过设置特征位来有效地压缩码位的长度；（4）编码标准化，其内容包括统一的码位长度、一致的码位格式和明确的代码含义，不能出现代码的多义性等等。此外，数据质量要严格控制，主要控制保证：数据完整性、数据一致性、位置精度、时间精度、属性精度。系统E-R图如图2：图2、系统E-R3.2.3功能模块设计查询功能模块PrivateSubToolbar2_ButtonClick(ByValButtonAsMSComctlLib.Button)Case"属性查询"SuperMapl.Action=scaSelectCase"条件查询"DimobjDsAssoDataSource'数据源DimobjDtVectorAssoDatasetVector'矢量数据集DimobjRecordsetAssoRecordset'记录集DimobjSelectionAssoSelection'选择集'取矢量数据集：取其中面数据集"World"进行查询SetobjDs=SuperWorkspace1.Datasources.Item("MyDataSource")IfobjDsIsNothingThenExitSubSetobjDtVector=objDs.Datasets("World")IfobjDtVectorIsNothingThenMsgBox"打开数据集错误"，vbInformationExitSubEndIf'使用SQL过滤条件安从数据集中查询出记录集，SetobjRecordset=objDtVector.Query(txtExpression.Text,True)IfobjRecordsetIsNothingThenExitSubElse'将查询结果加入到选择集中，使其高亮显示SetobjSelection=SuperMap1.SelectionobjSelection.FromRecordsetobjRecordset'刷新地图窗口SuperMap1.RefreshEndIfSetobjDtVector=NothingSetobjRecordset=NothingSetobjSelection=NothingEndSelectEndSub娱乐模块PrivateSubToolbar3_ButtonClick(ByValButtonAsMSComctlLib.Button)SelectCaseButtonCase"游戏"Shell"C:\DocumentsandSettings\Administrator\桌面'VisualBasic6.0\ddchess.exe"Case"音乐"Shell"F:\KuGou2010\KuGoo.exe"Case"惊喜"Print"售价100万，地科免费！"FontName="黑体"FontItalic=TrueFontSize=48EndSelectEndSub精确查找模块PrivateSubbtnSQL_Click()frmSQLExpression.ShowvbModal,MeEndSubPrivateSubbtnShowDt_Click()DimiAsIntegerDimobjDsAssoDataSourceDimobjDtAssoDatasetIfbtnShowDt.Caption="显示生成的数据集"ThenSetobjDs=SuperWorkspace1.Datasources(1)IfstrDtName=""ThenExitSubSuperMap1.Layers.RemoveAllSetobjDt=objDs.Datasets(strDtName)SuperMap1.Layers.AddDatasetobjDt,TrueSuperMap1.RefreshbtnShowDt.Caption="显示全部图层"ElseSetobjDs=SuperWorkspace1.Datasources(1)Fori=1ToobjDs.Datasets.CountSetobjDt=objDs.Datasets(i)SuperMap1.Layers.AddDatasetobjDt,TrueNextbtnShowDt.Caption="显示生成的数据集"EndIfSuperMapl.RefreshEndSub地图浏览模块PrivateSubToolbar1_ButtonClick(ByValButtonAsMSComctlLib.Button)SelectCaseButtonCase"放大"SuperMap1.Action=scaZoomInCase"缩小"SuperMap1.Action=scaZoomOutCase"自由缩放"SuperMap1.Action=scaZoomFreeCase"漫游"SuperMap1.Action=scaPanCase"选择"SuperMap1.Action=scaSelectCase"全屏"SuperMap1.ViewEntireCase"演示"'建立地图窗口与工作空间的联系，用于显示数据SuperMap1.ConnectSuperWorkspace1.ObjecDimstrAliasAsString'数据源别名DimnEngineTypeAsseEngineType'数据源引擎类型DimstrDatasourceNameAsString'数据源所在路径DimobjDataSourceAssoDataSource'数据源对象，指向打开的数据源DimbReadOnlyAsBoolean'数据源是否只读打开DimobjLayerAssoLayer'图层对象变量，指向将要打开的图层DimbAddToHeadAsBoolean'是否将数据集加到地图最上一层显示DimiAsInteger'数据集索引strAlias="MyDataSource"'别名可任意，但建议取数据源文件名相同的名称nEngineType=sceSDBPlus'可打开不同引擎的数据源strDatasourceName="C:\DocumentsandSettings\Administrator\桌面\VisualBasic6.0\world.sdb"'数据源所在路径，也可以是相对路径bReadOnly=False'非只读打开SetobjDataSource=SuperWorkspace1.OpenDataSource(strDatasourceName,strAlias,nEngineType,bReadOnly)IfobjDataSourceIsNothingThenMsgBox"打开数据源失败！"，vbInformationElseFori=1ToobjDataSource.Datasets.Count'把数据源中的所有数据集加入到SuperMap中显示bAddToHead=TrueSetobjLayer=SuperMap1.Layers.AddDataset(objDataSource.Datasets.Item(i),bAddToHead)NextEndIf'刷新地图窗口SuperMap1.Refresh'可定制选中对象风格，或保持默认SuperMap1.Selection.Style.PenColor=RGB(231,77,0)SuperMap1.Selection.Style.PenWidth=1SuperMap1.Selection.Style.PenStyle=1SuperMap1.Selection.Style.BrushStyle=5SuperMap1.Selection.Style.BrushColor=RGB(115,69,140)SuperMap1.Selection.Style.BrushBackColor=RGB(239,150,255)SuperMap1.Selection.Style.BrushOpaqueRate=50'释放内存SetobjDataSource=NothingSetobjLayer=NothingCase"退出"EndEndSelectEndSub帮助模块PrivateSubbb_Click()MsgBox"GIS全球查询系统1.3，有问题请联系我们！"EndSubPrivateSublx_Click()MsgBox"邮箱zhangbo208512@163.comEndSubPrivateSubwz_Click()Shell"explorer.exe/470170583/infocenter"EndSub3.2.4用户界面设计用户界面基于visualbasic开发提供，分为登陆界面与使用界面。登陆界面PrivateSubCommand1_Click()IfText1.Text="08"AndText2.Text="08"ThenGIS全球查询系统.ShowGIS全球查询系统3.HideElseMsgBox"密码或账号有错误，请重新输入！"，vbExclamationText1.Text=""Text2.Text=""EndIfEndSubPrivateSubCommand2_Click()EndEndSub图3.2.4（1）

需要账号密码，用户输入后即可享用。通过设置此项目可以保护用户的隐私与使用权。图3.2.4（2）用户使用界面本界面中提供了世界地图，用户在此界面中可以对地图信息实现查找，分析的功能。能够迅速定位用户所需的