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

1、自动生成基站建议图层工具Public MapInfo As Object * the object which will refer to MapInfoPublic theResponder As Object * the local object that MapInfo will send information back toPublic thereIsAMap As Boolean * keeps track of whether there is a map openPublic mapWinID As Long * the MapInfo Window ID of our map

2、 windowPrivate Sub Form_Load()FunctionModule.IconAddForm1.Hidemydate = Format(Date, yyyy-mm-dd)mytime = Format(Time, hh:mm:ss)Label2 = mydate & & mytimeDelayTime = 0mydate = Datemytime = TimeEnd SubPrivate Sub DoJob()On Error GoTo On_ErrorInitializeMapInfoConnectionKillPath (App.Path & 宏蜂窝开通站.*)Kill

3、Path (App.Path & 宏蜂窝滚出新建站.*)KillPath (App.Path & 宏蜂窝正常新建站.*)KillPath (App.Path & 选址单2G.*)KillPath (App.Path & 选址单2GTD.*)KillPath (App.Path & 选址单TD.*)KillPath (App.Path & 选址单取消.*)KillPath (App.Path & 电信_跟进.*)KillPath (App.Path & 电信_不跟进.*)KillPath (App.Path & 联通_跟进.*)KillPath (App.Path & 联通_不跟进.*)Kill

4、Path (App.Path & 微蜂窝开通站.*)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 (

5、App.Path & 替换站建议流转表.*)Dim appAccess As Access.ApplicationSet appAccess = CreateObject(Access.Application)With appAccess .Visible = False .OpenCurrentDatabase App.Path & database.mdb .OpenCurrentDatabase 10.4.95.101无线服务管理中心建议系统tabdatabase.mdb .DoCmd.OpenForm 生成图层 .DoCmd.RunMacro close .CloseCurrentDa

6、tabase End WithappAccess.QuitMapInfo.Do Register Table & App.Path & database.mdb Type ACCESS Table 宏蜂窝开通站 Into & App.Path & 宏蜂窝开通站.TABMapInfo.Do Open Table & App.Path & 宏蜂窝开通站.TAB InteractiveMapInfo.Do Create Map For 宏蜂窝开通站 CoordSys Earth Projection 1, 104MapInfo.Do update 宏蜂窝开通站 set obj=createpoint

7、(经度,纬度)MapInfo.Do Commit Table 宏蜂窝开通站 InteractiveMapInfo.Do Register Table & App.Path & database.mdb Type ACCESS Table 宏蜂窝滚出新建站 Into & App.Path & 宏蜂窝滚出新建站.TABMapInfo.Do Open Table & App.Path & 宏蜂窝滚出新建站.TAB InteractiveMapInfo.Do Create Map For 宏蜂窝滚出新建站 CoordSys Earth Projection 1, 104MapInfo.Do updat

8、e 宏蜂窝滚出新建站 set obj=createpoint(经度,纬度)MapInfo.Do Commit Table 宏蜂窝滚出新建站 InteractiveMapInfo.Do Register Table & App.Path & database.mdb Type ACCESS Table 宏蜂窝正常新建站 Into & App.Path & 宏蜂窝正常新建站.TABMapInfo.Do Open Table & App.Path & 宏蜂窝正常新建站.TAB InteractiveMapInfo.Do Create Map For 宏蜂窝正常新建站 CoordSys Earth P

9、rojection 1, 104MapInfo.Do update 宏蜂窝正常新建站 set obj=createpoint(经度,纬度)MapInfo.Do Commit Table 宏蜂窝正常新建站 InteractiveMapInfo.Do Register Table & App.Path & database.mdb Type ACCESS Table 选址单2G Into & App.Path & 选址单2G.TABMapInfo.Do Open Table & App.Path & 选址单2G.TAB InteractiveMapInfo.Do Create Map For 选址

10、单2G CoordSys Earth Projection 1, 104MapInfo.Do update 选址单2G set obj=createpoint(经度,纬度)MapInfo.Do Commit Table 选址单2G InteractiveMapInfo.Do Register Table & App.Path & database.mdb Type ACCESS Table 选址单2GTD Into & App.Path & 选址单2GTD.TABMapInfo.Do Open Table & App.Path & 选址单2GTD.TAB InteractiveMapInfo.

11、Do Create Map For 选址单2GTD CoordSys Earth Projection 1, 104MapInfo.Do update 选址单2GTD set obj=createpoint(经度,纬度)MapInfo.Do Commit Table 选址单2GTD InteractiveMapInfo.Do Register Table & App.Path & database.mdb Type ACCESS Table 选址单TD Into & App.Path & 选址单TD.TABMapInfo.Do Open Table & App.Path & 选址单TD.TAB

