自动生成基站建议图层工具.docx
《自动生成基站建议图层工具.docx》由会员分享，可在线阅读，更多相关《自动生成基站建议图层工具.docx（11页珍藏版）》请在冰豆网上搜索。
自动生成基站建议图层工具
PublicMapInfoAsObject'*theobjectwhichwillrefertoMapInfo
PublictheResponderAsObject'*thelocalobjectthatMapInfowillsendinformationbackto
PublicthereIsAMapAsBoolean'*keepstrackofwhetherthereisamapopen
PublicmapWinIDAsLong'*theMapInfoWindowIDofourmapwindow
PrivateSubForm_Load（）
FunctionModule.IconAdd
Form1.Hide
mydate=Format（Date,"yyyy-mm-dd"）
mytime=Format（Time,"hh:
mm:
ss"）
Label2=mydate&""&mytime
DelayTime=0
mydate=Date
mytime=Time
EndSub
PrivateSubDoJob（）
OnErrorGoToOn_Error
InitializeMapInfoConnection
KillPath（App.Path&"\宏蜂窝开通站.*"）
KillPath（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&"\联通_不跟进.*"）
KillPath（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（App.Path&"\替换站建议流转表.*"）
DimappAccessAsAccess.Application
SetappAccess=CreateObject（"Access.Application"）
WithappAccess
.Visible=False
.OpenCurrentDatabaseApp.Path&"\database.mdb"
'.OpenCurrentDatabase"\\10.4.95.101\无线服务管理中心\建议系统\tab\database.mdb"
.DoCmd.OpenForm"生成图层"
'.DoCmd.RunMacro"close"
.CloseCurrentDatabase
EndWith
appAccess.Quit
MapInfo.Do"RegisterTable"""&App.Path&"\database.mdb""TypeACCESSTable""宏蜂窝开通站""Into"""&App.Path&"\宏蜂窝开通站.TAB"""
MapInfo.Do"OpenTable"""&App.Path&"\宏蜂窝开通站.TAB""Interactive"
MapInfo.Do"CreateMapFor宏蜂窝开通站CoordSysEarthProjection1,104"
MapInfo.Do"update宏蜂窝开通站setobj=createpoint（经度,纬度）"
MapInfo.Do"CommitTable宏蜂窝开通站Interactive"
MapInfo.Do"RegisterTable"""&App.Path&"\database.mdb""TypeACCESSTable""宏蜂窝滚出新建站""Into"""&App.Path&"\宏蜂窝滚出新建站.TAB"""
MapInfo.Do"OpenTable"""&App.Path&"\宏蜂窝滚出新建站.TAB""Interactive"
MapInfo.Do"CreateMapFor宏蜂窝滚出新建站CoordSysEarthProjection1,104"
MapInfo.Do"update宏蜂窝滚出新建站setobj=createpoint（经度,纬度）"
MapInfo.Do"CommitTable宏蜂窝滚出新建站Interactive"
MapInfo.Do"RegisterTable"""&App.Path&"\database.mdb""TypeACCESSTable""宏蜂窝正常新建站""Into"""&App.Path&"\宏蜂窝正常新建站.TAB"""
MapInfo.Do"OpenTable"""&App.Path&"\宏蜂窝正常新建站.TAB""Interactive"
MapInfo.Do"CreateMapFor宏蜂窝正常新建站CoordSysEarthProjection1,104"
MapInfo.Do"update宏蜂窝正常新建站setobj=createpoint（经度,纬度）"
MapInfo.Do"CommitTable宏蜂窝正常新建站Interactive"
MapInfo.Do"RegisterTable"""&App.Path&"\database.mdb""TypeACCESSTable""选址单2G""Into"""&App.Path&"\选址单2G.TAB"""
MapInfo.Do"OpenTable"""&App.Path&"\选址单2G.TAB""Interactive"
MapInfo.Do"CreateMapFor选址单2GCoordSysEarthProjection1,104"
MapInfo.Do"update选址单2Gsetobj=createpoint（经度,纬度）"
MapInfo.Do"CommitTable选址单2GInteractive"
MapInfo.Do"RegisterTable"""&App.Path&"\database.mdb""TypeACCESSTable""选址单2GTD""Into"""&App.Path&"\选址单2GTD.TAB"""
MapInfo.Do"OpenTable"""&App.Path&"\选址单2GTD.TAB""Interactive"
MapInfo.Do"CreateMapFor选址单2GTDCoordSysEarthProjection1,104"
MapInfo.Do"update选址单2GTDsetobj=createpoint（经度,纬度）"
MapInfo.Do"CommitTable选址单2GTDInteractive"
MapInfo.Do"RegisterTable"""&App.Path&"\database.mdb""TypeACCESSTable""选址单TD""Into"""&App.Path&"\选址单TD.TAB"""
MapInfo.Do"OpenTable"""&App.Path&"\选址单TD.TAB""Interactive"
MapInfo.Do"CreateMapFor选址单TDCoordSysEarthProjection1,104"
MapInfo.Do"update选址单TDsetobj=createpoint（经度,纬度）"
MapInfo.Do"CommitTable选址单TDInteractive"
MapInfo.Do"RegisterTable"""&App.Path&"\database.mdb""TypeACCESSTable""选址单取消""Into"""&App.Path&"\选址单取消.TAB"""
MapInfo.Do"OpenTable"""&App.Path&"\选址单取消.TAB""Interactive"
MapInfo.Do"CreateMapFor选址单取消CoordSysEarthProjection1,104"
MapInfo.Do"update选址单取消setobj=createpoint（经度,纬度）"
MapInfo.Do"CommitTable选址单取消Interactive"
MapInfo.Do"RegisterTable"""&App.Path&"\database.mdb""TypeACCESSTable""电信_跟进""Into"""&App.Path&"\电信_跟进.TAB"""
MapInfo.Do"OpenTable"""&App.Path&"\电信_跟进.TAB""Interactive"
MapInfo.Do"CreateMapFor电信_跟进CoordSysEarthProjection1,104"
MapInfo.Do"update电信_跟进setobj=createpoint（现经度,现纬度）"
MapInfo.Do"CommitTable电信_跟进Interactive"
MapInfo.Do"RegisterTable"""&App.Path&"\database.mdb""TypeACCESSTable""电信_不跟进""Into"""&App.Path&"\电信_不跟进.TAB"""
MapInfo.Do"OpenTable"""&App.Path&"\电信_不跟进.TAB""Interactive"
MapInfo.Do"CreateMapFor电信_不跟进CoordSysEarthProjection1,104"
MapInfo.Do"update电信_不跟进setobj=createpoint（现经度,现纬度）"
MapInfo.Do"CommitTable电信_不跟进Interactive"
MapInfo.Do"RegisterTable"""&App.Path&"\database.mdb""TypeACCESSTable""联通_不跟进""Into"""&App.Path&"\联通_不跟进.TAB"""
MapInfo.Do"OpenTable"""&App.Path&"\联通_不跟进.TAB""Interactive"
MapInfo.Do"CreateMapFor联通_不跟进CoordSysEarthProjection1,104"
MapInfo.Do"update联通_不跟进setobj=createpoint（现经度,现纬度）"
MapInfo.Do"CommitTable联通_不跟进Interactive"
MapInfo.Do"RegisterTable"""&App.Path&"\database.mdb""TypeACCESSTable""联通_跟进""Into"""&App.Path&"\联通_跟进.TAB"""
MapInfo.Do"OpenTable"""&App.Path&"\联通_跟进.TAB""Interactive"
MapInfo.Do"CreateMapFor联通_跟进CoordSysEarthProjection1,104"
MapInfo.Do"update联通_跟进setobj=createpoint（现经度,现纬度）"
MapInfo.Do"CommitTable联通_跟进Interactive"
MapInfo.Do"RegisterTable"""&App.Path&"\database.mdb""TypeACCESSTable""微蜂窝开通站""Into"""&App.Path&"\微蜂窝开通站.TAB"""
MapInfo.Do"OpenTable"""&App.Path&"\微蜂窝开通站.TAB""Interactive"
MapInfo.Do"CreateMapFor微蜂窝开通站CoordSysEarthProjection1,104"
MapInfo.Do"update微蜂窝开通站setobj=createpoint（经度,纬度）"
MapInfo.Do"CommitTable微蜂窝开通站Interactive"
MapInfo.Do"RegisterTable"""&App.Path&"\database.mdb""TypeACCESSTable""微蜂窝滚出新建站""Into"""&App.Path&"\微蜂窝滚出新建站.TAB"""
MapInfo.Do"OpenTable"""&App.Path&"\微蜂窝滚出新建站.TAB""Interactive"
MapInfo.Do"CreateMapFor微蜂窝滚出新建站CoordSysEarthProjection1,104"
MapInfo.Do"update微蜂窝滚出新建站setobj=createpoint（经度,纬度）"
MapInfo.Do"CommitTable微蜂窝滚出新建站Interactive"
MapInfo.Do"RegisterTable"""&App.Path&"\database.mdb""TypeACCESSTable""微蜂窝正常新建站""Into"""&App.Path&"\微蜂窝正常新建站.TAB"""
MapInfo.Do"OpenTable"""&App.Path&"\微蜂窝正常新建站.TAB""Interactive"
MapInfo.Do"CreateMapFor微蜂窝正常新建站CoordSysEarthProjection1,104"
MapInfo.Do"update微蜂窝正常新建站setobj=createpoint（经度,纬度）"
MapInfo.Do"CommitTable微蜂窝正常新建站Interactive"
MapInfo.Do"RegisterTable"""&App.Path&"\database.mdb""TypeACCESSTable""宏蜂窝TD正常新建站""Into"""&App.Path&"\宏蜂窝TD正常新建站.TAB"""
MapInfo.Do"OpenTable"""&App.Path&"\宏蜂窝TD正常新建站.TAB""Interactive"
MapInfo.Do"CreateMapFor宏蜂窝TD正常新建站CoordSysEarthProjection1,104"
MapInfo.Do"update宏蜂窝TD正常新建站setobj=createpoint（经度,纬度）"
MapInfo.Do"CommitTable宏蜂窝TD正常新建站Interactive"
MapInfo.Do"RegisterTable"""&App.Path&"\database.mdb""TypeACCESSTable""宏蜂窝TD滚出新建站""Into"""&App.Path&"\宏蜂窝TD滚出新建站.TAB"""
MapInfo.Do"OpenTable"""&App.Path&"\宏蜂窝TD滚出新建站.TAB""Interactive"
MapInfo.Do"CreateMapFor宏蜂窝TD滚出新建站CoordSysEarthProjection1,104"
MapInfo.Do"update宏蜂窝TD滚出新建站setobj=createpoint（经度,纬度）"
MapInfo.Do"CommitTable宏蜂窝TD滚出新建站Interactive"
MapInfo.Do"RegisterTable"""&App.Path&"\database.mdb""TypeACCESSTable""宏蜂窝TD开通站""Into"""&App.Path&"\宏蜂窝TD开通站.TAB"""
MapInfo.Do"OpenTable"""&App.Path&"\宏蜂窝TD开通站.TAB""Interactive"
MapInfo.Do"CreateMapFor宏蜂窝TD开通站CoordSysEarthProjection1,104"
MapInfo.Do"update宏蜂窝TD开通站setobj=createpoint（经度,纬度）"
MapInfo.Do"CommitTable宏蜂窝TD开通站Interactive"
MapInfo.Do"RegisterTable"""&App.Path&"\database.mdb""TypeACCESSTable""微蜂窝TD开通站""Into"""&App.Path&"\微蜂窝TD开通站.TAB"""
MapInfo.Do"OpenTable"""&App.Path&"\微蜂窝TD开通站.TAB""Interactive"
MapInfo.Do"CreateMapFor微蜂窝TD开通站CoordSysEarthProjection1,104"
MapInfo.Do"update微蜂窝TD开通站setobj=createpoint（经度,纬度）"
MapInfo.Do"CommitTable微蜂窝TD开通站Interactive"
MapInfo.Do"RegisterTable"""&App.Path&"\database.mdb""TypeACCESSTable""微蜂窝TD滚出新建站""Into"""&App.Path&"\微蜂窝TD滚出新建站.TAB"""
MapInfo.Do"OpenTable"""&App.Path&"\微蜂窝TD滚出新建站.TAB""Interactive"
MapInfo.Do"CreateMapFor微蜂窝TD滚出新建站CoordSysEarthProjection1,104"
MapInfo.Do"update微蜂窝TD滚出新建站setobj=createpoint（经度,纬度）"
MapInfo.Do"CommitTable微蜂窝TD滚出新建站Interactive"
MapInfo.Do"RegisterTable"""&App.Path&"\database.mdb""TypeACCESSTable""微蜂窝TD正常新建站""Into"""&App.Path&"\微蜂窝TD正常新建站.TAB"""
MapInfo.Do"OpenTable"""&App.Path&"\微蜂窝TD正常新建站.TAB""Interactive"
MapInfo.Do"CreateMapFor微蜂窝TD正常新建站CoordSysEarthProjection1,104"
MapInfo.Do"update微蜂窝TD正常新建站setobj=createpoint（经度,纬度）"
MapInfo.Do"CommitTable微蜂窝TD正常新建站Interactive"
MapInfo.Do"RegisterTable"""&App.Path&"\database.mdb""TypeACCESSTable""替换站建议流转表""Into"""&App.Path&"\替换站建议流转表.TAB"""
MapInfo.Do"OpenTable"""&App.Path&"\替换站建议流转表.TAB""Interactive"
MapInfo.Do"CreateMapFor替换站建议流转表CoordSysEarthProjection1,104"
MapInfo.Do"update替换站建议流转表setobj=createpoint（替换站经度,替换站纬度）"
MapInfo.Do"CommitTable替换站建议流转表Interactive"
ShutdownMapInfoConnection
ExitSub
On_Error:
MsgBoxErr.Description,vbCritical,"系统提示"
ExitSub
EndSub
PrivateSubmanu_Click（）
DoJob
EndSub
PrivateSubok_Click（）
FunctionModule.IconAdd
Form1.Hide
EndSub
PrivateSubTimer1_Timer（）
mytime=Format（Time,"hh:
mm:
ss"）
mydate=Format（Date,"yyyy-mm-dd"）
Label2=mydate&""&mytime
Dim
升级会员 