通過複雜的代碼形成業務資料並顯示的思路 遊標 預存程序

標籤：

一般我們在度量快速開發平台中，顯示一系列資料，可以通過建立業務表，然後在表單的網格組件上顯示。我們日常基本都是這樣來做。
如果有比較複雜的業務顯示資料，比如要根據不同的條件，查詢出不同表中的資料，然後組合成一整塊資料想顯示在網格組件上。
也就是說，如果無法直接寫業務表來實現複雜查詢的業務，我們如何來實現呢。


針對這類業務，度量快速開發平台中一般有兩種思路才實現。
1、通過平台指令碼實現動態SQL，並通過網格的重新整理DataTable實現
      樣本：
      在表單的載入事件中：
      dim sql=""
    if  下拉選項1.Value="部門" then
         sql="select dept_id,dept_name from sa_dept_dict"
     else if  下拉選項1.Value="人員" then
         sql="select id,user_name from sa_staff_info"   
     else
         sql="select id,user_name from "+其他表.Value   
     end if
     網格組件1.DataTable=ExecuteSelect(sql)
     網格組件1.RefreshDataByDataTable()

2、通過資料庫預存程序返回遊標方式實現
      下面展示一個在oracle預存程序中寫複雜的代碼形成SQL語句，然後查詢出結果集顯示到網格組件中。

create or replace procedure GET_RETCURSOR_PRO
        (IN_TABLENAME  in VARCHAR2,
       RET_CURSOR     out SYS_REFCURSOR) 
as
p_sql          varchar2(4000);
begin  
   p_sql:=‘select * from ‘||IN_TABLENAME;

  open RET_CURSOR for p_sql;
end GET_RETCURSOR_PRO;

在載入事件中：
dim sp=CreateProcedure("default","GET_RETCURSOR_PRO")
‘AddInputParam("參數名稱",參數枚舉,參數值) 添加預存程序輸入參數
‘參數枚舉：數字（13）,日期(6),字元(22)
sp.AddInputParam("IN_TABLENAME  ",22,"SA_DEPT_DICT")
‘AddOutputParam("參數名稱",參數枚舉,內容長度) 添加預存程序輸出參數
‘參數枚舉：數字（13）,日期(6),字元(22),遊標(5)
sp.AddOutputParam("RET_CURSOR",5,0)

‘Execute 執行預存程序,傳入參數指示是否提交事務(True表示提交事務,)
sp.Execute(false)
‘GetOutPraramValue 擷取預存程序輸出參數的值
dim dt=sp.GetOutPraramValue("RET_CURSOR")

網格組件1.DataTable = dt
網格組件1.RefreshDataByDataTable()



SQLserver的預存程序作為業務表使用方法：
唯讀業務表的另類寫法（業務表資料由預存程序來）

原文地址:http://bbs.delit.cn/thread-876-1-1.html

轉載請註明出處:

撰寫人:度量科技www.delit.cn

通過複雜的代碼形成業務資料並顯示的思路 遊標 預存程序