地理信息系統(tǒng)設(shè)計(jì)與應(yīng)用實(shí)驗(yàn)報(bào)告

1、編 號(hào)： 審定成績： 重慶郵電大學(xué)畢業(yè)設(shè)計(jì)（論文）設(shè)計(jì)（論文）題目：基于GIS數(shù)字校園專題圖的實(shí)現(xiàn)學(xué) 院 名 稱 ：計(jì)算機(jī)科學(xué)與技術(shù)學(xué)院學(xué) 生 姓 名 ：余祝媛、劉茂專 業(yè) ：地理信息系統(tǒng)班 級(jí) ：、學(xué) 號(hào) ：指 導(dǎo) 教 師 ：豐江帆答辯組 負(fù)責(zé)人 ：填表時(shí)間： 2015年6月重慶郵電大學(xué)教務(wù)處制基于GIS數(shù)字校園專題圖的實(shí)現(xiàn)摘 要： 將校園地圖以數(shù)字化的形式展現(xiàn)出來，基于GIS，數(shù)字校園專題圖將展現(xiàn)出校園內(nèi)部各要素地理位置，實(shí)驗(yàn)樓，教學(xué)樓，學(xué)生宿舍，校園綠化區(qū)，校園道路等，使人一目了然。再配以查詢功能，讓人以更快的速度找到自己想要找出的位置。關(guān)鍵詞： 數(shù)字校園 地理位置 查詢目 錄摘 要21

2、緒論61.1選題背景及意義61.2主要研究內(nèi)容62 應(yīng)用關(guān)鍵技術(shù)72.2 ArcGIS Engine組件庫82.3 VB語言82.4 本章小結(jié)92需求分析及概要設(shè)計(jì)93.1 應(yīng)用需求總體目標(biāo)103.2 功能需求103.2.1 應(yīng)用綜述103.2.2 功能描述113.3 軟硬件需求113.3.1 硬件需求113.3.2 軟件需求113.4 應(yīng)用設(shè)計(jì)的總體原則113.5 本章小結(jié)124詳細(xì)設(shè)計(jì)與實(shí)現(xiàn)124.1數(shù)據(jù)準(zhǔn)備134.2 應(yīng)用模塊詳細(xì)設(shè)計(jì)與實(shí)現(xiàn)134.2.1 設(shè)計(jì)界面134.2.2運(yùn)行界面144.2.3緩沖分析界面154.2.4導(dǎo)出圖表界面214.2.5制作專題圖244.3 本章小結(jié)285

3、總結(jié)281緒論1.1 選題背景及意義將校園地圖以數(shù)字化的形式展現(xiàn)出來，基于GIS，數(shù)字校園專題圖將展現(xiàn)出校園內(nèi)部各要素地理位置，實(shí)驗(yàn)樓，教學(xué)樓，學(xué)生宿舍，校園綠化區(qū)，校園道路等，使人一目了然。再配以查詢功能，讓人以更快的速度找到自己想要找出的位置。數(shù)字校園的實(shí)現(xiàn)，主要是依靠GIS，即Arcmap和catalogue，畫出能表達(dá)學(xué)校內(nèi)部地理位置的地圖，并以地圖形式輸出。還可以添加查詢功能，使人更便捷的找出相應(yīng)的位置。1.2 主要研究內(nèi)容本文主要以Microsoft Visual Studio 2010作為開發(fā)工具，以VB作為編程語言，以ArcEngine 10.2作為開發(fā)平臺(tái)，來實(shí)現(xiàn)對(duì)重慶郵電大

4、學(xué)校園內(nèi)部環(huán)境的分析。本應(yīng)用充分利用前期準(zhǔn)備數(shù)據(jù)，根據(jù)屬性快速創(chuàng)建圖表兩大功能，根據(jù)這功能實(shí)現(xiàn)數(shù)字校園專題地圖的查找。2 應(yīng)用關(guān)鍵技術(shù)本章中首先討論了開發(fā)應(yīng)用所使用到的相關(guān)技術(shù)，如ArcGIS、ArcGIS Engine、VS等，為應(yīng)用開發(fā)做好充分的準(zhǔn)備。2.1 ArcGIS軟件架構(gòu)ArcGIS是 ESRI在全面整合了 GIS與數(shù)據(jù)庫、軟件工程人智能網(wǎng)絡(luò)技術(shù)及其它多方面的計(jì)算機(jī) 主流技術(shù)之后，成功地推出了代表 主流技術(shù)之后，成功地推出了代表 GIS 最高技術(shù)水平的全系列 GIS產(chǎn)品。 ArcGIS是一個(gè)全面的 ，可伸縮是一個(gè)全面的 ，可伸縮GIS平臺(tái)，為用戶構(gòu)建一個(gè)完善的平臺(tái)，為用戶構(gòu)建一個(gè)完

