微機數(shù)據采集系統(tǒng)畢業(yè)論文

1、<p>　　畢 業(yè) 設 計（論 文）</p><p>　　論文題目：微機數(shù)據采集系統(tǒng) </p><p>　　學習中心（或辦學單位）： </p><p>　　指導老師： 李洪 職 稱： 講師</p><p>　　學生姓名： 學 號: </p&

2、gt;<p>　　專 業(yè)：電力系統(tǒng)及其自動化</p><p>　　2013年 9月25日</p><p>　　畢業(yè)設計（論文）任務書</p><p>　　題目：微機數(shù)據采集系統(tǒng)</p><p><b>　　任務與要求：</b></p><p>　　實現(xiàn)采集一條10kv線路的變

3、壓器的電壓、電流、有功、無功、功率因數(shù)、電壓質量</p><p>　　等實時數(shù)據，而且還提供了豐富的控制和管理功能，如：用電情況實時分析、線損計算、異常報警等,對于有條件的用戶還可以實現(xiàn)備用變自動投切等功能.</p><p>　　時間： 2013 年 9 月 2 日 至 2013 年 10月 4日 共 周</p><p>　　學

4、習中心：（或辦學單位） </p><p>　　學生姓名： 學 號：w121080694201003</p><p>　　專業(yè)： 電力系統(tǒng)及其自動化</p><p>　　指導單位或教研室： </p><p>　　指導教師： 職 稱：講師</p&g

5、t;<p>　　畢業(yè)設計(論文)進度計劃表</p><p>　　本表作評定學生平時成績的依據之一。</p><p>　　畢業(yè)設計(論文)中期檢查記錄表</p><p>　　注:此表同學生畢業(yè)設計(論文)一起存檔</p><p><b>　　摘 要</b></p><p>　　本論文主

6、要闡述了微機數(shù)據采集系統(tǒng)的設計,建立和實施.</p><p>　　配變線路的管理一向是我們用電管理部門的重要職能，隨著電子技術和信息技術的飛速發(fā)展，運用新的技術手段來進行配變線路的管理不僅是經濟、可行的，而且是必須的。</p><p>　　隨著社會進步，生產和生活水平的提高，不僅用電量迅速上升，而且用戶對用電質量的要求也不斷提高，用戶的滿意度和經濟效益成為供電企業(yè)發(fā)展的決定性因素，直接向用

7、戶供電的配變地位也就日益突出，對其進行科學、有效地管理成為當前供電部門重點關心的問題。</p><p>　　就技術線損而言，為了確定網絡的供電能力，一般根據線路去年的供用電情況進行計算分析，算出一條或多條線路的損耗或配電設備的損耗。由于多數(shù)中壓和低壓網絡是輻射型的，網絡負荷點的數(shù)目比較多，每個點的信息量很有限，一般只知道用戶的年月用電情況，沒有實時運行參數(shù)，加之實際負荷變化較大，因此很難及時計算分析并作出調整，使

8、配電線路處于高效運行狀態(tài)。另外線路和用戶的無功得不到及時準確的補償，無功電流過大，也是加大損耗的重要原因。</p><p>　　對于管理線損，主要是加大管理力度，采取各種措施根治形形色色的偷漏電行為。然而僅靠人為的查處是消極的、被動的，而且還受人員素質的制約。所以，沒有完備的監(jiān)測與控制手段就難以做到‘應收必收、收必合理’，這已成為供電企業(yè)急待解決的一大難題。</p><p>　　對于配電網

9、來說，掌握了所屬配電變壓器的運行情況，就可以幫助管理者了解配電網的狀況，及時準確地掌握10KV線路當前運行情況，如線損、變損、負荷率、電能質量等重要運行參數(shù)，找出線路不合理運行的原因。</p><p>　　該系統(tǒng)結合了用電管理部門的運行管理經驗和我國電力系統(tǒng)的實際狀況，具有很強的適應性；</p><p>　　該系統(tǒng)的管理對象是10KV公變及專變，不僅采集變壓器下用戶的：電壓、電流、有功、無

10、功、功率因數(shù)、電壓質量等實時數(shù)據，而且還提供了豐富的控制和管理功能，如：用電情況實時分析、線損計算、異常報警等,對于有條件的用戶還可以實現(xiàn)備用變自動投切功能。</p><p>　　該系統(tǒng)是基于完善特性，并考慮到可擴展性而精心設計的。具有可靠性、開放性、安全性、可集成性、易維護性、良好的二次開發(fā)功能和管理方便等優(yōu)秀特點。</p><p><b>　　Abstract</b&g

11、t;</p><p>　　A managerment system of one 10KV line and the related 20 transformers(10KV Guang-Shang line) are established to collect the real-time data such as voltage,current,active power,reactive power,powe

12、r factor and voltage quality.Moreover,abundant management functions are also provided,for example,real-time analysis of power consumption( line loss,transformer loss,load rate and power quality) and abnormal warning etc,

13、For some richer customers,they cn adopt standby power supply and the acquisition and </p><p>　　KEY WORD ： medium –voltage carrier;distribution network;monitoring system</p><p><b>　　目錄</

14、b></p><p>　　第一章 簡介……………………………………………………………………1</p><p>　　1.1 簡介…………………………………………………………………1</p><p>　　1.2 開發(fā)工具的選擇…………………………………………………………1</p><p>　　1.2.1 Delphi簡介……………………

