GIS中查詢(xún)功能的實(shí)現(xiàn)

1、地理科學(xué)與旅游學(xué)院2011-2012GIS 設(shè)計(jì)與開(kāi)發(fā)課程實(shí)驗(yàn)報(bào)告實(shí)驗(yàn)二單值專(zhuān)題圖的生成以及GIS中查詢(xún)功能的實(shí)現(xiàn)班級(jí)：095班姓名：陳佩儀學(xué)號(hào)：2090822136指導(dǎo)教師：鐘廣銳實(shí)驗(yàn)時(shí)間：2011年11月評(píng)閱：成績(jī)：2011 年 11 月制表實(shí)驗(yàn)二（1） 單值專(zhuān)題圖的生成一實(shí)驗(yàn)項(xiàng)目?jī)?nèi)容：生成單值專(zhuān)題圖并風(fēng)格化摘要：SuperMap 2003的單值專(zhuān)題圖在傳統(tǒng)的專(zhuān)題地圖中屬于精確分區(qū)的質(zhì)底法，將全 制圖區(qū)域按照專(zhuān)題現(xiàn)象的某種指標(biāo)劃分區(qū)域或各類(lèi)型的分布范圍，在各界線范圍內(nèi)涂以顏色 或填繪暈線、花紋（乃至注記），以顯示連續(xù)而布滿全制圖區(qū)域的現(xiàn)象質(zhì)的差別（或各區(qū)域 間的差別），可用于地質(zhì)圖、地貌圖

2、、植被圖、土地利用圖、政治行政區(qū)劃圖、自然區(qū)劃圖 經(jīng)濟(jì)區(qū)劃圖等。基本思路：根據(jù)專(zhuān)題要素的取值不同，賦于地圖區(qū)域不同的風(fēng)格。通過(guò)查找對(duì)象結(jié)果圖 以及各類(lèi)對(duì)象的屬性、事件、方法作為解決方案。傳統(tǒng)的專(zhuān)題地圖是利用圖例控件一選擇圖 層一單擊右鍵一專(zhuān)題圖向?qū)Вm然這種方法制作專(zhuān)題圖比較簡(jiǎn)便，但卻顯得較為單一、不能 控制。本次實(shí)驗(yàn)則選擇利用SuperMap軟件提供的對(duì)象，編寫(xiě)代碼對(duì)其進(jìn)行制作。四.實(shí)驗(yàn)所用控件的屬性、事件、方法，如下表所示：屬性事件方法Commondialogl（打開(kāi)工作空間 控件）.DialogTitle= “打開(kāi)工作空間控 件”、.filter=app.path、.initdir= 工

3、作空間控件文件 (*.smw)l*.smwShowopen 方法Command1.Caption=打開(kāi)Click ()事件2.Caption=” 退出”3.Caption=”生成單值專(zhuān)題圖”；3.Enabled=False4.Caption=” 放大”；5.Caption=” 縮小”；6.Caption=” 漫游”；7.Caption=”全幅顯示”8.Caption=”自由縮放”SuperlegendlModified 事件，ReadyStateChang e事件Connect 方法Disconnect 方法Refresh 方法SuperWorkspacel.DatasourcesOpenDa

4、tasource ()方法、Close方 法SuperMapl.Action=”放大”、”縮小”、”漫 游”、”全幅顯示”、”自由縮放”；Connect 方法、Disconnect 方 法、Refresh方法 Close方法Combo1.Listindex=0Clear方法2.AddItem五.實(shí)驗(yàn)過(guò)程分析及主要實(shí)驗(yàn)步驟：1）專(zhuān)題圖的數(shù)據(jù)集一一圖層對(duì)象Solayer （圖層的選擇） 打開(kāi)數(shù)據(jù)源，得到數(shù)據(jù)集集合，圖層疊加并生成地圖，列出圖層以供客戶選擇，列出所選中 圖層的字段名。此時(shí)程序必然得到一個(gè)客戶選定的圖層。2）生成單值專(zhuān)題圖定義專(zhuān)題圖對(duì)象，并賦值：Dim objThemeUnique A

