通过复杂的代码形成业务数据并显示的思路 游标 存储过程
2016-04-13 17:01
423 查看
一般我们在度量快速开发平台中,显示一系列数据,可以通过建立业务表,然后在窗体的网格部件上显示。我们日常基本都是这样来做。
如果有比较复杂的业务显示数据,比如要根据不同的条件,查询出不同表中的数据,然后组合成一整块数据想显示在网格部件上。
也就是说,如果无法直接写业务表来实现复杂查询的业务,我们如何来实现呢。
针对这类业务,度量快速开发平台中一般有两种思路才实现。
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,
<
4000
span style="color:#ff0000;font-family:Tahoma, Helvetica, SimSun, sans-serif;font-size:14px;line-height:21px;"> 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
如果有比较复杂的业务显示数据,比如要根据不同的条件,查询出不同表中的数据,然后组合成一整块数据想显示在网格部件上。
也就是说,如果无法直接写业务表来实现复杂查询的业务,我们如何来实现呢。
针对这类业务,度量快速开发平台中一般有两种思路才实现。
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,
<
4000
span style="color:#ff0000;font-family:Tahoma, Helvetica, SimSun, sans-serif;font-size:14px;line-height:21px;"> 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
相关文章推荐
- Qt5 VS2013中文乱码解决
- JAVA接口传递参数(POST),从接口接收数据(JSON)
- 使用Spring CommonsMultipartResolver 上传文件
- 疯狂JAVA——数组
- SpringMVC @RequestBody接收Json对象字符串
- 编译 proto 文件到指定语言的代码
- C++primer 练习13.36
- eclipse配置背景颜色以及字体
- Python 3.5.1安装lxml
- Delphi MDI程序 父窗体如何调用当前活动子窗体的函数/过程
- 通过复杂的代码形成业务数据并显示的思路 游标 存储过程
- 重新学习《C++Primer5》第6章-函数
- python 小记2
- Xcode使用介绍之八:快捷代码段(code snippets)
- C# 关键字,运算符,预处理器指令
- java中synchronized的用法详解
- Delphi中实现MDI子窗体(转)
- java strtus2 DynamicMethodInvocation配置入门 " ! "访问action里面的方法
- C++临时对象那些事儿
- Spring与Mybatis事务配置