mapobejcts组件应用设计(地图数据的创建与编辑)

《mapobejcts组件应用设计(地图数据的创建与编辑)》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、MapObejcts组件应用设计(地图数据的创建与编辑)1.Recordset表的记录指针2.编辑属性表已有数据3.添加新记录4.删除记录5.FeatureID6.创建数据库表1.定义并创建一个新表2.创建子集数据库表7.TrackingLayer图层与GeoEvent对象1.TrackingLayer图层2.GeoEvent对象3.TrackingLayer图层的属性和方法2.6.1Recordset对象Recordset是MapObjects中的一个对象，它为图层(MapLayer)提供地图数据，又是地图数据的管理者与操作

2、者，因此，地图数据的创建和编辑在Recordset上进行。每个MapLayer对应一个Recordset,仅对应一个Recordset,是Recordset的可视化。从数据库的观点看，Recordset是一个数据表，概念与数据表一致，图形数据储存在表的一个字段(shape)中。Recordset是记录的集合,提供了对记录及字段的操作方法。ShapeFile是ESRI公司定义的一种无拓扑关系的地理信息文件格式，是MapObjects固有数据格式，在这种格式上实现了读写、修改、编辑功能。ShapeFile用一组文件储存一个图层数据

3、，同一图层各文件的主名相同，用作图层名。扩展名标识文件的内容，分别是：.shp储存几何要素.shx储存几何要素索引.dbf　储存几何要素的属性数据，是dBase文件，可用FoxPro软件操作这一组文件映射成一个Recordset表。表中含有.dbf文件的全部字段，还有两个由Recordset对象添加的字段：Shape和FeatureID。两个添加字段的值来自于文件.shp和.shx。例如,china图层的三个组成文件是:china.shp,china.shx,china.dbf。china.dbf的字段名是：name,gdp1

4、990,gdp1995,那么,Recordset形成的表是：ShapeFeatureIDNamegdp1990gdp1995Polygon1新疆121190Polygon3河北221440Recordset对象封装了表及在表上的操作，在Recordset中，表的一行称为一个记录，表的一列称为一个字段，列的名称称为字段名。在这个例子中，有5个字段,2个记录。第一行是字段名行，不是记录。shape字段的每一个值是一个几何图形元素，用几何对象定义。FeatureID是图形元素的索引号。Shape、FeatureId是Recordse

5、t对象生成的标准字段，对于Coverage、SDE、CAD、VPF等格式数据形成的Recordset表也是如此。1Recordset表的记录指针Recordset表从概念上看，是记录的集合。记录是集合中的成员，用指针确定在表中的位置。在表中移动指针可以定位记录。例1Map1中含有china图层,属性如前表所示。编程显示属性表中的数据（完整程序见recordPointer目录）。PrivateSubCommand1_Click()‘记录指针定位DimrecsAsMapObjects2.RecordsetSetrecs=Map1.

6、Layers(“china”).Recordsrecs.MoveFirst‘指针指向记录1Debug.Printrecs.Fields(“name”).Value,recs.Fields(“gdp1995”).Value‘输出：新疆190recs.MoveNext‘指针指向记录2recs.MoveNext‘指针指向记录3Debug.Printrecs.Fields(“name”).Value,recs.Fields(“gdp1995”).Value‘输出：河北440EndSubRecordset的指针定位方法：recs.Mov

7、eFirst指针指向记录1开始位置recs.MoveNext指针指向下一条记录开始位置recs.MovePrevious指针指向前一条记录开始位置recs.EOF指针指向最后一条记录的末端时返回TRUE,否则返回FALSE2编辑属性表已有数据编辑记录在Recordeset对象上进行，每次编辑一条记录，程序设计顺序依次是：(1)移动记录指针到要编辑的记录(2)读取当前记录到缓冲区中(3)编辑修改当前记录字段的值(4)更新当前记录(5)全部记录编辑完后，停止编辑例2编辑China属性表，将gdp1995字段的值增加1（完整程序见r

8、ecordPointer目录）。PrivateSubCommand2_Click()‘编辑记录中的属性数据DimrecsAsMapObjects2.RecordsetDimfldAsMapObjects2.FieldSetrecs=Map1.Layers(“china”).R