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
另外有需要云服务器可以了解下创新互联scvps.cn,海内外云服务器15元起步,三天无理由+7*72小时售后在线,公司持有idc许可证,提供“云服务器、裸金属服务器、高防服务器、香港服务器、美国服务器、虚拟主机、免备案服务器”等云主机租用服务以及企业上云的综合解决方案,具有“安全稳定、简单易用、服务可用性高、性价比高”等特点与优势,专为企业上云打造定制,能够满足用户丰富、多元化的应用场景需求。