5、s soThemeUnique /單值專(zhuān)題圖對(duì)象設(shè)置缺省的單值專(zhuān)題圖屬性和狀態(tài)，利用MakeDeault方法。設(shè)置專(zhuān)題圖參數(shù)：設(shè)定字段，填充顏色參數(shù)等。根據(jù)客戶選擇的圖層，先將其轉(zhuǎn)成矢量數(shù)據(jù)集，再轉(zhuǎn)換成記錄集，然后在combo2中顯示 字段信息集，再采用循環(huán)循環(huán)結(jié)構(gòu)循環(huán)數(shù)據(jù)集：通過(guò)矢量數(shù)據(jù)集的 GetFieldInfos 方法，列 出屬性的字段信息?；玖鞒虨椋菏噶繑?shù)據(jù)集Objlayer.Dataset記錄集T矢量數(shù)據(jù)集.Query 方法T定義賦值SoFieldInfosT記錄集.GetFieldInfos。規(guī)定專(zhuān)題圖的專(zhuān)題變量為“SMID”。風(fēng)格化：為每個(gè)不同的單值對(duì)象填充不同的顏色，利用o

6、bjThemeUnique的ValueCount屬 性,獲取專(zhuān)題要素的填充色；利用objcolors的MakeRandomColorset方法，產(chǎn)生一組隨機(jī)數(shù)。圖例控件的使用：通過(guò)對(duì)圖例控件的使用，從而達(dá)到圖層的管理和操作。本次實(shí)驗(yàn)通過(guò) modified ()事件使得當(dāng)圖例控件發(fā)生改變時(shí)，能實(shí)現(xiàn)兩個(gè)控件的刷新。一般我們可以通過(guò) 屬性表來(lái)設(shè)置圖例控件的狀態(tài)。六界面設(shè)計(jì)及關(guān)鍵代碼部分：界面設(shè)計(jì)：1.1 界面設(shè)計(jì)關(guān)鍵代碼部分：圖層選擇：選擇圖層，先轉(zhuǎn)成矢量數(shù)據(jù)集，再轉(zhuǎn)換成記錄集，然后在combo2中顯示字 段信息集，再采用循環(huán)循環(huán)結(jié)構(gòu)循環(huán)數(shù)據(jù)集Dim objsellayer As soLayerSe

7、t objsellayer = SuperMap1.Layers.Item(Combo1.ListIndex + 1)Dim objdv As soDatasetVectorSet objdv = objsellayer.Dataset 如果有柵格圖層，會(huì)出錯(cuò)！一般有兩種解決方案，一是 加圖層類(lèi)型的判斷，可以用sodataset.vector判斷數(shù)據(jù)集是否是矢量？二是通過(guò)一些方法使柵 格數(shù)據(jù)也可以列出，但不影響使用If objdv.Vector = False Then判斷是否柵格數(shù)據(jù)MsgBox 不是矢量數(shù)據(jù)集Combo2.ClearElseDim objrs As soRecordsetS

8、et objrs = objdv.Query(, True)Dim objfieldinfos As soFieldInfosSet objfieldinfos = objrs.GetFieldInfos獲得所有字段的屬性集Dim i As IntegerCombo2.ClearFor i = 1 To objfieldinfos.CountCombo2.AddItem objfieldinfos.Item(i).Name 利用循環(huán)結(jié)構(gòu)，將字段添加到 Combo2 組合框中NextCombo2.ListIndex = 0 默認(rèn)選中第一項(xiàng)打開(kāi)數(shù)據(jù)源，列出數(shù)據(jù)集于組合框中，圖層疊加，顯示地圖 Su

9、perMap1.CloseSuperMap1.Disconnect 如果已有打開(kāi)數(shù)據(jù)源，先斷開(kāi)鏈接,關(guān)閉工作空間控件，以防止出錯(cuò) SuperLegend1.DisconnectSuperWorkspace1.CloseCommonDialog1.ShowOpenDim objdataSource As soDataSource定義變量、賦值strAlias = tempDatasource設(shè)置數(shù)據(jù)源別名Set objdataSource = SuperWorkspace1.OpenDataSource(CommonDialog1.FileName, strAlias,sceSDB, True)