12、 InteractiveMapInfo.Do Create Map For 选址单TD CoordSys Earth Projection 1, 104MapInfo.Do update 选址单TD set obj=createpoint(经度,纬度)MapInfo.Do Commit Table 选址单TD InteractiveMapInfo.Do Register Table & App.Path & database.mdb Type ACCESS Table 选址单取消 Into & App.Path & 选址单取消.TABMapInfo.Do Open Table & App.Pa

13、th & 选址单取消.TAB InteractiveMapInfo.Do Create Map For 选址单取消 CoordSys Earth Projection 1, 104MapInfo.Do update 选址单取消 set obj=createpoint(经度,纬度)MapInfo.Do Commit Table 选址单取消 InteractiveMapInfo.Do Register Table & App.Path & database.mdb Type ACCESS Table 电信_跟进 Into & App.Path & 电信_跟进.TABMapInfo.Do Open

14、Table & App.Path & 电信_跟进.TAB InteractiveMapInfo.Do Create Map For 电信_跟进 CoordSys Earth Projection 1, 104MapInfo.Do update 电信_跟进 set obj=createpoint(现经度,现纬度)MapInfo.Do Commit Table 电信_跟进 InteractiveMapInfo.Do Register Table & App.Path & database.mdb Type ACCESS Table 电信_不跟进 Into & App.Path & 电信_不跟进.T

15、ABMapInfo.Do Open Table & App.Path & 电信_不跟进.TAB InteractiveMapInfo.Do Create Map For 电信_不跟进 CoordSys Earth Projection 1, 104MapInfo.Do update 电信_不跟进 set obj=createpoint(现经度,现纬度)MapInfo.Do Commit Table 电信_不跟进 InteractiveMapInfo.Do Register Table & App.Path & database.mdb Type ACCESS Table 联通_不跟进 Into

16、 & App.Path & 联通_不跟进.TABMapInfo.Do Open Table & App.Path & 联通_不跟进.TAB InteractiveMapInfo.Do Create Map For 联通_不跟进 CoordSys Earth Projection 1, 104MapInfo.Do update 联通_不跟进 set obj=createpoint(现经度,现纬度)MapInfo.Do Commit Table 联通_不跟进 InteractiveMapInfo.Do Register Table & App.Path & database.mdb Type AC

17、CESS Table 联通_跟进 Into & App.Path & 联通_跟进.TABMapInfo.Do Open Table & App.Path & 联通_跟进.TAB InteractiveMapInfo.Do Create Map For 联通_跟进 CoordSys Earth Projection 1, 104MapInfo.Do update 联通_跟进 set obj=createpoint(现经度,现纬度)MapInfo.Do Commit Table 联通_跟进 InteractiveMapInfo.Do Register Table & App.Path & data

18、base.mdb Type ACCESS Table 微蜂窝开通站 Into & App.Path & 微蜂窝开通站.TABMapInfo.Do Open Table & App.Path & 微蜂窝开通站.TAB InteractiveMapInfo.Do Create Map For 微蜂窝开通站 CoordSys Earth Projection 1, 104MapInfo.Do update 微蜂窝开通站 set obj=createpoint(经度,纬度)MapInfo.Do Commit Table 微蜂窝开通站 InteractiveMapInfo.Do Register Tab

19、le & App.Path & database.mdb Type ACCESS Table 微蜂窝滚出新建站 Into & App.Path & 微蜂窝滚出新建站.TABMapInfo.Do Open Table & App.Path & 微蜂窝滚出新建站.TAB InteractiveMapInfo.Do Create Map For 微蜂窝滚出新建站 CoordSys Earth Projection 1, 104MapInfo.Do update 微蜂窝滚出新建站 set obj=createpoint(经度,纬度)MapInfo.Do Commit Table 微蜂窝滚出新建站 In

20、teractiveMapInfo.Do Register Table & App.Path & database.mdb Type ACCESS Table 微蜂窝正常新建站 Into & App.Path & 微蜂窝正常新建站.TABMapInfo.Do Open Table & App.Path & 微蜂窝正常新建站.TAB InteractiveMapInfo.Do Create Map For 微蜂窝正常新建站 CoordSys Earth Projection 1, 104MapInfo.Do update 微蜂窝正常新建站 set obj=createpoint(经度,纬度)Map

