|
从数据库绘制MapX地图（二） 主题：MapX Delphi数据库 地图 Layer Style Font 我在二〇〇四年四月十五日发表文章《从数据库绘制MapX地图》之后，我收到大量读者的来信，由于繁忙，不能一一回复，在这里对此表示真诚的歉意！仅以此文感谢对我表示支持的众位兄弟姐妹，谢谢你们。 这里提供的是一种更为高效的从数据库绘制MapX地图的方法，我在数据库中建立了如下的数据表： 表名称：Xunit ID ：字符串 //用于唯一标识各个图元，也可以是数字类型的 NAME ：字符串 //图元的名称 X ：浮点数 //图元横坐标 Y ：浮点数 //图元纵坐标 代码清单： //aqXUnit是一个TADOQuery，其中SQL语句为“SELECT * FROM XUNIT”。 procedure TfrmMain.DrawLayerFromDB; var oBLayer : BindLayer; SearchLayer : Layer; ds : Dataset; begin //使用这个过程必须保证aqXUnit表已经打开！ if not aqXUnit.Active then begin GiveMsg(''''系统基础表没有打开！'''');//调用自定义提示方法 exit; end; //创建BindLayer，非常讨厌半英半汉，没办法，不会翻译^_^ oBLayer := coBindLayer.Create; oBLayer.LayerName := ''''ARTEMIS''''; oBLayer.LayerType := miBindLayerTypeXY;//必须使用这个参数才能绑定XY坐标 oBLayer.RefColumn1 := ''''X'''';//第一个参数必须指定为横坐标 oBLayer.RefColumn2 := ''''Y'''';//纵坐标 //添加数据集 ds := mapMain.Datasets.Add(12,//数据集类型，这是miDataSetADO，即ADO专用的 aqXUnit.Recordset,//使用这个方法获得ADO中的_Recordset类型 ''''DS_SK'''',//数据集名称 ''''ID'''',//传入的是Xunit表中的字段ID的名称 EmptyParam, oBLayer,//BindLayer EmptyParam, EmptyParam); //下边将设置新图层的各项属性 searchLayer := mapMain.Layers.Item(''''ARTEMIS''''); //字体颜色 searchLayer.LabelProperties.Style.TextFontColor := miColorPurple; searchLayer.LabelProperties.Style.TextFontHalo := true; searchLayer.LabelProperties.Style.TextFontBackColor := miColorWhite; //设置图元显示的标签 searchLayer.LabelProperties.Dataset := ds; searchLayer.LabelProperties.DataField := ds.Fields.Item(''''NAME''''); searchLayer.LabelProperties.LabelZoom := true; //设置图层缩放比例范围 searchLayer.ZoomMin := 0; searchLayer.ZoomMax := 200; searchLayer.ZoomLayer := true; //设置标签缩放比例范围 searchLayer.LabelProperties.LabelZoomMin := 0; searchLayer.LabelProperties.LabelZoomMax := 200; searchLayer.LabelProperties.LabelZoom := true; //自动标记图元 searchLayer.AutoLabel := true; end; 这个方法比上文提到的方法应该快了很多很多，哈哈～～ 杨雨田 YangYutian@Hotmail.Com 二〇〇四年七月十三日
[Delphi程序]从数据库绘制MapX地图
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
