【正文】 From Selection NameJt J NameJX Trim NameJt J If StrML Trim Na。 0 into Selection N Val SelectionInfo 3 查找表中信息： If N 0 Then NameSM 沒有找到 NameXM Name TEL 沒有 Else ReDim NameSt 1 To N ,NameXt 1 To N ,NameJt 1 To N ,TELt 1 To N ,NameLatT 1 To N ,NameLonT 1 To N For J 1 To N Fetch Rec amp。 where InStr 1,查詢名 , amp。 流程圖： 圖 查詢流程圖 功能代碼： 查詢 MapInfo 表中信息，將找到的信息轉(zhuǎn)換為數(shù)值型 Select * From amp。 因為本系統(tǒng)是基于 GIS 的開發(fā)流程，選用的 GIS 開發(fā)軟件是 MapInfo,在查詢的過程中就必不可少的需要對 MapInfo 表進(jìn)行調(diào)用，因為軟件的開發(fā)語言是VB，就需要通過 VB 對 MapInfo 進(jìn)行數(shù)據(jù)庫式的搜索和查詢。 當(dāng)前要查詢的表的形式為：表名 1，表名 2，表名 3，? .. 擴(kuò)展 SQL 查詢條件式可以使用運算符、聚合和函數(shù)進(jìn)行任意語法正確的組合。 屬性字段列表可以使用 聚合和函數(shù)來派生出各式各樣的派生列。 SQL 查詢 擴(kuò)展查詢時屬性查詢（ SQL 查詢）和空間拓?fù)潢P(guān)系查詢的結(jié)合，即 SQL 查詢的條件中可含有描述地理關(guān)系的空間語句及其操作，達(dá)到屬性查詢和空間查詢的完美結(jié)合。intoamp。whereamp。Fromamp。 屬性查詢的實現(xiàn)： selectamp。 將地圖上的每一物體看作是一個對象，它可 以是點、線、面的任何集合形狀或符號（例如桿塔可用點表示，線路可用直線或折線表示，變電站用面或點表示），通過用鼠標(biāo)點取或圖形對象而得到其屬性信息（包括地理屬性、表格屬性和多媒體信息） ： 根據(jù)所給的屬性數(shù)據(jù)查詢具有此屬性的對象和空間位置數(shù)據(jù)，如查詢桿塔高度大于 35 米的桿塔。 桿塔成線的設(shè)計與實現(xiàn) 架空線總是架設(shè)在桿塔上，即架空線是有桿塔點連接而成的，模擬電力部門架線工程的方法，先種桿再架線，先在地圖上布置桿塔點，再逐一連接桿塔點生成線路。 發(fā)電廠符號：發(fā)電廠符號 。約定如下： 桿塔符號： 鐵塔符號；門型塔符號 ；雙回線塔符號。 user id 用戶名（ sa） 。password 密碼 。 Dim rs As Recordset Set dbase OpenDatabase App． Path amp。 N ＆ .Obj Alter Object obj_colorl 1 Info ＆ OBJ_INFO_BRUSH amp。 .coll 2 Visual Basic 向 MapInfo 發(fā)送命令 選中表 N 的記錄的前一條記錄 Fetch Prev From amp。 SEL_INFO_TABLENAME amp。其他按鈕可依此創(chuàng)建。 5．集成 MapInfo 的工具欄按鈕 要創(chuàng)建類似 MapInfo 的工具欄按鈕，可以使用 MapInfo 的 RunMenuCommand方法，如： M_FILE_SAVE 39。 4．定位 MapInfo 窗口 把 MapInfo 窗口定位在 Visual Basic 已改用程序子窗體的 Picturebox 控件“ PictureMap”中可用下面的語句實現(xiàn)： set Next Document Parent amp。指定一個 Picture 控件為集成地圖窗口的父窗口，使電網(wǎng)的 MapInfo 地圖可以顯示其中，同時可以使用 OLE 自動化對象的 Do 方法實現(xiàn)一些設(shè)置。該子程序在后臺創(chuàng)立一個用于通信的 MapInfo 實例；一個本地在此 Visual Basic 應(yīng)用程序的類 MIResponder 的對象的實例，即用于接受MapInfo 返回應(yīng)用程序信息的實例。 部分模塊調(diào)用程序的設(shè)計 Visual Basic 應(yīng)用程序與 MapInfo 的 OLE 的連接 在 Visual Basic 應(yīng)用程序里實現(xiàn)對 另一個應(yīng)用程序 MapInfo 的訪問，利用OLE Automation 技術(shù)，把 MapInfo 作為服務(wù)器， Visual Basic 應(yīng)用程序作為客戶機(jī)，可以無縫地實現(xiàn)集成 MapInfo 對象于 Visual Basic 應(yīng)用程序中。 :數(shù)據(jù)及報表文件輸出。如下圖 圖 750KV 銀川東變電站主變 1詳細(xì)數(shù)據(jù) 檢修試驗數(shù)據(jù)： 圖 750KV 銀川東變電站主變 1檢修試驗數(shù)據(jù) 桿塔臺帳信息： 圖 系統(tǒng)桿塔臺帳信息 線路總體信息 圖 系統(tǒng)線路臺帳信息 8 電力環(huán)境 電力環(huán)境部分相關(guān)圖層： 圖 電力環(huán)境相關(guān)圖層顯示控制 打開相關(guān)圖層效果： 圖 局部電力環(huán)境圖 9 查詢選擇 圖 選擇電壓等級高于 500KV 的變電站并高亮顯示 圖 選擇電壓等級高于 660KV 的線路并高亮顯示 10 測量：利用標(biāo)尺測量一段或多段距離。 圖 系統(tǒng) 750KV 電網(wǎng)效果圖 選擇對象查看詳細(xì)屬性： 圖 750KV 銀川東變電站屬性信息 （ 5） 圖 添加桿塔 添加 2 個桿塔，系統(tǒng)自動編號為 4 49，并根據(jù)桿塔布線。 （ 2） Treeview：目錄樹，可快速定位西北各省及各省等 750KV 變電站 圖 Treeview 目錄樹 （ 3）圖層控制：控制顯示的內(nèi)容 圖 圖層顯示控制 （ 4）電網(wǎng)查看： 可以實現(xiàn)電網(wǎng)圖的放大、縮小、漫游；設(shè)備屬性查看；設(shè)備及圖層的添加、修改、刪除等。 區(qū)域 樣式：在“區(qū)域樣式”對話框中指定閉合對象的顏色、圖案和邊線樣式。 符號樣式：在“符號樣式”對話框中選擇符號并指定其屬性。 整形：使用整形可以通過移動、增加、刪除定義線段的節(jié)點來編輯區(qū)域、折線、直線和點。 圓?。豪L制圓弧。 直線：繪制直線。 測量標(biāo)尺：可以測量多點間距離。 信息：對象的 屬性信息。 改變試圖：改變視角。 放大：可以將地圖的某一區(qū)域放大，得到較近的地圖區(qū)域。 全不選：取消已做出的選擇。 半徑選擇：拉出一個虛擬圓形區(qū)域，選擇區(qū)域內(nèi)的對象。 （ 1）工具條功能介紹 選擇：選擇對象。 菜單工具條如下： 菜單下的菜單工具欄可以實現(xiàn)保存、打印、剪切、復(fù)制、粘貼、撤銷、刪除；瀏覽表、新建窗口、新建統(tǒng)計窗口；選擇、漫游、放大、縮小、圖層控制、信息顯示、測量、刷新等功能。左邊是 Treeview 組成的目錄樹，通過它可以更便捷的操作，直接定位各網(wǎng)省和變電站等。系統(tǒng)利用回調(diào)技術(shù)獲取 MapInfo 屬性表的表名及具體記錄信息 ,并把信息賦值給中間變量程序根據(jù)中間變量在輸電線路工程數(shù)據(jù)庫查找相應(yīng)的屬性數(shù)據(jù) ,從而利用 Visual Basic 強(qiáng)大的界面編程功能和 SQL Server 數(shù)據(jù)庫管理功能建立起地圖圖形屬性與系統(tǒng)外部數(shù)據(jù)庫的連接。系統(tǒng)圖形數(shù)據(jù)和屬性數(shù)據(jù)關(guān)聯(lián)的結(jié)構(gòu)原理如圖所示。圖地圖圖層數(shù)據(jù)庫與屬性數(shù)據(jù)庫的關(guān)聯(lián) MapInfo 在對地圖圖層進(jìn)行管理時 ,為每張圖層建了一張表 ,通過空間拓?fù)潢P(guān)系實現(xiàn)地圖具體圖形數(shù)據(jù)和相應(yīng)圖層表中屬性數(shù)據(jù)的關(guān)聯(lián)。因此工程信息數(shù)據(jù)庫與基礎(chǔ)數(shù)據(jù)庫并不是完全獨立的兩個部分 ,設(shè)計時將這兩個庫的數(shù)據(jù)自動關(guān)聯(lián) ,可以被交互查詢 ,這樣可以減少數(shù) 據(jù)冗余度。工程數(shù)據(jù)庫主要涉及到具體線路的有關(guān)原始數(shù)據(jù)資料 ,如該線路的編號、電壓等級、起止點、導(dǎo)線型號、桿塔、絕緣子串、防振和防腐措施、氣象區(qū)以及架空線的應(yīng)力與弧垂等具體工程內(nèi)容。 基礎(chǔ)數(shù)據(jù)庫與工程數(shù)據(jù)庫 輸電線路的屬性數(shù)據(jù)庫可分為基礎(chǔ)數(shù)據(jù)庫與工程數(shù)據(jù)庫。 圖 MapInfo 中圖形數(shù)據(jù)與屬性數(shù)據(jù)的聯(lián)接 據(jù)庫的設(shè)計 1 建立輸電線路屬性數(shù)據(jù)表的原則 設(shè)計建立輸電線路屬性數(shù)據(jù)表表時 ,按以下設(shè)計原則對信息進(jìn)行分類 : 表間不應(yīng)該有重復(fù)信息 ,每條信息只保存在一個表內(nèi)。 MapInfo 通過將空間屬性數(shù)據(jù)記錄的關(guān)鍵字設(shè)為圖形文件中該地物 ID 號的方法建立起表與地圖之間的聯(lián)系 ,如圖所示。地圖數(shù)據(jù)采用矢量存儲方法來管理 ,以點、線、面表示輸電區(qū)域內(nèi)的物理實體 ,用對一的代碼或一系 列坐標(biāo)予以描述。系統(tǒng)圖形矢量數(shù)據(jù)以 MapInfo 標(biāo)準(zhǔn)文件格式存儲在特定目錄下 ,圖形中每個地物均有其對應(yīng)的唯一的標(biāo)識 ID 號 ,MapInfo 以此為索引建立該地物的圖形數(shù)據(jù)文件。 地圖圖層數(shù)據(jù)庫的設(shè)計 地 理信息系統(tǒng)的最主要特點是能以電子地圖的形式 ,直觀地表現(xiàn)背景地物信息 ,并可實現(xiàn)圖文互查。屬性數(shù)據(jù)包括線路運行管理中涉及到的各種非空間數(shù)據(jù) ,它們和地理坐標(biāo)沒有直接的關(guān)系 ,比如桿塔的呼高 ,線路某檔的檔距等數(shù)據(jù)。在Visual Basic 里集成 MapInfo,可以充分利用 MapInfo 對空間數(shù)據(jù)庫的管理、分析功能 ,又能充分利用完善的數(shù)據(jù)庫管理、方便的系統(tǒng)界面設(shè)計等功能 ,將地理操作與非地理操作融為一體集成地圖應(yīng)用程序編制中 ,首先構(gòu)造代表 MapBasic 語句的字符串 ,然后使用 OLE技術(shù)將該字符串發(fā)送給 MapInfo,從而控制 MapInfo的運行 ,當(dāng)采用 OLE 技術(shù)在程序中放置一個 MapInfo 地圖窗口時 ,不能嵌入它 ,而是通過發(fā)送一系列命令串來重新生成一個窗口 ,讓 MapInfo 窗口作為應(yīng)用程序的子窗口 ,因此存儲地圖必須使用自動 OLE,而不是嵌入式 OLE。 系統(tǒng)數(shù)據(jù)庫設(shè)計 系統(tǒng)利用 MapInfo professional 作為 GIS 平臺 ,通過 Visual Basic 進(jìn)行輸電線路地理信息系統(tǒng)的集成二次開發(fā) ,開發(fā)時采用 OLE 自動技術(shù) ,系統(tǒng)軟件構(gòu)成如圖 所示。所謂回調(diào)是指當(dāng) MapInfo 中發(fā)生一個事件，如地圖窗口的改變等，它自動地通知客戶應(yīng)用程序。當(dāng)?shù)貓D集成 Visual Basic 界面后，在地圖窗口 中的操作為 MapInfo 所控制， Visual Basic 不能響應(yīng)點擊事件，因而也就不能以 Visual Basic 界面的形式顯示地圖對象的信息。此外，還可使用“ RunMenuCommand”方法，調(diào)用 MapInfo 定制的菜單功能。“ Do”用于執(zhí)行 MapBasic 語句；“ Eval”方法用于執(zhí)行 MapBasic 函數(shù)或地圖對象，可得到返回值。 MapInfo 在后臺進(jìn)程作為本地服務(wù)器運行， Visual Basic開發(fā)的客戶端應(yīng)用程序 OLE 嵌入并生成 MapInfo 對象，利用回調(diào)函數(shù)（ CallBack）進(jìn)行前后臺的信息交換，實現(xiàn)系統(tǒng)的數(shù)據(jù)管理、分析決策、查詢等功能。二者是通過 OLE 自動化技術(shù)實現(xiàn)集成的，由此能夠使得 MapInfo 處理過的地圖能夠在 Visual Basic 中進(jìn)行調(diào)用，而 Visual Basic 也可以通過此功能對 MapInfo 的功能進(jìn)行引用。 MapBasic 學(xué)起來容易，比較適合用于擴(kuò)展 MapInfo 功能。它的特點在于，不需要了解太多向其提供服務(wù)的應(yīng)用程序，而只需要知道如何完成任務(wù)，以及其操作的屬性和方法即可。 MapInfo+OLE+Visual Basic 組合 OLE 是“ Object Link Embed”的縮寫，譯為對象連接嵌入， OLE 使我們可以從一個編程環(huán)境中訪 問多個應(yīng)用程序。由于功能強(qiáng)大，實際應(yīng)用中要求用戶具有很高的專業(yè)知識和背景，對象粒度封裝過細(xì)，學(xué)習(xí)和掌握起來相對困難。 平臺應(yīng)用對象： MapInfo 系列軟件主要面向部門級以及企業(yè)級的大型 GIS 應(yīng)用。 SpatialWare是在對象關(guān)系數(shù)據(jù)庫環(huán)境下基于 SQL進(jìn)行空間查詢和分析的空間信息管理系統(tǒng)，在 SpatialWare 中，支持 簡單的空間對象，從而支持空間查詢，并能產(chǎn)生新的幾何對象。由于在服務(wù)器上可以運行多個 MapInfo Professional 實例，以滿足用戶的服務(wù)請求，從而節(jié)省了投資。 MapInfo 系列產(chǎn)品有：客戶端 MapInfo Professional；二次開發(fā)平臺MapBasic、 MapInfo MapX、 MapInfo MapX Mobile；服務(wù)器產(chǎn)品 MapXtreme NT、MapInfo MapXtreme Java、 SpatialWare、 MapInfo Preserver；集成工具 MapMaker、MapGen[12]。 MapInfo 軟件平臺 MapInfo是美國 MapInfo公司的桌面地理信息系統(tǒng)軟件，是一種數(shù)據(jù)可視化、信息地圖化的桌面解決方案。 變電站內(nèi)部圖層 變壓器 斷路器 隔離開關(guān) 電壓互感器 電流互感器 電容器 電抗器 避雷器熔斷器阻波器 母線 站內(nèi)電纜站內(nèi)電纜頭 隔離柜 接地電阻放電間隙 接地點 連接線 電力用戶圖層 高壓用戶中壓用戶低壓用戶 、輸電線路管理管理內(nèi)容 變電站：名稱、電壓等級、容量、投運時間、檢修日期等 輸電線路：名稱、電壓等級、線路長度、投運時間、起止桿號、檢修日期 境 地形地貌情況： 地質(zhì)水文情況：河流、湖泊、溝渠滑坡等不 良地質(zhì)形態(tài)等 氣象