10、利用OpenDataSource ()方法，返回一個(gè)數(shù)據(jù)源對(duì)象If objdataSource Is Nothing ThenMsgBox 打開(kāi)失敗, vbInformation判斷文件是否成功打開(kāi)ElseMsgBox 打開(kāi)成功, vbInformation成功選擇好數(shù)據(jù)源后，在列表框中列出數(shù)據(jù)集SuperMap1.Connect SuperWorkspace1.Handle 建立 Supermap 與 Superworkspace 控件連接 SuperLegend1.Connect SuperMap1建立 superlegend 與 SuperMap 的連接Dim objdatasets A

11、s soDatasets定義數(shù)據(jù)集集合Set objdatasets = objdataSource.Datasets 獲取數(shù)據(jù)集集合If objdatasets Is Nothing Then 判斷數(shù)據(jù)源中是否有數(shù)據(jù)集Combo1.ClearMsgBox 沒(méi)有數(shù)據(jù)集!, vbInformationExit SubElseCombo1.ClearFor i = 1 To objdatasets.Count將獲得的數(shù)據(jù)集添加到數(shù)據(jù)集列表中Set objdataset = objdatasets.Item(i)Dim objlayer As soLayerSet objlayer = SuperM

12、ap1.Layers.AddDataset(objdataset, True) 圖層疊加，生成地圖If objdatasets.Item(i).Vector = True Then 判斷是否為矢量圖層Combo1.AddItem objdataset.Name將獲得的圖層列出在組合框中End IfNextCombo1.ListIndex = 0默認(rèn)選擇為第一項(xiàng)Command3.Enabled = True 當(dāng)成功打開(kāi)數(shù)據(jù)源，并列出數(shù)據(jù)集，圖層疊加，生成地圖時(shí)， 激活生成單值專(zhuān)題圖的按鈕SuperMap1.Refresh刷新地圖End IfEnd IfSet objdataSource = No

13、thing使用完畢，釋放對(duì)象Set objdatasets = NothingSet objlayer = Nothing生成單值專(zhuān)題圖，并風(fēng)格化Set objThemeUnique = SuperMap1.Layers.Item(Combo1.ListIndex + 1).ThemeUnique Dim themefield As Stringthemefield = Combo2.List(Combo2.ListIndex)With objThemeUnique.Enable = True啟動(dòng)并顯示專(zhuān)題地圖.Field = SmID規(guī)定專(zhuān)題變量為 SMID.MakeDefault Make

14、Default方法，用于制作缺省的單值專(zhuān)題圖，否則ValueCount的值為0 SuperMap1.RefreshnThemeCount = .ValueCount設(shè)置專(zhuān)題圖中所包含的分類(lèi)類(lèi)別的數(shù)目objColor.MakeRandomColorset nThemeCount 產(chǎn)生一組隨機(jī)色For i = 1 To nThemeCount設(shè)置各個(gè)專(zhuān)題元素的隨機(jī)色.Style(i).BrushColor = objColor(i)Next iSuperMap1.RefreshSuperLegend1.RefreshEnd With地圖瀏覽的操作：SuperMap1.Action = scaZoo

15、mIn放大SuperMap1.Action = scaZoomOut縮小SuperMap1.Action = scaPan漫游SuperMap1.ViewEntire全幅顯示SuperMap1.Action = scaZoomFree自由縮放 5) a.圖例控件的Modified()事件：當(dāng)圖例控件發(fā)生了改變，貝I刷新地圖SuperMap1.RefreshSuperLegend1.RefreshDim i As Integer更新圖層組合框中的圖層順序Combo1.ClearFor i = 1 To SuperMap1.Layers.CountCombo1.AddItem SuperMap1.

