mdifrmmain.frm

用VB开发的巡检系统基于MAPINFo用VB开发的巡检系统基于MAPINFo很好的

      End
      Begin VB.Menu mnu1000_sep2 
         Caption         =   "-"
      End
      Begin VB.Menu mnu1000_1005 
         Caption         =   "1005"
      End
      Begin VB.Menu mnu1000_1006 
         Caption         =   "1006"
      End
      Begin VB.Menu mnu1000_1008 
         Caption         =   "1008"
      End
      Begin VB.Menu mnu1000_sep5 
         Caption         =   "-"
      End
      Begin VB.Menu mnu1000_1009 
         Caption         =   "1009"
      End
      Begin VB.Menu mnu1000_sep3 
         Caption         =   "-"
      End
      Begin VB.Menu mnu1000_1010 
         Caption         =   "1010"
      End
      Begin VB.Menu mnu1000_1011 
         Caption         =   "1011"
      End
      Begin VB.Menu mnu1000_sep4 
         Caption         =   "-"
      End
      Begin VB.Menu mnu1000_1012 
         Caption         =   "1012"
         Shortcut        =   ^X
      End
   End
   Begin VB.Menu mnu2000 
      Caption         =   "2000"
      Begin VB.Menu mnu2000_2001 
         Caption         =   "2001"
      End
      Begin VB.Menu mnu2000_sep1 
         Caption         =   "-"
      End
      Begin VB.Menu mnu2000_2002 
         Caption         =   "2002"
      End
      Begin VB.Menu mnu2000_2003 
         Caption         =   "2003"
      End
      Begin VB.Menu mnu2000_2004 
         Caption         =   "2004"
      End
      Begin VB.Menu mnu2000_2005 
         Caption         =   "2005"
      End
      Begin VB.Menu mnu2000_2006 
         Caption         =   "2006"
      End
      Begin VB.Menu mnu2000_sep2 
         Caption         =   "-"
      End
      Begin VB.Menu mnu2000_2007 
         Caption         =   "2007"
      End
      Begin VB.Menu mnu2000_sep3 
         Caption         =   "-"
      End
      Begin VB.Menu mnu2000_2008 
         Caption         =   "2008"
      End
   End
   Begin VB.Menu mnu3000 
      Caption         =   "3000"
      Begin VB.Menu mnu3000_3001 
         Caption         =   "3001"
      End
      Begin VB.Menu mnu3000_sep1 
         Caption         =   "-"
      End
      Begin VB.Menu mnu3000_3002 
         Caption         =   "3002"
      End
      Begin VB.Menu mnu3000_3003 
         Caption         =   "3003"
      End
      Begin VB.Menu mnu3000_3004 
         Caption         =   "3004"
      End
      Begin VB.Menu mnu3000_3005 
         Caption         =   "3005"
      End
      Begin VB.Menu mnu3000_3006 
         Caption         =   "3006"
      End
      Begin VB.Menu mnu3000_sep2 
         Caption         =   "-"
      End
      Begin VB.Menu mnu3000_3007 
         Caption         =   "3007"
      End
      Begin VB.Menu mnu3000_3008 
         Caption         =   "3008"
      End
   End
   Begin VB.Menu mnu4000 
      Caption         =   "4000"
      Begin VB.Menu mnu4000_4001 
         Caption         =   "4001"
      End
      Begin VB.Menu mnu4000_4002 
         Caption         =   "4002"
      End
      Begin VB.Menu mnu4000_sep1 
         Caption         =   "-"
      End
      Begin VB.Menu mnu4000_4003 
         Caption         =   "4003"
      End
   End
   Begin VB.Menu mnu5000 
      Caption         =   "5000"
      Begin VB.Menu mnu5000_5001 
         Caption         =   "5001"
      End
      Begin VB.Menu mnu5000_5002 
         Caption         =   "5002"
      End
      Begin VB.Menu mnu5000_sep1 
         Caption         =   "-"
      End
      Begin VB.Menu mnu5000_5003 
         Caption         =   "5003"
         Begin VB.Menu mnu5000_5004 
            Caption         =   "5004"
         End
         Begin VB.Menu mnu5000_5005 
            Caption         =   "5005"
         End
         Begin VB.Menu mnu5000_5006 
            Caption         =   "5006"
         End
         Begin VB.Menu mnu5000_5007 
            Caption         =   "5007"
         End
      End
      Begin VB.Menu mnu5000_sep2 
         Caption         =   "-"
      End
      Begin VB.Menu mnu5000_5008 
         Caption         =   "5008"
      End
   End
   Begin VB.Menu mnu6000 
      Caption         =   "6000"
      Begin VB.Menu mnu6000_6001 
         Caption         =   "6001"
      End
      Begin VB.Menu mnu6000_6002 
         Caption         =   "6002"
      End
      Begin VB.Menu mnu6000_6003 
         Caption         =   "6003"
      End
      Begin VB.Menu mnu6000_6004 
         Caption         =   "6004"
      End
      Begin VB.Menu mnu6000_sep1 
         Caption         =   "-"
      End
      Begin VB.Menu mnu6000_6005 
         Caption         =   "6005"
         Checked         =   -1  'True
      End
      Begin VB.Menu mnu6000_6006 
         Caption         =   "6006"
         Checked         =   -1  'True
      End
      Begin VB.Menu mnu6000_sep2 
         Caption         =   "-"
      End
      Begin VB.Menu mnu6000_6007 
         Caption         =   "6007"
      End
   End
   Begin VB.Menu mnu7000 
      Caption         =   "7000"
      Begin VB.Menu mnu7000_7001 
         Caption         =   "7001"
      End
      Begin VB.Menu mnu7000_7002 
         Caption         =   "7002"
      End
      Begin VB.Menu mnu7000_sep1 
         Caption         =   "-"
      End
      Begin VB.Menu mnu7000_7003 
         Caption         =   "7003"
      End
      Begin VB.Menu mnu7000_sep2 
         Caption         =   "-"
      End
      Begin VB.Menu mnu7000_7004 
         Caption         =   "7004"
      End
   End
   Begin VB.Menu mnu10000 
      Caption         =   "10000"
      Begin VB.Menu mnu10000_10001 
         Caption         =   "10001"
      End
      Begin VB.Menu mnu10000_sep1 
         Caption         =   "-"
      End
      Begin VB.Menu mnu10000_10002 
         Caption         =   "10002"
      End
   End
   Begin VB.Menu mnu8000 
      Caption         =   "8000"
      Begin VB.Menu mnu8000_8001 
         Caption         =   "8001"
      End
      Begin VB.Menu mnu8000_8002 
         Caption         =   "8002"
      End
      Begin VB.Menu mnu8000_8003 
         Caption         =   "8003"
      End
      Begin VB.Menu mnu8000_sep1 
         Caption         =   "-"
      End
      Begin VB.Menu mnu8000_8004 
         Caption         =   "8004"
      End
      Begin VB.Menu mnu8000_8005 
         Caption         =   "8005"
      End
      Begin VB.Menu mnu8000_sep2 
         Caption         =   "-"
      End
      Begin VB.Menu mnu8000_8006 
         Caption         =   "8006"
         Visible         =   0   'False
      End
      Begin VB.Menu mnu8000_sep3 
         Caption         =   "-"
         Visible         =   0   'False
      End
      Begin VB.Menu mnu8000_8007 
         Caption         =   "8007"
      End
   End
   Begin VB.Menu mnu9000 
      Caption         =   "9000"
      Begin VB.Menu mnu9000_9001 
         Caption         =   "9001"
      End
      Begin VB.Menu mnu9000_sep1 
         Caption         =   "-"
      End
      Begin VB.Menu mnu9000_9002 
         Caption         =   "9002"
      End
   End