5、善的 GIS應(yīng)用提供完整的解決方案。 ArcGIS的基本體系能夠讓用戶在任何需 要的地方部署 GIS功能和業(yè)務(wù)邏輯，無論是桌面、服務(wù)器還是野外。2.2 ArcGIS Engine組件庫ArcGIS Engine是一組完備的并且打包嵌入式GIS組件庫和工具，開發(fā)人員可用來創(chuàng)建新的或擴(kuò)展已有的桌面應(yīng)用程序。使用ArcGIS Engine，開發(fā)人員可以將GIS功能嵌入到已有的應(yīng)用軟件中，如定義行業(yè)專用產(chǎn)品；或嵌入到商生應(yīng)軟件中，如 Mirosoft Word和 Excel；還可以創(chuàng)建集中式自定義應(yīng)用軟件，并將其發(fā)送給機(jī)構(gòu)內(nèi)的多個(gè)戶。ArcGIS Engine 由兩個(gè)產(chǎn)品組成：構(gòu)建軟件所用的開發(fā)工具包

6、以及使已完應(yīng)程序能夠運(yùn)行可再發(fā)布的 Runtime（運(yùn)行時(shí)環(huán)境）。 ArcGIS Engine開發(fā)工具包是一個(gè)基于組件的軟產(chǎn)品，可用構(gòu)建自定義 GIS和制圖應(yīng)用軟件。它并不是一個(gè)終端戶產(chǎn)品，而開發(fā)人員的工具包適于為和制圖應(yīng)用軟件。它并不是一個(gè)終端戶產(chǎn)品，而開發(fā)人員的工具包適于為和制圖應(yīng)用軟件。它并不是一個(gè)終端戶產(chǎn)品，而開發(fā)人員的工具包適于為 Windows、 UNIX或 Linux 用戶構(gòu)建基礎(chǔ)制圖和綜合動(dòng)態(tài) GIS應(yīng)用軟件。ArcGIS Engine Runtime是一個(gè)使終端用戶軟件能夠運(yùn)行的核心 ArcObjects 組件產(chǎn)品，并且將被安裝在每一臺(tái)運(yùn)行ArcGIS Engine 應(yīng)用程序

7、的計(jì)算機(jī)上。2 需求分析需求分析在軟件應(yīng)用開發(fā)的周期中具有非常重要的地位，它的好壞將直接關(guān)系到軟件開發(fā)的成本和軟件產(chǎn)品的質(zhì)量。需求分析是軟件設(shè)計(jì)的第一步，是整個(gè)軟件成功實(shí)現(xiàn)的基礎(chǔ)。做好需求的分析和管理，既可以減少軟件開發(fā)中的錯(cuò)誤，還可以減少修復(fù)錯(cuò)誤的費(fèi)用，從而大大降低軟件開發(fā)成本，縮短軟件開發(fā)時(shí)間。軟件需求分析的主要目的是通過與用戶廣泛的交流得出所要完成的目標(biāo)應(yīng)用必須具備哪些功能，應(yīng)該為用戶完成什么工作，即確定“目標(biāo)應(yīng)用必須做什么”，需求分析相當(dāng)于從用戶到軟件工程人員之間架設(shè)了一道橋梁，軟件工程人員通過需求分析得到用戶的需求，成為軟件編制所實(shí)現(xiàn)的目標(biāo)。在需求分析過程中，最關(guān)鍵的環(huán)節(jié)就是開發(fā)人員

8、與用戶(企業(yè)領(lǐng)導(dǎo)、各職能部的相關(guān)人員)的溝通。如果開發(fā)人員及用戶忽略信息溝通，將會(huì)導(dǎo)致軟件開發(fā)完成后，不能很好地滿足實(shí)際的需要，而返工不僅在技術(shù)上給開發(fā)人員帶來巨大的麻煩，還會(huì)造成人力、物力的浪費(fèi)。3.1 應(yīng)用需求總體目標(biāo)應(yīng)用完成后應(yīng)達(dá)到以下幾方面的要求：實(shí)用性 高效穩(wěn)定性 靈活性 安全性 可擴(kuò)展性：3.2 功能需求3.2.1 應(yīng)用綜述數(shù)字校園專題地圖可使校內(nèi)不熟悉校園情況的學(xué)生和其他想了解校園環(huán)境的人員以更快的速度查找各個(gè)校內(nèi)地方，便捷了解教學(xué)樓等地理位置，使其不再浪費(fèi)時(shí)間問詢路人。3.2.2 功能描述根據(jù)前面的設(shè)計(jì)思想進(jìn)行分析，按照應(yīng)用開發(fā)的基本觀點(diǎn)對(duì)應(yīng)用功能進(jìn)行分解，：1) 基本功能：該