16、Layers.Item(i).Dataset.NameNextCombo1.ListIndex = 0b.圖例控件的ReadyStateChange()事件：當(dāng)通過(guò)圖例控件改變可編輯圖層后觸發(fā)此事件， 重新設(shè)置索引號(hào)。代碼如下： SuperMap1.Layers.SetEditableLayer nIndex七.運(yùn)行調(diào)試：出現(xiàn)過(guò)圖例控件無(wú)法顯示的情況，經(jīng)調(diào)試發(fā)現(xiàn)之前沒(méi)有斷開(kāi)superlegend的 連接，導(dǎo)致出現(xiàn)錯(cuò)誤。實(shí)驗(yàn)中還存在著一定的問(wèn)題，如有些圖層無(wú)法實(shí)現(xiàn)單值專(zhuān)題圖的制作 當(dāng)出現(xiàn)柵格數(shù)據(jù)時(shí)顯示錯(cuò)誤，這些問(wèn)題都有待解決。ZJ打開(kāi)退出打開(kāi)退出敢夫 縮小 漫游全輻顯示 自由縮放耳 Forml圖

17、例控件申回 Wo rid tem pData sou rce 叼文 Continent_LabletempD 叼文 Country_LabletempDatE 叼文 Ocean_LabletempDatas 7 ：ZJ打開(kāi)退出打開(kāi)退出敢夫 縮小 漫游全輻顯示 自由縮放耳 Forml圖例控件申回 Wo rid tem pData sou rce 叼文 Continent_LabletempD 叼文 Country_LabletempDatE 叼文 Ocean_LabletempDatas 7 ： CapitaltempDatasource Oceantem pData source 7 Grid

18、 tem pData sou rce 7 ATUNtempDatasource0 Forml敢犬 |縮小| 屢游 |全幅顯示|自由縮膠|罔層迭擇導(dǎo)段迭擇jCouritry打開(kāi)地囹一警告=您的運(yùn)行版本沒(méi)有注冊(cè) 諸調(diào)用 SuperWorks pace. RegisterForRuntim 注冊(cè)運(yùn)行版生咸單值專(zhuān)題圖囹例控件一田Pll I WorldtempDatasource El文 Son inent_LabletempDEl文 2ountry_La bletempDatiEl文 Ocean_Labletem pData s 回 o CapitaltempDatasource 由” 回ATUNte

19、mpDat a so rce 由”7 GridtempDatasource Ocean tem pData sou rce圖層選擇|Oce：m Lalilf宇段選擇打開(kāi)地圖一 晉告：您的運(yùn)打版本沒(méi)有注冊(cè) 請(qǐng)調(diào)用 SuperWorkspace.RegisterForRuntim注冊(cè)運(yùn)行皈生成單值專(zhuān)題圉圖 1.2 運(yùn)行結(jié)果顯示 八實(shí)驗(yàn)小結(jié)：本次實(shí)驗(yàn)主要是通過(guò)對(duì)圖例控件的使用，從而實(shí)現(xiàn)對(duì)圖層的管理，并制作單 值專(zhuān)題圖以及實(shí)現(xiàn)圖層的風(fēng)格化。在實(shí)際操作過(guò)程中，通過(guò)對(duì)圖例控件、單值專(zhuān)題圖對(duì)象的 屬性、事件、方法的了解，對(duì)象結(jié)構(gòu)圖的查看，利用核心步驟：a.圖層的選擇；b.確定專(zhuān)題 圖的類(lèi)型單值專(zhuān)題圖對(duì)象；c

20、.專(zhuān)題要素的選擇；d.風(fēng)格化。逐步分析問(wèn)題逐步解決。從 而能更快的解決問(wèn)題。實(shí)驗(yàn)二（2） GIS 中查詢(xún)功能的實(shí)現(xiàn)（屬性查圖和圖查屬性）一實(shí)驗(yàn)內(nèi)容：獲取地理對(duì)象的屬性和通過(guò)屬性查找地圖要素 二摘要：圖查屬性是指選中地理實(shí)體，顯示其屬性信息；屬性查圖是根據(jù)（構(gòu)造）屬性條 件，顯示地理實(shí)體（圖）三基本思路：圖查屬性的一般思路：首先我們需要選中地理實(shí)體，因此則需先切換鼠標(biāo)的狀態(tài)，一 般來(lái)說(shuō)，選擇的方式有點(diǎn)選、框選、圓選、多邊形選擇等多種方式，本次可以采用點(diǎn)選方式 實(shí)現(xiàn)選擇，利用SuperMapl.Action=ScaSelect,可以實(shí)現(xiàn)點(diǎn)選的功能，此處需添加一個(gè)按鈕 控件。其次需將顯示所選擇的地理

