form1.vb

用vb.net和gis组建MO实现了一个地名数据库地理信息系统

        Dim toolBarButton20 As New ToolBarButton()
        toolBarButton20.ImageIndex = 20
        toolBarButton20.ToolTipText = "学校分布"
        toolBarButton20.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
        toolBarButton20.Pushed = True

        Dim toolBarButton21 As New ToolBarButton()
        toolBarButton21.ImageIndex = 21
        toolBarButton21.ToolTipText = "医院分布"
        toolBarButton21.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
        toolBarButton21.Pushed = True

        Dim toolBarButton22 As New ToolBarButton()
        toolBarButton22.ImageIndex = 10
        toolBarButton22.ToolTipText = "分布图"

        Dim toolBarButton23 As New ToolBarButton()
        toolBarButton23.ImageIndex = 10
        toolBarButton23.ToolTipText = "分布图"

        Dim toolBarButton24 As New ToolBarButton()
        toolBarButton24.ImageIndex = 16
        toolBarButton24.ToolTipText = "打印"

        Dim toolBarButton26 As New ToolBarButton()
        toolBarButton26.ImageIndex = 22
        toolBarButton26.ToolTipText = "帮助"

        Dim toolBarButton25 As New ToolBarButton()
        toolBarButton25.ImageIndex = 17
        toolBarButton25.ToolTipText = "退出"

        MapControlToolBar.Buttons.Add(toolBarButton0)
        MapControlToolBar.Buttons.Add(toolBarButton1)
        MapControlToolBar.Buttons.Add(toolBarButton2)
        MapControlToolBar.Buttons.Add(toolBarButton3)
        MapControlToolBar.Buttons.Add(toolBarButton4)

        MapControlToolBar.Buttons.Add(toolBarButton0)

        MapControlToolBar.Buttons.Add(toolBarButton7)
        MapControlToolBar.Buttons.Add(toolBarButton8)
        MapControlToolBar.Buttons.Add(toolBarButton10)
        MapControlToolBar.Buttons.Add(toolBarButton11)

        MapControlToolBar.Buttons.Add(toolBarButton0)

        MapControlToolBar.Buttons.Add(toolBarButton30)
        MapControlToolBar.Buttons.Add(toolBarButton31)
        MapControlToolBar.Buttons.Add(toolBarButton32)
        MapControlToolBar.Buttons.Add(toolBarButton12)
        MapControlToolBar.Buttons.Add(toolBarButton13)
        MapControlToolBar.Buttons.Add(toolBarButton14)
        MapControlToolBar.Buttons.Add(toolBarButton15)
        MapControlToolBar.Buttons.Add(toolBarButton16)
        MapControlToolBar.Buttons.Add(toolBarButton17)
        MapControlToolBar.Buttons.Add(toolBarButton33)

        MapControlToolBar.Buttons.Add(toolBarButton0)
        MapControlToolBar.Buttons.Add(toolBarButton24)
        MapControlToolBar.Buttons.Add(toolBarButton26)
        MapControlToolBar.Buttons.Add(toolBarButton25)
    End Sub
    '---------------------------------------------------------------------

    '---------------------------------------------------------------------
    Protected Sub CreateFeatrueControlToolbar()
        FeatureControlToolBar.ImageList = _imagesToolbar16_2

        Dim toolBarButton0 As New ToolBarButton()
        toolBarButton0.Style = System.Windows.Forms.ToolBarButtonStyle.Separator

        Dim toolBarButton As New ToolBarButton()
        toolBarButton.ImageIndex = 14
        toolBarButton.ToolTipText = "所有地名"
        toolBarButton.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
        toolBarButton.Pushed = True

        Dim toolBarButton1 As New ToolBarButton()
        toolBarButton1.ImageIndex = 0
        toolBarButton1.ToolTipText = "购物分布"
        toolBarButton1.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
        toolBarButton1.Pushed = True

        Dim toolBarButton2 As New ToolBarButton()
        toolBarButton2.ImageIndex = 1
        toolBarButton2.ToolTipText = "旅游点分布"
        toolBarButton2.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
        toolBarButton2.Pushed = True

        Dim toolBarButton3 As New ToolBarButton()
        toolBarButton3.ImageIndex = 2
        toolBarButton3.ToolTipText = "学校分布"
        toolBarButton3.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
        toolBarButton3.Pushed = True

        Dim toolBarButton4 As New ToolBarButton()
        toolBarButton4.ImageIndex = 3
        toolBarButton4.ToolTipText = "医院分布"
        toolBarButton4.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
        toolBarButton4.Pushed = True

        Dim toolBarButton5 As New ToolBarButton()
        toolBarButton5.ImageIndex = 4
        toolBarButton5.ToolTipText = "宾馆分布"
        toolBarButton5.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
        toolBarButton5.Pushed = True

        Dim toolBarButton6 As New ToolBarButton()
        toolBarButton6.ImageIndex = 5
        toolBarButton6.ToolTipText = "银行分布"
        toolBarButton6.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
        toolBarButton6.Pushed = True

        Dim toolBarButton7 As New ToolBarButton()
        toolBarButton7.ImageIndex = 6
        toolBarButton7.ToolTipText = "加油站分布"
        toolBarButton7.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
        toolBarButton7.Pushed = True

        Dim toolBarButton8 As New ToolBarButton()
        toolBarButton8.ImageIndex = 7
        toolBarButton8.ToolTipText = "电影音乐厅分布"
        toolBarButton8.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
        toolBarButton8.Pushed = True

        Dim toolBarButton9 As New ToolBarButton()
        toolBarButton9.ImageIndex = 8
        toolBarButton9.ToolTipText = "餐馆分布"
        toolBarButton9.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
        toolBarButton9.Pushed = True

        Dim toolBarButton10 As New ToolBarButton()
        toolBarButton10.ImageIndex = 9
        toolBarButton10.ToolTipText = "WC分布"
        toolBarButton10.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
        toolBarButton10.Pushed = True

        Dim toolBarButton11 As New ToolBarButton()
        toolBarButton11.ImageIndex = 10
        toolBarButton11.ToolTipText = "邮局分布"
        toolBarButton11.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
        toolBarButton11.Pushed = True

        Dim toolBarButton12 As New ToolBarButton()
        toolBarButton12.ImageIndex = 11
        toolBarButton12.ToolTipText = "图书馆分布"
        toolBarButton12.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
        toolBarButton12.Pushed = True

        Dim toolBarButton13 As New ToolBarButton()
        toolBarButton13.ImageIndex = 12
        toolBarButton13.ToolTipText = "车站"
        toolBarButton13.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
        toolBarButton13.Pushed = True

        FeatureControlToolBar.Buttons.Add(toolBarButton0)
        FeatureControlToolBar.Buttons.Add(toolBarButton0)
        FeatureControlToolBar.Buttons.Add(toolBarButton)
        FeatureControlToolBar.Buttons.Add(toolBarButton1)
        FeatureControlToolBar.Buttons.Add(toolBarButton2)
        FeatureControlToolBar.Buttons.Add(toolBarButton3)
        FeatureControlToolBar.Buttons.Add(toolBarButton4)
        FeatureControlToolBar.Buttons.Add(toolBarButton5)
        FeatureControlToolBar.Buttons.Add(toolBarButton6)
        FeatureControlToolBar.Buttons.Add(toolBarButton7)
        FeatureControlToolBar.Buttons.Add(toolBarButton8)
        FeatureControlToolBar.Buttons.Add(toolBarButton9)
        FeatureControlToolBar.Buttons.Add(toolBarButton10)
        FeatureControlToolBar.Buttons.Add(toolBarButton11)
        FeatureControlToolBar.Buttons.Add(toolBarButton12)
        FeatureControlToolBar.Buttons.Add(toolBarButton13)
    End Sub
    '---------------------------------------------------------------------
    Protected Sub Initialize()
        _environment = New CEnvironment()
        _environment.m_szSDBPath = Application.StartupPath + "\\电子地图\\"
        _environment.m_szDBName = Application.StartupPath + "\\地名数据库.mdb"
        _environment.m_AppPath = Application.StartupPath
        _environment.m_szHelpPath = Application.StartupPath + "\帮助\start.htm"
    End Sub
    '---------------------------------------------------------------------
    Private Sub LoadData()
        CreateDataSet()

        _environment.m_db = New MapObjects2.DataConnection()
        _environment.m_db.Database = _environment.m_szSDBPath
    End Sub
    '---------------------------------------------------------------------
    Private Sub CreateDataSet()
        Dim strConnectionString As String
        Dim strDatabasePath As String

        ' 创建连接字符串
        strDatabasePath = Application.StartupPath
        strConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + _environment.m_szDBName + ";Persist Security Info=False"

        ' 调用连接对象的Open方法连接数据库
        Dim myConnection As New System.Data.OleDb.OleDbConnection(strConnectionString)
        Try
            myConnection.Open()
        Catch myException As System.InvalidOperationException
            MessageBox.Show("Message: " + myException.Message + "\n" + "Source: " + myException.Source + "\n")
        Catch myException As System.Data.OleDb.OleDbException
            Dim i As Integer
            For i = 0 To myException.Errors.Count
                MessageBox.Show("Index #" + i.ToString() + "\n" + "Message: " + myException.Errors(i).Message + "\n" + "Native: " + myException.Errors(i).NativeError.ToString() + "\n" + "Source: " + myException.Errors(i).Source + "\n" + "SQL: " + myException.Errors(i).SQLState + "\n")
            Next
        End Try

        ' 创建数据库
        ' 首先创建数据字典
        _environment.m_dataSet = New System.Data.DataSet("地名数据库")

        Dim myDataAdapter As New System.Data.OleDb.OleDbDataAdapter("Select * From 地图集信息表", myConnection)
        myDataAdapter.Fill(_environment.m_dataSet, "地图集信息表")

        ' 创建地图集
        Dim mapsTbl As System.Data.DataTable
        mapsTbl = _environment.m_dataSet.Tables("地图集信息表")
        Dim rowsMaps As System.Data.DataRow() = mapsTbl.Select()

        _environment.m_nMapNum = rowsMaps.Length
        ReDim _environment.m_mapInfos(_environment.m_nMapNum - 1)

        Dim nIndex As Integer = 0
        Dim myRow As System.Data.DataRow

        ' 设置_environment.m_mapInfos对象的成员属性
        For Each myRow In rowsMaps
            Dim szTableName As String = myRow("表名").ToString()

            If szTableName <> "" Then
                _environment.m_mapInfos(nIndex) = New MapInfo()
                _environment.m_mapInfos(nIndex).szName = myRow("名称").ToString()
                _environment.m_mapInfos(nIndex).szMetaTable = szTableName
                _environment.m_mapInfos(nIndex).szIndexTable = myRow("索引表名").ToString()

                myDataAdapter.SelectCommand.CommandText = "Select * From " + szTableName + " Where 存在 = True Order By 显示次序1,显示次序2,id"
                myDataAdapter.Fill(_environment.m_dataSet, szTableName)

                If _environment.m_mapInfos(nIndex).szIndexTable <> "" Then
                    myDataAdapter.SelectCommand.CommandText = "Select * From " + _environment.m_mapInfos(nIndex).szIndexTable + " Order By id"
                    myDataAdapter.Fill(_environment.m_dataSet, _environment.m_mapInfos(nIndex).szIndexTable)
                End If

                _environment.m_mapInfos(nIndex).rect = New MapObjects2.Rectangle()
                _environment.m_mapInfos(nIndex).rect.Left = myRow("X1")
                _environment.m_mapInfos(nIndex).rect.Top = myRow("Y1")
                _environment.m_mapInfos(nIndex).rect.Right = myRow("X2")
                _environment.m_mapInfos(nIndex).rect.Bottom = myRow("Y2")

                nIndex = nIndex + 1
            End If
        Next

        _environment.m_nCurrMapIndex = 0

        myDataAdapter.SelectCommand.CommandText = "Select 大类 From 地名类型"
        myDataAdapter.Fill(_environment.m_dataSet, "地名类型")

        myDataAdapter.SelectComma