15、…………………………………1</p><p>　　1.2.2 Sybase SQL Server12簡介………………………………………2</p><p>　　1.2.3 C/S 簡介……………………………………………………………2</p><p>　　第二章 需求分析……………………………………………………………3</p><p>　　

16、2.1 系統(tǒng)目標……………………………………………………………3</p><p>　　2.2 系統(tǒng)的功能要求………………………………………………………3</p><p>　　2.3 系統(tǒng)的性能需求………………………………………………………3</p><p>　　2.4 系統(tǒng)的數(shù)據需求………………………………………………………3</p><

17、p>　　2.4.1 系統(tǒng)的數(shù)據需求包括如下幾點：……………………………………3</p><p>　　2.4.2 系統(tǒng)的數(shù)據字典…………………………………………………4</p><p>　　2.5 建立系統(tǒng)的約束………………………………………………………4</p><p>　　第三章 概要設計……………………………………………………………5</p&g

18、t;<p>　　3.1 系統(tǒng)體系結構………………………………………………………5</p><p>　　3.2 主要功能設計………………………………………………………5</p><p>　　3.2.1 主要功能模塊…………………………………………………………5</p><p>　　3.2.2 系統(tǒng)流程圖………………………………………………………5&

19、lt;/p><p>　　3.2.3 系統(tǒng)模塊介紹………………………………………………………6</p><p>　　3.3 數(shù)據庫設計……………………………………………………………6</p><p>　　3.4.1 網絡安全……………………………………………………………16</p><p>　　第四章 詳細設計………………………………………

20、……………………17</p><p>　　4.1 首頁面及主要頁面設計…………………………………..……………17</p><p>　　4.2 功能模塊設計………………………………………………………17</p><p>　　4.3 系統(tǒng)實現(xiàn)……………………………………………………………19</p><p>　　4.3.1 圖形編輯詳細功能

21、及部分代碼…………………………………19</p><p>　　4.3.2 數(shù)據采集信息展示詳細功能及部分代碼………………………52</p><p>　　4.3.3統(tǒng)計報表詳細功能及部分圖例………………………………………55</p><p>　　結束語………………………………………………………………………57</p><p>　　謝辭……

22、………………………………………………………………………58</p><p>　　參考文獻…………………………………………………………………59</p><p><b>　　第一章 簡介</b></p><p>　　1.2.1 開發(fā)工具Delphi　簡介</p><p><b>　　Delphi 簡介<

23、/b></p><p>　　“Delphi”是一種可視化編程工具，指的是開發(fā)圖形用戶界面（GUI）的方法。讀者不需要編寫大量代碼去描述界面的外觀和位置，而只要把預先建立的對象放到屏幕上即可?！翱梢暤摹边@個名字初聽起來可能抽象了點，但實際上它卻是最形象的叫法，用戶只要看到Delphi的界面就會明白，實際上無需編程，就可以完成許多編程步驟。</p><p>　　另外，在Delphi中控件

24、的概念，在Windows中控件的身影無處不在，各種各樣的按鈕、文本框等都是控件。Delphi 把這些控件模式化，并且每個控件都有若干屬性用來控制控件的外觀以及工作方法（Method）</p><p>　　Delphi的特點：</p><p><b>　　1．可視化編程</b></p><p>　　Delphi 自動產生界面設計代碼，程序設計人

25、員只需要編寫實現(xiàn)程序功能的那部分代碼，從而可以大大提高程序設計的效率。</p><p>　　2．面向對象的程序設計</p><p>　　在設計對象時，不必編寫建立和描述每個對象的程序代碼，而是用工具畫在界面上，Delphi自動生成對象的程序代碼并封裝起來。每個對象以圖形方式顯示在界面上，都是可視的。</p><p>　　3．結構化程序設計語言</p>

26、<p>　　Delphi 是在 pascal 語言的基礎上發(fā)展起來的，具有高級程序設計語言的語句結構，接近于自然語言和人類的思維發(fā)方式，其語句簡單易懂；其編譯器支持彩色代碼，可自動進行語法錯誤檢查，同時具有功能強且使用靈活的調試器和編譯器。</p><p>　　4．事件驅動編程機制</p><p>　　Delphi 通過事件來執(zhí)行對象的操作。一個對象可能回產生多個事件，每個

27、事件都可以通過一段程序來響應。 </p><p><b>　　5．訪問數(shù)據庫</b></p><p>　　Delphi 提供開放式數(shù)據連接（Open DataBase Connectivity），即ODBC功能，它可通過直接訪問或建立連接的方式使用并操作后臺大型網絡數(shù)據庫，如Sybase SQL Server、Oracle等。</p><p>

28、;　　1.2.2 數(shù)據庫Sybase SQL Server簡介</p><p>　　Sybase SQL Server 12中文版，是基于客戶端/服務器模式（Client/Server模式，簡稱C/S模式）的新一代大型關系型數(shù)據庫管理系統(tǒng)（DBMS）。它在電子商務、數(shù)據倉庫和數(shù)據庫解決方案等應用中起著重要的核心作用，為企業(yè)的數(shù)據管理提供強大的支持，對數(shù)據庫中的數(shù)據提供有效的管理，并采用有效的措施實現(xiàn)數(shù)據的完整性及