21、實(shí)體對(duì)象的屬性，為使信息能更清晰顯示，可以添加一個(gè) 新的窗口 Form2，然后在原來(lái)的窗口 Forml上添加一個(gè)名為“屬性顯示”的按鈕，利用 Form2.Show 方法達(dá)到顯示的效果。屬性查圖的一般思路：1、獲取所需要查詢(xún)的圖層（SoLayers）,并列出圖層的字段信 息。 2、建立一個(gè)查詢(xún)條件。 3、將查詢(xún)的結(jié)果高亮顯示在 SuperGridView 控件上，采用 SuperMap1.Selection.FromRecordset，將查詢(xún)的結(jié)構(gòu)轉(zhuǎn)化為記錄集，高亮顯示。 四實(shí)驗(yàn)所用控件的屬性、事件、方法，如下表所示：屬性事件方法Commondialog1（打開(kāi)數(shù)據(jù)源文件）.DialogTitl

22、e= “打開(kāi)數(shù)據(jù)源”、 .filter=app.path、.initdir= “文 件型數(shù)據(jù)源(*.sdd)l*.sdd;文件型數(shù)據(jù)源(*.sdb)l*.sdb”Supermap1.Action=”放大”、”縮小”、” 漫游”、”全幅顯示”、”自由縮 放”；Connect 方法、 Disconnect 方法、Refresh 方法 Close方法Superworkspace1.datasources、.HandleOpen 方法、Close 方法Command同實(shí)驗(yàn)二1,但增加了一個(gè) SQL杳詢(xún)按鈕和屬性杳詢(xún)按 鈕，減少了一個(gè)生成單值專(zhuān) 題圖按鈕。Click ()Click ()Combo1.L

23、istindex=0Additem 方法2.AddItemText1.text，允許多行顯示Form2.SuperGridView1Connect 方法；Update方法五實(shí)驗(yàn)過(guò)程分析及主要實(shí)驗(yàn)步驟：1) 圖查屬性：圖層的選擇以及地圖的裝載，切換鼠標(biāo)操作狀態(tài)為點(diǎn)選：Supermap.Layers.Adddataset方 法裝載地圖，用Supermapl.Action=ScaSelect實(shí)現(xiàn)點(diǎn)選選擇地理實(shí)體：SO中提供了選擇集對(duì)象SoSelection來(lái)表示選中的地理實(shí)體：Dim ObjSelection As SoSelecton定義、賦值Set ObjSelection=SuperMapl.

24、Selection在SO中，選擇集獲得了值以后，是高亮顯示的屬性的顯示：Set objrecordset = SuperMapl.Selection.ToRecordset(False) 將選擇集轉(zhuǎn)化為記錄集 Form2.SuperGridView1.Connect objrecordset將記錄集放在 SuperGridView 中綁定顯示2)屬性查圖：a. SO中SQL查詢(xún)的解決方案矢量數(shù)據(jù)集的Query方法前提條件：得到矢量數(shù)據(jù)集-圖層如何轉(zhuǎn)成矢量數(shù)據(jù)集： solayer.datasesodataset-sodatasetvector；必要時(shí)可以加上相應(yīng)的判斷，sodataset.vec

