考試必考Mapobjects特征查找.doc

MapObject特征查詢二、實(shí)驗(yàn)內(nèi)容、步驟和結(jié)果（要求：詳細(xì)寫清楚本次實(shí)驗(yàn)的完成的主要內(nèi)容、具體實(shí)施步驟和實(shí)驗(yàn)結(jié)果。紙張不夠可以自行添加。）一、 打開一個(gè)VB標(biāo)準(zhǔn)工程，該工程包含兩個(gè)窗體Form1和Form2。分別對(duì)兩個(gè)窗體進(jìn)行界面設(shè)計(jì)。具體的設(shè)計(jì)步驟如下所示：（1） 在工程中添加部件：ESRI MapObjects 2.2,Microsoft FlexGrid control 6.0 （2） 在Form1中添加一個(gè)Map控件和一個(gè)command控件，在Map中添加相應(yīng)的數(shù)據(jù)，以便運(yùn)行時(shí)使用。設(shè)計(jì)完的Form1如下圖所示：（3） Form2 是該實(shí)驗(yàn)中界面設(shè)計(jì)的主要部分，其設(shè)計(jì)界面如下圖所示：二、 編寫相應(yīng)的代碼（1） 在Form1的代碼窗口中編寫如下代碼，實(shí)現(xiàn)單擊查詢按鈕后顯示查詢窗體的界面。Private Sub Command1_Click()Form2.ShowEnd Sub運(yùn)行程序前先在Map1中添加圖形文件【整的思路：窗體加載時(shí)，在combo1中則顯示地圖的所有圖層（該地圖為多圖層地圖），點(diǎn)擊combo1則會(huì)在list1 中出現(xiàn)對(duì)應(yīng)選擇圖層圖層的屬性名，點(diǎn)擊list1則會(huì)在list2中顯示出與list1先對(duì)應(yīng)屬性的屬性值?！浚?） 在Combo1中添加圖層，在窗體加載時(shí)，就在Combo1中顯示圖層名。 Private Sub Form_Load() Call loadlys 定義一個(gè)加載子過程End SubPrivate Sub loadlyrs() 申明子過程 Combo1.Clear 清空 For Each lyr In Form1.Map1.Layers lyr為圖層 If lyr.LayerType = moMapLayer Then Combo1.AddItem lyr.Name End If Next lyr Combo1.ListIndex = 0End Sub （3）點(diǎn)擊combo1設(shè)置combo1中選中的圖層，并將該圖層的（記錄集：records）屬性名加載到list1中。Private Sub Combo1_click() List1.Clear Set lyr = Form1.Map1.Layers(Combo1.ListIndex) lyr為當(dāng)前combo1中選中的圖層 Set pRect = lyr.Records Set tDesc = pRect.TableDesc For i = 0 To tDesc.FieldCount 1 將combo1中選中圖層的屬性名依次加入到list1中 List1.AddItem tDesc.FieldName(i) Next iEnd SubB、單擊字段名列表中的字段在字段值列表中顯示相應(yīng)的字段值Private Sub List1_Click() List2.Clear Set pRect = lyr.Records pRect.MoveFirst Dim strField As String strField = List1.List(List1.ListIndex) While Not pRect.EOF List2.AddItem pRect.Fields(strField).ValueAsString pRect.MoveNext WendEnd Sub該步驟運(yùn)行結(jié)果如圖所示：（4） 雙擊列表框（list）中的字段名、字段值；單擊按鈕構(gòu)建查詢語句，并使查詢的SQL語句在文本框(textbox)中顯示：首先輸入list1中的屬性名Private Sub List1_DblClick() 雙擊 Dim tempstring As String tempstring = Right(Text1.Text, 3) If tempstring = And Or tempstring = or Or tempstring = ! Then Text1.Text = Text1.Text & & List1 Else Text1.Text = Text1.Text & List1 End IfEnd Sub然后選擇list2中對(duì)應(yīng)的屬性值，此時(shí)要進(jìn)行判斷，要不構(gòu)建的where語句將出錯(cuò)Private Sub List2_DblClick() Dim strSQL As String If pRect.Fields(List1.List(List1.ListIndex).Type = moString Then 使用type判斷其屬性值類型 Text1.Text = Text1.Text & & List2 & Else Text1.Text = Text1.Text & List2 End IfEnd Sub該部分運(yùn)行結(jié)果如圖所示：（5） 點(diǎn)擊“查詢”按鈕，在MSHFlexGrid1中顯示相應(yīng)的屬性表 “太難可省Private Sub Command2_Click(Index As Integer) Set g_sRecordset = lyr.SearchExpression(Text1.Text) With MSFlexGrid1 .Cols = tDesc.FieldCount 測(cè)試：人工統(tǒng)計(jì)方法 g_sRecordset.MoveFirst While Not g_sRecordset.EOF pCount = pCount + 1 g_sRecordset.MoveNext Wend .Rows = pCount + 1 .AllowUserResizing = flexResizeColumns .Clear End With For i = 0 To tDesc.FieldCount - 1 MSFlexGrid1.TextMatrix(0, i) = tDesc.FieldName(i) Next i r控制行，c控制列 Dim r As Integer Dim c As Integer g_sRecordset.MoveFirst For r = 1 To pCount For c = 0 To tDesc.FieldCount - 1 MSFlexGrid1.TextMatrix(r, c) = g_sRecordset.Fields(tDesc.FieldName(c).Value Next c g_sRecordset.MoveNext Next rEnd Sub運(yùn)行結(jié)果如下所示：（6）雙擊屬性值，居中顯示圖形：Private Sub MSFlexGrid1_dblClick() g_sRecordset.MoveFirst For i = 0 To pCount - 1 g_sRecordset.MoveNext Next i Dim theshape As Object Dim shapeX As Double Dim shapeY As Double Dim rect As Rectangle g_sRecordset.MoveFirst Set theshape = g_sRecordset(shape).Value If g_sRecordset(shape).Type = moPoint Then shapeX = g_sRecordset(shape).Value.X shapeY = g_sRecordset(shape).Value.Y Form1.Map1.CenterAt shapeX, shapeY Else Set rect = g_sRecordset(shape).Value.Extent rect.ScaleRectangle 1.2 Form1.Map1.Extent = rect End IfEnd Sub（7）編寫閃爍、清除、取消三個(gè)按鈕的代碼，并運(yùn)行程序：清除SQL構(gòu)造框Private Sub Command3_Click()Text1.Text = MSFlexGrid1.ClearEnd Sub閃爍Private Sub Command4_Click()Dim shp as mapobject2.polygonSet g_sRecordset = lyr.S