mapx下完成的多項實例程序

1、mapx下完成的多項實例程序下完成的多項實例程序如何在MapX下讀取屬性值有三種方法：1由Layer對象的KeyField屬性來設(shè)立要讀取屬性值的字段名。接著，由Feature對象的keyValue讀取此行的屬性值。2將圖層加入到Datasets由Dataset對象的Value（xy）屬性，通過設(shè)置行號，列號來獲得屬性值。3將圖層加入到Datasets之后由RowValues(ftr)獲取整行的值。DimdsAsMapXLib.Data

2、setlyrAsMapXLib.layerDimftrsAsFeaturesDimftrAsFeatureDimrvAsRowValueDimrvsAsRowValuesDimDsNameAsString‘?dāng)?shù)據(jù)集名DimDsRowsAsLongDsColsAsLongDimiAsLongjAsLongSetds=Fmmain.Map1.Datasets.Item(DsName)Setlyr=ds.layerSetftrs=lyr.All

3、FeaturesDsCols=ds.Fields.CountDsCols=DsCols1DsRows=ftrs.CountGrid1.Rows=DsRows1Grid1.Cols=DsColsGrid1.Row=0Fi=0ToDsCols1Grid1.Col=iGrid1.Text=ds.Fields.Item(i1).NameNextiGrid1.Col=DsCols1Grid1.Text=“Fkey“l(fā)yr.BeginAccessm

4、iAccessReadi=1FEachftrInftrsSetrvs=ds.RowValues(ftr)j=0FEachrvInrvsthm.ThemeProperties.RangeCategies(6).Min=550thm.ThemeProperties.RangeCategies(7).Max=750thm.ThemeProperties.RangeCategies(7).Min=puteTheme=Truethm.Auteco

5、mpute=Truethm.Visible=True回頁首在mapx中查找對象的方法兩種方式：1使用Find對象的Search方法。在mapx3.5中只能作到完全匹配查找，在MapX4.0中SearchEx方法則可以找到多個匹配的記錄，其結(jié)果由FindResult.Matches獲取。詳細(xì)請參看有關(guān)Find.SearchEx方法的文檔以及示例。2使用Layer對象的OBJECT.Search(strWhere)方法。其參數(shù)為SQL查詢的

6、WHERE子句。例如：Setftrs=lyr.Search(“acter_Name=““北京市“““)；Setftrs=lyrUSA.Search(“TOTPOP1000000“)注意：1。字符串外加兩個雙引號。2。首先將圖層加入數(shù)據(jù)集Datasets才能使用查詢。模糊查詢最方便的方法是使用第二種方法例如Setftrs=lyr.Search(“acter_Namelike““%市“““)；模糊查詢回頁首在mapx中如何緊縮表在Mapx4

7、.51下可以使用LayerInfo的創(chuàng)建帶結(jié)構(gòu)的臨時表和新表的功能來完成緊縮：Setlyr=Fmmain.Map1.Layers(bo1.Text)Setds=Fmmain.Map1.Datasets.add(6lyr)獲取被緊縮表的路徑及表名filespec=Fmmain.Map1.Layers.Item(bo1.Text).filespeclayername=lyr.Name將表臨時存放于內(nèi)存LayerInfo.Type=6miLa

8、yerInfoTypeTempLayerInfo.AddParameter“TableStageType““MemTable“臨時文件保存在磁盤上還是內(nèi)存。LayerInfo.AddParameter“Name““l(fā)yrpack“LayerInfo.AddParameter“Fields“ds.FieldsLayerInfo.AddParameter“Features“l(fā)yr.AllFeaturesFmmain.Map1.Layers.

9、addLayerInfoLayerPosSetLayerInfo=Nothing從地圖窗口刪除原表Fmmain.Map1.Datasets.Remove(ds.Name)Fmmain.Map1.Layers.Remove(lyr.Name)Fmmain.Map1.RefreshSetlyr=NothingSetds=NothingSetlyr=Fmmain.Map1.Layers(“l(fā)yrpack“)Setds=Fmmain.Map1.