End
Attribute VB_Name = "MDIFrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim TheInPath As String, TheInFile As String
Dim TheWorFile As String

Private Sub MDIForm_Load()


'##################刘登杰
gramgps = False

'##################刘登杰

'    If mnuTool_3008.Checked = True Then
'        EnableToolbarButton True
'    Else
'        EnableToolbarButton False
'    End If
    
    '//读取资源文件
    LoadResStrings Me
    '初始化工具条
    InitToolBarMain
    
    TheInstallPath = App.Path + "\"
    App.HelpFile = App.Path + "\使用手册.CHM"
    
    InitializeMapInfoConnection
    
'    Call LoadInitTreeView
    Call LoadStartUpWor
    
End Sub

Sub InitToolBarMain()
    Dim I As Integer
    Me.tbarMain.ImageList = Me.imgListToolbar
    For I = 1 To Me.tbarMain.Buttons.Count
        If I < 12 Then
            Me.tbarMain.Buttons(I).Image = Me.imgListToolbar.ListImages(I).Index
        ElseIf I > 12 And I < 25 Then
            Me.tbarMain.Buttons(I).Image = Me.imgListToolbar.ListImages(I - 1).Index
        ElseIf I > 25 Then
            Me.tbarMain.Buttons(I).Image = Me.imgListToolbar.ListImages(I - 2).Index
        End If
    Next

