張力，王榮和，王聲東
（同濟大學環境科學與工程學院，上海200092）

　　摘　要：隨著GIS技術的不斷發展，GIS在城市管理的許多領域得到了廣泛的應用。組件式GIS是GIS發展的一個新趨勢，利用組件式GIS與可視化編程語言Visual Basic相結合可以方便的實現排水管網GIS系統中圖文互查和屬性信息的編輯等重要GIS功能。
　　關鍵詞：地理信息系統，排水管網，水力模型，計算軟件
　　中圖分類號：TP31；TU992．2
　　文獻標識碼：B
　　文章編號：1009-2455（2002）01-0055-03

概述

　　城市排水管網GIS系統是融計算機圖形和數據庫于一體，儲存和處理空間信息的高新技術，它把地理位置和相關屬性有機結合起來，根據實際需要準確真實、圖文并茂地輸出給用戶。滿足市政部門對排水系統的運行管理、設計和信息查詢的需要，借助其獨有的空間分析功能和可視化表達，進行各種輔助決策[1]。

1 排水管網GIS系統的功能分析

　　排水管網及其附屬設施與城市的地形、地貌、河流、湖泊以及市政道路、工商業、居民生活區的規劃密切相關，GIS系統的建立需要詳細、準確的相關數據；系統存儲和處理的信息主要是排水管網及其輔助設施，處理的信息比較純粹，地形、地貌等信息只作為背景來存儲。管網GIS系統還需要與管網設計。水力模型、水質水量監測系統等模塊緊密結合，實現數據的交換與共享[2]。
　　根據排水管網的特點將GIS系統劃分為以下幾個主要功能模塊，如圖1所示。

2 組件式GIS軟件在排水管網GIS系統中的應用

