mo+vb程序设计报告

《mo+vb程序设计报告》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、本科学生验证性实验报告姓名学号＿专业＿GIS＿班级10地信＿实验课程名称＿GIS设计与开发＿＿指导教师及职称＿＿＿＿开课学期2013至2014学年第一学期上课时间2013年12月15日云南师范大学旅游与地理科学学院地理信息系统系17一、实验设计实验名称：条件查询实验时间：2013-12-15小组合作：是（）否（√）小组成员：无1、实验内容（含实验原理介绍）：1.1设计软件界面1.2进行编程并进行调试1.3对程序进行优化并进行调试1.4实现如下界面功能：功能解析：1.4.1能够通过点击条件组合得到查询条件，基于MO提供的空间关系进行查询，并显示查询结果；

2、1.4.2能够根据查询结果得到属性表，并显示查询结果；1.4.3根据查询出来的结果进行空间定位与显示。2、实验目的：学会使用SearchExpression方法，能利用这种方法进行条件查询，并能将查询结果进行显示，能根据查询记录定位、显示地理要素。171、设计实验相关情况介绍（包含使用软件以及实验设备等）：（1）使用软件：MO软件和VB软件（2）实验设备：计算机、Windows7系统、键盘、鼠标等。2、实验过程、方法步骤：4.1设计软件界面首先新建一个查询窗体，并设计其界面然后添加一个窗体，在添加一个按钮，作为空间查询点击的入口按钮4.2进行编程并进行

3、调试4.2.1在主窗体中点击“条件查询”，显示条件查询窗体代码如下：17PrivateSubCommand1_Click()Form1.ShowEndSub4.2.2使地图的各图层的名在下拉菜单combo1中显示，并使下拉菜单字段名在list1中显示，即得到如下结果的功能代码如下：'使地图的各图层的名在下拉菜单combo1中显示PrivateSubForm_Load()DimplyrAsNewMapObjects2.MapLayerForEachplyrInForm2.Map1.LayersCombo1.AddItemplyr.NameNextplyr

4、Combo1.ListIndex=0Text1.Text=""EndSub使下拉菜单字段名在list1中显示PrivateSubCombo1_Click()Setlyr=Form2.Map1.Layers(Combo1.ListIndex)Setprecord=lyr.RecordsDimptableAsNewMapObjects2.TableDescSetptable=precord.TableDesclist1.ClearDimiAsIntegerFori=0Toptable.FieldCount-1list1.AddItemptable.Fiel

5、dName(i)17NextiEndSub4.2.3在list1中点击属性，在list2显示属性值，即得到如下结果的功能代码如下：'在list1中点击属性，在list2显示属性值PrivateSublist1_Click()DimpfldnameAsStringpfldname=list1.List(list1.ListIndex)list2.Clearprecord.MoveFirstWhileNotprecord.EOFlist2.AddItemprecord.Fields(pfldname).ValueAsStringprecord.MoveNe

6、xtWendEndSub4.2.4在text1中获得查询条件（即双击list1字段名，双击list2字段名，然后在text1中显示，单击表达式构造符号按钮在text1中显示），即得到如下结果的功能17代码如下：'双击list1字段名，在text中显示PrivateSublist1_DblClick()Text1.Text=Text1.Text+list1.List(list1.ListIndex)EndSub'双击list2字段名，在text中显示PrivateSublist2_DblClick()Text1.Text=Text1.Text+list2

7、.List(list2.ListIndex)EndSub'单击各个符号在text1中进行显示PrivateSubCommand5_Click()Text1.Text=Text1.Text+Command5.CaptionEndSubPrivateSubCommand6_Click()Text1.Text=Text1.Text+Command5.captionEndSubPrivateSubCommand7_Click()Text1.Text=Text1.Text+"and"EndSubPrivateSubCommand8_Click()17Text1.

8、Text=Text1.Text+Command8.captionEndSubPrivateSu