procedure TMainForm.ActioonMakeMapByConditionExecute(Sender:TObject);begin casepr I_M_TVselect of 4: begin //巡视人员 I_M_CondtSlt :=5; MakeMapwithCode_Mitab(S_M_TV_Data, S_M_Areacode,I_M_Unitlevel,’UniocomMap’, S_M_Mapath,MapDetail, I_M_CondtSit); //Mitab 调用方法 // S_M_Areacode , I_M_Unitlevel 应用登录用户随带的数据分别代表访问用户所 属地区和单位级别 end; end; I_M_AtionCurr:=TAction(Sender).Tag ; ActionMainFormShow,Execute; end;
