本科毕业论文基于mapgis的汾河上游信息系统的设计与实现(编辑修改稿)

本科毕业论文基于mapgis的汾河上游信息系统的设计与实现(编辑修改稿)内容摘要：

(控件 ) 数据管理组件 图形显示组件 图层管理组件 地图管理组件 / 图例管理组件 图库管理组件 图像分析管理组件 图形编辑控件 工程管理控件 属性编辑控件 属性结构编辑控件 GIS 通用功能组件 (控件 )集合提供了 MAPGIS 平台的通用处理功能。 通用 功能组件基于数据管理组件构造而成，它们具有面向通用 GIS 功能；图形显示对象 MAPGISDC 封装了 MAPGIS 的基本显示操作；图层对象 Layer 封装了点、线、区、网文件的数据管理功能；地图对象 Map 封装了对MAPGIS 基本图形的编辑 /输出操作和对多个图层的管理功能；图例对象 Legend 封装了点、线、区图例元素的管理和操作功能，并提供了管理图例文件存储和图例元素的功能； MSI 对象封装了对图像工作区的操作和显示，并提供了矢量数据和栅格数据的相互转换功能； DBS 对象封装了操作和显示图库工作区的方法。 同时， MAPGIS 组件开发平台还提供了几个可视化控件 EditView 控件对象，包括点编辑、线编辑、区编辑、数字化、矢量化及其他操作功能； MapTreeCtrl 控件对象封装了与Map 对象的交互操作功能； GisAttEdit 控件对象主要用来浏览和编辑 MAPGIS 属性数据； AttStruEdit控件对象主要用来浏览和编辑 MAPGIS 属性结构。 首先将需要的组件和控件在 WINDOWS 注册表或 REGSUV 命令进行注册，这样就可以像使用普通 VB 的 ACTIVE X 控件一样使用 MAPGIS 控件了。 系统部分 VB 代码： 数据处理模块 该 函数用来打开文件，可以是点，线或面。 Public Function loadfile(ByVal aiType As Enum_Area_Type) Dim pntai As PntArea Dim linai As LinArea Dim regai As RegArea Dim myform As New frmDocument loadfile = 0 Select Case aiType 8 Case gisPNT: Set pntai = New PntArea If Then loadfile = 1 = gisPNT Set = pntai = pntai , , , End If Case gisLIN: Set linai = New LinArea If Then loadfile = 1 = gisLIN Set = linai = linai , , , End If Case gisREG Set regai = New RegArea If Then loadfile = 1 = gisREG Set = regai = regai , , , End If Case Else End Select If loadfile Then = False Else Set myform = Nothing End If Set pntai = Nothing Set linai = Nothing Set regai = Nothing End Function 9 SQL 过程 Private Sub sql_Click() Dim objQuery As New Dim regnum As Long Dim objIDList As New IDList = linai Set objIDList = (gisREG_ENTITY) If Not objIDList。