mo+vb程序设计报告.docVIP

本科学生验证性 实验报告 姓名 学号 ＿ 专业＿ GIS ＿ 班级 10地信 ＿ 实验课程名称＿ GIS设计与开发 ＿＿ 指导教师及职称 ＿ ＿ ＿＿ 开课学期 2013 至 2014 学年 第一 学期 上课时间 2013 年 12 月 15 日 云南师范大学旅游与地理科学学院地理信息系统系 一、实验设计 实验名称：条件查询 实验时间：2013-12-15 小组合作：是（）否（√） 小组成员：无 实验内容（含实验原理介绍）： 1.1设计软件界面 1.2进行编程并进行调试 1.3对程序进行优化并进行调试 1.4实现如下界面功能： 功能解析： 1.4.1能够通过点击条件组合得到查询条件，基于MO提供的空间关系进行查询，并显示查询结果； 1.4.2能够根据查询结果得到属性表，并显示查询结果； 1.4.3根据查询出来的结果进行空间定位与显示。 实验目的： 学会使用SearchExpression方法，能利用这种方法进行条件查询，并能将查询结果进行显示，能根据查询记录定位、显示地理要素。 设计实验相关情况介绍（包含使用软件以及实验设备等）： （1）使用软件：MO软件和VB软件 （2）实验设备：计算机、Windows7系统、键盘、鼠标等。 实验过程、方法步骤： 4.1设计软件界面 首先新建一个查询窗体，并设计其界面 然后添加一个窗体，在添加一个按钮，作为空间查询点击的入口按钮 4.2进行编程并进行调试 4.2.1在主窗体中点击“条件查询”，显示条件查询窗体 代码如下： Private Sub Command1_Click() Form1.Show End Sub 4.2.2使地图的各图层的名在下拉菜单combo1中显示，并使下拉菜单字段名在list1中显示，即得到如下结果的功能 代码如下： 使地图的各图层的名在下拉菜单combo1中显示 Private Sub Form_Load() Dim plyr As New MapObjects2.MapLayer For Each plyr In Form2.Map1.Layers Combo1.AddItem plyr.Name Next plyr Combo1.ListIndex = 0 Text1.Text = End Sub 使下拉菜单字段名在list1中显示 Private Sub Combo1_Click() Set lyr = Form2.Map1.Layers(Combo1.ListIndex) Set precord = lyr.Records Dim ptable As New MapObjects2.TableDesc Set ptable = precord.TableDesc list1.Clear Dim i As Integer For i = 0 To ptable.FieldCount - 1 list1.AddItem ptable.FieldName(i) Next i End Sub 4.2.3在list1中点击属性，在list2显示属性值，即得到如下结果的功能 代码如下： 在list1中点击属性，在list2显示属性值 Private Sub list1_Click() Dim pfldname As String pfldname = list1.List(list1.ListIndex) list2.Clear precord.MoveFirst While Not precord.EOF list2.AddItem precord.Fields(pfldname).ValueAsString precord.MoveNext Wend End Sub 4.2.4在text1中获得查询条件（即双击list1字段名，双击list2字段名，然后在text1中显示，单击表达式构造符号按钮在text1中显示），即得到如下结果的功能 代码如下： 双击list1字段名，在text中显示 Private Sub list1_DblClick() Text1.Text = Text1.Text + list1.List(list1.ListIndex) End Sub 双击list2字段名，在text中显示 Private Sub list2_DblClick() Text1.Text = Text1.Text + list2.List(list2.ListIndex) End Sub 单击各个符号在text1中进行显示 Private Sub Command5_Cli