29、數(shù)據安全性。</p><p>　　SQL Server2000主要的服務器組件:</p><p>　　(1)Sybase SQL Server數(shù)據庫引擎(Sybase SQL Server服務)。</p><p>　　(2)Sybase backup Server代理程序(SQL backup Server 服務)。</p><p>　　1.

30、2.3 C/S 簡介</p><p>　　C/S模式即客戶機/服務器（Client/Server）體系結構是當前非常流行的計算機體系結構。在這種體系結構中，客戶機提出請求，服務器對客戶機的請求作出回應。</p><p>　　在客戶機/服務器體系結構中，客戶機負責管理用戶界面、接收用戶數(shù)據、處理應用邏輯、生成數(shù)據庫服務請求，然后將這些請求發(fā)送給服務器，并且接收服務器返回的結果，最后再將這些

31、結果按照一定的格式返回給用戶。服務器接收客戶機的請求，處理這些請求，并把處理結果返回給客戶機，這些處理結果包括訪問數(shù)據庫的結果數(shù)據和執(zhí)行狀態(tài)例如成功或失敗。</p><p>　　在典型的C/S數(shù)據庫應用中，數(shù)據的儲存管理功能，是由服務器程序獨立進行的，并且通常把那些不同的（不管是已知還是未知的）前臺應用所不能違反的規(guī)則，在服務器程序中集中實現(xiàn)，例如訪問者的權限，編號不準重復、必須有客戶才能建立定單這樣的規(guī)則。所有

32、這些，對于工作在前臺程序上的最終用戶，是“透明”的，他們無須過問（通常也無法干涉）這背后的過程，就可以完成自己的一切工作。在客戶服務器架構的應用中，前臺程序可以變的非?！笆菪　?，麻煩的事情，都交給了服務器和網絡。在C/S體系的下，數(shù)據庫真正變成了公共、專業(yè)化的倉庫，受到獨立的專門管理。</p><p><b>　　第二章 需求分析</b></p><p><b&

33、gt;　　2.1 系統(tǒng)目標</b></p><p>　　實現(xiàn)采集一條10kv線路的變壓器下用戶的電壓、電流、有功、無功、功率因數(shù)、電壓質量</p><p>　　等實時數(shù)據，而且還提供了豐富的控制和管理功能，如：用電情況實時分析、線損計算、異常報警等,對于有條件的用戶還可以實現(xiàn)備用變自動投切等功能．</p><p>　　2.2 系統(tǒng)的功能要求</

34、p><p><b>　　1、系統(tǒng)設置</b></p><p>　　對系統(tǒng)正常運作的各種參數(shù)數(shù)據進行收集管理，使系統(tǒng)能適應各供電局（公司）的特殊情況，實現(xiàn)的靈活管理。</p><p><b>　　2、圖型編輯</b></p><p>　　生成矢量線路結構圖，并關聯(lián)數(shù)據。為監(jiān)控和圖檔管理提供圖形數(shù)據。<

35、;/p><p><b>　　3、數(shù)據采集</b></p><p>　　通過人工抄表或遠程自動抄表為系統(tǒng)提供監(jiān)測和計算數(shù)據。</p><p><b>　　4、統(tǒng)計分析</b></p><p>　　對采集數(shù)據進行分析加工，生成報表。</p><p><b>　　5、配網運行

36、</b></p><p>　　對變壓器、線路、電能表等配電設備資產、運行情況進行管理。</p><p><b>　　6、系統(tǒng)管理</b></p><p>　　對使用本系統(tǒng)人員及功能模塊進行管理。</p><p>　　2.3 系統(tǒng)的性能需求</p><p>　　實現(xiàn)實時采集一條10kv線

37、路的變壓器下用戶的電壓、電流、有功、無功、功率因數(shù)、電壓質量等數(shù)據并直觀的呈現(xiàn)在圖上.</p><p>　　2.4 系統(tǒng)的數(shù)據需求</p><p>　　系統(tǒng)數(shù)據來源為DLC-2100電力數(shù)字多址載波機和電力營銷數(shù)據庫.</p><p>　　2.4.2 系統(tǒng)的數(shù)據字典</p><p>　　模塊定義表mkdyb, 崗位名稱bm_gwm, 崗位對

38、應模塊bm_gwdymk, 人員基本信息ryjbxx, 圖型臨時表txb, 永久圖形表yjtxb, 自定義圖形表 zdytx, 自定義圖形類別表 zdytxlbb, 自動生成圖形參數(shù)表 zdsccsb, 自動生成圖形表 zdsctxb, 線路資產表：DF_XLDA, Xlfdxx 線路分段信息, Pd_gdzc_byq 變壓器資產表, Pd_sbtz_xl 線路運行表, 變壓器參數(shù)表pd_byq_cs, 線路參數(shù)表 pd_xl_cs,

39、變壓器運行表 pd_sbtx_byq, 變電站編碼 bm_bdz, 電能表電量月記錄數(shù)據表 dnbjlsj, 線損匯總表 xshzb, 變電站35kv母線平衡表 bdzmxphb, 負荷測量實時記錄數(shù)據表 fhclssjl, 供電可靠率統(tǒng)計表 gdkkl, 電壓合格率統(tǒng)計表 dyhgltj, 參考變損表 ckbsb, 功率因素分析表 glysfxb, Xtcsb系統(tǒng)參數(shù)表, Gjxxlsb告警信息歷史表, gjszb告警設置表, 用戶變

