向点图层中增加点记录 ( 积分: 200 )

S

SeaGod1

Unregistered / Unconfirmed
GUEST, unregistred user!
我现在有一个图层,但没有x,y字段
原始图层shp文件的字段:

FID SHAPE NAME GB VERSION GEOID GMOROTATION

我现在有很多点,都知道他们的x,y坐标,现在想把这些点增加到原始图层中去,请问怎样用程序往图层里增加点记录?
 
S

SeaGod1

Unregistered / Unconfirmed
GUEST, unregistred user!
问题解决了,呵呵呵
 
D

ddzhouqian

Unregistered / Unconfirmed
GUEST, unregistred user!
呵呵,恭喜楼主!怎么解决的啊>
 
S

SeaGod1

Unregistered / Unconfirmed
GUEST, unregistred user!
while not UDM.cdsMaster.Eofdo

begin

FrmSchedule.ProgressBar.Position := i;
Lon := UDM.cdsMaster.FieldByName('LONGTITUDE').AsFloat;
Lat := UDM.cdsMaster.FieldByName('LATITUDE').AsFloat;
PoliceMan := UDM.cdsMaster.FieldByName('NAME').AsString;
HandSet := UDM.cdsMaster.FieldByName('LOGIN_NAME').AsString;
DeptName := UDM.cdsMaster.FieldByName('GROUPID').AsString;

X:=0;
Y:=0;
C:=114.0;
L:=Lon;
B:=Lat;
SgMidServ := TsgMidServ.Create(NIL);
SgMidServ.sgGPSCvtBL2XY(B,L,C,1,Y,X);
Pt.X := X;
Pt.Y := Y;

Recs:=IMoMapLayer(MainForm.MostMap.layers.item('警员位置')).Records;
Recs.AddNew;
Recs.fields.item('shape').value:=pt;
Recs.fields.item('NAME').value:=PoliceMan;
Recs.fields.item('LOGIN_NAME').value:=HandSet;
Recs.fields.item('GROUPID').value:=DeptName;
Recs.fields.item('X').value:=X;
Recs.fields.item('Y').value:=Y;
Recs.update;
Recs.stopediting;

UDM.cdsMaster.Next;
i := i+1;
end;

UDM.cdsMaster.Close;
 

Similar threads

S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
顶部