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;