地理信息系统设计与应用实验报告 - 图文

Form2.Show

4）切换鼠标状态为选择，然后选择地图窗口上的一个几何对象后就会在SuperGridView中显示属性

SuperMap1.Action = scaSelect 5）退出程序 SuperMap1.Close

SuperMap1.Disconnect '断开链接,关闭工作空间控件 SuperWorkspace1.Close SuperMap1.Refresh Unload Me 6）SQL查询

Dim objrs As soRecordset Dim objdv As soDatasetVector

Set objdv = SuperMap1.Layers.Item(Combo1.ListIndex + 1).Dataset ‘获取矢量数据集 Set objrs = objdv.Query(LTrim(Text1.Text), True) ‘执行查询

SuperMap1.Selection.FromRecordset objrs ‘转化为记录集，高亮显示 Form2.SuperGridView1.Connect objrs ‘建立连接 Form2.SuperGridView1.Update ‘更新

7）地图浏览操作，主要代码同实验二1中的关键代码部分4）

8）SuperMap1的GeometrySelected事件：功能：点击地图上的几何对象，在GridView中显示属性信息。

Dim objrecordset As soRecordset

Set objrecordset = SuperMap1.Selection.ToRecordset(False) '将选择集转化为记录集

Form2.SuperGridView1.Connect objrecordset '将记录集放在SuperGridView中绑定显示 Form2.SuperGridView1.Update '更新 Set objrecordset = Nothing

9）用于输入一定的属性查询条件的Text1 ，每次点击前都进行一次清空。 Text1.Text = \

Text1.Text = Text1.Text + Combo2.Text 一．运行调试：

无法将当前选中的地理实体的图层列于组合框中。属性查图时，需点击全部显示才能看到地理实体在地图上的显示。

5 总结

通过本次对于重邮校内地物信息分析，给予了一定的校内地图位置信息。并且通过此结果对校内地物存在有一定的参考价值。

在这次的设计过程中，遇到了很多的问题，也参考了很多资料，对于VS以及ArcGis的了解也逐渐加深，发现如果灵活运用，可以制作出功能不同，但是都是对于人们日常生活非常有用的程序，并且可以运用到各个方面。

在本次的作业过程中还需要特别感谢同学们不求回报的帮助，也是帮助我们在基础知识不扎实的情况下艰难完成了本次作业，也让我们深刻的感受到了学习的重要性，也发现了自身的不足之处，希望在未来的学习生活中严格要求自己，取的更好的成绩。