MapX使用数据库数据添加专题图

楼主^#

更多发布于：2004-09-30 12:51

<PRE >本文描述了在MapX中添加专题图的方法，其中MapX中关于添加专题图的过程语法描述如下（介于英语水平太高，能认识的英文字母大概还有二十多个，实在不愿意打开金山词霸给大家进行高质量的翻译，哈哈）：</PRE><PRE > </PRE><PRE>OBJECT.Add ([Type], [Field], [Name], [ComputeTheme]) </PRE><PRE> </PRE><PRE>OBJECT Represents a Themes object.</PRE><PRE >Type Specifies the type of thematic map to create. This takes a ThemeTypeConstants value. This is an optional parameter, and if not specified (or specified as miThemeAuto), MapX will attempt to choose a good default based on the number of fields passed in as well as what other theme types are already being displayed. If MapX cannot choose a default theme type, an error is generated.</PRE><PRE >Field(s) Specifies the field or fields to thematically map. A field can be specified by name, index, or by a Field object. If you are creating a theme using multiple variables (such as a bar chart or pie chart), pass in a Fields collection or an array of field names, indexes, or Field objects. This is an optional parameter, and if not specified, MapX uses the first numeric field of the Dataset.</PRE><PRE >Name Specifies the name of the thematic map. This is a String parameter. This is an optional parameter, and if not specified, MapX generates a name such as StatesBySales.</PRE><PRE >ComputeTheme Boolean. The default value is True which will calculate the theme from the table data. If the value is set to False an invisible theme object will be created with 10 ranges for IndividualValue themes and 5 ranges for Ranged themes. You can then manually set the minimum and maximum values to define the theme with Theme.DataMin and Theme.DataMax. For ranged themes you can manually set the theme ranges or calculate equal size ranges determined by the minimum (Theme.DataMin) and maximum (Theme.DataMax) values.</PRE><PRE> </PRE><PRE>关于专题图的风格共有以下几种：</PRE><PRE> miThemeRanged = 0 </PRE><PRE> miThemeBarChart = 1 </PRE><PRE> miThemePieChart = 2 </PRE><PRE> miThemeGradSymbol = 3 </PRE><PRE> miThemeDotDensity = 4 </PRE><PRE> miThemeIndividualValue = 5 </PRE><PRE> miThemeAuto = 6 </PRE><PRE> miThemeNone = 9</PRE><PRE>具体都是什么样，请自己写代码看看，哈哈</PRE><PRE> </PRE><PRE>下面是我写的部分代码：</PRE><PRE>unit Main;</PRE><PRE> </PRE><PRE>interface</PRE><PRE> </PRE><PRE>uses</PRE><PRE> Windows, Messages,{略去一部分} SysUtils, Variants, Classes;</PRE><PRE> </PRE><PRE>type</PRE><PRE> TfrmMain = class(TForm)</PRE><PRE> mapMain: TMap; {地图控件}</PRE><PRE> private</PRE><PRE> { Private declarations }</PRE><PRE> ThemesList : TStringList; {用来保存多个专题图的名称列表}</PRE><PRE> public</PRE><PRE> { Public declarations }</PRE><PRE> procedure ToAddThemes(style : integer; TheName : string); {添加专题图}</PRE><PRE> procedure ToDeleteThemes; {删除专题图}</PRE><PRE> end;</PRE><PRE> </PRE><PRE>var</PRE><PRE> frmMain: TfrmMain;</PRE><PRE> </PRE><PRE>implementation</PRE><PRE> </PRE><PRE>{$R *.dfm}</PRE><PRE> </PRE><PRE>{略去其他功能代码}</PRE><PRE> </PRE><PRE> </PRE><PRE>{</PRE><PRE> 添加专题图，参数style表示专题图风格，TheName表示图例标题</PRE><PRE>}</PRE><PRE>procedure TfrmMain.ToAddThemes(style : integer; TheName : string);</PRE><PRE> function DefaultName : string;{用来生成一唯一的名称}</PRE><PRE> begin</PRE><PRE> {我用的方法是取一个当前时间，两次调用本函数的时间间隔应该不会少于0.5秒，</PRE><PRE> 所以这个方法在这个项目中可以取得唯一的名称}</PRE><PRE> Result := 'YYT' + FormatDateTime('YYYYMMDDHHNNSSzzz',now);</PRE><PRE> end;</PRE><PRE>var</PRE><PRE> flds : array of string; {字段列表}</PRE><PRE> oBLayer : BindLayer; {绑定图层}</PRE><PRE> ds : Dataset; {MapX数据集}</PRE><PRE> i : integer; {循环变量}</PRE><PRE> thm : theme; {MapX专题图}</PRE><PRE> str : string; {用于保存字符串}</PRE><PRE>begin</PRE><PRE> {aqThemes可以是一个ADOQuery或者ADOTable，我使用的是ADOQuery。</PRE><PRE> 在这个ADOQuery中前四个字段分别是：</PRE><PRE> ID(唯一的数字或者字符串，一般为编号),</PRE><PRE> NAME(字符串，要素的标签),</PRE><PRE> X(浮点数，要素的经度或者横坐标),</PRE><PRE> Y(浮点数，要素的纬度或者纵坐标)。</PRE><PRE> 后面的其它字段都是数字类型，用来表示相关的数据。</PRE><PRE> </PRE><PRE> ◎请参考我的文章《从数据库绘制MapX图层（二）》，</PRE><PRE> url是<a href="http://dev.csdn.net/article/31/31719.shtm" target="_blank" >http://dev.csdn.net/article/31/31719.shtm</A></PRE><PRE> }</PRE><PRE> if not aqThemes.Active then</PRE><PRE> begin</PRE><PRE> dmData.GiveMsg('系统基础表没有打开！');</PRE><PRE> exit;</PRE><PRE> end;</PRE><PRE> try</PRE><PRE> {取一个唯一的名字，}</PRE><PRE> str := DefaultName;</PRE><PRE> </PRE><PRE> {设置绑定图层的属性}</PRE><PRE> oBLayer := coBindLayer.Create;</PRE><PRE> progress.StepPlus(2);</PRE><PRE> oBLayer.LayerName := str;</PRE><PRE> oBLayer.LayerType := miBindLayerTypeXY;</PRE><PRE> oBLayer.RefColumn1 := 'X';</PRE><PRE> oBLayer.RefColumn2 := 'Y';</PRE><PRE> </PRE><PRE> {下面的调用和我在《从数据库绘制MapX图层（二）》使用的方法一样，</PRE><PRE> 请参考我的那篇文章，url是<a href="http://dev.csdn.net/article/31/31719.shtm%7D" target="_blank" >http://dev.csdn.net/article/31/31719.shtm}</A></PRE><PRE> </PRE><PRE> ds := mapMain.Datasets.Add(12,</PRE><PRE> aqThemes.Recordset,</PRE><PRE> str,</PRE><PRE> 'ID',</PRE><PRE> EmptyParam,</PRE><PRE> oBLayer,</PRE><PRE> EmptyParam,</PRE><PRE> EmptyParam);</PRE><PRE> {组织专题图现实的数据字段，存储在字符串数组中}</PRE><PRE> SetLength(flds,aqThemes.Fields.Count - 3);</PRE><PRE> for i:=3 to aqThemes.Fields.Count - 1 do</PRE><PRE> begin</PRE><PRE> flds[i - 3] := aqThemes.Fields.Fields.FieldName;</PRE><PRE> end;</PRE><PRE> {实际添加专题图的过程}</PRE><PRE> thm := ds.Themes.Add(style,flds,DefaultName,EmptyParam);</PRE><PRE> {设置专题图图例标题}</PRE><PRE> thm.Legend.Title := TheName;</PRE><PRE> {记录新添加的专题图名称}</PRE><PRE> ThemesList.Add(str);</PRE><PRE> {btnDeleteThemes是一个在本窗口上的按钮，用来删除专题图，</PRE><PRE> 添加专题图后就将他显示出来，如果删除了全部专题图就将他隐藏}</PRE><PRE> btnDeleteThemes.Visible := true;</PRE><PRE> except</PRE><PRE> GiveMsg('创建专题图失败！');{自定义过程，给出出错提示}</PRE><PRE> end;</PRE><PRE>end;</PRE><PRE> </PRE><PRE>{</PRE><PRE> 删除专题图，我采用的方法是删除所有专题图</PRE><PRE>}</PRE><PRE>procedure TfrmMain.ToDeleteThemes;</PRE><PRE>var</PRE><PRE> i : integer; {循环变量}</PRE><PRE>begin</PRE><PRE> for i:=0 to ThemesList.Count-1 do{循环所有添加了的专题图}</PRE><PRE> begin</PRE><PRE> {删除数据集}</PRE><PRE> mapMain.Datasets.Remove(ThemesList.Strings);</PRE><PRE> {删除专题图}</PRE><PRE> mapMain.Layers.Remove(ThemesList.Strings);</PRE><PRE> {如果只想删除某一个专题图，不用循环就行了}</PRE><PRE> end;</PRE><PRE> {此时已经没有专题图了，将删除专题图按钮隐藏}</PRE><PRE> btnDeleteThemes.Visible := false;</PRE><PRE> {清除专题图名称列表}</PRE><PRE> ThemesList.Clear;</PRE><PRE>end;</PRE><PRE> </PRE><PRE>//...</PRE><PRE> </PRE><PRE>end.</PRE>

喜欢0 评分0

GIS麦田守望者，期待与您交流。

举报回复

gis

管理员

注册日期2003-07-16
发帖数15951
QQ
铜币25345枚
威望15368点
贡献值0点
银元0个

加关注写私信

1楼^#

发布于：2004-09-30 12:52

从数据库绘制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;这个方法比上文提到的方法应该快了很多很多，哈哈～～

GIS麦田守望者，期待与您交流。

举报回复喜欢评分

gis

管理员

注册日期2003-07-16
发帖数15951
QQ
铜币25345枚
威望15368点
贡献值0点
银元0个

加关注写私信

2楼^#

发布于：2004-09-30 12:54

从数据库绘制MapX地图 <DIV>主题：MapX Delphi数据库地图 Layer Style Font</DIV><DIV> </DIV><DIV></DIV><DIV>本文将带你从数据库中取数据在MapX上画出来。</DIV><DIV>1、在数据库中建立如下的表用于存储坐标：</DIV><DIV>ID integer //唯一编号</DIV><DIV>Name string //名称(标签)</DIV><DIV>X float //地图坐标X</DIV><DIV>Y float //地图坐标Y</DIV><DIV>假设这个表命名为XUnit</DIV><DIV>2、编辑MapX地图，添加一个新的Layer，定义好你希望将来添加图层显示样式，然后设置这个图层不可见、不可编辑，此图层名称假设为“企事业单位”。</DIV><DIV>3、在你的程序中添加MapX控件，命名为Map1</DIV><DIV>4、在窗口中添加BDE或者ADO组件并连接到你的数据库，假设你添加了AdoConnection1和ADOTable1并且把他们的相关属性都设好了ADOTable1中应该是上述表中的全部内容。</DIV><DIV>5、添加按钮，并在按钮中添加Click时间代码如下：</DIV><DIV>procedure TForm1.Button1Click(Sender: TObject);</DIV><DIV>var</DIV><DIV> lyr : layer;//层</DIV><DIV> fts : feature;//特征</DIV><DIV> pt : point;//点</DIV><DIV> mstyle : style;//样式</DIV><DIV> str : string;//特征标注</DIV><DIV> x,y : double;</DIV><DIV>begin</DIV><DIV> lyr := Map1.Layers.CreateLayer('tempAnimate', EmptyParam,1,EmptyParam, EmptyParam);</DIV><DIV> //在Map1中创建一个Layer</DIV><DIV> Map1.Layers.AnimationLayer := lyr;//设为当前层</DIV><DIV> </DIV><DIV> lyr.Editable := true;//可编辑</DIV><DIV> pt := copoint.Create;</DIV><DIV> mstyle := costyle.Create;</DIV><DIV> mstyle := map1.Layers.item('企事业单位').AllFeatures.Item(1).Style;//此处获取在层“企事业单位”中存储的特征样式</DIV><DIV> lyr.Style := map1.Layers.item('企事业单位').Style;//层的样式</DIV><DIV> lyr.LabelProperties.Style := map1.Layers.item('企事业单位').LabelProperties.Style;//标签样式</DIV><DIV> adotable1.First;</DIV><DIV> while not adotable1.Eof do</DIV><DIV> begin</DIV><DIV> X := adotable1.fieldbyname('X').AsFloat ;</DIV><DIV> y := adotable1.fieldbyname('Y').AsFloat;</DIV><DIV> str := adotable1.fieldbyname('Name').AsString;</DIV><DIV> pt.Set_(x,y);</DIV><DIV> fts := map1.FeatureFactory.CreateSymbol(pt,mstyle);//创建特征</DIV><DIV> fts.KeyValue := str;//标注</DIV><DIV> lyr.AddFeature(fts,emptyparam);//将特征添加到层</DIV><DIV> adotable1.Next;</DIV><DIV> end;</DIV><DIV> lyr.AutoLabel := true;//自动标注</DIV><DIV> lyr.Visible := true;//可见</DIV><DIV> lyr.ZoomMin := 0;//缩放范围</DIV><DIV> lyr.ZoomMax := 77;</DIV><DIV>end;</DIV><DIV>6、按照以上步骤我们可以直接将数据库中的数据在地图上表现出来，当然我们只是表现了特征点，并没有表现那些区域等其他东西，其他东西应该也可以，不过我用不到，哈哈。。</DIV>

GIS麦田守望者，期待与您交流。

举报回复喜欢评分

hsxljwht 路人甲注册日期2004-10-06 发帖数59 QQ 铜币253枚威望0点贡献值0点银元0个加关注写私信	3楼^# 发布于：2004-10-10 06:06 <P>study</P>
	举报回复(0) 喜欢(0) 评分

您需要登录后才可以回帖，登录或者注册

MapX使用数据库数据添加专题图

最新喜欢：