9、應(yīng)用中有打開文件、放大縮小、圖層顯示、保存文件等；2) 導(dǎo)出圖表：該應(yīng)用中可將校內(nèi)各個(gè)地物表示出來。3.3 軟硬件需求3.3.1 硬件需求服務(wù)器端：采用PC專用服務(wù)器作為數(shù)據(jù)庫服務(wù)器和應(yīng)用服務(wù)器。與之配套的還有路由設(shè)備、網(wǎng)絡(luò)設(shè)備及光纜通信設(shè)備等。一般要求586以上的處理器、16MB以上內(nèi)存、100MB以上的剩余硬盤空間、CDROM驅(qū)動(dòng)器、鼠標(biāo)等。3.3.2 軟件需求客戶端： Windows 2007等；3.4 應(yīng)用設(shè)計(jì)的總體原則 實(shí)用性設(shè)備及軟件易于操作、維護(hù)、管理，界面友好。 開放性采用開放的應(yīng)用設(shè)計(jì)原則，保證各部分能協(xié)調(diào)工作。 安全可靠性安全可靠是一個(gè)應(yīng)用的關(guān)鍵，一個(gè)極小的差錯(cuò)，都可能會(huì)造

10、成整個(gè)應(yīng)用的癱瘓，甚至可能對(duì)企業(yè)造成巨大損失。因此應(yīng)用設(shè)計(jì)必需把安全性、可靠性、容錯(cuò)性放在首位。 可操作性與易用性應(yīng)用在設(shè)計(jì)與實(shí)施中要考慮用戶的需求，使得應(yīng)用使用操作、日常管理等工作簡單易用，符合開發(fā)維護(hù)人員和各類使用者的操作習(xí)慣，減輕其日常工作量，提供友好的界面。 經(jīng)濟(jì)性在滿足上述原則的基礎(chǔ)上，應(yīng)盡可能降低項(xiàng)目的費(fèi)用，追求最佳的性價(jià)比。一方面，應(yīng)根據(jù)現(xiàn)有條件，設(shè)計(jì)應(yīng)用。另一方面，應(yīng)用設(shè)計(jì)中應(yīng)盡可能避免不必要的復(fù)雜化，各模塊應(yīng)盡可能簡潔，以便縮短處理流程、減少處理費(fèi)用。3.5 本章小結(jié)本章對(duì)應(yīng)用進(jìn)行了需求分析。分析了應(yīng)用的建設(shè)目標(biāo)、功能需求、應(yīng)用軟硬件需求分析，確定了應(yīng)用的開發(fā)目標(biāo)，并對(duì)應(yīng)用做

11、出了規(guī)劃和功能模塊的概要設(shè)計(jì)，為下一章的應(yīng)用設(shè)計(jì)指明了方向。4詳細(xì)設(shè)計(jì)與實(shí)現(xiàn)1、 地圖制作：實(shí)驗(yàn)步驟：1、 在谷歌地圖上截取地圖注意選取衛(wèi)星圖比較有利于地圖的制作：2、 在圖中選取幾個(gè)基準(zhǔn)點(diǎn)，并記下其坐標(biāo)，即經(jīng)緯度3、 打開arcmap4、 加載已經(jīng)截圖的重郵衛(wèi)星圖5、 選擇影像校準(zhǔn)，添加控制點(diǎn)，控制點(diǎn)的選擇要與之前選擇的幾個(gè)基準(zhǔn)點(diǎn)一致，控制點(diǎn)XY輸入之前保存的幾個(gè)基準(zhǔn)點(diǎn)的坐標(biāo)6、 設(shè)置坐標(biāo)系7、 打開catalogue，并添加個(gè)人要素?cái)?shù)據(jù)集，添加后打開個(gè)人要素?cái)?shù)據(jù)集，再添加數(shù)據(jù)集，然后添加重郵道路等這樣的要素添加數(shù)據(jù)集時(shí)注意要設(shè)置坐標(biāo)系，選取北京1954坐標(biāo)系（因?yàn)榍懊鎍rcmap里面設(shè)置的

