第章特征查找.docVIP

第8章　特征查找 特征是GIS图上的各种元素的统称，如图形对象(点、线、多边形等)以及它们的基本结构(结点、弧段、标识点等)、各种符号和标注等。特征是描述地图的最基本的数据单位。因此我们把和GIS图有关的查找都称之为特征查找。 GIS系统中既包含空间数据，又包含和其相关联的属性数据。我们可以通过属性数据查找宁问数据，也可以通过一个空间数据来查找另外的空间数据，还可以通过空间数据查找属件数据。另外，我们还可以用SQL语言来加入复杂的限制条件进行查找。 在MO中可以用SearchExpression(表达式查找)、SearchByDistance(距离查找)和SearchShape〔图形查找)来实现各种复杂的查找关系。 8.1 SearchExpression（表达式查找） 8.1.1　SearchExpression定义 SearchExpression方法是利用查找属性数据库（dbf）中的数据，实现对GIS特征的查找。该方法定义为： Set variable = object.SearchExpression(expression) 其中： Variable：记录集变量； Object：对象，一般为图层对象； Expression：以SQL语言说明的字符串表达式。 注意： （1）由于已经指定了图层，也就是指定了数据表，因此不需要前面的SELECT语句，只是后面的WHERE字句即可。 （2）表达式中的字符要用单引号，如States = ‘California’。 （3）用百分号％表示多种选择，如STATE_NAME like ‘M％’。 （4）用下划线_表示位数，如STATE_NAME like ‘M ____’(4个下划线)，只能返回Maine州。 （6）如果要操作较大的记录集(比如100000条记录)，建议采用SDE，而不是用Shapefiles。但是SDE不支持ORDER BY语句。 8.1.2　使用SearchExpression进行简单查找 以下例子用表达式”STATE_ID = 24”来查找墨西哥地图上序号为24的州，并用另外一种颜色来显示它。 （工程Chapter801—Form01） Option Explicit Dim g_symSelection As MapObjects2.Symbol Dim recSelection As MapObjects2.Recordset Private Sub Form_Load() Dim strExpression As String DrawLayer 查找 strExpression = STATE_ID 24 AND STATE_ID 27 strExpression = STATE_ID = 24 Set recSelection = Map1.Layers(0).SearchExpression(strExpression) 设置显示模式 Set g_symSelection = New MapObjects2.Symbol g_symSelection.SymbolType = Map1.Layers(0).Symbol.SymbolType g_symSelection.color = moDarkGreen End Sub Sub DrawLayer() Dim dc As New DataConnection Dim layer As MapLayer dc.Database = App.Path + \..\ + Mexico If Not dc.Connect Then MsgBox 在指定的文件夹下没找到图层数据文件！ End End If Set layer = New MapLayer Set layer.GeoDataset = dc.FindGeoDataset(States) layer.Symbol.color = moYellow Map1.Layers.Add layer Map1.Refresh End Sub Private Sub Map1_AfterLayerDraw(ByVal index As Integer, ByVal canceled As Boolean, ByVal hDC As stdole.OLE_HANDLE) Map1.DrawShape recSelection, g_symSelection End Sub 8.1.3　查找结果闪烁显示 　　本例在上一个简单示例的基础上进行扩展，实现点击Command1查询，从STATE＿ID为1起，到最后为止循环显示，并用FlashShap