procedureTMainForm.ActioonMakeMapByConditionExecute(Sender:TObject);begincaseprI_M_TVselectof4: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;