【正文】 \)選擇滿足條件的記錄關(guān)閉記錄，關(guān)閉數(shù)據(jù)庫Set rs=NothingSet rcoders=NothingSet dbase=Nothing8．Visual Basic訪問SQLOLEDB訪問SQL 2000數(shù)據(jù)庫Dim con As Dim ret As Set con = New Set cre。MakeBrush(＆ 2 ＆，＆ RED ＆，＆ RED ＆)7．Visual Basic訪問Access打開Access數(shù)據(jù)庫Dim dbase As Database。 N選中表N的記錄的下一條記錄Fetch Next From ＆ N從表N中選擇第一列屬性為I的記錄select * from ＆ N ＆where coll= ＆ I該表當(dāng)前選中的對(duì)象的填充顏色和方式obj_colorl 1= amp。 ))獲取表N被選中的記錄的第一列的屬性Sln =(N amp。6．Visual Basic與MapInfo的交互(1)Visual Basic從MapInfo中獲取信息獲取當(dāng)前打開表的名稱N=(SelectionInfo(amp。保存表激活工具號(hào)為1705的MapInfo工具，其結(jié)果是MapInfo的放大工具變?yōu)榧せ罟ぞ摺? ＆Style 1采用Set Next Document Parent語句，可以重定位文件窗口。對(duì)于自動(dòng)OLE連接，使用Eval OLE方法向MapInfo發(fā)送信息：Dim Result As StringResult=WindowID(0)使用Eval 方法時(shí)，MapInfo解釋這個(gè)字符串為一個(gè)表達(dá)式，并以字符串的形式返回表達(dá)式的值。啟動(dòng)MapInfo語句如下：Set MapInfo=CreateObject() 創(chuàng)立MapInfo對(duì)象初始化MapInfo與Visual Basic的連接Public Sub InitializeMapInfoConnection()2. Visual Basic應(yīng)用程序中集成地圖窗口在Visual Basic應(yīng)用程序中集成MapInfo地圖窗口必須在Visual Basic應(yīng)用程序中為MapInfo重新設(shè)置父窗口。具體實(shí)現(xiàn)如下：(1)首先定義兩個(gè)對(duì)象：MapInfo與theResponder，即在程序里添加兩行:Public MapInfo As 0bject 創(chuàng)立指向MapInfo的對(duì)象Public theResponder As Object 創(chuàng)立本地對(duì)象,MapInfo將把信息返回給它(2)然后再添加一個(gè)子程序InitializeMapInfoConnection()，用于實(shí)現(xiàn)同MapInfo的通信。:以數(shù)據(jù)、圖形（包括直方圖、圓餅圖等分析圖形）的形式輸出分析結(jié)果。(11)統(tǒng)計(jì)分析(12)輸出：：通過“打印設(shè)置”進(jìn)行設(shè)置，可以輸出圖形，包括原始圖形信息的輸出和動(dòng)態(tài)分析結(jié)果圖形輸出。變電站一次主接線查看： 750KV銀川東變電站一次系統(tǒng)示意圖(7)設(shè)備臺(tái)帳：臺(tái)帳數(shù)據(jù)；選中項(xiàng)為750銀川東主變1示例 750KV銀川東變電站主變1數(shù)據(jù)點(diǎn)擊右下角詳細(xì)信息按鈕：詳細(xì)信息 獲取屬性數(shù)據(jù)庫中的數(shù)據(jù)。添加2個(gè)桿塔，系統(tǒng)自動(dòng)編號(hào)為449，并根據(jù)桿塔布線。圖為西北750KV電網(wǎng)整體效果圖。文本樣式：在“文本樣式”對(duì)話框中選擇文本的字體、大小、顏色。線樣式：在線樣式對(duì)話框中設(shè)置直線、圓弧和折線的線類型、寬度和顏色。（如創(chuàng)建、更改污區(qū)等）增加控制點(diǎn)：增加區(qū)域、折線和圓弧的節(jié)點(diǎn)。繪制區(qū)域（屬性為面的單位，如變電所、污區(qū)等）。折線：繪制折線。繪圖工具條：點(diǎn)：可以在地圖上放置點(diǎn)符號(hào)（如桿塔、絕緣子等）。圖層控制：控制顯示的內(nèi)容。漫游：按照自己希望的速度和方向查看地圖內(nèi)容。縮?。嚎梢詫⒌貓D的某一區(qū)域縮小，得到較遠(yuǎn)的地圖區(qū)域。創(chuàng)建統(tǒng)計(jì)窗口：創(chuàng)建統(tǒng)計(jì)窗口。邊界選擇：拉出一個(gè)虛擬多邊形區(qū)域，選擇區(qū)域內(nèi)的對(duì)象。矩形選擇：拉出一個(gè)矩形區(qū)域，選擇區(qū)域內(nèi)的對(duì)象。窗口底部狀態(tài)欄可以顯示當(dāng)前比例、編輯狀態(tài)、和系統(tǒng)時(shí)間。菜單如圖主要分為：文件、編輯、電網(wǎng)編輯、站所管理、設(shè)備管理、運(yùn)行管理、查詢、高級(jí)應(yīng)用、系統(tǒng)接口、退出等。界面主體為將MapInfo的地圖窗口集成到用Visual Basic編程語言開發(fā)的應(yīng)用程序中生成西北五省超高壓電網(wǎng)分布二維圖。程序根據(jù)中間變量在輸電線路工程數(shù)據(jù)庫查找相應(yīng)的屬性數(shù)據(jù),從而利用Visual Basic強(qiáng)大的界面編程功能和SQL Server或 Access數(shù)據(jù)庫管理功能建立起地圖圖形屬性與系統(tǒng)外部數(shù)據(jù)庫的連接。 回調(diào)技術(shù)輸電數(shù)據(jù)結(jié)構(gòu)數(shù)據(jù)庫管理工具表名及記錄系統(tǒng)圖形數(shù)據(jù)地圖圖層基礎(chǔ)數(shù)據(jù)庫MapInfo屬性表工程數(shù)據(jù)庫系統(tǒng)屬性數(shù)據(jù)空間拓?fù)潢P(guān)系MapInfo在對(duì)地圖信息進(jìn)行查詢時(shí),MapInfo根據(jù)空間拓?fù)潢P(guān)系找到與地圖元素所在圖層的對(duì)應(yīng)的屬性表,同時(shí)定位到該表中與地圖元素對(duì)應(yīng)的記錄?；A(chǔ)數(shù)據(jù)絕緣子串編號(hào)進(jìn)出線路線路桿塔號(hào)工程數(shù)據(jù)桿塔編號(hào)變電站數(shù)據(jù)表線路數(shù)據(jù)表?xiàng)U塔數(shù)據(jù)表連接金具表懸垂金具表耐張金具表接續(xù)金具表保護(hù)金具表?xiàng)U塔塔頭表?xiàng)U塔塔型表連接金具表絕緣子串零件絕緣子串?dāng)?shù)據(jù)絕緣子數(shù)據(jù)表鋼芯鋁絞線表鋁包鋼絞線表鋁合金絞線表鍍鋅鋼絞線表鋁絞線表導(dǎo)線型號(hào)氣象區(qū)編號(hào)拉線編號(hào)金具型號(hào)拉線數(shù)據(jù)表典型氣象區(qū)數(shù)據(jù)表金具絕緣子桿塔導(dǎo)線所屬線路起始變電站MapInfo在對(duì)地圖圖層進(jìn)行管理時(shí),為每張圖層建了一張表,通過空間拓?fù)潢P(guān)系實(shí)現(xiàn)地圖具體圖形數(shù)據(jù)和相應(yīng)圖層表中屬性數(shù)據(jù)的關(guān)聯(lián)。因此工程信息數(shù)據(jù)庫與基礎(chǔ)數(shù)據(jù)庫并不是完全獨(dú)立的兩個(gè)部分,設(shè)計(jì)時(shí)將這兩個(gè)庫的數(shù)據(jù)自動(dòng)關(guān)聯(lián),可以被交互查詢,這樣可以減少數(shù)據(jù)冗余度。工程數(shù)據(jù)庫主要涉及到具體線路的有關(guān)原始數(shù)據(jù)資料,如該線路的編號(hào)、電壓等級(jí)、起止點(diǎn)、導(dǎo)線型號(hào)、桿塔、絕緣子串、防振和防腐措施、氣象區(qū)以及架空線的應(yīng)力與弧垂等具體工程內(nèi)容?；A(chǔ)數(shù)據(jù)庫主要用來查詢各種桿塔、導(dǎo)線、絕緣子串及常用金具等設(shè)備的型號(hào)、規(guī)格參數(shù)。（2）每個(gè)表應(yīng)該只包含關(guān)于一個(gè)主題的信息,這樣可以獨(dú)立于其他主題維護(hù)每個(gè)主題的信息。這種聯(lián)系被稱作“空間實(shí)體+空間索引”的拓?fù)潢P(guān)系,基于這種關(guān)系的數(shù)據(jù)模型可以規(guī)范為“實(shí)體關(guān)系”模型,因此MapInfo屬性表中的屬性信息可以與外部關(guān)系數(shù)據(jù)庫系統(tǒng)結(jié)合,在外部關(guān)系數(shù)據(jù)庫內(nèi)實(shí)現(xiàn)對(duì)空間數(shù)據(jù)的查詢、分析、處理等操作。在對(duì)地圖圖層進(jìn)行管理時(shí),MapInfo每打開一個(gè)圖層都要為其建立一張表,每個(gè)表包含地圖部分和屬性數(shù)據(jù)兩部份。系統(tǒng)的地圖圖層數(shù)據(jù)庫由與輸電線路運(yùn)行管理相關(guān)的電子地圖組成,這些圖層共同組成輸電線路專題地圖與背景地圖。因此,在系統(tǒng)開發(fā)的最初階段,首要的問題就是準(zhǔn)備包括相關(guān)地理信息的電子地圖。這些屬性數(shù)據(jù)通過鏈表、樹、索引等結(jié)構(gòu)組成,由關(guān)系數(shù)據(jù)庫（SQL Server\Access\Oracle等）進(jìn)行管理。這兩類數(shù)據(jù)是對(duì)輸電線路進(jìn)行描述且相互關(guān)聯(lián)的整體,二者互補(bǔ)存在,通過 GIS系統(tǒng)的拓?fù)潢P(guān)系相聯(lián)系,：桿塔信息線路信息變電站信息關(guān)系數(shù)據(jù)模型矢量數(shù)據(jù)模型輸電線路空間數(shù)據(jù)輸電線路屬性數(shù)據(jù)輸電線路管理數(shù)據(jù)點(diǎn)面鏈表樹線索引其中空間數(shù)據(jù)可以表示為變電站、桿塔等設(shè)備的地理位置和線路所經(jīng)區(qū)域的地形情況等內(nèi)容,由點(diǎn)、線、面等對(duì)象構(gòu)成,例如點(diǎn)實(shí)體用來表示桿塔和變電站,線實(shí)體表示輸電線路等,這些對(duì)象利用MapInfo進(jìn)行管理。在Visual Basic里集成MapInfo,可以充分利用MapInfo對(duì)空間數(shù)據(jù)庫的管理、分析功能,又能充分利用完善的數(shù)據(jù)庫管理、方便的系統(tǒng)界面設(shè)計(jì)等功能,將地理操作與非地理操作融為一體集成地圖應(yīng)用程序編制中,首先構(gòu)造代表MapBasic語句的字符串,然后使用OLE技術(shù)將該字符串發(fā)送給MapInfo,從而控制MapInfo的運(yùn)行,當(dāng)采用OLE技術(shù)在程序中放置一個(gè)MapInfo地圖窗口時(shí),不能嵌入它,而是通過發(fā)送一系列命令串來重新生成一個(gè)窗口,讓MapInfo窗口作為應(yīng)用程序的子窗口,因此存儲(chǔ)地圖必須使用自動(dòng)OLE,而不是嵌入式OLE。系統(tǒng)利用MapInfo professional作為GIS平臺(tái),通過Visual Basic ,開發(fā)時(shí)采用OLE自動(dòng)技術(shù),。所謂回調(diào)是指當(dāng)MapInfo中發(fā)生一個(gè)事件，如地圖窗口的改變等，它自動(dòng)地通知客戶應(yīng)用程序。當(dāng)?shù)貓D集成Visual Basic界面后，在地圖窗口中的操作為MapInfo所控制，Visual Basic不能響應(yīng)點(diǎn)擊事件，因而也就不能以Visual Basic界面的形式顯示地圖對(duì)象的信息。此外，還可使用“RunMenuCommand”方法，調(diào)用MapInfo定制的菜單功能?！癉o”用于執(zhí)行MapBasic語句；“Eval”方法用于執(zhí)行MapBasic函數(shù)或地圖對(duì)象，可得到返回值。MapInfo在后臺(tái)進(jìn)程作為本地服務(wù)器運(yùn)行，Visual Basic開發(fā)的客戶端應(yīng)用程序OLE嵌入并生成MapInfo對(duì)象，利用回調(diào)函數(shù)（CallBack）進(jìn)行前后臺(tái)的信息交換，實(shí)現(xiàn)系統(tǒng)的數(shù)據(jù)管理、分析決策、查詢等功能。二者是通過OLE自動(dòng)化技術(shù)實(shí)現(xiàn)集成的，由此能夠使得MapInfo處理過的地圖能夠在Visual Basic中進(jìn)行調(diào)用，而Visual Basic也可以通過此功能對(duì)MapInfo的功能進(jìn)行引用。MapBasic學(xué)起來容易，比較適合用于擴(kuò)展MapInfo功能。它的特點(diǎn)在于，不需要了解太多向其提供服務(wù)的應(yīng)用程序，而只需要知道如何完成任務(wù)，以及其操作的屬性和方法即可。 MapInfo+OLE+Visual Basic組合OLE是“Object Link Embed”的縮寫，譯為對(duì)象連接嵌入，OLE使我們可以從一個(gè)編程環(huán)境中訪問多個(gè)應(yīng)用程序。由于功能強(qiáng)大，實(shí)際應(yīng)用中要求用戶具有很高的專業(yè)知識(shí)和背景，對(duì)象粒度封裝過細(xì)，學(xué)習(xí)和掌握起來相對(duì)困難。平臺(tái)應(yīng)用對(duì)象：MapInfo系列軟件主要面向部門級(jí)以及企業(yè)級(jí)的大型GIS應(yīng)用。 (3)SpatialWare是在對(duì)象關(guān)系數(shù)據(jù)庫環(huán)境下基于SQL進(jìn)行空間查詢和分析的空間信息管理系統(tǒng)，在SpatialWare中，支持簡(jiǎn)單的空間對(duì)象，從而支持空間查詢，并能產(chǎn)生新的幾何對(duì)象。由于在服務(wù)器上可以運(yùn)行多個(gè)MapInfo Professional實(shí)例，以滿足用戶的服務(wù)請(qǐng)求，從而節(jié)省了投資。 MapInfo系列產(chǎn)品有：客戶端MapInfo Professional；二次開發(fā)平臺(tái)MapBasic、MapInfo MapX、MapInfo MapX Mobile；服務(wù)器產(chǎn)品MapXtreme NT、MapInfo MapXtreme Java、SpatialWare、MapInfo Preserver；集成工具M(jìn)apMaker、MapGen[12]。 MapInfo軟件平臺(tái)MapInfo是美國MapInfo公司的桌面地理信息系統(tǒng)軟件，是一種數(shù)據(jù)可視化、信息地圖化的桌面解決方案。如：上次檢修時(shí)間、下次檢修時(shí)間、檢修報(bào)告、設(shè)備級(jí)別等。線路日常維護(hù)記錄；電網(wǎng)實(shí)時(shí)運(yùn)行參數(shù)，可從SCADA系統(tǒng)中獲?。皇鹿视涗浥c處理情況。（1）變電站： 全站一次設(shè)備平面圖；高壓室及控制室布置圖；一次系統(tǒng)接線圖；變壓器、開關(guān)室所有電氣設(shè)備銘牌、布置圖、結(jié)構(gòu)圖等。地形地貌情況：戈壁、沙漠等；地質(zhì)水文情況：河流、湖泊、溝渠、滑坡等不良地質(zhì)形態(tài)等；氣象情況：雷電、氣溫、大風(fēng)、大霧等；污區(qū)分布：污穢區(qū)、易盜區(qū)、取土區(qū)、雷害區(qū)、重冰區(qū)、森林區(qū)的分布。 變電站內(nèi)部設(shè)備可以按照電壓等級(jí)分為不同的邏輯圖層。 變電站內(nèi)部設(shè)備設(shè)施根據(jù)類型分為不同的邏輯圖層。 在大比例尺電子地圖上，變電站為一個(gè)多邊形區(qū)域圖層，不同類型的變電站填充不同的顏色。 在小比例尺電子地圖上，變電站為一個(gè)點(diǎn)狀圖層，不同類型的變電站采用不同的圖元符號(hào)。 輸電網(wǎng)設(shè)備圖層 168。 各個(gè)電壓等級(jí)的輸電網(wǎng)電纜圖層 168。 (3)輸電網(wǎng)圖層 168。 168。 168。 168。 (2)輸電網(wǎng)圖形 輸電網(wǎng)圖形分層和表達(dá)原則 168。以下為本系統(tǒng)背景圖分層情況：系統(tǒng)基礎(chǔ)圖形數(shù)據(jù)的分層圖層層名類型內(nèi)容地理基礎(chǔ)?。▍^(qū)）面西部五?。宏?、甘、寧、青、新省級(jí)行政中心點(diǎn)、面各省行政中心地市線、面地市區(qū)域和邊界縣、鄉(xiāng)（鎮(zhèn)）、村線、面各縣行政區(qū)域和邊界電力環(huán)境電力企業(yè)管轄區(qū)域線、面各電力企業(yè)及下屬局管轄區(qū)域和邊界交通點(diǎn)、線、面鐵路、公路水系線、面河流、湖泊礦區(qū)面線路相關(guān)礦區(qū)沙漠面線路相關(guān)沙漠跨越線、面跨域信息發(fā)電廠點(diǎn)、面發(fā)電廠所在位置及區(qū)域電網(wǎng)分層原則[4](1)發(fā)電廠 在小比例尺電子地圖上發(fā)電廠為一個(gè)點(diǎn)狀圖層，不同類型的發(fā)電廠采用不同的圖元符號(hào)。本畢業(yè)設(shè)計(jì)系統(tǒng)使用矢量化全國簡(jiǎn)易地圖，地圖僅能看到各省區(qū)分界、省會(huì)城市中心點(diǎn)、一級(jí)河流，沒有地市鄉(xiāng)鎮(zhèn)等數(shù)據(jù)。信息量需求如下:地形圖包括如下要素：行政區(qū)界（省、市、縣、鄉(xiāng)）、鐵路、道路、河流、水庫、沙漠、森林、建筑物、橋梁等。 超高壓輸電線路管理信息系統(tǒng)結(jié)構(gòu)圖：超高壓輸電線路管理信息系統(tǒng)數(shù)據(jù)輸入輸出電網(wǎng)編輯站所管理設(shè)備信息查詢統(tǒng)計(jì)高級(jí)應(yīng)用系統(tǒng)接口電力用戶數(shù)據(jù)輸入排版打印添加桿塔添加線路污區(qū)編輯電源信息變電站信息桿塔臺(tái)帳線路臺(tái)帳設(shè)備臺(tái)帳SQL查詢?cè)O(shè)備查詢線路環(huán)境專題地圖災(zāi)害預(yù)測(cè)事故、運(yùn)行記錄查詢負(fù)控系統(tǒng)雷電定