40、損表yh_byqsh, 負荷統(tǒng)計表fhtjb.</p><p>　　2.5 建立系統(tǒng)的約束</p><p>　　1、說明：監(jiān)控畫面數(shù)據由此表提供，接受由載波機提供更新數(shù)據。</p><p>　　2、一個設備一條記錄，不論有幾只電能表。</p><p>　　3、抄不到數(shù)據應對數(shù)字字段記錄值賦0。</p><p>　　負

41、荷測量歷史記錄數(shù)據表 ls_fhclssjl</p><p>　　說明：15分鐘寫歷史記錄表一次（把數(shù)據從fhclssjl中轉到ls_fhclssjl）</p><p>　　數(shù)據從fhclssjl中來（記錄數(shù)=時間/15*fhclssjl中所有行數(shù)）</p><p>　　電能表電量天記錄數(shù)據表 t_dnbjlsj</p><p>　　結構和電

42、能表電量月記錄數(shù)據表 dnbjlsj一樣，只是每天接受由載波機提供數(shù)據，更新一次數(shù)據。1、記錄數(shù)=電表個數(shù)2、抄不到數(shù)據應對數(shù)字字段記錄值賦0。</p><p>　　歷史電能表電量天記錄數(shù)據表 ls_t_dnbjlsj</p><p>　　說明：結構和電能表電量月記錄數(shù)據表 dnbjlsj一樣只是每天從t_dnbjlsj</p><p>　　轉入當天數(shù)據。（記錄數(shù)=

43、電表個數(shù)*天數(shù)）</p><p><b>　　第三章 概要設計</b></p><p>　　3.1 系統(tǒng)體系結構</p><p>　　3.2 主要功能設計</p><p>　　1、對系統(tǒng)正常運作的各種參數(shù)數(shù)據進行收集管理，使系統(tǒng)能適應各供電局（公司）的特殊情況，實現(xiàn)的靈活管理。2、生成矢量線路結構圖，并關聯(lián)數(shù)據。為監(jiān)控

44、和圖檔管理提供圖形數(shù)據。3、通過人工抄表或遠程自動抄表為系統(tǒng)提供監(jiān)測和計算數(shù)據。4、對采集數(shù)據進行分析加工，生成報表。</p><p>　　5、對變壓器、線路、電能表等配電設備資產、運行情況進行管理。6、對使用本系統(tǒng)人員及功能模塊進行管理。</p><p>　　3.2.1 主要功能模塊</p><p>　　一、系統(tǒng)設置 二、圖型編輯 三、數(shù)據采集 四、統(tǒng)計分析

45、五、配網運行 六、系統(tǒng)管理</p><p>　　3.2.2 系統(tǒng)流程圖</p><p>　　3.2.3 系統(tǒng)模塊介紹</p><p><b>　　一、系統(tǒng)功能</b></p><p>　　用戶登錄、數(shù)據歸檔、電能表數(shù)據同步、.打印設置、系統(tǒng)參數(shù)表、告警設置</p><p><b>　

46、　二、圖形編輯</b></p><p>　　生成接線圖、線路結構圖、單線圖、</p><p><b>　　三、數(shù)據采集</b></p><p>　　數(shù)據采集、人工抄表、遠程自動抄表、監(jiān)控畫面庫</p><p><b>　　四、統(tǒng)計分析</b></p><p>　　

47、統(tǒng)計分析-臺區(qū)、供電可靠率、電壓合格率、負載分析、負載統(tǒng)計、用戶變損分析、監(jiān)測變損分析、用戶線損分析、監(jiān)測線損分析、用戶參考線損比較、功率因素分析、電量統(tǒng)計、運行日報表、運行月報表、運行年報表、運行日歷史曲線、運行月歷史曲線、運行年歷史曲線、歷史報警故障統(tǒng)計、統(tǒng)計分析-綜合、電量明細表、線損統(tǒng)計表、線路輸入輸出匯總表、變電站母線平衡表、線損波動曲線圖</p><p><b>　　五、配網運行&l

48、t;/b></p><p>　　設備參數(shù)管理、線路參數(shù)</p><p>　　2-變壓器參數(shù)2、資產管理、變電站、線路、變壓器、無功補償設備、負荷開關、變壓器調節(jié)裝置、有功表、無功表、TTU、運行設備管理、運行專用變壓器、運行公用變壓器、運行線路、運行線路電能表、運行臺區(qū)電能表、運行變電站電能表</p><p><b>　　六、系統(tǒng)管理</

49、b></p><p>　　人員使用信息維護、人員使用模塊維護</p><p><b>　　3.3 數(shù)據庫設計</b></p><p>　　模塊定義表mkdyb</p><p>　　崗位名稱bm_gwmc</p><p>　　崗位對應模塊bm_gwdymk</p><p&g

