procedure TMainForm. ActionMakeHistroyTrackExecute(Sender: Tobject);ide
varorm
sdtbegin,sdtend: string;string
beginit
I_M_ActionCurr:= TAction(Sender).Tag;io
sdtbegin:= formatdatetime('yyyy-mm-dd',DTPKerBegin.Date);form
adtend:=formatdatetime('yyyy-mm-dd', DTPKerEnd, Date);class
MakeMapwithHistroywithouert_Mitab(S_M_Tv_Data,sdtbegin,sdtend,'UnicomMap',S_M_MapPath,MapDetail,10);object
//S_M_Tv_Data 線路-巡線人員節點上的選擇數據即人員的定位終端號date
//UnicomMap 爲生成的動態圖層的名稱終端
//S_M_MapPath 爲地圖所在的路徑
//MapDetail 爲地圖顯示控件的名稱
//10就是對應於PIKD參數的值,表示是過去的軌跡請求
end