实验五数据查询与简单空间分析..docxVIP

实验五数据查询与简单空间分析实验数据：country.shp、rivers.shp、cities.shp实验内容：数据查询 简单空间分析 实验要求1、数据查询 这部分实验要求基于FeatureCursor对象和IFeatureCursor接口提供的属性和方法，扩展TOCControl的功能，通过鼠标右键点击某个图层，弹出快捷菜单，打开相应的属性信息表（属性表显示可以用VB自带的MSFlexGrid控件）。右键点击某个图层弹出“打开属性表”的快捷菜单示意图打开属性表后的示意图 Form16.MSFlexGrid.TextMatrix(i, j) = CStr(pFeatureLayer.FeatureClass.GetFeature(i).Value(j)) + Next j Next iEnd Function Form16.MSFlexGrid.Cols = pFeatureLayer.FeatureClass.Fields.FieldCount For i = 0 To pFeatureLayer.FeatureClass.Fields.FieldCount - 1 Form16.MSFlexGrid.TextMatrix(0, i) = pFeatureLayer.FeatureClass.Fields.Field(i).AliasName Next i Dim pQFilt As IQueryFilter代码： Form16.MSFlexGrid.Rows = 2 Set pQFilt = New QueryFilter Form16.MSFlexGrid.Rows = 2 pFeatureLayer.FeatureClass.FeatureCount(pQFilt) + 1i = 1 For i = 1 To pFeatureLayer.FeatureClass.FeatureCount(pQFilt) For j = 0 To pFeatureLayer.FeatureClass.Fields.FieldCount - 1pFeatureLayer.FeatureClass.GetFeature(i).Value(j)CStr(pFeatureLayer.FeatureClass.GetFeature(i).Shape.GeometryType)QueryFilter对象SpatialFilter对象 QueryFilter过滤器对象主要用于对属性数据查询条件的设置，它主要实现IQueryFilter接口从而实现属性查询功能。它用于限制从单个表或特征类获取的行集或列集。它也用在许多需要指定表中的数据子集的情形中。这个对象及IQueryFilter接口在实验三的“从属性到图形要素的综合查询”部分已经使用过，请同学们再回顾下它的具体用法。①基于SpatialFilter对象实现点图选择及查询功能点击国家图层中的某个国家，在列表框中返回所点击国家的名字。点图查询国家示意图②基于SpatialFilter对象实现拉框、拉圆、多边形选择及查询功能通过拉矩形框、拉圆、画多边形方式选择城市图层中的城市，在列表框中返回所选择城市的名字。拉框选择城市示意图Set pFeatSelection = pFeatlyr2Set pFeatSelection1 = pFeatlyr2pFeatSelection1.SelectFeatures pfilter1, esriSelectionResultNew, FalseDim pCursor1 As ICursorpFeatSelection1.SelectionSet.Search Nothing, False, pCursor1Set pFeatCorsor = pCursor1Dim pFeat1 As IFeatureSet pFeat1 = pFeatCorsor.NextFeatureIf Not pFeat1 Is Nothing ThenMapControl1.DrawShape pFeat1.ShapeEnd if代码：Set pFeatlyr2 = MapControl1.Layer(0) 获取索引号为2的图层Dim penv As IGeometrySet penv = MapControl1.TrackRectanglepPoint.PutCoordsmapX, mapY 设置点的坐标为鼠标点击处的地图坐标Dim pfilter1 As ISpatialFilterSet pfilter1 = New SpatialFilter设置空间过滤器的三个必须的属性值 With pfilte