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

　　

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