簡單的線路的界面的調用方法

 

  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;