本文档展示了如何在Delphi应用程序中利用MapX4库，通过SQL查询从数据库创建并绑定名为'Walls'的图层。首先，设置数据集SQL语句，确保包含经度、纬度、编号和名称字段。接着，创建BindLayer对象，并指定坐标列。然后，将数据集添加到地图的Datasets中，并设置图层的样式、符号类型、标签属性等，确保图层在特定缩放级别下可见并自动调整标签显示。
procedure TFrmMain.CreateWallLayer;
//创建水井 图层
var
oBLayer : BindLayer;
SearchLayer : Layer;
ds : Dataset;
name:string;
begin
name:='Walls';
//更新地图显示图层对应的数据集
with ADOQGraphic do
begin
Close;
SQL.Clear;
Sql.Text:=strWallSql; //数据集的sql语句，其中必须要有经度，纬度，编号，名称这四个字段，其中编号是点在数据库中的标志，名称用来显示地图上点的名称
Open;
end;
oBLayer := coBindLayer.Create;
oBLayer.LayerName := name;
oBLayer.LayerType := miBindLayerTypeXY;//必须使用这个参数才能绑定XY坐标
oBLayer.RefColumn1 := '经度';//第一个参数必须指定为横坐标
oBLayer.RefColumn2 := '纬度';//纵坐标
//添加数据集
ds := MapMain.Datasets.Add(12,//数据集类型，这是miDataSetADO，即ADO专用的
ADOQGraphic.Recordset,//使用这个方法获得ADO中的_Recordset类型
//创建水井 图层
var
oBLayer : BindLayer;
SearchLayer : Layer;
ds : Dataset;
name:string;
begin
name:='Walls';
//更新地图显示图层对应的数据集
with ADOQGraphic do
begin
Close;
SQL.Clear;
Sql.Text:=strWallSql; //数据集的sql语句，其中必须要有经度，纬度，编号，名称这四个字段，其中编号是点在数据库中的标志，名称用来显示地图上点的名称
Open;
end;
oBLayer := coBindLayer.Create;
oBLayer.LayerName := name;
oBLayer.LayerType := miBindLayerTypeXY;//必须使用这个参数才能绑定XY坐标
oBLayer.RefColumn1 := '经度';//第一个参数必须指定为横坐标
oBLayer.RefColumn2 := '纬度';//纵坐标
//添加数据集
ds := MapMain.Datasets.Add(12,//数据集类型，这是miDataSetADO，即ADO专用的
ADOQGraphic.Recordset,//使用这个方法获得ADO中的_Recordset类型
最低0.47元/天 解锁文章
扫一扫
1773
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
