基於 Oracle 數據倉庫的分層管理器方案：空間數據多層級快速瀏覽架構設計與實現

一、業務背景與挑戰

「數字地球/國土」戰略下，地學海量空間數據爆發式增長。傳統全量加載方式導致：

• 瀏覽延遲極高 (全表掃描、網路傳輸瓶頸)
• 客戶端記憶體壓力大 (一次性載入所有幾何物件)
• 無法支援「由粗到精」的逐層鑽取分析

二、分層管理器架構設計

核心組件

1. 組件表：儲存於 Oracle 數據倉庫的一組空間數據表，每表對應一個詳細圖層 (如 1:100萬、1:25萬、1:1萬比例尺)
2. 逐層細化表：空表結構 + 特殊元數據，定義圖層間的層次關係、資料來源、挖掘規則、加載範圍、編輯/輸出規則

運作流程

1. 應用啟動 → 讀取逐層細化表元數據 → 建立空白臨時表
2. 用戶操作觸發鑽取事件 → 分層管理器解析元數據 → 確定目標組件表與加載範圍
3. 從組件表提取滿足條件的空間物件 → 複製至臨時表
4. GIS 組件 (MapX/MapObjects/ArcObjects) 渲染臨時表圖層
5. 用戶編輯/分析 → 另存為專題圖 (持久化)
6. 應用結束 → 捨棄臨時表

逐層細化表元數據規範

Definition Table
Type Native Charset "WindowsLatin1"
Fields 3
Key Char (32);
Level Char (32);
Label Char (32);

begin_metadata
"\IsDrilldown" = "TRUE"
"\DDMap\ComponentMaps\One\File" = "Tab_YNP.TAB"
"\DDMap\ComponentMaps\One\LevelID" = "Tab_YNP"
"\DDMap\ComponentMaps\One\FeatureIDCol" = "3"
"\DDMap\ComponentMaps\One\FeatureCaptionCol" = "1"
... (其他組件層同結構)
"\DDMap\HierarchyManager\IsDLL" = "TRUE"
"\DDMap\HierarchyManager\ID" = "SomeDLL.dll"
"\DDMap\HierarchyManager\InitialLevel" = "Tab_YNP"
end_metadata

語法要點：反斜線開頭關鍵字、雙引號包裹鍵值、支援嵌套層次 (\DDMap\ComponentMaps\...)、必含 \IsDrilldown = TRUE。

三、開發實施步驟

1. 獲取各層級組件表數據 (數據倉庫 ETL 產出)
2. 建立逐層細化表：定義結構 + 寫入元數據 (LevelID、FeatureIDCol、FeatureCaptionCol 等)
3. 將逐層細化表加入 GIS 地圖控件
4. 開發用戶介面響應鑽取事件 (ToolUsed 事件)
5. 實現分層管理器核心邏輯：
   • 空間查詢定位用戶點擊物件 (SelectByPoint/SearchAtPoint)
   • 根據層次規則確定子物件集合 (Case/If 邏輯)
   • SQL 從數據倉庫提取空間數據
   • DrilldownAddFeatures 加入子物件
   • DrilldownRemoveFeatures 移除父物件
   • 支援編輯與專題圖另存

四、實戰案例：遙感影像多尺度瀏覽系統

技術棧

• 資料庫：Oracle 9i/10g + Spatial
• 開發語言：Visual Basic 6.0
• GIS 組件：MapX 4.0/5.0

核心代碼片段 (VB + MapX)

' 建立自定義鑽取工具
Map1.CreateCustomTool customDrilldownExpandTool, _
  miToolTypePoint, miDrilldownExpandCursor, _
  miDrilldownContractCursor, miDrilldownContractCursor

' ToolUsed 事件處理
Private Sub Map1_ToolUsed(ByVal Tool As MapXLib.ToolConstants)
  If Tool = customDrilldownExpandTool Then
    ' 1. 定位點擊物件
    Dim obj As MapObject
    Set obj = Map1.Layers("DrilldownLayer").SelectByPoint(Map1.MousePointerX, Map1.MousePointerY)
    
    ' 2. 確定子物件邏輯 (範例：省→市→縣)
    Dim childLayer As String, childFilter As String
    Select Case obj.Fields("LEVEL").Value
      Case "PROVINCE"
        childLayer = "CITY_LAYER"
        childFilter = "PROV_CODE = " & obj.Fields("CODE").Value
      Case "CITY"
        childLayer = "COUNTY_LAYER"
        childFilter = "CITY_CODE = " & obj.Fields("CODE").Value
    End Select
    
    ' 3. 空間 SQL 提取 (Oracle Spatial)
    Dim sql As String
    sql = "SELECT geom FROM spatial_db." & childLayer & " WHERE " & childFilter
    
    ' 4. 加入子物件、移除父物件
    Map1.DrilldownAddFeatures "DrilldownLayer", sql, "OracleWorkspace"
    Map1.DrilldownRemoveFeatures "DrilldownLayer", obj.ID
    
    ' 5. 編輯與保存邏輯略
  End If
End Sub

五、成效分析

六、結論與展望

分層管理器結合 Oracle 數據倉庫強大的空間數據存儲/分析能力與 GIS 客戶端的動態渲染優勢，實現了海量空間數據的「按需加載、逐層鑽取、專題輸出」。核心價值在於：

• 元數據驅動：業務邏輯外部化，無需重編譯即可調整圖層關係
• 臨時表隔離：編輯操作不影響源數據，安全可控
• 開放架構：支援多種 GIS 組件與開發語言

未來演進方向：整合 Oracle 11g+ Raster 支援、WebGIS 架構 (MapViewer/REST)、三維場景分層 (CityGML/3D Tiles)。