正文描述:《考试必考mapobjects特征查找》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、MapObject特征查询二、实验内容、步骤和结果(要求:详细写清楚本次实验的完成的主要内容、具体实施步骤和实验结果。纸张不够可以自行添加。)一、打开一个VB标准工程,该工程包含两个窗体Form1和Form2。分别对两个窗体进行界面设计。具体的设计步骤如下所示:(1)在工程中添加部件:ESRIMapObjects2.2,MicrosoftFlexGridcontrol6.0(2)在Form1中添加一个Map控件和一个command控件,在Map中添加相应的数据,以便运行时使用。设计完的Form1如下图所示:(3)Form2是该实验中界面设计的主要部分,其设计界面如下图所示:二、编写相应
2、的代码(1)在Form1的代码窗口中编写如下代码,实现单击查询按钮后显示查询窗体的界面。PrivateSubCommand1_Click()Form2.ShowEndSub运行程序前先在Map1中添加图形文件【整的思路:窗体加载时,在combo1中则显示地图的所有图层(该地图为多图层地图),点击combo1则会在list1中出现对应选择图层图层的属性名,点击list1则会在list2中显示出与list1先对应属性的属性值。】(2)在Combo1中添加图层,在窗体加载时,就在Combo1中显示图层名。PrivateSubForm_Load()Callloadlys定义一个加载子过程End
3、SubPrivateSubloadlyrs()申明子过程Combo1.Clear'清空ForEachlyrInForm1.Map1.Layerslyr为图层Iflyr.LayerType=moMapLayerThenCombo1.AddItemlyr.NameEndIfNextlyrCombo1.ListIndex=0EndSub(3)点击combo1设置combo1中选中的图层,并将该图层的(记录集:records)属性名加载到list1中。PrivateSubCombo1_click()List1.ClearSetlyr=Form1.Map1.Layers(Combo1.ListI
4、ndex)lyr为当前combo1中选中的图层SetpRect=lyr.RecordsSettDesc=pRect.TableDescFori=0TotDesc.FieldCount–1将combo1中选中图层的属性名依次加入到list1中List1.AddItemtDesc.FieldName(i)NextiEndSubB、单击字段名列表中的字段在字段值列表中显示相应的字段值PrivateSubList1_Click()List2.ClearSetpRect=lyr.RecordspRect.MoveFirstDimstrFieldAsStringstrField=List1.Lis
5、t(List1.ListIndex)WhileNotpRect.EOFList2.AddItempRect.Fields(strField).ValueAsStringpRect.MoveNextWendEndSub该步骤运行结果如图所示:(1)双击列表框(list)中的字段名、字段值;单击按钮构建查询语句,并使查询的SQL语句在文本框(textbox)中显示:首先输入list1中的属性名PrivateSubList1_DblClick()双击DimtempstringAsStringtempstring=Right(Text1.Text,3)Iftempstring="And"Ort
6、empstring="or"Ortempstring="!"ThenText1.Text=Text1.Text&""&List1ElseText1.Text=Text1.Text&List1EndIfEndSub然后选择list2中对应的属性值,此时要进行判断,要不构建的where语句将出错PrivateSubList2_DblClick()DimstrSQLAsStringIfpRect.Fields(List1.List(List1.ListIndex)).Type=moStringThen使用type判断其属性值类型Text1.Text=Text1.Text&"'"&List2&
7、"'"ElseText1.Text=Text1.Text&List2EndIfEndSub该部分运行结果如图所示:(1)点击“查询”按钮,在MSHFlexGrid1中显示相应的属性表“太难可省PrivateSubCommand2_Click(IndexAsInteger)Setg_sRecordset=lyr.SearchExpression(Text1.Text)WithMSFlexGrid1.Cols=tDesc.FieldCount'测试
显示全部收起
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。