专题图?(300分)

  • 主题发起人 主题发起人 lintel
  • 开始时间 开始时间
L

lintel

Unregistered / Unconfirmed
GUEST, unregistred user!
Delphi 5.0 + MapX 4.5上遇到下列问题:
通过建立miDataSetUnbound类型的DataSet,利用Map1的RequestData事件将数据赋值给建立
的DataSet,但是我如何将此DataSet与图层建立关联,最终在图层中实现专题图?
另外,哪里可以得到制作专题图的技术资料?
如果可以,我将把所以的分数送给他
 
为什么没有人响应呢?
 
要作专题图是要先进行数据绑定,添加数据集。

在form上放ADO控件,如果你想用ADO的话(建议),设置好连接,方法和普通数据库程序
开发也没什么两样,然后参考一下我下面的代码,添加数据集。
有了数据集,你就可以为所欲为了 :),或查属性数据,或作专题图什么的,都可以了。

procedure TForm1.N30Click(Sender: TObject);
begin

ADOQuery1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:/工程/Delphi编程实践/MapXFengTai/database/ftycdb.mdb;Persist Security Info=False';
ADOQuery1.close;
ADOQuery1.Sql.Clear;
ADOQuery1.SQL.Add('Select * from 片区');
ADOQuery1.open;

ds := map1.datasets.Add(miDataSetADO,ADOQuery1.Recordset,'dsPQ','ph',Emptyparam,'片区图',Emptyparam,true);
end;


----------
题外话,我就喜欢这样的问题,帮人一点忙,还能得分 :)
 
我只知道在mapinfo里作专题图很方便!
 
贴一段作专题图的例子
var
ds: CMapXDataset;
cols: CMapXFields;
begin

{ This example assumes we have a dataset object "ds"
containing the fields in the cols array. }
{ Add a ranged theme: }
ds.Themes.Add(miThemeRanged, 'TOTPOPCUR', 'My Ranged Theme', EmptyParam);

{ Add a Bar Chart theme: }
cols := CoFields.Create;
cols.Add('TOTPOPHIS', 'TOTPOPHIS', EmptyParam, EmptyParam);
cols.Add('TOTPOPCUR', 'TOTPOPCUR', EmptyParam, EmptyParam);
cols.Add('TOTPOPPRO', 'TOTPOPPRO', EmptyParam, EmptyParam);

ds.Themes.Add(miThemeBarChart, cols, 'My Bar Theme', EmptyParam);
end;
 
多人接受答案了。
 
后退
顶部