　　組件式0S（COMGIS）軟件是適應軟件組件化潮流的新一代地理信息系統。它的基本思想是把GIS的各大功能模塊劃分為幾個控件，每個控件完成不同的功能。各個GIS控件之間，以及GIS控件與其它非GIS控件之間，可以方便地通過可視化的軟件開發工具集成起來，形成最終的GIS應用。控件如同一堆各式各樣的積木，他們分別實現不同的功能（包括GIS和非GIS功能），根據需要把實現各種功能的“積木”搭建起來，就構成應用系統。目前流行的GIS軟件較多，各軟件各有特色，但主要的GIS功能都是相似的。本文選用國產的組件式GIS軟件Su—perMap（北京超圖公司），對排水管網GIS系統的主要功能的實現進行探討。
　　在排水管網中，各組成部件之間通過特定的屬性信息相互聯系，如節點、管道等。因此在排水管網GIS中，對節點和管道等排水設施實現圖形和屬性的交互查詢是應用系統的一個非常重要的功能。在應用AutoCAD等CAD軟件開發的排水管網GIS系統中，一般的處理方法是，把相應的非圖形屬性信息（對于管道來說，主要有上、下游節點編號、管徑、管長、管材、流量、坡度、流速等屬性信息）存貯于其它類型的數據庫中，每當處理時，通過圖形的ID號來查找相應的數據庫，并按照對圖形信息操作的過程，再相應操作數據庫，這種處理方法在速度和靈活度上都存在著缺點。而GIS軟件軟件則是利用特殊的數據庫管理系統（DBMS）對圖形信息所在的空間數據庫和屬性信息所在的屬性數據庫進行管理。利用GIS的這種屬性特殊性可非常方便的實現圖形和屬性的交互操作。
　　下面是利用SuperMap的GIS控件和VB編寫的一段排水管網GIS系統的圖、文的交互查詢程序。
　　‘圖查屬性
　　Private Sub ShowObjInfo()′顯示對象的性性列表
　　Dim objR　 ecordset As soRecordset
　 　‘soRecordsetJ UPERmAP中的記錄集對象
　　Dim FieldInfo As soFieldINnfo
　 　‘soRecordset是SuperMap中的字段信息對象
　　Dim objGeometry As soGeometry
　 　‘soGeometry是SuperMap中的字段信息對象
　　Dim Dt As soDataset
　　 ‘soDataset是SuperMap中的數據集對象
　　Dim FieldValue As Variant
　　Dim i As Long, j As long
　　Dim nFieldcount As long
　　 ‘FrmInfo為顯示屬性的窗體，lvInfo為窗體中的ListView控件
　　　frmInfo.lvIfo.ListItems.Clear
　　　‘判斷地圖控件SuperMap 1 中的選擇集為空或是否設為選擇狀態，
　　　Me為當前窗體
　　If Me. SuperMap1. Selection. Count＞0 And Me. SuperMap1.Acction=scaSelect Then
　　　‘將選中的元素轉換為記錄，添加屬性信息列表，SuperMap1為Su-perMaP地圖控件
　　Set　　 objRecordset
　　Me. SuperMap1. Selection. TOrecordset(False)
　　If objRecordset Is Nothing Then
　　 MsgBox“所選對象的記錄集出錯，無法繼續‘vbIformation
　　　 Exit Sub
　　EndIf
　　′添加屬性信息列表，先添加字段值，后添加字段名
　　j=0
　　For i=1 To objRecordset. FieldCount
　　Set FieldInfo=objRecordset.GetFieldInfo(i)
　　If FieldInfo Is Nothing Then
　　MsgBox“記錄集的字段信息出錯”，
　　vbInformation
　　　　 Exit sub
　　Else
　　′\添加字段值
　　FieldValue=objRecordset. GetFieldValue(i)
　　If (VarType(FieldValue)=vbEmpty) Or
　　(VarType(FieldValue)=vbNull)Then
　　FieldValue=“”
　　End If
　　frmInfo.1 vInfo.ListItems.Add,, FieldValue
　　End If
　　′\添加字段名
　　FrmInfo.lvInfo.ListItems(j). SubItems(1)
　　FieldInfo.Name
　　End If
　　Next i
　　End If
　　End Sub
　　ShowObjInfo()過程，用于顯示地圖控件SuperMap1中所選中的地圖對象的屬性，地圖控件是SuperMap軟件中的核心控件之一，用于打開、顯示地圖等基本操作。通過設置SuperMap1的Aciton屬性為scaSelect,可以在地圖上進行選擇圖形對象的操作，并將所選擇的對象存入SuperMap1的Selection屬性。通過Selection的ToRecordset(False)函數將選擇的對象轉為記錄集。
　　下面一段程序是顯示屬性窗體中ListView控件的AfterLabe1 Edit事件，它可以完成對屬性信息的輸入入和修改的功能。
　　　‘屬性編輯
　　Private Sub 1 vInfo-AfterLabe1 Edit(Cancel As Integer, NewString As String)
　　　　Dim objRecordset As soRecordset
　 　　‘frmMain為主窗口
　　Set　 objRecordset
　　frmMain. ActiveForm. SuperMap1. Selection. Tor ecordset
　　(False)
　　If objRecordset Is Nothing Then
　　　　　　 MsgBox“記錄集出錯，無法繼續”，
　　vbInformation
　　　 Exit Sub
　　End If
　　objRecordset. MoveFirst
　　objRecordset.Edit
　　　 ‘將在ListView探件中輸入新數據放入記錄集
　　objRecordset.SetFieldValue
　　1 vInfo. SelectedItem. SubItems(1),NewString
　　objRecordset.Update
　　Set objRecordset=Nothing
　　End Sub
　　用相似的方法，可以實現通過SQL語句來查詢圖形信息。因此利用組件式GIS軟件可以方便靈活的實現排水管網GIS系統中的GIS功能，具有很多AutoCAD等輔助設計軟件無法實現和比擬的功能。

3 結束語

　　排水管網GIS系統的建立是將GIS功能和水力分析有機的結合起來，實現排水系統的管理和規劃設計。它作為城市市政建設的一個組成部分必須與道路、給水等其它公用設施的規劃設計和管理系統緊密聯系。
　　利用新一代的組件式GIS軟件開發排水管網GIS應用系統具有很強的擴展性，易與其它系統集成，大部分組件式軟件可以支持多種開發語言，包括Visual C++，Visual Basic，Visual FoxPro，Delphi，C++ Builder 以及 Power Builder等。在國內GIS軟件中，SuPerMaP（北京超圖）和MapGIS（武漢華地）等組件式軟件在國內已逐步應用到工程中，開發了一些給水、排水等專業GIS應用系統，如蘇州市給水管網動態數據管網系統（采用MapGIS）、香港綜合地理信息系統、澳門地理信息系統、杭州／柳州／寧波／中山等城市的土地管理信息系統（采用SuperMap）。

參考文獻：

　　[1]修文群，等．城市地理信息系統（GIS）［M］．北京：希望電腦公 司，1999．
　　[2]王榮和，等．應用 ObjectARX開發給水管網 GIS系統［J］．工業 用水與廢水，2000，（3）：48－50．

　　作者簡介：張力（1974－），男，同濟大學環境科學與工程學院99級碩士研究生。