空间查询实验报告

本科学生实验报告

学号姓名

学院专业、班级

实验课程名称

教师及职称

开课学期至学年学期填报时间年月日

云南师范大学教务处编印

实验序号实验名称空间查询

实验时间2014年5月8日实验室GIS实验室

一．实验预习

1．实验目的

通过绘制图形实现对shapfile文件的查询

2．实验原理、实验流程或装置示意图（试验浓缩版步骤或者流程图）借助VB工具和MO模块实现画点、线、面、多边形，shapfile文件的查询。3．实验设备及材料

计算机，VB6.0软件，MO组件。

（1）实验方法步骤及注意事项

一：利用VB工具制作界面（添加按钮，图像显示框，图像目录框架）；

首先在部件里面加载：ESRI MapObjects2.2；ESRI MapObjects LegendControl;；Microsoft Common Dialog Controls 6.0；Microsoft Windows Common Controls6.0。

等

窗体1界面；

窗体二界面：

二：在代码窗口编写代码

窗体1代码如下：

Option Explicit

Dim pShape As Object

Dim pt As MapObjects2.Point

Dim pLine As MapObjects2.Line

Dim pRectangle As MapObjects2.Rectangle

Dim pPolygon As MapObjects2.Polygon

Dim recs As MapObjects2.Recordset

Private Sub Command1_Click()

frmAdSpatialSel.Show

End Sub

Private Sub Map1_AfterTrackingLayerDraw(ByVal hDC As stdole.OLE_HANDLE) Dim pSymSel As New MapObjects2.Symbol

Dim pSym As New MapObjects2.Symbol

If Not pt Is Nothing Then

pSym.Color = moBlue

Map1.DrawShape pt, pSym

End If

If Not pLine Is Nothing Then

pSym.Color = moBlue

Map1.DrawShape pLine, pSym

End If

If Not pRectangle Is Nothing Then

2、线查询

3、矩形查询：

4、多边形查询：

a)实验内容