VB_MO的空间查询方法.doc

本科学生综合性、设计性 实验报告 姓名 陈俊屹 学号 104130102 ＿ 专业＿ GIS ＿ 班级＿2010GIS ＿ 实验课程名称＿ GIS设计与开发 ＿＿ 指导教师及职称 彭双云＿＿ ＿＿＿＿ 开课学期 2013 至 2014 学年 第 一 学期 上课时间 2013 年 11 月 19 日 云南师范大学旅游与地理科学学院地理信息系统系 一、实验设计 实验名称： SearchByDistance和SearchShape联合查询 实验时间： 2013-11-19 小组合作：是（）否（√） 小组成员：无 实验内容（含实验原理介绍）： 能够通过绘制点线面等图形，基于MO提供的空间关系进行查询，并显示查询结果； 能够根据图上选择的地理要素，基于MO提供的空间关系进行查询，并显示查询结果； 根据查询出来的结果进行空间定位与显示。 实验目的： 学会使用SearchByDistance和SearchShape方法，能利用这两种方法进行空间查询，并能将查询结果进行显示，能根据查询记录定位、显示地理要素。 设计实验相关情况介绍（包含使用软件以及实验设备等）： 3.1 实验设计思想 本实验是使用MO方法，对于地图处理软件做开发设计，提高学生的软件设计思维与开发能力。 3.2 使用软件与实验设备 软件：Microsoft Visual Basic 6.0 中文版 实验设备：学院实验室window XP 系统的计算机及相关软件。 实验过程、方法步骤： 操作步骤： 打开Microsoft Visual Basic 6.0 中文版软件，运行程序：工程1。 打开空间查询文件夹的工程1.vbp。如下： 4.3打开MainMap窗体如上，添加Command1按钮与Map控件、并在其编码区输入如下代码： Option Explicit Private Sub Command1_Click() frmSpatialQ.Show End Sub Private Sub Map1_AfterTrackingLayerDraw(ByVal hDC As stdole.OLE_HANDLE) Dim pSymSel As New MapObjects2.Symbol pSymSel.Color = moRed Dim pSymRecordset As New MapObjects2.Symbol pSymRecordset.Color = moYellow If Not pSel Is Nothing Then Map1.DrawShape pSel, pSymSel If Not Recordset Is Nothing Then Map1.DrawShape Recordset, pSymRecordset Dim pSym As New MapObjects2.Symbol If Not pRectangle Is Nothing Then pSym.SymbolType = moFillSymbol pSym.Style = moTransparentFill pSym.OutlineColor = moRed Map1.DrawShape pRectangle, pSym End If If Not pPolygon Is Nothing Then pSym.SymbolType = moFillSymbol pSym.Style = moTransparentFill pSym.OutlineColor = moRed Map1.DrawShape pPolygon, pSym End If End Sub 各种查询方法的实现 Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 点查询方法 If frmSpatialQ.Toolbar1.Buttons(1).Value = tbrPressed Then Set pt = Map1.ToMapPoint(X, Y) Set pShape = pt Set pRectangle = Nothing Set pPolygon = Nothing Execu