12、是北京1954坐標(biāo)系，如果不設(shè)置或者設(shè)置數(shù)據(jù)不一致，則會(huì)導(dǎo)致數(shù)據(jù)不匹配，地圖做不出來）添加要素時(shí)注意自己需要的是何種要素，并注意選取添加完成需要的要素后如圖所示：8、 返回arcmap，添加要素集添加工具欄，點(diǎn)擊開始編輯然后按照同樣的步驟畫出其他要素最后得到如圖所示：取消重郵衛(wèi)星圖，則得到：修改顏色，則得到：可以添加標(biāo)題等，輸出地圖：返回查看地圖：二、圖層選擇：選擇圖層，先轉(zhuǎn)成矢量數(shù)據(jù)集，再轉(zhuǎn)換成記錄集，然后在combo2中顯示字段信息集，再采用循環(huán)循環(huán)結(jié)構(gòu)循環(huán)數(shù)據(jù)集 Dim objsellayer As soLayer Set objsellayer = SuperMap1.Layers.I

13、tem(Combo1.ListIndex + 1) Dim objdv As soDatasetVector Set objdv = objsellayer.Dataset 如果有柵格圖層，會(huì)出錯(cuò)！一般有兩種解決方案，一是加圖層類型的判斷，可以用sodataset.vector判斷數(shù)據(jù)集是否是矢量？二是通過一些方法使柵格數(shù)據(jù)也可以列出，但不影響使用 If objdv.Vector = False Then 判斷是否柵格數(shù)據(jù) MsgBox 不是矢量數(shù)據(jù)集 Combo2.Clear Else Dim objrs As soRecordset Set objrs = objdv.Query(, Tr

14、ue) Dim objfieldinfos As soFieldInfos Set objfieldinfos = objrs.GetFieldInfos 獲得所有字段的屬性集 Dim i As Integer Combo2.Clear For i = 1 To objfieldinfos.Count Combo2.AddItem objfieldinfos.Item(i).Name 利用循環(huán)結(jié)構(gòu)，將字段添加到Combo2組合框中 Next Combo2.ListIndex = 0 默認(rèn)選中第一項(xiàng)2）打開數(shù)據(jù)源，列出數(shù)據(jù)集于組合框中，圖層疊加，顯示地圖SuperMap1.CloseSuperM

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

16、e（）方法，返回一個(gè)數(shù)據(jù)源對(duì)象If objdataSource Is Nothing Then MsgBox 打開失敗, vbInformation 判斷文件是否成功打開ElseMsgBox 打開成功, vbInformation 成功選擇好數(shù)據(jù)源后，在列表框中列出數(shù)據(jù)集SuperMap1.Connect SuperWorkspace1.Handle 建立Supermap與Superworkspace控件連接SuperLegend1.Connect SuperMap1 建立superlegend與SuperMap的連接Dim objdatasets As soDatasets 定義數(shù)據(jù)集集合S

17、et objdatasets = objdataSource.Datasets 獲取數(shù)據(jù)集集合If objdatasets Is Nothing Then 判斷數(shù)據(jù)源中是否有數(shù)據(jù)集Combo1.ClearMsgBox 沒有數(shù)據(jù)集!, vbInformationExit SubElseCombo1.ClearFor i = 1 To objdatasets.Count 將獲得的數(shù)據(jù)集添加到數(shù)據(jù)集列表中 Set objdataset = objdatasets.Item(i) Dim objlayer As soLayer Set objlayer = SuperMap1.Layers.AddDa

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

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

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

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

22、perMap1.Layers.Item(i).Dataset.Name Next Combo1.ListIndex = 0b.圖例控件的ReadyStateChange()事件：當(dāng)通過圖例控件改變可編輯圖層后觸發(fā)此事件，重新設(shè)置索引號(hào)。代碼如下：SuperMap1.Layers.SetEditableLayer nIndex七運(yùn)行調(diào)試：出現(xiàn)過圖例控件無法顯示的情況，經(jīng)調(diào)試發(fā)現(xiàn)之前沒有斷開superlegend的連接，導(dǎo)致出現(xiàn)錯(cuò)誤。實(shí)驗(yàn)中還存在著一定的問題，如有些圖層無法實(shí)現(xiàn)單值專題圖的制作，當(dāng)出現(xiàn)柵格數(shù)據(jù)時(shí)顯示錯(cuò)誤，這些問題都有待解決。a. 圖層的選擇以及地圖的裝載，切換鼠標(biāo)操作狀態(tài)為點(diǎn)選：S

23、upermap.Layers.Adddataset方法裝載地圖，用Supermap1.Action=ScaSelect實(shí)現(xiàn)點(diǎn)選b.選擇地理實(shí)體：SO中提供了選擇集對(duì)象SoSelection來表示選中的地理實(shí)體：Dim ObjSelection As SoSelecton 定義、賦值Set ObjSelection=SuperMap1.Selection在SO中，選擇集獲得了值以后，是高亮顯示的c.屬性的顯示：Set objrecordset = SuperMap1.Selection.ToRecordset(False) 將選擇集轉(zhuǎn)化為記錄集Form2.SuperGridView1.Conne

