高建萍 苑媛
（天津市排水管理處）

　　實現(xiàn)排水管理自動化、科學化，是我處排水管理工作上臺階、上水平的一項重要課題。自1997年立項以來，該課題已初步實現(xiàn)了泵站數(shù)據(jù)的自動采集、分析積水點、海河閘門的分析管理等功能。利用計算機自動生成排水規(guī)劃方案作為該系統(tǒng)的功能之一，主要實現(xiàn)對現(xiàn)有管道的管長、管徑、造價…… 等各種屬性的分析，最終實現(xiàn)在所要規(guī)劃區(qū)域內，由用戶在計算機上用鼠標規(guī)劃出各組規(guī)劃方案， 根據(jù)規(guī)劃道路、管型、管材、坡度、造價等條件，隨機產生最佳排水規(guī)劃方案。
　　鑒于排水規(guī)劃在排水管理中是一項較為復雜、繁瑣但很重要的工作，我們編制“排水規(guī)劃方案”軟件，利用數(shù)據(jù)庫進行內部數(shù)據(jù)的自動計算和統(tǒng)計，目前初步實現(xiàn)了管道的自動規(guī)劃。

　　天津市污水管網(wǎng)自1958年以來，分為六大系統(tǒng)：紀莊子系統(tǒng)、張貴莊系統(tǒng)、咸陽路系統(tǒng)、雙林系統(tǒng)、趙沽里系統(tǒng)、北倉系統(tǒng)。排水規(guī)劃利用各種污水的一整套工程設施及構筑物，收集、輸送、處理一系列現(xiàn)有條件制定出具體規(guī)劃方案。我們以雙林系統(tǒng)為例（該排水系統(tǒng)為分流制），用該程序實現(xiàn)以下幾項功能：

1 對雙林系統(tǒng)現(xiàn)有管道進行屬性分析

　　以雙林系統(tǒng)現(xiàn)有幾條主干管為例，當用戶框選某條管道時，便根據(jù)管道的管型和材質隨機彈出該段管道的所有屬性：收水面積、管段流量、流速、管徑、充滿度、坡度、管長、造價等，用戶可根據(jù)以上屬性對該管段進行查詢、管理和技術評價及事故分析。另外，用戶還可用本程序對多條管道進行綜合造價評估和統(tǒng)計工作，對管網(wǎng)的維護、管理和更新有較高的參考價值。

（屬 性 分 析 界 面 圖）

　　部分程序如下：
　　Private Sub GisOCX1_Click()
　　Set mdb = OpenDatabase("e:ggvblist1")
　　Set rs = mdb.OpenRecordset("list1", dbOpenDynaset)
　　GetCursorPos pos
　　sx2 = pos.X - GisOCX1.Left
　　sy2 = pos.Y + GisOCX1.Top + GisOCX1.Top - 20
　　h1.Clear
　　rs.MoveLast
　　l = GisOCX1.GetFeatureIDByPoint(sx2, sy2)
　　rs.FindFirst "特征碼=‘" & Trim(Str(l)) & "‘"
　　If rs.NoMatch Then Exit Sub
　　If Not IsNull(rs.Fields(0)) Then h1.AddItem rs.Fields(0).Name + "= " + Str(rs.Fields(0))
　　　For I = 1 To rs.Fields.Count - 2
　　　　If Not IsNull(rs.Fields(I)) Then
　　　　h1.AddItem rs.Fields(I).Name + "= " + rs.Fields(I)
　　　　End If
　　　Next
　　Set mdb1 = OpenDatabase("e:ggvb造價")
　　Set rs1 = mdb1.OpenRecordset("造價", dbOpenDynaset)
　　rs1.MoveLast
　　a = NoNull(rs.Fields(4))
　　b = NoNull(rs.Fields(7))
　　c = "管徑=‘" + a + "‘ and 管長=‘" + b + "‘ and 管型=‘" + Combo2.Text + "‘ and 管材=‘" + combo1.Text + "‘"
　　rs1.FindFirst c
　　If rs1.NoMatch Then Exit Sub
　　If Not IsNull(rs1.Fields(5)) Then
　　　h1.AddItem "造價" + "=" + rs1.Fields("造價")
　　　w = Val(rs1.Fields("造價"))
　　　If Val(rs.Fields("造價")) = 0 Then
　　　　rs.Edit
　　　　rs.Fields("造價") = Trim(Str(w)) + "元"
　　　　rs.Update
　　　End If
　　　h1.Left = sx2 + 50
　　　h1.Top = sy2 + 30
　　End If
　　h1.Visible = True
　　End Sub

　　另外根據(jù)用戶對管道分析的特殊需求，在對管道進行分析時，特別增加了剖面圖功能，根據(jù)管道的起、終點管頂標高和管底標高、坡度、充滿度、管長等屬性，隨機產生該段管道的剖面圖，把該段管道的部分屬性直觀地展示給用戶，增加了本程序的實用性。

2 對區(qū)域進行管道規(guī)劃

