属性条件查询集__GIS动力站_ArcGIS|开源|虚拟地理环境|算法|工程|信息空间化|WebGIS

示范SuperMap Objects 的SQL查询功能（主要是使用soDatasetVector对象的Query方法）和高亮显示选中的对象。soSelection是一个临时记录集，它提供了把其它记录转入为临时记录集的FromRecordset方法,高亮显示这个临时记录集；同时提供了把临时记录集转出为一个新的记录集的方法ToRecordset,实现了记录集与选择记录集之间的动态交换。

数据来源：..\Data\World目录下的World.sdb和World.sdd两个文件

所用SuperMap Objects 组件、对象的主要属性和方法：

控件及对象	属性	方法
SuperWorkspace		OpenDatasource
SuperMap	Selection
soRecordset		GetFieldInfos,GetFieldValue
soDatasetVector		Query,GetGeometry
soDgnLinks		ConvertToString
soDataSource		RecordsetToDataset

功能实现：


	配置SQL条件窗口，进行模糊查询
	frmSQLExpression.Show vbModal, Me '显示配置SQL条件窗口

	Set objDtVector = Form1.SuperMap1.Layers.Item(cmbLayerName.Text).Dataset
	Set objRecordset = objDtVector.Query(Trim$(txtExpression.Text), False, , _
	"order by " & cmbSortfield.Text & " ASC") '不取空间数据,升序排列
	Set objRecordset = objDtVector.Query(Trim$(txtExpression.Text), False, , _
	"order by " & cmbSortfield.Text & " Desc") '不取空间数据,降序排列
	Set objRecordset = objDtVector.Query(Trim$(txtExpression.Text), True) '要取空间数据
	Set objDs = Form1.SuperWorkspace1.Datasources.Item(cmbDSName.Text) '保存为数据集
	objDs.IsAvailableDatasetName(txtDtName.Text) '检查数据集名是否合法
	objDt = objDs.RecordsetToDataset(objRecordset, Trim$(txtDtName.Text)) '生成数据集
	Form1.SuperMap1.Layers.AddDataset objDt, True '加入数据集

	显示查询结果窗口:
	Load frmDataSetStru

	Set frmDataSetStru.objRecordset = objRecordset
	Set frmDataSetStru.objDt = objDtVector
	frmDataSetStru.Show , Form1
	使选中的记录高亮显示
	Form1.SuperMap1.Selection.FromRecordset objRecordset '高亮显示查询到的数据集

	单独显示查询结果:
	For i = 2 To SuperMap1.Layers.Count '隐藏其它图层
	SuperMap1.Layers(i).Visible = False
	Next

（本文已被浏览次）

发布人：admin
推荐给好友:

上篇新闻：
下篇新闻：