24、ct objrecordset 將記錄集放在SuperGridView中綁定顯示1） 屬性查圖：a. SO中SQL查詢的解決方案矢量數(shù)據(jù)集的Query方法前提條件：得到矢量數(shù)據(jù)集圖層如何轉(zhuǎn)成矢量數(shù)據(jù)集: solayer.datasetsodataset-sodatasetvector；必要時(shí)可以加上相應(yīng)的判斷，sodataset.vector列出圖層，由客戶選擇，選擇的同時(shí)，列出該圖層所包含的字段名，將第一步生成的條件表達(dá)式，作為參數(shù)，傳遞給sodatasetvector.query選擇圖層，先轉(zhuǎn)成矢量數(shù)據(jù)集，再轉(zhuǎn)換成記錄集，然后在combo2中顯示字段信息集，再采用循環(huán)循環(huán)結(jié)構(gòu)循環(huán)數(shù)據(jù)集 D

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

26、ear Else Dim objrs As soRecordset Set objrs = objdv.Query(, True) Dim objfieldinfos As soFieldInfos Set objfieldinfos = objrs.GetFieldInfos 獲得所有字段的屬性集 Dim i As Integer Combo2.Clear For i = 1 To objfieldinfos.Count Combo2.AddItem objfieldinfos.Item(i).Name Next Combo2.ListIndex = 0 默認(rèn)選中第一項(xiàng) End If2）打開

27、數(shù)據(jù)源，生成數(shù)據(jù)集集合于組合框Combo1中，疊加圖層并顯示地圖，SuperMap1.CloseSuperMap1.Disconnect 如果已有打開數(shù)據(jù)源，先斷開鏈接,關(guān)閉工作空間控件，以防止出錯(cuò)SuperWorkspace1.CloseCommonDialog1.ShowOpenDim objdataSource As soDataSource 定義變量、賦值strAlias = tempDatasource 設(shè)置數(shù)據(jù)源別名 Set objdataSource = SuperWorkspace1.OpenDataSource(CommonDialog1.FileName, strAlias

28、, sceSDB, True) 利用OpenDataSource（）方法，返回一個(gè)數(shù)據(jù)源對(duì)象If objdataSource Is Nothing Then MsgBox 打開失敗, vbInformation 判斷文件是否成功打開ElseMsgBox 打開成功, vbInformation 成功選擇好數(shù)據(jù)源后，在列表框中列出數(shù)據(jù)集SuperMap1.Connect SuperWorkspace1.Handle 建立Supermap與Superworkspace控件連接Dim objdatasets As soDatasets 定義數(shù)據(jù)集集合Set objdatasets = objdataS

29、ource.Datasets 獲取數(shù)據(jù)集集合If objdatasets Is Nothing Then 判斷數(shù)據(jù)源中是否有數(shù)據(jù)集Combo1.ClearMsgBox 沒有數(shù)據(jù)集!, vbInformationExit SubElseCombo1.ClearFor i = 1 To objdatasets.Count 將獲得的數(shù)據(jù)集添加到數(shù)據(jù)集列表中 Set objdataset = objdatasets.Item(i) Dim objlayer As soLayer Set objlayer = SuperMap1.Layers.AddDataset(objdataset, True) 圖

30、層疊加，生成地圖 If objdatasets.Item(i).Vector = True Then 判斷是否為矢量圖層 Combo1.AddItem objdataset.Name 將獲得的圖層列出在組合框中 End If Next Combo1.ListIndex = 0 默認(rèn)選擇為第一項(xiàng) SuperMap1.Refresh 刷新地圖 End If End If Set objdataSource = Nothing 使用完畢，釋放對(duì)象Set objdatasets = NothingSet objlayer = Nothing3）將屬性顯示于另一個(gè)窗口Form2的SuperGridView控件中，采用按鈕控件Command10達(dá)到Form1和Form2的連接Form2.Show4）切換鼠標(biāo)狀態(tài)為選擇，然后選擇地圖窗口上的一個(gè)幾何對(duì)象后就會(huì)在SuperGridView中顯示屬性SuperMap1.Action = scaSelect5）退出程序SuperMap1.CloseSuperMap1.Disconnect 斷開鏈接,關(guān)閉工作空間控件SuperWorkspace1.CloseSuperMap1.RefreshUnload Me6）S