End Sub

Private Sub LoadStartUpWor()
    On Error Resume Next
    If Dir$(g_InitWorkSpace, vbDirectory) = "" Then
        TheWorFile = App.Path + "\地图数据\黑龙江省地图\黑龙江省.WOR"
        If Dir$(TheWorFile, vbDirectory) = "" Then
            MsgBox "没有找到初始化地图数据！", vbCritical, "提示"
            Exit Sub
        End If
    Else
        TheWorFile = g_InitWorkSpace
    End If
    'TheWorFile = App.Path + "\地图数据\黑龙江省地图\黑龙江省2005.WOR"

    Call LoadNewForm
    ActiveForm.WindowState = 2
    MapInfo.Do "Run Application """ & TheWorFile & """"

    thereIsAMap = True

    mapWinID = CLng(MapInfo.Eval("FrontWindow()"))
    MapInfo.Do "Set CoordSys Earth Projection 1,0"
    'MapInfo.Do "Set CoordSys NonEarth Units ""m"" Bounds (100000, 4200000) (990000, 4800000)"
    Call UpdateMenuAndToolbar(True)
    ActiveForm.Caption = "初始地图" + "Map"
End Sub

'更新选单（Menu)和工具条(ToolBar)
Private Sub UpdateMenuAndToolbar(thereIsAMap As Boolean)
    Dim I As Integer

    Call SetToolBarValue0
    
    tbarMain.Buttons("Select").Enabled = thereIsAMap
    tbarMain.Buttons("Move").Enabled = thereIsAMap
    tbarMain.Buttons("ZoomIn").Enabled = thereIsAMap
    tbarMain.Buttons("ZoomOut").Enabled = thereIsAMap
    ''tbarMain.Buttons("ChangeView").Enabled = thereIsAMap
    tbarMain.Buttons("SelectRect").Enabled = thereIsAMap
    tbarMain.Buttons("SelectCircle").Enabled = thereIsAMap
    tbarMain.Buttons("SelectCreatePoly").Enabled = thereIsAMap
    'tbarMain.Buttons("SelectPoly").Enabled = thereIsAMap
    tbarMain.Buttons("AntiSelect").Enabled = thereIsAMap
    tbarMain.Buttons("LayerControl").Enabled = thereIsAMap
    tbarMain.Buttons("Ruler").Enabled = thereIsAMap
    tbarMain.Buttons("ManMark").Enabled = thereIsAMap

    tbarMain.Buttons("Info_Point").Enabled = thereIsAMap

    tbarMain.Buttons("Symbol").Enabled = thereIsAMap
    tbarMain.Buttons("Line").Enabled = thereIsAMap
    tbarMain.Buttons("PolyLine").Enabled = thereIsAMap
    tbarMain.Buttons("Arc").Enabled = thereIsAMap
    tbarMain.Buttons("Polygon").Enabled = thereIsAMap
    tbarMain.Buttons("Ellipse").Enabled = thereIsAMap
    tbarMain.Buttons("Rectangle").Enabled = thereIsAMap
    tbarMain.Buttons("RoundedRectangle").Enabled = thereIsAMap
    tbarMain.Buttons("Text").Enabled = thereIsAMap
    tbarMain.Buttons("ReShape").Enabled = thereIsAMap
    tbarMain.Buttons("AddNode").Enabled = thereIsAMap
    
    tbarMain.Buttons("SymbolStyle").Enabled = thereIsAMap
    tbarMain.Buttons("LineStyle").Enabled = thereIsAMap
    tbarMain.Buttons("RegionStyle").Enabled = thereIsAMap
    tbarMain.Buttons("TextStyle").Enabled = thereIsAMap

    If thereIsAMap Then '有图层打开
        '* a map is open. Enable "Close Layer" only if a selection exists in the layer list box
        '    If .lstLayers.ListIndex < 1 Then
        '        .mnuFileClose.Enabled = False   '* map is open, but no tables selected
        '        MapInfo.Do "Alter Menu Item ID 1003 Disable"    '* disable item in shortcut menu
        '    Else
        '        .mnuFileClose.Enabled = True    '* map is open, table is selected
        '        MapInfo.Do "Alter Menu Item ID 1003 Enable"     '* enable item in shortcut menu
        '    End If
        '使选择工具选中
        tbarMain.Buttons("Select").Value = tbrPressed
        MapInfo.RunMenuCommand M_TOOLS_SELECTOR
    Else '没有打开一个图层,