21、Info.Do Commit Table 微蜂窝正常新建站 InteractiveMapInfo.Do Register Table & App.Path & database.mdb Type ACCESS Table 宏蜂窝TD正常新建站 Into & App.Path & 宏蜂窝TD正常新建站.TABMapInfo.Do Open Table & App.Path & 宏蜂窝TD正常新建站.TAB InteractiveMapInfo.Do Create Map For 宏蜂窝TD正常新建站 CoordSys Earth Projection 1, 104MapInfo.Do updat

22、e 宏蜂窝TD正常新建站 set obj=createpoint(经度,纬度)MapInfo.Do Commit Table 宏蜂窝TD正常新建站 InteractiveMapInfo.Do Register Table & App.Path & database.mdb Type ACCESS Table 宏蜂窝TD滚出新建站 Into & App.Path & 宏蜂窝TD滚出新建站.TABMapInfo.Do Open Table & App.Path & 宏蜂窝TD滚出新建站.TAB InteractiveMapInfo.Do Create Map For 宏蜂窝TD滚出新建站 Coor

23、dSys Earth Projection 1, 104MapInfo.Do update 宏蜂窝TD滚出新建站 set obj=createpoint(经度,纬度)MapInfo.Do Commit Table 宏蜂窝TD滚出新建站 InteractiveMapInfo.Do Register Table & App.Path & database.mdb Type ACCESS Table 宏蜂窝TD开通站 Into & App.Path & 宏蜂窝TD开通站.TABMapInfo.Do Open Table & App.Path & 宏蜂窝TD开通站.TAB InteractiveMap

24、Info.Do Create Map For 宏蜂窝TD开通站 CoordSys Earth Projection 1, 104MapInfo.Do update 宏蜂窝TD开通站 set obj=createpoint(经度,纬度)MapInfo.Do Commit Table 宏蜂窝TD开通站 InteractiveMapInfo.Do Register Table & App.Path & database.mdb Type ACCESS Table 微蜂窝TD开通站 Into & App.Path & 微蜂窝TD开通站.TABMapInfo.Do Open Table & App.Pa

25、th & 微蜂窝TD开通站.TAB InteractiveMapInfo.Do Create Map For 微蜂窝TD开通站 CoordSys Earth Projection 1, 104MapInfo.Do update 微蜂窝TD开通站 set obj=createpoint(经度,纬度)MapInfo.Do Commit Table 微蜂窝TD开通站 InteractiveMapInfo.Do Register Table & App.Path & database.mdb Type ACCESS Table 微蜂窝TD滚出新建站 Into & App.Path & 微蜂窝TD滚出新

26、建站.TABMapInfo.Do Open Table & App.Path & 微蜂窝TD滚出新建站.TAB InteractiveMapInfo.Do Create Map For 微蜂窝TD滚出新建站 CoordSys Earth Projection 1, 104MapInfo.Do update 微蜂窝TD滚出新建站 set obj=createpoint(经度,纬度)MapInfo.Do Commit Table 微蜂窝TD滚出新建站 InteractiveMapInfo.Do Register Table & App.Path & database.mdb Type ACCESS

27、 Table 微蜂窝TD正常新建站 Into & App.Path & 微蜂窝TD正常新建站.TABMapInfo.Do Open Table & App.Path & 微蜂窝TD正常新建站.TAB InteractiveMapInfo.Do Create Map For 微蜂窝TD正常新建站 CoordSys Earth Projection 1, 104MapInfo.Do update 微蜂窝TD正常新建站 set obj=createpoint(经度,纬度)MapInfo.Do Commit Table 微蜂窝TD正常新建站 InteractiveMapInfo.Do Register

28、 Table & App.Path & database.mdb Type ACCESS Table 替换站建议流转表 Into & App.Path & 替换站建议流转表.TABMapInfo.Do Open Table & App.Path & 替换站建议流转表.TAB InteractiveMapInfo.Do Create Map For 替换站建议流转表 CoordSys Earth Projection 1, 104MapInfo.Do update 替换站建议流转表 set obj=createpoint(替换站经度,替换站纬度)MapInfo.Do Commit Table 替

29、换站建议流转表 InteractiveShutdownMapInfoConnectionExit SubOn_Error: MsgBox Err.Description, vbCritical, 系统提示 Exit SubEnd SubPrivate Sub manu_Click()DoJobEnd SubPrivate Sub ok_Click()FunctionModule.IconAddForm1.HideEnd SubPrivate Sub Timer1_Timer()mytime = Format(Time, hh:mm:ss)mydate = Format(Date, yyyy-mm-dd)Label2 = mydate & & mytimeDim