form1.vb

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

        Me._panelHelp = New System.Windows.Forms.Panel()
        Me._WebBrowser2 = New AxSHDocVw.AxWebBrowser()
        CType(Me.Map, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.statusBarPanel1, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.statusBarPanel2, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.statusBarPanel3, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.statusBarPanel4, System.ComponentModel.ISupportInitialize).BeginInit()
        Me._panelIndex.SuspendLayout()
        Me._panelQuery.SuspendLayout()
        Me._panelDist.SuspendLayout()
        Me._panelBus.SuspendLayout()
        Me._panelOutput.SuspendLayout()
        CType(Me._WebBrowser, System.ComponentModel.ISupportInitialize).BeginInit()
        Me._panelHelp.SuspendLayout()
        CType(Me._WebBrowser2, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'MapControlToolBar
        '
        Me.MapControlToolBar.DropDownArrows = True
        Me.MapControlToolBar.Name = "MapControlToolBar"
        Me.MapControlToolBar.ShowToolTips = True
        Me.MapControlToolBar.Size = New System.Drawing.Size(632, 39)
        Me.MapControlToolBar.TabIndex = 0
        '
        'Map
        '
        Me.Map.Dock = System.Windows.Forms.DockStyle.Fill
        Me.Map.Location = New System.Drawing.Point(0, 39)
        Me.Map.Name = "Map"
        Me.Map.OcxState = CType(resources.GetObject("Map.OcxState"), System.Windows.Forms.AxHost.State)
        Me.Map.Size = New System.Drawing.Size(632, 358)
        Me.Map.TabIndex = 2
        '
        '_statusBar
        '
        Me._statusBar.Location = New System.Drawing.Point(0, 373)
        Me._statusBar.Name = "_statusBar"
        Me._statusBar.Panels.AddRange(New System.Windows.Forms.StatusBarPanel() {Me.statusBarPanel1, Me.statusBarPanel2, Me.statusBarPanel3, Me.statusBarPanel4})
        Me._statusBar.ShowPanels = True
        Me._statusBar.Size = New System.Drawing.Size(632, 24)
        Me._statusBar.TabIndex = 5
        Me._statusBar.Text = "中国地名指南"
        '
        'statusBarPanel1
        '
        Me.statusBarPanel1.Text = "北京市地理信息公众查询系统"
        Me.statusBarPanel1.Width = 300
        '
        'statusBarPanel2
        '
        Me.statusBarPanel2.Text = "北纬=0000.00 东经=0000.00"
        Me.statusBarPanel2.Width = 200
        '
        'statusBarPanel4
        '
        Me.statusBarPanel4.Alignment = System.Windows.Forms.HorizontalAlignment.Center
        Me.statusBarPanel4.Width = 500
        '
        'FeatureControlToolBar
        '
        Me.FeatureControlToolBar.Dock = System.Windows.Forms.DockStyle.Left
        Me.FeatureControlToolBar.DropDownArrows = True
        Me.FeatureControlToolBar.Location = New System.Drawing.Point(0, 39)
        Me.FeatureControlToolBar.Name = "FeatureControlToolBar"
        Me.FeatureControlToolBar.ShowToolTips = True
        Me.FeatureControlToolBar.Size = New System.Drawing.Size(39, 334)
        Me.FeatureControlToolBar.TabIndex = 6
        '
        '_panelIndex
        '
        Me._panelIndex.Controls.AddRange(New System.Windows.Forms.Control() {Me._index_comboBoxFilter2, Me._index_listBox, Me._index_comboBoxFilter, Me._index_txtName, Me._index_label2, Me._index_label1})
        Me._panelIndex.Location = New System.Drawing.Point(208, 34)
        Me._panelIndex.Name = "_panelIndex"
        Me._panelIndex.Size = New System.Drawing.Size(216, 328)
        Me._panelIndex.TabIndex = 12
        Me._panelIndex.Visible = False
        '
        '_index_comboBoxFilter2
        '
        Me._index_comboBoxFilter2.Anchor = ((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right)
        Me._index_comboBoxFilter2.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me._index_comboBoxFilter2.Location = New System.Drawing.Point(8, 104)
        Me._index_comboBoxFilter2.Name = "_index_comboBoxFilter2"
        Me._index_comboBoxFilter2.Size = New System.Drawing.Size(200, 20)
        Me._index_comboBoxFilter2.TabIndex = 13
        '
        '_index_listBox
        '
        Me._index_listBox.Anchor = (((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                    Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right)
        Me._index_listBox.ItemHeight = 12
        Me._index_listBox.Location = New System.Drawing.Point(8, 136)
        Me._index_listBox.Name = "_index_listBox"
        Me._index_listBox.Size = New System.Drawing.Size(200, 184)
        Me._index_listBox.TabIndex = 12
        '
        '_index_comboBoxFilter
        '
        Me._index_comboBoxFilter.Anchor = ((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right)
        Me._index_comboBoxFilter.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me._index_comboBoxFilter.Location = New System.Drawing.Point(8, 72)
        Me._index_comboBoxFilter.Name = "_index_comboBoxFilter"
        Me._index_comboBoxFilter.Size = New System.Drawing.Size(200, 20)
        Me._index_comboBoxFilter.TabIndex = 11
        '
        '_index_txtName
        '
        Me._index_txtName.Anchor = ((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right)
        Me._index_txtName.Location = New System.Drawing.Point(8, 24)
        Me._index_txtName.Name = "_index_txtName"
        Me._index_txtName.Size = New System.Drawing.Size(200, 21)
        Me._index_txtName.TabIndex = 10
        Me._index_txtName.Text = ""
        '
        '_index_label2
        '
        Me._index_label2.Location = New System.Drawing.Point(8, 56)
        Me._index_label2.Name = "_index_label2"
        Me._index_label2.Size = New System.Drawing.Size(72, 16)
        Me._index_label2.TabIndex = 9
        Me._index_label2.Text = "地名分类："
        '
        '_index_label1
        '
        Me._index_label1.Location = New System.Drawing.Point(8, 8)
        Me._index_label1.Name = "_index_label1"
        Me._index_label1.Size = New System.Drawing.Size(72, 16)
        Me._index_label1.TabIndex = 8
        Me._index_label1.Text = "地名名称："
        '
        '_panelQuery
        '
        Me._panelQuery.Controls.AddRange(New System.Windows.Forms.Control() {Me._query_comboBoxFilter2, Me._query_button, Me._query_checkBox3, Me._query_checkBox2, Me._query_checkBox1, Me._query_comboBoxFilter, Me._query_txtTel, Me._query_txtName, Me._query_label3, Me._query_label2, Me._query_label1})
        Me._panelQuery.Location = New System.Drawing.Point(280, 16)
        Me._panelQuery.Name = "_panelQuery"
        Me._panelQuery.Size = New System.Drawing.Size(216, 304)
        Me._panelQuery.TabIndex = 14
        Me._panelQuery.Visible = False
        '
        '_query_comboBoxFilter2
        '
        Me._query_comboBoxFilter2.Anchor = ((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right)
        Me._query_comboBoxFilter2.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me._query_comboBoxFilter2.Location = New System.Drawing.Point(8, 152)
        Me._query_comboBoxFilter2.Name = "_query_comboBoxFilter2"
        Me._query_comboBoxFilter2.Size = New System.Drawing.Size(200, 20)
        Me._query_comboBoxFilter2.TabIndex = 22
        '
        '_query_button
        '
        Me._query_button.Location = New System.Drawing.Point(8, 184)
        Me._query_button.Name = "_query_button"
        Me._query_button.Size = New System.Drawing.Size(72, 24)
        Me._query_button.TabIndex = 21
        Me._query_button.Text = "搜索"
        '
        '_query_checkBox3
        '
        Me._query_checkBox3.Location = New System.Drawing.Point(8, 264)
        Me._query_checkBox3.Name = "_query_checkBox3"
        Me._query_checkBox3.Size = New System.Drawing.Size(176, 24)
        Me._query_checkBox3.TabIndex = 20
        Me._query_checkBox3.Text = "电话为模糊查询"
        '
        '_query_checkBox2
        '
        Me._query_checkBox2.Location = New System.Drawing.Point(8, 240)
        Me._query_checkBox2.Name = "_query_checkBox2"
        Me._query_checkBox2.Size = New System.Drawing.Size(176, 24)
        Me._query_checkBox2.TabIndex = 19
        Me._query_checkBox2.Text = "地名为模糊查询"
        '
        '_query_checkBox1
        '
        Me._query_checkBox1.Location = New System.Drawing.Point(8, 216)
        Me._query_checkBox1.Name = "_query_checkBox1"
        Me._query_checkBox1.Size = New System.Drawing.Size(176, 24)
        Me._query_checkBox1.TabIndex = 18
        Me._query_checkBox1.Text = "地名和电话的组合关系为与"
        '
        '_query_comboBoxFilter
        '
        Me._query_comboBoxFilter.Anchor = ((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right)
        Me._query_comboBoxFilter.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me._query_comboBoxFilter.Location = New System.Drawing.Point(8, 120)
        Me._query_comboBoxFilter.Name = "_query_comboBoxFilter"
        Me._query_comboBoxFilter.Size = New System.Drawing.Size(200, 20)
        Me._query_comboBoxFilter.TabIndex = 17
        '
        '_query_txtTel
        '
        Me._query_txtTel.Anchor = ((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right)
        Me._query_txtTel.Location = New System.Drawing.Point(8, 72)
        Me._query_txtTel.Name = "_query_txtTel"
        Me._query_txtTel.Size = New System.Drawing.Size(200, 21)
        Me._query_txtTel.TabIndex = 16
        Me._query_txtTel.Text = ""
        '
        '_query_txtName
        '
        Me._query_txtName.Anchor = ((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right)
        Me._query_txtName.Location = New System.Drawing.Point(8, 24)
        Me._query_txtName.Name = "_query_txtName"
        Me._query_txtName.Size = New System.Drawing.Size(200, 21)
        Me._query_txtName.TabIndex = 15
        Me._query_txtName.Text = ""
        '
        '_query_label3
        '
        Me._query_label3.Location = New System.Drawing.Point(8, 104)
        Me._query_label3.Name = "_query_label3"
        Me._query_label3.Size = New System.Drawing.Size(72, 16)
        Me._query_label3.TabIndex = 14
        Me._query_label3.Text = "被过滤："
        '
        '_query_label2
        '
        Me._query_label2.Location = New System.Drawing.Point(8, 56)
        Me._query_label2.Name = "_query_label2"
        Me._query_label2.Size = New System.Drawing.Size(72, 16)
        Me._query_label2.TabIndex = 13
        Me._query_label2.Text = "电话："
        '
        '_query_label1
        '
        Me._query_label1.Location = New System.Drawing.Point(8, 8)
        Me._query_label1.Name = "_query_label1"
        Me._query_label1.Size = New System.Drawing.Size(72, 16)
        Me._query_label1.TabIndex = 12
        Me._query_label1.Text = "地名："
        '
        '_panelDist
        '
        Me._panelDist.Controls.AddRange(New System.Windows.Forms.Control() {Me._dis_label_Note, Me._dist_comboBoxFilter2, Me._dist_comboBoxFilter, Me._dist_button, Me._dist_radioButton2, Me._dist_radioButton1, Me._dist_comboBoxPos, Me._dist_label1, Me._dist_txtName})
        Me._panelDist.Location = New System.Drawing.Point(80, 48)
        Me._panelDist.Name = "_panelDist"
        Me._panelDist.Size = New System.Drawing.Size(208, 312)
        Me._panelDist.TabIndex = 15
        Me._panelDist.Visible = False
        '
        '_dis_label_Note
        '
        Me._dis_label_Note.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me._dis_label_Note.Location = New System.Drawing.Point(8, 224)
        Me._dis_label_Note.Name = "_dis_label_Note"
        Me._dis_label_Note.Size = New System.Drawing.Size(192, 80)
        Me._dis_label_Note.TabIndex = 22
        Me._dis_label_Note.Text = "    按位置查找时，选择了距离和过滤类型后，先按""搜索""按钮，然后将鼠标移动到地图上选择你所要查询的位置。"
        '
        '_dist_comboBoxFilter2
        '
        Me._dist_comboBoxFilter2.Anchor = ((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right)
        Me._dist_comboBoxFilter2.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me._dist_comboBoxFilter2.Location = New System.Drawing.Point(8, 152)
        Me._dist_comboBoxFilter2.Name = "_dist_comboBoxFilter2"
        Me._dist_comboBoxFilter2.Size = New System.Drawing.Size(192, 20)