50、t;　　人員基本信息ryjbxx</p><p><b>　　圖型臨時表txb</b></p><p>　　說明：1、用于繪圖時記錄所繪圖形，存盤后把此表記錄考入永久圖形表并清空此表記錄</p><p>　　2、圖型類型：1：直線，2：變壓器，3：電桿，4：標記，5：開關…</p><p>　　3、顏色：0：black,

51、1：red,2：blue,3：green,4：white</p><p>　　4、模式：0：實線，1：虛線</p><p>　　5、人員工號：主要考慮有兩臺以上機起同時畫圖時不沖突。</p><p>　　永久圖形表yjtxb</p><p>　　自定義圖形表 zdytxb</p><p>　　自定義圖形類別表 zdyt

52、xlbb</p><p>　　自動生成圖形參數(shù)表 zdsccsb</p><p>　　自動生成圖形表 zdsctxb</p><p>　　線路資產表：DF_XLDA</p><p><b>　　信息說明：</b></p><p>　　線路性質（XLXZ）：0-專線；1-T接。</p>

53、<p>　　線路使用類別（XLSYLB）：1-自用；2-合用；3-公用. </p><p>　　Bm_jxfs 接線方式編碼表</p><p>　　Bm_cq 產權編碼表</p><p>　　Bm_xlsylb 線路使用類別編碼表</p><p>　　Xlfdxx 線路分段信息</p><p>　　Pd_

54、gdzc_byq 變壓器資產表</p><p>　　Pd_sbtz_xl 線路運行表</p><p>　　變壓器參數(shù)表pd_byq_cs</p><p>　　線路參數(shù)表 pd_xl_cs</p><p>　　變壓器運行表 pd_sbtx_byq</p><p>　　變電站編碼 bm_bdz</p><

55、;p>　　電能表電量月記錄數(shù)據表 dnbjlsj</p><p>　　說明：只保留當月數(shù)據。</p><p>　　電能表編號:有無功分別編號</p><p>　　歷史電能表電量月記錄數(shù)據表 ls_dnbjlsj</p><p>　　說明：每月從電能表電量月記錄數(shù)據表dnbjlsj轉入數(shù)據。</p><p>　　線

56、損匯總表 xshzb</p><p>　　線路輸入輸出匯總表 xlsrschz</p><p>　　變電站35kv母線平衡表 bdzmxphb</p><p>　　負荷測量實時記錄數(shù)據表 fhclssjl</p><p>　　1、說明：監(jiān)控畫面數(shù)據由此表提供，接受由載波機提供更新數(shù)據。</p><p>　　2、一個設備

57、一條記錄，不論有幾只電能表。</p><p>　　3、抄不到數(shù)據應對數(shù)字字段記錄值賦0。</p><p>　　負荷測量歷史記錄數(shù)據表 ls_fhclssjl</p><p>　　說明：15分鐘寫歷史記錄表一次（把數(shù)據從fhclssjl中轉到ls_fhclssjl）</p><p>　　數(shù)據從fhclssjl中來（記錄數(shù)=時間/15*fhcls

58、sjl中所有行數(shù)）</p><p>　　電能表電量天記錄數(shù)據表 t_dnbjlsj</p><p>　　結構和電能表電量月記錄數(shù)據表 dnbjlsj一樣，只是每天接受由載波機提供數(shù)據，更新一次數(shù)據。1、記錄數(shù)=電表個數(shù)2、抄不到數(shù)據應對數(shù)字字段記錄值賦0。</p><p>　　歷史電能表電量天記錄數(shù)據表 ls_t_dnbjlsj</p><p&g

59、t;　　說明：結構和電能表電量月記錄數(shù)據表 dnbjlsj一樣只是每天從t_dnbjlsj</p><p>　　轉入當天數(shù)據。（記錄數(shù)=電表個數(shù)*天數(shù)）</p><p>　　供電可靠率統(tǒng)計表 gdkkl</p><p>　　說明：1、用戶供電時間=日期止-日期起</p><p>　　2、用戶供電可靠率=用戶停電時間/用戶供電時間</p&

60、gt;<p>　　電壓合格率統(tǒng)計表 dyhgltj</p><p>　　功率因素分析表 glysfxb</p><p>　　Xtcsb系統(tǒng)參數(shù)表</p><p>　　Gjxxlsb告警信息歷史表</p><p>　　gjszb告警設置表</p><p>　　負荷統(tǒng)計表fhtjb</p>&l

61、t;p>　　創(chuàng)建Sybase SQL Server 表代碼示例:</p><p>　　CREATE TABLE dbo.bm_bm</p><p>　　(code char(6) NOT NULL,</p><p>　　name char(40) NULL) ;</p><p>　　3.4.1 網絡安全</p><

62、p>　　因Sybase SQL Server 服務端口號為5001，故在局域網上交換機設置TCP/IP只開放此端口，</p><p>　　并在服務器及桌面系統(tǒng)windows上安裝防火墻軟件及殺毒軟件。</p><p><b>　　第四章 詳細設計</b></p><p>　　4.1 首頁面及主要頁面設計</p><p&

63、gt;　　4.2 功能模塊設計</p><p>　　中的樹狀列表，用鼠標單計[+]號可展開子數(shù)，選擇你要進入的功能模塊。</p><p>　　系統(tǒng)中大部分窗口有數(shù)據導航條，如下窗口：</p><p>　　第一個按鈕為轉到第一條記錄。第二個按鈕為轉到上一條記錄。第三個按鈕為轉到下一條記錄。第四個按鈕為轉到最后條記錄。第五個按鈕為添加一條記錄。第六個按鈕為刪除第一條記