　　根據(jù)地形、區(qū)域內的環(huán)境情況和現(xiàn)有污（雨）水管道及經(jīng)濟發(fā)展的客觀要求，需對該地區(qū)進行管道規(guī)劃。本程序允許用戶用鼠標在規(guī)劃區(qū)域內點畫規(guī)劃管道，并根據(jù)用戶所需的管型和管材，隨機計算出規(guī)劃管道的收水面積、管長；管段流量=1.5×收水面積（污水量標準采用1.5升/(秒·公頃）；流速、管徑、充滿度、坡度等根據(jù)《下水管道水力計算圖表》以及區(qū)域實地情況確定。以上屬性隨機入庫，管段造價根據(jù)數(shù)據(jù)庫內部數(shù)據(jù)計算所得。至此該段規(guī)劃管道的各種屬性全部入庫，為了開發(fā)友好的程序界面，并便于用戶的使用，本程序最后只將規(guī)劃管道總造價字段提供給用戶，為其規(guī)劃方案的生成提供重要的決策依據(jù)。當用戶需要更多詳細資料時可入庫查詢。

　　部分程序如下：
　　Private Sub GisOCX1_Mouseup(Button As Integer, Shift As Integer, X As Single, Y As Single)
　　If flag = 2 Or flag = 3 Then
　　GetCursorPos pos
　　sx2 = pos.X - GisOCX1.Left
　　sy2 = pos.Y
　　Select Case flag
　　　Case 2
　　　cc = 1455.57 * Sqr((sx2 - sx1) * (sx2 - sx1) + (sy2 - sy1) * (sy2 - sy1)) / Sqr((340 - 338) * (340 - 338) + (266 - 170)* (266 - 170))
　　　sy2 = sy2 + GisOCX1.Top + GisOCX1.Top - 15
　　　GisOCX1.DrawLine sx1, sy1, sx2, sy2, 2, RGB(255, 0, 0)
　　　If sx1 > 150 And sy1 > 150 And sx2 < 275 And sy2 < 436 Then
　　　　rs2.Edit
　　　　rs2.Fields("特征碼") = "1-" + Trim(Str(k1))
　　　　rs2.Fields("管長") = Str(Trim(Int(cc * 100) / 100))
　　　　k1 = k1 + 1
　　　　rs2.Update
　　　　rs2.MoveNext
　　　End If
　　End Select
　　End Sub

3 產生最佳排水規(guī)劃方案

　　根據(jù)地形和區(qū)域內污染大戶對污水排放的不同需求，再考慮到實際經(jīng)濟效益，用戶可能產生多組規(guī)劃方案，本程序根據(jù)以上所列規(guī)劃管道的各種屬性，在對各組規(guī)劃方案進行經(jīng)濟技術綜合比較后，產生最佳排水規(guī)劃方案。部分程序如下：
　　If combo1.Text <> "" And Combo2.Text <> "" Then
　　rs2.MoveLast
　　jlgs1 = rs2.RecordCount
　　rs2.MoveFirst
　　For I = 1 To jlgs1
　　aaa = rs2.Fields("管徑")
　　bbb = rs2.Fields("管長")
　　ccc = "管徑=‘" + aaa + "‘ and 管型=‘" + Combo2.Text + "‘ and 管材=‘" + combo1.Text + "‘"
　　rs3.MoveLast
　　rs3.FindFirst ccc
　　ddd = rs3.Fields("單價")
　　rs2.Edit
　　rs2.Fields("造價") = Str(Trim(Val(rs2.Fields("管長")) * Val(ddd)))
　　rs2.Update
　　rs2.MoveNext
　　Next
　　rs2.MoveFirst
　　For I = 1 To jlgs1
　　If Not IsNull(rs2.Fields("造價")) Then
　　　eee = eee + Val(rs2.Fields("造價"))
　　End If
　　rs2.MoveNext
　　Next
　　List1.Visible = True
　　List1.AddItem "總造價=" + Str(Trim(eee)) + "元"
　　Else
　　List1.Visible = True
　　List1.AddItem "總造價=" + "0" + "元"
　　End If
　　End Sub

4 雙林系統(tǒng)的演示系統(tǒng)

　　為了提高該系統(tǒng)的可視性，我們在原有程序的基礎上，制作了雙林系統(tǒng)的演示系統(tǒng)，以聲、圖、文并茂的形式對雙林系統(tǒng)的現(xiàn)有及規(guī)劃管道和泵站進行了詳盡的介紹。其演示系統(tǒng)生動地展現(xiàn)了區(qū)域內每條管道的管徑、流向、流入泵站以及匯入系統(tǒng)等情況，并將產生的最佳規(guī)劃方案動態(tài)地展現(xiàn)給用戶，對本程序起到了總結及對外展示的作用，具有較強的觀賞性。

　　“排水規(guī)劃方案”實現(xiàn)了對現(xiàn)有管道屬性分析、對規(guī)劃區(qū)域的管網(wǎng)規(guī)劃以及最佳方案的生成等功能，為我處的排水規(guī)劃工作提供了重要依據(jù)。但此方案只是初步實現(xiàn)了排水管網(wǎng)的自動規(guī)劃，還有許多沒有考慮周全的地方 ，所以該程序作為天津市排水管理信息系統(tǒng)的一部分，將其掛在我處的網(wǎng)頁上，實現(xiàn)網(wǎng)上播放，希望有興趣的同志上網(wǎng)查閱并提供寶貴意見。