自动生成基站建议图层工具.doc

《自动生成基站建议图层工具.doc》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、PublicMapinfoAsObjectPublictheResponderAsObjectbackto*theobjectwhichwillrefertoMapinfo,:,cthelocalobjectthatMapinfowillsendinformation*keepstrackofwhetherthereisamapopentheMapinfoWindowIDofourmapwindowPublictherelsAMapAsBooleanPublicmapWinlDAsLongPrivateSubForm_Load（）FunctionModu

2、le.IconAddForm1.Hidemydate=Format（Date,,,yyyy-mm-ddn）mytime=Format（Time,,,hh:mm:ssn）Label2=mydate&”"&mytimeDelayTime=0mydate=Datemytime=TimeEndSubPrivateSubDoJob（）OnErrorGoToOn_ErrorInitializeMapInfoConnectionKillPath（App.Path&"炫蜂窝开通站.*"）KillPath（App.Path&”宏蜂窝滚出新建站・*“）KillPath（A

3、pp.Path&“宏蜂窝正常新建站.朴）KillPath（App.Path&”选址单2G.*H）KillPath（App.Path&”选址单2GTD.*U）KillPath（App.Path&”选址单TD.*”）KillPath（App.Path&“选址单取消产”）KillPath（App.Path&”电信—跟进.*”）KillPath（App.Path&”电信一不跟进.*”）KillPath（App.Path&”联通_跟进.*”）KillPath（App.Path&”联通一不跟进.*“）KillPath（App.Path&”微蜂窝开

4、通站.*“）KillPath（App.Path&”微蜂窝滚出新建站.和）KillPath（App.Path&”微蜂窝正常新建站.和）KillPath（App.Path&”宏蜂窝TD开通站.*“）KillPath（App.Path&”宏蜂窝TD滚出新建站.*”）KillPath（App.Path&”宏蜂窝TD正常新建站.料）KillPath（App.Path&”微蜂禹TD开通站卢“）KillPath（App.Path&“微蜂窝TD滚出新建站.*“）KillPath（App.Path&“微蜂窝TD正常新建站.*“）KillPath（App.P

5、ath&”替换站建议流转表.朴）DimappAccessAsAccess.ApplicationSetappAccess=CreateObject（"Access.Applicationu）WithappAccess.Visible=False.OpenCurrentDatabaseApp.Path&"database.mdb".OpenCurrentDatabase"\10.4.95.101无线服务管理中心建议系统tabdatabase.mdb".DoCmd.OpenForrn"生成图层".DoCmd.RunMacro"close".Cl

6、oseCurrentDatabaseEndWithappAccess.QuitMapInfo.Do"RegisterTable”””&App.Path&“database.mdb””TypeACCESSTable””去蜂窝开通站””Into“”“&App.Path&“宏蜂窝开通站.TAB“””M叩Info.Do“OpenTable”“'1&App.Path&“幺蜂窝开通站.TAB"”InteractiveMMapInfo.Do"CreateMapFor宏蜂窝开通站CoordSysEarthProjection1,104"MapInfo.Do"upd

7、ate宏蜂窝开通站setobj=createpoint（经度，纬度）”MapInfo.Do"CommitTable宏蜂窝开通站Interactive"MapInfo.Do"RegisterTable&App.Path&ndatabase.mdb,,nTypeACCESSTable“”宏蜂窝滚出新建站””Into””“&App.Path&“宏蜂窝滚出新建站.TABMapInfo.Do"OpenTable”““&App.Path&”宏蜂窝滚出新建站.TAB””Interactive"M叩Info.DonCreateM叩For宋蜂窝滚出新建站CoordS

8、ysEarthProjection1,104"MapInfo.Do"update