1 前言
相信使用OracleDeveloper设计系统的同仁,都有一个愿望,就是实现类似于GRID的控件,配置相关的参数,就可以将查询结果显示给用户,不需要再另行编制用户界面,不需要再编制报表文件。
OracleDeveloper自身并不支持实现该功能的任何方法,之前考虑过用JavaBean来实现,由于时间关系,加上对Java开发环境不熟悉,此愿望一直没有实现。
前几天在莫兄的SLK文章指引下,编制了SLK文件生成的程序包,又经过数天的编码,终于实现通过前台参数配置<可以是数据块、SQL语句、数据表名、视图名 designtimesp=13499>,生成SLK文件,并在IE中显示。用户可以另存该文件或打印该文件。
2 说明
2.1 调用接口<由于程序包不是类,无法通过Public与Private开放或屏蔽内部函数,所以将调用函数列出,以方便同仁们使用 designtimesp=13504>
--以XLS报表方式输出查询结果,使用数据块语句方式,使用轮询方式,速度可能较慢
Procedure SP_RuntimeReport
(P_BlockName In VarChar2 --查询的数据块名称
,P_FieldList In VarChar2 --要查询的字段,以“,’分隔
,P_FieldTitleList In VarChar2 --要查询的字段名称,以“,’分隔
,P_SlkFileName In VarChar2 --要生成的SLK文件名
,P_ServerName In VarChar2 --OC4J服务器名
,P_ServerPort In Varchar2 --OC4J端口号
,P_VirualPath In VarChar2 --存盘SLK文件的WEB虚拟路径名
);
--以XLS报表方式输出查询结果,使用查询语句方式
Procedure SP_RunTimeReport
(P_SqlStr In Varchar2 --查询语句
,P_FieldList In VarChar2 --要查询的字段,以“,’分隔
,P_FieldName In VarChar2 --查询结果的标题,应与查询语句对应,以“,”分隔
,P_FieldType In Varchar2 --查询结果的字段类型,以“,”分隔
,P_FieldWidth In VarChar2 --标题宽度,应与查询语句对应,以“,”分隔
,P_SlkFileName In VarChar2 --要生成的SLK文件名
,P_ServerName In VarChar2 --OC4J服务器名
,P_ServerPort In Varchar2 --OC4J端口号
,P_VirualPath In VarChar2 --存盘SLK文件的WEB虚拟路径名
);
--以XLS报表方式输出查询结果,使用数据源语句方式
Procedure SP_RuntimeReport
(P_DataSourceName In VarChar2 --查询的数据源名称<可以是视图或数据表 designtimesp=13530>
,P_FieldList In VarChar2 --要查询的字段,以“,’分隔
,P_FieldName In VarChar2 --查询结果的标题,应与查询语句对应,以“,”分隔
,P_FieldWidth In VarChar2 --标题宽度,应与查询语句对应,以“,”分隔
,P_WhereStr In VarChar2 --查询条件
,P_OrderBy In VarChar2 --排序
,P_SlkFileName In VarChar2 --要生成的SLK文件名
,P_ServerName In VarChar2 --OC4J服务器名
,P_ServerPort In Varchar2 --OC4J端口号
,P_VirualPath In VarChar2 --存盘SLK文件的WEB虚拟路径名
);
2.2 调用说明
调用参数分为两类
2.2.1 数据参数
需要传入的参数中,包括指定数据源名称、需要在报表中显示的字段以及相应中文名称、中文、宽度;
2.2.2 SLK文件调用参数
需要传入的参数中,包括调用SLK文件需要的WEB服务器名、端口与,以及虚拟路径名
2.3 待完善的功能
2.3.1 目前关于数据参数仍有较多的配置项,有些可能可以简化, 如宽度设定、中文名设定<在FORM中,我使用Get_item_Property不能获得数据项的LABEL.... designtimesp=13553>等等,由于时间关系,目前将未明确可以程序自动实现的功能,全部使用参数传递方式。
2.3.2 排版功能较弱,较为重要的排版功能目前没有,如:合并单元格、页面设置、分页符...等。可能需要对SLK参数进行进一步的了解,目前对SLK参数的理解是基于将Excel转存为SLK,再通过阅读SLK代码获得。
2.3.3 目前没有对正要生成的SLK文件是否存在冲突以及存盘的目录是否合法进行判定和处理。
-------------------------------------------------------------
3 代码<考虑许多同仁没有安装DS9i,所以将源代码贴上,以方便大家
-------------------------------------------------------------
PACKAGE Fmp_System_RuntimeReport IS
--以XLS报表方式输出查询结果,使用数据块语句方式,使用轮询方式,速度可能较慢
Procedure SP_RuntimeReport
(P_BlockName In VarChar2 --查询的数据块名称
,P_FieldList In VarChar2 --要查询的字段,以“,’分隔
,P_FieldTitleList In VarChar2 --要查询的字段名称,以“,’分隔
,P_SlkFileName In VarChar2 --要生成的SLK文件名
,P_ServerName In VarChar2 --OC4J服务器名
,P_ServerPort In Varchar2 --OC4J端口号
,P_VirualPath In VarChar2 --存盘SLK文件的WEB虚拟路径名
);
--以XLS报表方式输出查询结果,使用查询语句方式
Procedure SP_RunTimeReport
(P_SqlStr In Varchar2 --查询语句
,P_FieldList In VarChar2 --要查询的字段,以“,’分隔
,P_FieldName In VarChar2 --查询结果的标题,应与查询语句对应,以“,”分隔
,P_FieldType In Varchar2 --查询结果的字段类型,以“,”分隔
,P_FieldWidth In VarChar2 --标题宽度,应与查询语句对应,以“,”分隔
,P_SlkFileName In VarChar2 --要生成的SLK文件名
,P_ServerName In VarChar2 --OC4J服务器名
,P_ServerPort In Varchar2 --OC4J端口号
,P_VirualPath In VarChar2 --存盘SLK文件的WEB虚拟路径名
);
--以XLS报表方式输出查询结果,使用数据源语句方式
Procedure SP_RuntimeReport
(P_DataSourceName In VarChar2 --查询的数据源名称<可以是视图或数据表 designtimesp=13585>
,P_FieldList In VarChar2 --要查询的字段,以“,’分隔
,P_FieldName In VarChar2 --查询结果的标题,应与查询语句对应,以“,”分隔
,P_FieldWidth In VarChar2 --标题宽度,应与查询语句对应,以“,”分隔
,P_WhereStr In VarChar2 --查询条件
,P_OrderBy In VarChar2 --排序
,P_SlkFileName In VarChar2 --要生成的SLK文件名
,P_ServerName In VarChar2 --OC4J服务器名
,P_ServerPort In Varchar2 --OC4J端口号
,P_VirualPath In VarChar2 --存盘SLK文件的WEB虚拟路径名
);
--创建报表标题,从前台FORM数据块创建
Procedure SP_CreateReportTitle
(P_SlkFile In Text_Io.File_Type --SLK文件对象
,P_BlockName In VarChar2 --查询的数据源名称<可以是视图或数据表 designtimesp=13600>
,P_FieldList In VarChar2 --要生成报表的字段列表
,P_FieldTitleList In VarChar2 --要返回至报表的字段名称,以“,”分隔
,P_FieldWidthType In Number --字段宽度设定方式,值表:0->不设定字段宽度;1->根据数据顶设定字段宽度
);
--创建报表标题,根据用户设定创建
Procedure SP_CreateReportTitle
(P_SlkFile In Text_Io.File_Type --SLK文件对象
,P_FieldNameList In VarChar2 --标题名
,P_FieldWidthList In VarChar2 --标题宽度,应与查询语句对应,以“,”分隔
);
--创建报表标题,从后台数据库对象创建
Procedure SP_CreateReportTitle
(P_SlkFile In Text_Io.File_Type --SLK文件对象
,P_DataSourceName In VarChar2 --数据源名
,P_FieldWidthType In Number --字段宽度设定方式,值表:0->不设定字段宽度;1->根据数据源设定字段宽度;
);
--将数据导入至SLK
Procedure SP_ImportDataToSlk
(P_SlkFile In Out Text_Io.File_Type --Slk文件对象
,P_GetTypeObject In VarChar2 --查询字段类型标识,若数据源是BLOCK->数据块名;若数据源是SQL->字段类型列表;若数据源是数据库对象->数据库对象名
,P_GroupName In Varchar2 --记录组名称
,P_FieldList In VarChar2 --要查询的字段,以“,’分隔
,P_DataSourceType In Varchar2:='Block' --查询方式,值表为:Block数据块;
SQL查询语句;DBObject数据库对象
);
--获取字段类型
Function FN_GetFieldType
(P_BlockName In VarChar2 --数据块名称
,P_ItemName In Varchar2 --数据项名称
)
Return VarChar2; --返回字段类型,一般为“CHAR”字符型;“NUMBER”数值型;“DATE”日期型
--获取字段类型
Function FN_GetFieldType
(P_DataSourceName In VarChar2 --数据库对象名称,可以是视图也可以是数据表
,P_FieldName In Varchar2 --字段名称
,P_DataSourceType In VarChar2 --数据库对象类型,值表为:“VIEW”或“TABLE”
)
Return VarChar2; --返回字段类型,一般为“CHAR”字符型;“NUMBER”数值型;“DATE”日期型
-------------------------------------
--设置创建SLK文件--------------------
-------------------------------------
Procedure SP_CreateSlkFile
(P_SlkFile In Out Text_Io.File_Type --SLK文件对象
,P_FileName In VarChar2 --要创建的文件名