1 前言 相信使用OracleDeveloper设计系统的同仁，都有一个愿望，就是实现类似于GRID
的控件，配置相关的参数，就可以将查询结果显示给用户，不需要再另行编制用户界面，不需要再编制报表文件。
OracleDeveloper自身并不支持实现该功能的任何方法，之前考虑过用JavaBean来实现，由于时间关系，加上对Java开发环境不熟悉，此愿望一直没有实现。
前几天在莫兄的SLK文章指引下，编制了SLK文件生成的程序包，又经过数天的编码，终于实现通过前台参数配置<可以是数据块、SQL语句、数据表名、视图名>，生成SLK文件，并在IE中显示。用户可以另存该文件或打印该文件。
2 说明
2.1 调用接口<由于程序包不是类，无法通过Public与Private开放或屏蔽内部函数，所以将调用函数列出，以方便同仁们使用>
--以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 --查询的数据源名称<可以是视图或数据表>
,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服务器名、端口与，以及虚拟路径名
点击此处下载armok0197280.rar
2.3 待完善的功能
2.3.1 目前关于数据参数仍有较多的配置项，有些可能可以简化， 如宽度设定、中文名设定<在FORM中，我使用Get_item_Property不能获得数据项的LABEL....>等等，由于时间关系，目前将未明确可以程序自动实现的功能，全部使用参数传递方式。
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 --查询的数据源名称<可以是视图或数据表>
,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 --查询的数据源名称<可以是视图或数据表>
,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 --要创建的文件名