64、錄。七個按鈕為進入編輯狀態(tài)。八個按鈕為查詢，九個按鈕為更新按鈕為更新已修改的記錄。</p><p><b>　　4.3 系統(tǒng)實現(xiàn)</b></p><p>　　4.3.1 圖形編輯詳細功能及部分代碼</p><p><b>　　生成接線圖</b></p><p>　　畫圖工具欄如下定義：</

65、p><p>　　0-線路，1-變壓器，2-變壓器（橫向），3-電桿，4-標記，5-開關，6-刀閘，7-避雷器，8-電抗器，9-電壓互感器，10-電流互感器，11-電容，12-接地，13-熔斷器，14-電表，15-曲線</p><p>　　16-漢字，17-字體。</p><p>　　注意：圖形名稱一定要輸入。可自行定義圖寬，圖高。</p><p>

66、;　　畫線路應先選中畫圖工具欄線路按鈕，在畫圖板中選中起始位置（按鼠標左鍵不放）拖動到目標位置即可。其它圖形選中畫圖工具欄中相應按鈕直接在畫圖板中選中起始位置釋放鼠標左鍵即可。</p><p>　　圖形均可用鼠標拖動。</p><p>　　刪除圖形按鼠標右鍵。</p><p><b>　　關聯(lián)設備：</b></p><p&g

67、t;　　按鼠標右鍵出現(xiàn)如下窗口。</p><p>　　點擊關聯(lián)設備后系統(tǒng)自動根據圖形類型調出變壓器，線路等設備信息窗口。</p><p>　　選中你要關聯(lián)的設備然后點擊“關聯(lián)”按鈕即可。</p><p><b>　　代碼示例:</b></p><p>　　unit scxljgt_form10;</p>&

68、lt;p><b>　　interface</b></p><p><b>　　uses</b></p><p>　　Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,</p><p>　　Dialogs, ImgList

69、, ComCtrls, ToolWin, ExtCtrls, StdCtrls, Menus, Grids,</p><p>　　DBGrids,printers, DBTables;</p><p><b>　　type</b></p><p>　　TForm10 = class(TForm)</p><p>　　To

70、olBar1: TToolBar;</p><p>　　ToolButton1: TToolButton;</p><p>　　ToolButton2: TToolButton;</p><p>　　ToolButton3: TToolButton;</p><p>　　ToolButton4: TToolButton;</p>

71、<p>　　ToolButton5: TToolButton;</p><p>　　ToolButton6: TToolButton;</p><p>　　ToolButton7: TToolButton;</p><p>　　ToolButton8: TToolButton;</p><p>　　ToolButton9: TTo

72、olButton;</p><p>　　ToolButton10: TToolButton;</p><p>　　ToolButton11: TToolButton;</p><p>　　ToolButton12: TToolButton;</p><p>　　ToolButton13: TToolButton;</p><

73、;p>　　ToolButton14: TToolButton;</p><p>　　ToolButton15: TToolButton;</p><p>　　ToolButton16: TToolButton;</p><p>　　ToolButton17: TToolButton;</p><p>　　ImageList1: TIma

74、geList;</p><p>　　ScrollBox1: TScrollBox;</p><p>　　Image1: TImage;</p><p>　　ComboBox1: TComboBox;</p><p>　　ToolButton19: TToolButton;</p><p>　　ComboBox2: TC

75、omboBox;</p><p>　　Label1: TLabel;</p><p>　　Label2: TLabel;</p><p>　　Edit1: TEdit;</p><p>　　Label3: TLabel;</p><p>　　UpDown1: TUpDown;</p><p>　

76、　MainMenu1: TMainMenu;</p><p>　　F1: TMenuItem;</p><p>　　O1: TMenuItem;</p><p>　　S1: TMenuItem;</p><p>　　L1: TMenuItem;</p><p>　　E1: TMenuItem;</p>&

77、lt;p>　　ImageList2: TImageList;</p><p>　　N1: TMenuItem;</p><p>　　Label4: TLabel;</p><p>　　Label5: TLabel;</p><p>　　P1: TMenuItem;</p><p>　　N2: TMenuItem;

78、</p><p>　　N3: TMenuItem;</p><p>　　Button1: TButton;</p><p>　　ToolButton20: TToolButton;</p><p>　　FontDialog1: TFontDialog;</p><p>　　ToolBar2: TToolBar;<

79、/p><p>　　ToolButton21: TToolButton;</p><p>　　ToolButton22: TToolButton;</p><p>　　ToolButton23: TToolButton;</p><p>　　ToolButton24: TToolButton;</p><p>　　ToolB

80、utton25: TToolButton;</p><p>　　ToolButton27: TToolButton;</p><p>　　ToolButton28: TToolButton;</p><p>　　ToolButton29: TToolButton;</p><p>　　ToolButton30: TToolButton;<

81、;/p><p>　　ToolButton31: TToolButton;</p><p>　　P2: TMenuItem;</p><p>　　BatchMove1: TBatchMove;</p><p>　　ToolButton18: TToolButton;</p><p>　　procedure FormClose

