【導(dǎo)讀】畢業(yè)設(shè)計(jì)（論文）地理信息系統(tǒng)在電力系統(tǒng)中的應(yīng)用研。姓名：趙學(xué)華學(xué)號(hào)：04051496. 畢業(yè)設(shè)計(jì)日期：2021年2月16日至2021年6月20日。畢業(yè)設(shè)計(jì)專題題目：。畢業(yè)設(shè)計(jì)主要內(nèi)容和要求：。認(rèn)識(shí)、了解地理信息系統(tǒng)，學(xué)習(xí)并能初步應(yīng)用地理信息系統(tǒng)的開發(fā)平。臺(tái)ARCGIS或MapInfo進(jìn)行程序開發(fā)；了解地理信息系統(tǒng)在電力系統(tǒng)中的應(yīng)用狀。況，設(shè)計(jì)基于GIS的電力系統(tǒng)管理信息系統(tǒng)的框架結(jié)構(gòu)，并進(jìn)行一定的程序開發(fā)。另外，翻譯與本畢業(yè)設(shè)計(jì)內(nèi)容相關(guān)的、最新的、字?jǐn)?shù)不少于3000的外文資。料；參閱中外文參考文獻(xiàn)資料不少于40篇，其中外文資料不少于15篇。工作量；⑥總體評(píng)價(jià)及建議成績(jī)；⑦存在問題；⑧是否同意答辯等）：。中國礦業(yè)大學(xué)畢業(yè)設(shè)計(jì)評(píng)閱教師評(píng)閱書。中國礦業(yè)大學(xué)畢業(yè)設(shè)計(jì)答辯及綜合成績(jī)。答辯情況提出問題回答問題。VisualBasic作為前臺(tái)的開發(fā)工具進(jìn)行實(shí)際的編程，負(fù)責(zé)處理事件的響應(yīng)和控。電力系統(tǒng)中引入GIS的必要性6. 電力GIS基本功能7

　　

