GIS二次开发11.pptVIP

GIS二次开发－使用MapObjects(L11) 2005.4.6 5.2.1根据要素查询属性 高级查询 关联外部数据表 多媒体属性查询 关联外部数据表（Join) MO中涉及到的对象：MapLayer 方法：AddRelate Method 在一个MapLayer的记录集与另外一个数据表的记录集之间建立关联. 语法： object.AddRelate( toField, sourceTable, fromField,[checkFields as Boolean]) 参数说明： object ：一个MapLayer 对象 toField ：与 MapLayer对象相关的记录集中的一个关键字段 sourceTable 要与MapLayer 对象的记录集进行关联的外部数据表. 参数说明： fromField ：外部数据表中的一个关键字段 checkFields (可选参数)：一个布尔值，用于指定AddRelate 方法在关联数据表之间是否对外部数据表中的字段执行额外的检查 注意： AddRelate 在一个MapLayer 和一个数据表间建立关联。 其结果集包含来自MapLayer中的所有记录及外部数据表中属性字段。如果在外部数据表中找到与fromField 与toField 字段的值对应的记录，则新的属性字段就有相应的匹配值。 你应确保由sourceTable 指定的外部数据表中的字段名称与MapLayer对象中的字段名称不同，, 也就是说你不能在返回的记录集中有两个名称相同的字段。 在使用AddRelate 方法时，将对外部数据表sourceTable执行潜在的一些检查，以确保关联操作是否可进行。 以下这些操作被执行： 外部数据表是否确实存在？ 如果是, 那么指定的字段存在吗？ 如果以上都满足, 指定的字段类型是不是以下这些? 支持关联的字段类型是：数值型, 字符/字符串字段、布尔型。如果toField 或 fromField 其中的任何一个不是被支持的类型那么 AddRelate将返回假False, 关联也不会成功。 参数checkFields 的缺省值是真True。 当参数checkFields为真True时, AddRelate 方法对外部数据表中的关键字段fromField执行进一步的检查。以下以被执行的检查: 字段fromField 是不是外部数据表sourceTable的关键字段（Key）? 如果不是, 是否在fromField 字段上建立了索引？ (MapObjects 不会使用fromField 的索引, 只是查看fromField字段上是否存在索引, 这样有助于可以从要关联的数据源中更快速返回关联信息) 如果不是, 就在 fromField 字段上创建索引并检查是否成功? 如果以上的任一个条件为真, 那么AddRelate 将成功执行。 实例 5.4 将图层与外部数据连接 程序界面 程序代码： ‘ 本例需要引用 ADO 2.5 对象库 Option Explicit Dim pTable As New MapObjects2.Table 要关联的外部数据表 Dim pLyr As New MapObjects2.MapLayer 要关联的图层 Private Sub Command2_Click() 加入图层 Dim recs As New MapObjects2.Recordset ConnectToShapefile App.Path, 科考旅游 Set recs = Map1.Layers(0).Records Map1.Layers.Item(0).Symbol.Color = moGray Call ResetListBox End Sub Sub ConnectToShapefile(databaseStr As String, lyrName As String) 加载图层 Dim dc As New MapObjects2.DataConnection Dim gds As MapObjects2.GeoDataset Set pLyr = New MapObjects2.MapLayer dc.Database = databaseStr Set gds = dc.FindGeoDataset(lyrName) Set pLyr.GeoDataset = gds Map1.Layers.Add pLyr End Sub Public Sub ResetListBox() Dim recs As MapObjects2.Recordset Reset the Recordset variable Set re