procedure TMainForm. ActionMakeHistroyTrackExecute(Sender: Tobject);

var

sdtbegin,sdtend: string;

begin

I_M_ActionCurr:= TAction(Sender).Tag;

sdtbegin:= formatdatetime('yyyy-mm-dd',DTPKerBegin.Date);

adtend:=formatdatetime('yyyy-mm-dd', DTPKerEnd, Date);

MakeMapwithHistroywithouert_Mitab(S_M_Tv_Data,sdtbegin,sdtend,'UnicomMap',S_M_MapPath,MapDetail,10);

//S_M_Tv_Data 线路-巡线人员节点上的选择数据即人员的定位终端号

//UnicomMap 为生成的动态图层的名称

//S_M_MapPath 为地图所在的路径

//MapDetail 为地图显示控件的名称

//10就是对应于PIKD参数的值，表示是过去的轨迹请求

end