度量快速开发平台-专业、快速的软件定制快开平台

标题: 通过复杂的代码形成业务数据并显示的思路游标存储过程 [打印本页]

作者: 王爱东 时间: 2020-3-12 16:31
标题: 通过复杂的代码形成业务数据并显示的思路游标存储过程
一般我们在度量快速开发平台中，显示一系列数据，可以通过建立业务表，然后在窗体的网格部件上显示。我们日常基本都是这样来做。
如果有比较复杂的业务显示数据，比如要根据不同的条件，查询出不同表中的数据，然后组合成一整块数据想显示在网格部件上。
也就是说，如果无法直接写业务表来实现复杂查询的业务，我们如何来实现呢。

针对这类业务，度量快速开发平台中一般有两种思路才实现。
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的存储过程作为业务表使用方法：
只读业务表的另类写法（业务表数据由存储过程来）

作者: 王爱东 时间: 2020-3-12 16:32
这种实现比较好。

作者: 王爱东 时间: 2020-3-12 16:33
特别是整合其他系统的情况，非常好用。比如另外系统中写了大量存储过程，那在度量快速开发平台中整合的话，就可以直接调用现有的存储过程，返回数据集并处理。

作者: 万望 时间: 2020-3-12 17:50
直接调用能提高性能和易用性，( ^_^ )不错嘛

作者: 万望 时间: 2020-6-7 11:04
我试了哈，确实不错

欢迎光临度量快速开发平台-专业、快速的软件定制快开平台 (http://bbs.delit.cn/)