82、(Sender: TObject; var Action: TCloseAction);</p><p>　　procedure ToolButton2Click(Sender: TObject);</p><p>　　procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,</p><p>

83、　　Y: Integer);</p><p>　　procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;</p><p>　　Shift: TShiftState; X, Y: Integer);</p><p>　　procedure Image1MouseUp(Sender: TObjec

84、t; Button: TMouseButton;</p><p>　　Shift: TShiftState; X, Y: Integer);</p><p>　　procedure ToolButton1Click(Sender: TObject);</p><p>　　procedure ToolButton3Click(Sender: TObject);<

85、/p><p>　　procedure ComboBox1Change(Sender: TObject);</p><p>　　procedure ComboBox2Change(Sender: TObject);</p><p>　　procedure Edit1Change(Sender: TObject);</p><p>　　procedu

86、re ToolButton4Click(Sender: TObject);</p><p>　　procedure ToolButton6Click(Sender: TObject);</p><p>　　procedure ToolButton7Click(Sender: TObject);</p><p>　　procedure ToolButton8Click

87、(Sender: TObject);</p><p>　　procedure ToolButton16Click(Sender: TObject);</p><p>　　procedure N1Click(Sender: TObject);</p><p>　　procedure ToolButton5Click(Sender: TObject);</p>

88、;<p>　　procedure ToolButton9Click(Sender: TObject);</p><p>　　procedure ToolButton10Click(Sender: TObject);</p><p>　　procedure ToolButton11Click(Sender: TObject);</p><p>　　pro

89、cedure ToolButton12Click(Sender: TObject);</p><p>　　procedure ToolButton13Click(Sender: TObject);</p><p>　　procedure ToolButton14Click(Sender: TObject);</p><p>　　procedure ToolButto

90、n15Click(Sender: TObject);</p><p>　　procedure ToolButton17Click(Sender: TObject);</p><p>　　procedure ToolButton20Click(Sender: TObject);</p><p>　　procedure ToolButton21Click(Sender:

91、 TObject);</p><p>　　procedure ToolButton30Click(Sender: TObject);</p><p>　　procedure ToolButton28Click(Sender: TObject);</p><p>　　procedure P2Click(Sender: TObject);</p><

92、p>　　procedure ToolButton23Click(Sender: TObject);</p><p>　　procedure S1Click(Sender: TObject);</p><p>　　procedure ToolButton22Click(Sender: TObject);</p><p>　　procedure O1Click(S

93、ender: TObject);</p><p>　　procedure N3Click(Sender: TObject);</p><p>　　procedure ToolButton27Click(Sender: TObject);</p><p>　　procedure Button1Click(Sender: TObject);</p><

94、;p>　　procedure ToolButton18Click(Sender: TObject);</p><p><b>　　private</b></p><p>　　{ Private declarations }</p><p><b>　　public</b></p><p>　　

95、{ Public declarations }</p><p><b>　　end;</b></p><p><b>　　var</b></p><p>　　Form10: TForm10;</p><p>　　ix:integer;</p><p>　　iy:integer

96、;</p><p>　　sqx:integer; //存入數(shù)據庫中坐標數(shù)據</p><p>　　sqy:integer;</p><p>　　szx:integer;</p><p>　　szy:integer;</p><p>　　hzxx:string; //漢字信息</p><p>　　

97、txmc:string; //圖型名稱</p><p>　　hzxxys:integer; //文本信息顏色</p><p>　　hzxxsz:integer; //文本信息字體大小</p><p>　　xzqx:integer; //選中圖型坐標</p><p>　　xzqy:integer;</p><p>　　x

98、zzx:integer;</p><p>　　xzzy:integer;</p><p>　　xzhzxx:string; //選中文本信息</p><p>　　xzhzxxys:integer; //選中文本信息顏色</p><p>　　xzhzxxsz:integer; //選中文本信息字體大小</p><p>　

99、　xztxlx:integer; //選中圖型類型</p><p>　　xzys:integer; //選中顏色</p><p>　　xzms:integer; //選中模式</p><p>　　xzkd:integer; //選中寬度</p><p>　　Font1:TFont; //字體</p><p>　　sf

100、djzt:integer; //是否已經選中字體</p><p>　　Drawing:bool; //是否開始畫圖</p><p>　　Origin:TPoint;</p><p>　　MovePt:TPoint; //光標起點位置，當前位置</p><p>　　xzdwy:TPoint; //選中點位移量</p><p&

101、gt;　　wyqs1:TPoint;</p><p>　　wyzz1:TPoint;</p><p>　　wyqs2:TPoint;</p><p>　　wyzz2:TPoint;</p><p>　　DrawingTool:integer ; //畫？圖型</p><p>　　CurrentFile:AnsiStri

102、ng;</p><p>　　function DrawShape(TopLeft:TPoint;BottomRight:TPoint;AMode:TPenMode):integer; //定義畫圖函數(shù)</p><p>　　function TDDrawShape(TopLeft:TPoint;BottomRight:TPoint;AMode:TPenMode):integer;

103、 //定義拖動畫圖函數(shù)</p><p>　　function Tdxsj(TopLeft:TPoint;BottomRight:TPoint;AMode:TPenMode):integer; //寫實時數(shù)</p><p>　　implementation</p><p>　　uses sztpdx_form9, ryjbxx_datamodule1, wbsr_fo

