实现类GRID报表功能的程序包

　　1 前言
　　相信使用Developer设计系统的同仁，都有一个愿望，就是实现类似于GRID的控件，配置相关的参数，就可以将查询结果显示给用户，不需要再另行编制用户界面，不需要再编制报表文件。
　　Developer自身并不支持实现该功能的任何方法，之前考虑过用Bean来实现，由于时间关系，加上对开发环境不熟悉，此愿望一直没有实现。
　　前几天在莫兄的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 --要创建的文件名

【责编:admin】

--------------------next---------------------