分享
 
 
 

MapX使用数据库数据添加专题图(系列之三)

王朝delphi·作者佚名  2006-01-30
窄屏简体版  字體: |||超大  

MapX使用数据库数据添加专题图(系列之三)

关键字:MapX Delphi 专题图

作者:杨雨田 blue_bat@126.com

本文描述了在MapX中添加专题图的方法,其中MapX中关于添加专题图的过程语法描述如下(介于英语水平太高,能认识的英文字母大概还有二十多个,实在不愿意打开金山词霸给大家进行高质量的翻译,哈哈):

OBJECT.Add ([Type], [Field], [Name], [ComputeTheme])

OBJECT Represents a Themes object.

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.

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.

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.

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.

关于专题图的风格共有以下几种:

miThemeRanged = 0

miThemeBarChart = 1

miThemePieChart = 2

miThemeGradSymbol = 3

miThemeDotDensity = 4

miThemeIndividualValue = 5

miThemeAuto = 6

miThemeNone = 9

具体都是什么样,请自己写代码看看,哈哈

下面是我写的部分代码:

unit Main;

interface

uses

Windows, Messages,{略去一部分} SysUtils, Variants, Classes;

type

TfrmMain = class(TForm)

mapMain: TMap; {地图控件}

private

{ Private declarations }

ThemesList : TStringList; {用来保存多个专题图的名称列表}

public

{ Public declarations }

procedure ToAddThemes(style : integer; TheName : string); {添加专题图}

procedure ToDeleteThemes; {删除专题图}

end;

var

frmMain: TfrmMain;

implementation

{$R *.dfm}

{略去其他功能代码}

{

添加专题图,参数style表示专题图风格,TheName表示图例标题

}

procedure TfrmMain.ToAddThemes(style : integer; TheName : string);

function DefaultName : string;{用来生成一唯一的名称}

begin

{我用的方法是取一个当前时间,两次调用本函数的时间间隔应该不会少于0.5秒,

所以这个方法在这个项目中可以取得唯一的名称}

Result := 'YYT' + FormatDateTime('YYYYMMDDHHNNSSzzz',now);

end;

var

flds : array of string; {字段列表}

oBLayer : BindLayer; {绑定图层}

ds : Dataset; {MapX数据集}

i : integer; {循环变量}

thm : theme; {MapX专题图}

str : string; {用于保存字符串}

begin

{aqThemes可以是一个ADOQuery或者ADOTable,我使用的是ADOQuery。

在这个ADOQuery中前四个字段分别是:

ID(唯一的数字或者字符串,一般为编号),

NAME(字符串,要素的标签),

X(浮点数,要素的经度或者横坐标),

Y(浮点数,要素的纬度或者纵坐标)。

后面的其它字段都是数字类型,用来表示相关的数据。

◎请参考我的文章《从数据库绘制MapX图层(二)》,

url是http://dev.csdn.net/article/31/31719.shtm

}

if not aqThemes.Active then

begin

dmData.GiveMsg('系统基础表没有打开!');

exit;

end;

try

{取一个唯一的名字,}

str := DefaultName;

{设置绑定图层的属性}

oBLayer := coBindLayer.Create;

progress.StepPlus(2);

oBLayer.LayerName := str;

oBLayer.LayerType := miBindLayerTypeXY;

oBLayer.RefColumn1 := 'X';

oBLayer.RefColumn2 := 'Y';

{下面的调用和我在《从数据库绘制MapX图层(二)》使用的方法一样,

请参考我的那篇文章,url是http://dev.csdn.net/article/31/31719.shtm}

ds := mapMain.Datasets.Add(12,

aqThemes.Recordset,

str,

'ID',

EmptyParam,

oBLayer,

EmptyParam,

EmptyParam);

{组织专题图现实的数据字段,存储在字符串数组中}

SetLength(flds,aqThemes.Fields.Count - 3);

for i:=3 to aqThemes.Fields.Count - 1 do

begin

flds[i - 3] := aqThemes.Fields.Fields[i].FieldName;

end;

{实际添加专题图的过程}

thm := ds.Themes.Add(style,flds,DefaultName,EmptyParam);

{设置专题图图例标题}

thm.Legend.Title := TheName;

{记录新添加的专题图名称}

ThemesList.Add(str);

{btnDeleteThemes是一个在本窗口上的按钮,用来删除专题图,

添加专题图后就将他显示出来,如果删除了全部专题图就将他隐藏}

btnDeleteThemes.Visible := true;

except

GiveMsg('创建专题图失败!');{自定义过程,给出出错提示}

end;

end;

{

删除专题图,我采用的方法是删除所有专题图

}

procedure TfrmMain.ToDeleteThemes;

var

i : integer; {循环变量}

begin

for i:=0 to ThemesList.Count-1 do{循环所有添加了的专题图}

begin

{删除数据集}

mapMain.Datasets.Remove(ThemesList.Strings[i]);

{删除专题图}

mapMain.Layers.Remove(ThemesList.Strings[i]);

{如果只想删除某一个专题图,不用循环就行了}

end;

{此时已经没有专题图了,将删除专题图按钮隐藏}

btnDeleteThemes.Visible := false;

{清除专题图名称列表}

ThemesList.Clear;

end;

//...

end.

杨雨田 blue_bat@126.com

二零零四年八月二日

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有