【正文】 放大：可以將地圖的某一區(qū)域放大，得到較近的地圖區(qū)域。 縮小：可以將地圖的某一區(qū)域縮小，得到較遠(yuǎn)的地圖區(qū)域。 改變?cè)噲D：改變視角。 漫游：按照自己希望的速度和方向查看地圖內(nèi)容。 信息：對(duì)象的 屬性信息。 圖層控制：控制顯示的內(nèi)容。 測(cè)量標(biāo)尺：可以測(cè)量多點(diǎn)間距離。 繪圖工具條： 點(diǎn)：可以在地圖上放置點(diǎn)符號(hào)（如桿塔、絕緣子等）。 直線：繪制直線。 折線：繪制折線。 圓?。豪L制圓弧。 繪制區(qū)域（屬性為面的單位，如變電所、污區(qū)等）。 整形：使用整形可以通過移動(dòng)、增加、刪除定義線段的節(jié)點(diǎn)來編輯區(qū)域、折線、直線和點(diǎn)。（如創(chuàng)建、更改污區(qū)等） 增加控制點(diǎn)：增加區(qū)域、折線和圓弧的節(jié)點(diǎn)。 符號(hào)樣式：在“符號(hào)樣式”對(duì)話框中選擇符號(hào)并指定其屬性。 線樣式：在線樣式對(duì)話框中設(shè)置直線、圓弧和折線的線類型、寬度和顏色。 區(qū)域 樣式：在“區(qū)域樣式”對(duì)話框中指定閉合對(duì)象的顏色、圖案和邊線樣式。 文本樣式：在“文本樣式”對(duì)話框中選擇文本的字體、大小、顏色。 （ 2） Treeview：目錄樹，可快速定位西北各省及各省等 750KV 變電站 圖 Treeview 目錄樹 （ 3）圖層控制：控制顯示的內(nèi)容 圖 圖層顯示控制 （ 4）電網(wǎng)查看： 可以實(shí)現(xiàn)電網(wǎng)圖的放大、縮小、漫游；設(shè)備屬性查看；設(shè)備及圖層的添加、修改、刪除等。圖為西北 750KV 電網(wǎng)整體效果圖。 圖 系統(tǒng) 750KV 電網(wǎng)效果圖 選擇對(duì)象查看詳細(xì)屬性： 圖 750KV 銀川東變電站屬性信息 （ 5） 圖 添加桿塔 添加 2 個(gè)桿塔，系統(tǒng)自動(dòng)編號(hào)為 4 49，并根據(jù)桿塔布線。 圖 桿塔布線效果圖 6 站所管理： 地理圖上疊置了電網(wǎng)線路、變電站及設(shè)備的實(shí)際分布面圖，通過與菜單操作的結(jié)合，采用多窗口方式一級(jí)一級(jí)查詢線路及變電站設(shè)備圖形、數(shù)據(jù)等信息 圖 變電站總體信息 變電站一次主接線查看： 圖 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ù)。如下圖 圖 750KV 銀川東變電站主變 1詳細(xì)數(shù)據(jù) 檢修試驗(yàn)數(shù)據(jù)： 圖 750KV 銀川東變電站主變 1檢修試驗(yàn)數(shù)據(jù) 桿塔臺(tái)帳信息： 圖 系統(tǒng)桿塔臺(tái)帳信息 線路總體信息 圖 系統(tǒng)線路臺(tái)帳信息 8 電力環(huán)境 電力環(huán)境部分相關(guān)圖層： 圖 電力環(huán)境相關(guān)圖層顯示控制 打開相關(guān)圖層效果： 圖 局部電力環(huán)境圖 9 查詢選擇 圖 選擇電壓等級(jí)高于 500KV 的變電站并高亮顯示 圖 選擇電壓等級(jí)高于 660KV 的線路并高亮顯示 10 測(cè)量：利用標(biāo)尺測(cè)量一段或多段距離。 圖 測(cè)量效果圖 11 統(tǒng)計(jì)分析 圖 超高壓 750KV 變電站面積統(tǒng)計(jì)圖 12 輸出： ：通過“打印設(shè)置”進(jìn)行設(shè)置，可以輸出圖形，包括原始圖形信息的輸出和動(dòng)態(tài)分析結(jié)果圖形輸出。 :數(shù)據(jù)及報(bào)表文件輸出。 :以數(shù)據(jù)、圖形（包括直方圖、圓餅圖等分析圖形）的形式輸出分析結(jié)果。 部分模塊調(diào)用程序的設(shè)計(jì) Visual Basic 應(yīng)用程序與 MapInfo 的 OLE 的連接 在 Visual Basic 應(yīng)用程序里實(shí)現(xiàn)對(duì) 另一個(gè)應(yīng)用程序 MapInfo 的訪問，利用OLE Automation 技術(shù)，把 MapInfo 作為服務(wù)器， Visual Basic 應(yīng)用程序作為客戶機(jī)，可以無縫地實(shí)現(xiàn)集成 MapInfo 對(duì)象于 Visual Basic 應(yīng)用程序中。具體實(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 的通信。該子程序在后臺(tái)創(chuàng)立一個(gè)用于通信的 MapInfo 實(shí)例；一個(gè)本地在此 Visual Basic 應(yīng)用程序的類 MIResponder 的對(duì)象的實(shí)例，即用于接受MapInfo 返回應(yīng)用程序信息的實(shí)例。啟動(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è)置父窗口。指定一個(gè) Picture 控件為集成地圖窗口的父窗口，使電網(wǎng)的 MapInfo 地圖可以顯示其中，同時(shí)可以使用 OLE 自動(dòng)化對(duì)象的 Do 方法實(shí)現(xiàn)一些設(shè)置。 MapInfo 返回值 對(duì)于自動(dòng) OLE 連接，使用 Eval OLE 方法向 MapInfo 發(fā)送信息 ： Dim Result As String Result WindowID 0 使用 Eval 方法時(shí)， MapInfo 解釋這個(gè)字符串為一個(gè)表達(dá)式，并以字符串的形式返回表達(dá)式的值。 4．定位 MapInfo 窗口 把 MapInfo 窗口定位在 Visual Basic 已改用程序子窗體的 Picturebox 控件“ PictureMap”中可用下面的語句實(shí)現(xiàn)： set Next Document Parent amp。 ＆ Style 1 采用 Set Next Document Parent語句，可以重定位文件窗口。 5．集成 MapInfo 的工具欄按鈕 要?jiǎng)?chuàng)建類似 MapInfo 的工具欄按鈕，可以使用 MapInfo 的 RunMenuCommand方法，如： M_FILE_SAVE 39。保存表 激活工具號(hào)為 1705 的 MapInfo 工具，其結(jié)果是 MapInfo 的放大工具變?yōu)榧せ罟ぞ?。其他按鈕可依此創(chuàng)建。 6． Visual Basic 與 MapInfo 的交互 1 Visual Basic 從 MapInfo 中獲取信息 獲取當(dāng)前打開表的名稱 N SelectionInfo amp。 SEL_INFO_TABLENAME amp。 獲取表 N 被選中的記錄的第一列的屬性 Sln N amp。 .coll 2 Visual Basic 向 MapInfo 發(fā)送命令 選中表 N 的記錄的前一條記錄 Fetch Prev From amp。 N 選中表 N 的記錄的下一條記錄 Fetch Next From ＆ N 從表 N 中選 擇第一列屬性為 I 的記錄 select * from ＆ N ＆ where coll ＆ I 該表當(dāng)前選中的對(duì)象的填充顏色和方式 obj_colorl 1 amp。 N ＆ .Obj Alter Object obj_colorl 1 Info ＆ OBJ_INFO_BRUSH amp。， MakeBrush ＆ 2 ＆ ， ＆ RED ＆ ， ＆ RED ＆ 7． Visual Basic 訪問 Access 打開 Access 數(shù)據(jù) 庫 Dim dbase As Database。 Dim rs As Recordset Set dbase OpenDatabase App． Path amp。 \ 選擇滿足條件的記錄 關(guān)閉記錄，關(guān)閉數(shù)據(jù)庫 Set rs Nothing Set rcoders Nothing Set dbase Nothing 8． Visual Basic 訪問 SQL OLEDB 訪問 SQL 2021 數(shù)據(jù)庫 Dim con As Dim ret As Set con New Set cret New provider 。password 密碼 。persist security info true。 user id 用戶名（ sa） 。initial catalog 數(shù)據(jù)庫名； data source sql數(shù)據(jù)庫服務(wù)器名 Begin transaction Sql ...... ? Commit 關(guān)閉數(shù)據(jù)庫 遇到的問題及解決 型 采用一體化建模語言 UML 進(jìn)行電網(wǎng)建模最好，但由于電網(wǎng)建模是一個(gè)很大的工程，過程復(fù)雜且建模時(shí)間長(zhǎng)，考慮畢業(yè)設(shè)計(jì)時(shí)間有限，本系統(tǒng)在開發(fā)時(shí)桿塔、線路、變電所等均采用 MapInfo 元素庫中提供的模型。約定如下： 桿塔符號(hào)： 鐵塔符號(hào)；門型塔符號(hào) ；雙回線塔符號(hào)。 線路符號(hào)： 750KV 線路符號(hào)； 750KV 在建線路。 發(fā)電廠符號(hào)：發(fā)電廠符號(hào) 。 750KV 變電站符號(hào)：變電站符號(hào)，如 線 按照分層原則，桿塔和線路應(yīng)分別存儲(chǔ) 在不同圖層，分析發(fā)現(xiàn)采用先添加桿塔，再按桿塔成線較合理。 桿塔成線的設(shè)計(jì)與實(shí)現(xiàn) 架空線總是架設(shè)在桿塔上，即架空線是有桿塔點(diǎn)連接而成的，模擬電力部門架線工程的方法，先種桿再架線，先在地圖上布置桿塔點(diǎn)，再逐一連接桿塔點(diǎn)生成線路。 在地圖上，點(diǎn)反映為坐標(biāo)（ x,y） ,而線路則反映為一系列坐標(biāo)對(duì)（ X1,Y1）（ X2,Y2）?（ Xn,Yn）組成的線，因而桿塔成線的實(shí)現(xiàn)就是通過逐一獲取桿塔的點(diǎn)坐標(biāo)（ Xi,Yj），組成一組坐標(biāo)對(duì)，根據(jù)這組坐標(biāo)對(duì)在制定的線路層生成線路。 將地圖上的每一物體看作是一個(gè)對(duì)象，它可 以是點(diǎn)、線、面的任何集合形狀或符號(hào)（例如桿塔可用點(diǎn)表示，線路可用直線或折線表示，變電站用面或點(diǎn)表示），通過用鼠標(biāo)點(diǎn)取或圖形對(duì)象而得到其屬性信息（包括地理屬性、表格屬性和多媒體信息） ： 根據(jù)所給的屬性數(shù)據(jù)查詢具有此屬性的對(duì)象和空間位置數(shù)據(jù)，如查詢桿塔高度大于 35 米的桿塔。查詢時(shí)，現(xiàn)在屬性數(shù)據(jù)庫中查詢，然后利用屬性與空間數(shù)據(jù)的對(duì)應(yīng)或連接關(guān)系，進(jìn)一步查詢其所對(duì)應(yīng)的地理空間位置。 屬性查詢的實(shí)現(xiàn)： selectamp。輸出屬性項(xiàng) amp。Fromamp。 beaming amp。whereamp。 屬 性條件式amp。intoamp。新表 含義：使用 MapInfo 的功能查詢某個(gè)表中滿足屬性條件式所給的查詢條件的設(shè)備及其各種屬性值，并將查詢結(jié)果置于一個(gè)新表中。 SQL 查詢 擴(kuò)展查詢時(shí)屬性查詢（ SQL 查詢）和空間拓?fù)潢P(guān)系查詢的結(jié)合，即 SQL 查詢的條件中可含有描述地理關(guān)系的空間語句及其操作，達(dá)到屬性查詢和空間查詢的完美結(jié)合。 擴(kuò)展 SQL 查詢的表達(dá)： SELECT FROM WHERE GROUPBY SORTEDBY INTO 其中， h 和 均可為空， 可用“ *”表示選取所有字段。 屬性字段列表可以使用 聚合和函數(shù)來派生出各式各樣的派生列。如： CertroidX 桿塔 .obj 、 SUM（變壓器容量）分別表示以桿塔為中心點(diǎn) X 坐標(biāo)的最大值、變壓器容量的和作為屬性字段表中的一項(xiàng)。 當(dāng)前要查詢的表的形式為：表名 1，表名 2，表名 3，? .. 擴(kuò)展 SQL 查詢條件式可以使用運(yùn)算符、聚合和函數(shù)進(jìn)行任意語法正確的組合。 如：線路 .電壓 500KV And 線路 .obj Intersects 桿塔 .obj And 桿塔 .高度 Avg 桿塔 .高度 表示的條件為：線路電壓大于 500 KV、與桿塔相交的線路，并且桿塔高度大于平均高度 。 因?yàn)楸鞠到y(tǒng)是基于 GIS 的開發(fā)流程，選用的 GIS 開發(fā)軟件是 MapInfo,在查詢的過程中就必不可少的需要對(duì) MapInfo 表進(jìn)行調(diào)用，因?yàn)檐浖拈_發(fā)語言是VB，就需要通過 VB 對(duì) MapInfo 進(jìn)行數(shù)據(jù)庫式的搜索和查詢。在這里用到了 VB與 MapInfo 的互調(diào)問題。 流程圖： 圖 查詢流程圖 功能代碼： 查詢 MapInfo 表中信息，將找到的信息轉(zhuǎn)換為數(shù)值型 Select * From amp。 Tablet amp。 where InStr 1,查詢名 , amp。 Name amp。 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。 J amp。 From Selection NameJt J NameJX Trim NameJt J If StrML Tri