104、rm8, dktx_form11,</p><p>　　zdsc_form12 , txgl_form18, main_form1, sssj_datamodule3;</p><p>　　function DrawShape(TopLeft:TPoint;BottomRight:TPoint;AMode:TPenMode):integer;</p><p><

105、;b>　　begin</b></p><p>　　Form10.Image1.Canvas.Pen.Mode:=AMode;</p><p>　　case DrawingTool of</p><p><b>　　1: //直線</b></p><p><b>　　begin</b&

106、gt;</p><p>　　Form10.Image1.Canvas.MoveTo(TopLeft.X,TopLeft.y);</p><p>　　Form10.Image1.Canvas.LineTo(BottomRight.x,BottomRight.y);</p><p><b>　　end;</b></p><p&g

107、t;<b>　　2: //變壓器</b></p><p><b>　　begin</b></p><p>　　Form10.Image1.Canvas.Ellipse(TopLeft.X-12,TopLeft.y,TopLeft.X+12,TopLeft.y+24);</p><p>　　Form10.Image1.Ca

108、nvas.Ellipse(TopLeft.X-12,TopLeft.y+12,TopLeft.X+12,TopLeft.y+36);</p><p><b>　　end;</b></p><p><b>　　3: //電桿</b></p><p><b>　　begin</b></p>

109、<p>　　Form10.Image1.Canvas.Ellipse(TopLeft.X-3,TopLeft.y,TopLeft.X+3,TopLeft.y+6);</p><p><b>　　end;</b></p><p><b>　　4: //標記</b></p><p><b>　　begin&

110、lt;/b></p><p>　　Form10.Image1.Canvas.Ellipse(TopLeft.X-6,TopLeft.y,TopLeft.X+6,TopLeft.y+12);</p><p><b>　　end;</b></p><p><b>　　5: //開關</b></p><

111、p><b>　　begin</b></p><p>　　Form10.Image1.Canvas.rectangle(TopLeft.X-6,TopLeft.y,TopLeft.X+6,TopLeft.y+24);</p><p><b>　　end;</b></p><p><b>　　6: //刀閘&l

112、t;/b></p><p><b>　　begin</b></p><p>　　Form10.Image1.Canvas.MoveTo(TopLeft.X,TopLeft.y);</p><p>　　Form10.Image1.Canvas.LineTo(TopLeft.X,TopLeft.y+6);</p><p&g

113、t;　　Form10.Image1.Canvas.MoveTo(TopLeft.X-10,TopLeft.y+6);</p><p>　　Form10.Image1.Canvas.LineTo(TopLeft.X+10,TopLeft.y+6);</p><p>　　Form10.Image1.Canvas.MoveTo(TopLeft.X-10,TopLeft.y+10);</p&

114、gt;<p>　　Form10.Image1.Canvas.LineTo(TopLeft.X,TopLeft.y+16);</p><p>　　Form10.Image1.Canvas.MoveTo(TopLeft.X,TopLeft.y+16);</p><p>　　Form10.Image1.Canvas.LineTo(TopLeft.X,TopLeft.y+20);&l

115、t;/p><p><b>　　end;</b></p><p><b>　　7: //避雷器</b></p><p><b>　　begin</b></p><p>　　Form10.Image1.Canvas.rectangle(TopLeft.X-6,TopLeft.y+4,T

116、opLeft.X+6,TopLeft.y+28);</p><p>　　Form10.Image1.Canvas.MoveTo(TopLeft.X,TopLeft.y);</p><p>　　Form10.Image1.Canvas.LineTo(TopLeft.X,TopLeft.y+12);</p><p>　　Form10.Image1.Canvas.Move

117、To(TopLeft.X,TopLeft.y+28);</p><p>　　Form10.Image1.Canvas.LineTo(TopLeft.X,TopLeft.y+34);</p><p><b>　　end;</b></p><p><b>　　8: //電抗器</b></p><p>&

118、lt;b>　　begin</b></p><p>　　Form10.Image1.Canvas.MoveTo(TopLeft.X,TopLeft.y);</p><p>　　Form10.Image1.Canvas.Arc(TopLeft.X-10,TopLeft.Y,TopLeft.X+10,TopLeft.Y+20,TopLeft.X,TopLeft.y+20,Top

119、Left.X-10,TopLeft.y+10);</p><p>　　Form10.Image1.Canvas.MoveTo(TopLeft.X,TopLeft.y-5);</p><p>　　Form10.Image1.Canvas.LineTo(TopLeft.X,TopLeft.y+10);</p><p>　　Form10.Image1.Canvas.Mov

120、eTo(TopLeft.X-10,TopLeft.y+10);</p><p>　　Form10.Image1.Canvas.LineTo(TopLeft.X,TopLeft.y+10);</p><p>　　Form10.Image1.Canvas.MoveTo(TopLeft.X,TopLeft.y+20);</p><p>　　Form10.Image1.Ca

121、nvas.LineTo(TopLeft.X,TopLeft.y+25);</p><p><b>　　end;</b></p><p>　　9: //電壓互感器</p><p><b>　　begin</b></p><p>　　Form10.Image1.Canvas.Ellipse(TopLef