25、tor -列出圖層，由客戶選擇，選擇的同時(shí)，列出該圖層所包含的字段名，將第一步生成的條件 表達(dá)式，作為參數(shù)，傳遞給 sodatasetvector.query六界面設(shè)計(jì)及關(guān)鍵代碼部分：1. 界面設(shè)計(jì)：圖 2.1 界面設(shè)計(jì)2關(guān)鍵代碼部分：1)圖層選擇：選擇圖層，先轉(zhuǎn)成矢量數(shù)據(jù)集，再轉(zhuǎn)換成記錄集，然后在combo2中顯示字段信息集，再 采用循環(huán)循環(huán)結(jié)構(gòu)循環(huán)數(shù)據(jù)集Dim objsellayer As soLayerSet objsellayer = SuperMap1.Layers.Item(Combo1.ListIndex + 1)Dim objdv As soDatasetVectorSet o

26、bjdv = objsellayer.Dataset 如果有柵格圖層，會(huì)出錯(cuò)！一般有兩種解決方案，一是 加圖層類(lèi)型的判斷，可以用sodataset.vector判斷數(shù)據(jù)集是否是矢量？二是通過(guò)一些方法使柵 格數(shù)據(jù)也可以列出，但不影響使用If objdv.Vector = False Then判斷是否柵格數(shù)據(jù)MsgBox 不是矢量數(shù)據(jù)集Combo2.ClearElseDim objrs As soRecordsetSet objrs = objdv.Query(, True)Dim objfieldinfos As soFieldInfosSet objfieldinfos = objrs.Get

27、FieldInfos獲得所有字段的屬性集Dim i As IntegerCombo2.ClearFor i = 1 To objfieldinfos.CountCombo2.AddItem objfieldinfos.Item(i).NameNextCombo2.ListIndex = 0 默認(rèn)選中第一項(xiàng)End If2)打開(kāi)數(shù)據(jù)源，生成數(shù)據(jù)集集合于組合框Combol中，疊加圖層并顯示地圖， SuperMap1.CloseSuperMapl.Disconnect 如果已有打開(kāi)數(shù)據(jù)源，先斷開(kāi)鏈接,關(guān)閉工作空間控件，以防止出錯(cuò) SuperWorkspacel.CloseCommonDialogl.S

28、howOpenDim objdataSource As soDataSource定義變量、賦值strAlias = tempDatasource設(shè)置數(shù)據(jù)源別名Set objdataSource = SuperWorkspacel.OpenDataSource(CommonDialogl.FileName, strAlias, sceSDB, True)利用OpenDataSource ()方法，返回一個(gè)數(shù)據(jù)源對(duì)象If objdataSource Is Nothing ThenMsgBox 打開(kāi)失敗, vbInformation判斷文件是否成功打開(kāi)ElseMsgBox 打開(kāi)成功, vbInfor

29、mation成功選擇好數(shù)據(jù)源后，在列表框中列出數(shù)據(jù)集SuperMap1.Connect SuperWorkspace1.Handle建立 Supermap 與 Superworkspace 控件連接Dim objdatasets As soDatasets定義數(shù)據(jù)集集合Set objdatasets = objdataSource.Datasets 獲取數(shù)據(jù)集集合If objdatasets Is Nothing Then 判斷數(shù)據(jù)源中是否有數(shù)據(jù)集Combo1.ClearMsgBox 沒(méi)有數(shù)據(jù)集!, vbInformationExit SubElseCombo1.AddItem objdata

30、set.NameEnd If將獲得的圖層列出在組合框中NextCombo1.AddItem objdataset.NameEnd If將獲得的圖層列出在組合框中Next默認(rèn)選擇為第一項(xiàng)刷新地圖Combo1.ListIndex = 0SuperMap1.RefreshEnd IfFor i = 1 To objdatasets.Count將獲得的數(shù)據(jù)集添加到數(shù)據(jù)集列表中Set objdataset = objdatasets.Item(i)Dim objlayer As soLayerSet objlayer = SuperMap1.Layers.AddDataset(objdataset, True) 圖層疊加，生成地圖If objdatasets.Item(i).Vector = True Then 判斷是否為矢量圖層End IfSet objdataSource = Nothing使用完畢，釋放對(duì)象Set objdatasets = NothingSet objlayer = Nothing3)將屬性顯示于另一個(gè)窗口 Form2 的 SuperGridView 控件中，采用按鈕控件 Comman