GIS软件开发课程设计报告书1Word下载.docx
- 文档编号:16226112
- 上传时间:2022-11-21
- 格式:DOCX
- 页数:14
- 大小:738.90KB
GIS软件开发课程设计报告书1Word下载.docx
《GIS软件开发课程设计报告书1Word下载.docx》由会员分享,可在线阅读,更多相关《GIS软件开发课程设计报告书1Word下载.docx(14页珍藏版)》请在冰豆网上搜索。
3.1.1用户需求
在系统具体设计前必须明确所要设计系统的用户需求,只有了解了用户的具体要求才能依此为依据进行系统具体功能的设计,这样设计的系统才有其存在的意义。
然而对于本系统来说其用户的需求是能够方便快捷的查询,分析世界地图上各个地区的一些基本的地理信息属性,例如面积,经纬度,距离等,并可以实现数据筛选功能。
同时操作要求便捷,数据要用文字,数字,图形等快速的显示出来。
3.1.2系统目标
全球地理查询系统的目标主要是实现中学课堂教学及一般科学普及单位科普工作的信息化,来满足当前社会发展趋势下用户要求,可以给用户提供一些最基本的地理信息,为了提高课堂教学以及科学普及工作的信息化,加快教育信息化发展,为地理教学科普而开发基于SuperMapObject6.0和VisualBasic语言GIS建立的全球地理查询系统,并希望通过这个系统使课堂地理教学信息化更加普及,系统目标如下:
(1)系统应能实现图形和属性的连接,实现用户对图形及属性的双向检索;
(2)系统具有快速对地理信息进行查询、空间分析与显示功能;
(3)系统应具有良好的扩展性与改进空间。
3.1.3总体结构
本课题所研究的全球地理查询系统根据用户的需要,实现了地理信息查询,以及测距,测面积的功能。
经过需求分析阶段的工作后,系统必须“做什么”的问题已经解决了,现在是解决“怎么做”这个问题的时候了。
总体设计的基本目的就是回答系统应该如何实现这个问题。
系统总体结构设计是要根据系统分析的要求和组织的实际情况来对新系统的总体结构形式进行大致设计,它是一种宏观、总体上的设计和规划。
1)全球地理查询系统主要功能是让用户方便对于基础地理信息的查询与分析工作,方便教学与科普活动。
2)数据的属性查询模块主要功能是对所属地区基本地理信息,例如面积,经纬度等的查询。
3)条件查询的主要功能是设置一条件,对于满足此条件的地域进行显示的功能。
系统功能总体结构图如图1:
图1、系统功能总结构图
3.1.4系统功能
本课题主要基本地理信息的查询分析服务,目的是为课堂教学更加科学更加人性化,是用户轻而易举就可以完成地理相关信息的查询与检索功能。
本系统重要包括五个独立的模块:
地图浏览模块,查询模块,娱乐模块,精确查询模块,帮助模块。
几个模块的使用大大提高了用户信息检索的效率与精确度,为用户提供了很大的方便。
3.2详细设计
3.2.1子系统设计
本系统主要分为5个独立的模块:
地图浏览模块、娱乐模块、精确查询模块、查询功能模块,帮助模块。
在地图浏览模块中,用户可以使用相关控件对地图进行漫游,放大,缩小,也可以根据个人需要进行自由缩放,以及全屏观看在娱乐模块中,为大家在学习工作之余提供了小游戏。
在精确查询模块中,进行SQL查询,根据用户的不同需求对信息进行检索,并对检索结果进行排序,并且可以保存输出查询结果。
在查询模块中,可以查询相关地域的属性,使用条件查询可以对地图上的符合查询条件的地点通过图像进行显示。
帮助模块用于对用户提供一定的帮助。
3.2.2数据库设计
由于是地理信息系统,全球地理查询系统数据库也应包括空间数据库和属性数据库,再此采用关系型数据库模式。
具体的属性数据以图表形式记录,而图形数据以拓扑关系记录。
并且在这些建立这些专题数据库时要注意各种专题信息的关系字段,保证互相之间都有联系。
数据建库时,要按照分类标准进行科学分类,要符合数据编码的一般要求:
(1)凡国家已施行的编码规范和标准,均按国家规定的执行;
(2)科学编码系统的设计必须可靠地识别数据信息的分类,以较少的代码提供丰富的参考信息,以及根据代码结构能进行数据间关系的逻辑推理和判别;
(3)编码不宜过长,一般为4—7位,以减少出错的可能性和节省存储空间。
对于多要素的数据信息,通过设置特征位来有效地压缩码位的长度;
(4)编码标准化,其内容包括统一的码位长度、一致的码位格式和明确的代码含义,不能出现代码的多义性等等。
此外,数据质量要严格控制,主要控制保证:
数据完整性、数据一致性、位置精度、时间精度、属性精度。
系统E-R图如图2:
图2、系统E-R
3.2.3功能模块设计
(1)查询功能模块
PrivateSubToolbar2_ButtonClick(ByValButtonAsMSComctlLib.Button)
SelectCaseButton
Case"
属性查询"
SuperMap1.Action=scaSelect
条件查询"
DimobjDsAssoDataSource'
数据源
DimobjDtVectorAssoDatasetVector'
矢量数据集
DimobjRecordsetAssoRecordset'
记录集
DimobjSelectionAssoSelection'
选择集
'
取矢量数据集:
取其中面数据集"
World"
进行查询
SetobjDs=SuperWorkspace1.Datasources.Item("
MyDataSource"
)
IfobjDsIsNothingThenExitSub
SetobjDtVector=objDs.Datasets("
IfobjDtVectorIsNothingThen
MsgBox"
打开数据集错误"
vbInformation
ExitSub
EndIf
'
使用SQL过滤条件安从数据集中查询出记录集,
SetobjRecordset=objDtVector.Query(txtExpression.Text,True)
IfobjRecordsetIsNothingThen
Else
将查询结果加入到选择集中,使其高亮显示
SetobjSelection=SuperMap1.Selection
objSelection.FromRecordsetobjRecordset
刷新地图窗口
SuperMap1.Refresh
SetobjDtVector=Nothing
SetobjRecordset=Nothing
SetobjSelection=Nothing
EndSelect
EndSub
PrivateSubCommand1_Click()
Dims1AsString
Dims_idAsString
Dims_namAsString
IfText1.Text="
"
Then
s_id="
%"
s_id=Text1.Text
IfText2.Text="
s_nam="
s_nam=Text2.Text
s1="
select*fromgoodswhereidlike'
+s_id+"
andnamlike'
+s_nam+"
Adodc1.RecordSource=s1
Adodc1.Refresh
open"
c:
\1.txt"
forinputas#1
rs.open"
select*fromtable_awhere字段1notin(select字段1fromtable_b)"
conn
whilenotrs.eof
print#1,rs("
字段1"
rs.movenext
wend
rs.close
close#1
\2.txt"
select*fromtable_awhere字段1in(select字段1fromtable_b)"
(2)娱乐模块
PrivateSubToolbar3_ButtonClick(ByValButtonAsMSComctlLib.Button)
游戏"
Shell"
C:
\DocumentsandSettings\Administrator\桌面\VisualBasic6.0\ddchess.exe"
音乐"
F:
\KuGou2010\KuGoo.exe"
惊喜"
Print"
售价100万,地科免费!
FontName="
黑体"
FontItalic=True
FontSize=48
(3)精确查找模块
PrivateSubbtnSQL_Click()
frmSQLExpression.ShowvbModal,Me
PrivateSubbtnShowDt_Click()
DimiAsInteger
DimobjDsAssoDataSource
DimobjDtAssoDataset
IfbtnShowDt.Caption="
显示生成的数据集"
SetobjDs=SuperWorkspace1.Datasources
(1)
IfstrDtName="
ThenExitSub
SuperMap1.Layers.RemoveAll
SetobjDt=objDs.Datasets(strDtName)
SuperMap1.Layers.AddDatasetobjDt,True
btnShowDt.Caption="
显示全部图层"
Fori=1ToobjDs.Datasets.Count
SetobjDt=objDs.Datasets(i)
Next
(4)地图浏览模块
PrivateSubToolbar1_ButtonClick(ByValButtonAsMSComctlLib.Button)
放大"
SuperMap1.Action=scaZoomIn
缩小"
SuperMap1.Action=scaZoomOut
自由缩放"
SuperMap1.Action=scaZoomFree
漫游"
SuperMap1.Action=scaPan
选择"
全屏"
SuperMap1.ViewEntire
演示"
建立地图窗口与工作空间的联系,用于显示数据
SuperMap1.ConnectSuperWorkspace1.Objec
DimstrAliasAsString'
数据源别名
DimnEngineTypeAsseEngineType'
数据源引擎类型
DimstrDatasourceNameAsString'
数据源所在路径
DimobjDataSourceAssoDataSource'
数据源对象,指向打开的数据源
DimbReadOnlyAsBoolean'
数据源是否只读打开
DimobjLayerAssoLayer'
图层对象变量,指向将要打开的图层
DimbAddToHeadAsBoolean'
是否将数据集加到地图最上一层显示
DimiAsInteger'
数据集索引
strAlias="
别名可任意,但建议取数据源文件名相同的名称nEngineType=sceSDBPlus'
可打开不同引擎的数据源
strDatasourceName="
\DocumentsandSettings\Administrator\桌面\VisualBasic6.0\world.sdb"
数据源所在路径,也可以是相对路径
bReadOnly=False'
非只读打开
SetobjDataSource=SuperWorkspace1.OpenDataSource(strDatasourceName,strAlias,nEngineType,bReadOnly)
IfobjDataSourceIsNothingThen
打开数据源失败!
Fori=1ToobjDataSource.Datasets.Count
把数据源中的所有数据集加入到SuperMap中显示
bAddToHead=True
SetobjLayer=SuperMap1.Layers.AddDataset(objDataSource.Datasets.Item(i),bAddToHead)
SuperMap1.Refresh'
可定制选中对象风格,或保持默认
SuperMap1.Selection.Style.PenColor=RGB(231,77,0)
SuperMap1.Selection.Style.PenWidth=1
SuperMap1.Selection.Style.PenStyle=1
SuperMap1.Selection.Style.BrushStyle=5
SuperMap1.Selection.Style.BrushColor=RGB(115,69,140)
SuperMap1.Selection.Style.BrushBackColor=RGB(239,150,255)
SuperMap1.Selection.Style.BrushOpaqueRate=50
释放内存
SetobjDataSource=Nothing
SetobjLayer=Nothing
退出"
End
(5)帮助模块
PrivateSubbb_Click()
MsgBox"
GIS全球查询系统1.3,有问题请联系我们!
PrivateSublx_Click()
邮箱jj@"
PrivateSubwz_Click()
explorer.exe
3.2.4用户界面设计
用户界面基于visualbasic开发提供,分为登陆界面与使用界面。
登陆界面
IfText1.Text="
08"
AndText2.Text="
GIS全球查询系统.Show
GIS全球查询系统3.Hide
Else
密码或账号有错误,请重新输入!
vbExclamation
Text1.Text="
Text2.Text="
EndIf
PrivateSubCommand2_Click()
图3.2.4
(1)
需要账号密码,用户输入后即可享用。
通过设置此项目可以保护用户的隐私与使用权。
图3.2.4
(2)用户使用界面
本界面中提供了世界地图,用户在此界面中可以对地图信息实现查找,分析的功能。
能够迅速定位用户所需的地理信息包括人口,面积,经纬度等。
用户除了可以使用主界面已有功能外,另外还可以实现SQL查询(界面如下图)
图3.2.4(3)
图3.2.4(4)输入相应条件
用户通过输入相应条件,可以检索符合条件的所有结果并对其进行排序,结果如下图图3.2.4(5),3.2.4(6)
图3.2.4(5)文本显示结果
图3.2.4(6)图片显示结果
通过浏览结果,用户可以查询到符合条件的地区以及其基本地理信息。
4设计结论
全球地理查询系统基于SuperMapObject6.0和VisualBasic的GIS,通过利用信息技术手段,为用户提供传统教学享受不到的便利,界面友好,操作简单,运行过程中反应便捷,迅速,极大提高了教育教学的效率,与传统方式相结合,可以达到相当好的教学效果。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- GIS 软件 开发 课程设计 报告书
![提示](https://static.bdocx.com/images/bang_tan.gif)