|
前言 使用OracleDeveloper做系统最大的恶梦莫过于做报表使用ReportBuilder做的报表用户接受程度非常之底使用OLE生成EXCEL则需要耗用大量的内存资源如果系统于BS模式则使用OLE生成XLS报表成了系统最大的执行隐患 今天从莫兄关于SLK的文章中得到启发如果使用SLK生成XLS报表再通过WebShow_Document调用则可以基本实现OracleDeveloper的报表问题 问题是SLK的相关知识目前较难寻找对于报表编制人员也较麻烦于是花了点时间编制了一个PLL和相关的实例希望可以为大家的报表编制拓展思路同时也希望各位同仁可以不断扩充该程序包的功能使之成为真正实用的SLK文件生成工具 条件与限制 根据莫兄的资料显示SLK不能实现合并单元格边框线<单实线以外>底纹<灰色底纹以外>图形图表对象链接分页符工作表属性打印页面设置等等所以报表中若涉及该EXCEL对象则不用此SLK程序包 由于时间关系目前程序包存在几个问题垂直对齐未完成字体设置有限定<宋体8/12/16/26，宋体加粗12/16/24，字体定义需要预定义，目前尚未了解如何直接定义定体> 近期内希望可以实现的拓展功能再做一个程序包传入SQL语句自动生成SLK并在WEB页中直接显示此时即可实现长久以来的梦想定义数据源实现动态SQL查询<原来想用JAVABEAN来实现> 点击此处下载armokrar 我编译了一个i的包－－土拨鼠！！！ 点击此处下载armokrar 代码<考虑许多同仁没有安装DS9i，所以将源代码贴上，以方便大家 PACKAGE Fmp_SlkReport IS ------------------------------------- --设置创建SLK文件-------------------- ------------------------------------- Procedure SP_CreateSlkFile (P_SlkFile In Out Text_Io.File_Type --SLK文件对象 ,P_FileName In VarChar2 --要创建的文件名 ); ------------------------------------- --设置关闭SLK文件-------------------- ------------------------------------- Procedure SP_CloseSlkFile (P_SlkFile In Out Text_Io.File_Type --SLK文件对象 ); ------------------------------------- --设置单元格的值--------------------- ------------------------------------- Procedure SP_TransValue ( P_SlkFile In Text_Io.File_Type ,P_Row In Number --传入行值 ,P_Col In Number --传入列值 ,P_Value In Number); --传入要设定的值，数值型 Procedure SP_TransValue ( P_SlkFile In Text_Io.File_Type ,P_Row In Number --传入行值 ,P_Col In Number --传入列值 ,P_Value In Varchar2); --传入要设定的值，字符型 Procedure SP_TransValue ( P_SlkFile In Text_Io.File_Type ,P_Row In Number --传入行值 ,P_Col In Number --传入列值 ,P_Value In Date --传入要设定的值，日期型 ,P_DataFormat In VarChar2:='yyyy.mm.dd'--要转换为日期的格式 ); ------------------------------------- --设置边框线，只能是单实线边框------- ------------------------------------- Procedure SP_SetBorder ( P_SlkFile In Text_Io.File_Type ,P_StartRow In Number --传入行值 ,P_StartCol In Number --传入起始列 ,P_EndRow In Number --传入终止行 ,P_EndCol In Number --传入终止列 ); ------------------------------------- --设置行高--------------------------- ------------------------------------- Procedure SP_SetRowHeight ( P_SlkFile In Text_Io.File_Type ,P_StartRow In Number --传入行值 ,P_EndRow In Number --传入起始列 ,P_RowHeight In Number --要设定的高度 ); ------------------------------------- --设置列宽--------------------------- ------------------------------------- Procedure SP_SetColWidth ( P_SlkFile In Text_Io.File_Type ,P_StartCol In Number --传入行值 ,P_EndCol In Number --传入起始列 ,P_ColWidth In Number --要设定的列宽 ); ------------------------------------- --设置水平居中--------------------------- ------------------------------------- Procedure SP_SetVerticalAlign ( P_SlkFile In Text_Io.File_Type ,P_StartRow In Number --传入行值 ,P_StartCol In Number --传入起始列 ,P_EndRow In Number --传入终止行 ,P_EndCol In Number --传入终止列 ,P_Type In Number --居中方式 ); ------------------------------------- --设置垂直居中--------------------------- ------------------------------------- Procedure SP_SetHorizontalAlign ( P_SlkFile In Text_Io.File_Type ,P_StartRow In Number --传入行值 ,P_StartCol In Number --传入起始列 ,P_EndRow In Number --传入终止行 ,P_EndCol In Number --传入终止列 ,P_Type In Number --居中方式 ); ------------------------------------- --设置字体--------------------------- ------------------------------------- Procedure SP_SetFontstype ( P_SlkFile In Text_Io.File_Type ,P_StartRow In Number --传入行值 ,P_StartCol In Number --传入起始列 ,P_EndRow In Number --传入终止行 ,P_EndCol In Number --传入终止列 ,P_FontType In Varchar2:='A12' --字体名称，值表如下：A8：宋体8；A10：宋体10；A12：宋体12；A16：宋体16；A24：宋体24；B12：宋体加黑12；B16：宋体加黑16；B24：宋体加黑24； ); END Fmp_SlkReport; PACKAGE Body Fmp_SlkReport IS ------------------------------------- --设置创建SLK文件-------------------- ------------------------------------- Procedure SP_CreateSlkFile (P_SlkFile In Out Text_Io.File_Type --SLK文件对象 ,P_FileName In VarChar2 --要创建的文件名 ) Is Begin --创建并打开文件 P_SlkFile := Text_IO.Fopen(P_FileName, 'W'); --写入SLK文件头的相关字符 Text_IO.PUTF(P_SlkFile, 'ID;PWXL;N;E'|| Chr(10)); Text_IO.PUTF(P_SlkFile, 'P;PGeneral'|| Chr(10)); Text_IO.PUTF(P_SlkFile, 'P;P0'|| Chr(10)); Text_IO.PUTF(P_SlkFile, 'P;P0.00'|| Chr(10)); Text_IO.PUTF(P_SlkFile, 'P;P#,##0'|| Chr(10)); Text_IO.PUTF(P_SlkFile, 'P;P#,##0.00'|| Chr(10)); Text_IO.PUTF(P_SlkFile, 'P;P#,##0;;\-#,##0'|| Chr(10)); Text_IO.PUTF(P_SlkFile, 'P;P#,##0;;[Red]\-#,##0'|| Chr(10)); Text_IO.PUTF(P_SlkFile, 'P;P#,##0.00;;\-#,##0.00'|| Chr(10)); Text_IO.PUTF(P_SlkFile, 'P;P#,##0.00;;[Red]\-#,##0.00'|| Chr(10)); Text_IO.PUTF(P_SlkFile, 'P;P"$"#,##0;;"$"\-#,##0'|| Chr(10)); Text_IO.PUTF(P_SlkFile, 'P;P"$"#,##0;;[Red]"$"\-#,##0'|| Chr(10)); Text_IO.PUTF(P_SlkFile, 'P;P"$"#,##0.00;;"$"\-#,##0.00'|| Chr(10)); Text_IO.PUTF(P_SlkFile, 'P;P"$"#,##0.00;;[Red]"$"\-#,##0.00'|| Chr(10)); Text_IO.PUTF(P_SlkFile, 'P;P0%'|| Chr(10)); Text_IO.PUTF(P_SlkFile, 'P;P0.00%'|| Chr(10)); Text_IO.PUTF(P_SlkFile, 'P;P0.00E+00'|| Chr(10)); Text_IO.PUTF(P_SlkFile, 'P;P##0.0E+0'|| Chr(10)); Text_IO.PUTF(P_SlkFile, 'P;P#\ ?/?'|| Chr(10)); Text_IO.PUTF(P_SlkFile, 'P;P#\ ??/??'|| Chr(10)); Text_IO.PUTF(P_SlkFile, 'P;Pyyyy/m/d'|| Chr(10)); Text_IO.PUTF(P_SlkFile, 'P;Pd/mmm/yy'|| Chr(10)); Text_IO.PUTF(P_SlkFile, 'P;Pd/mmm'|| Chr(10)); Text_IO.PUTF(P_SlkFile, 'P;Pmmm/yy'|| Chr(10)); Text_IO.PUTF(P_SlkFile, 'P;Ph:mm\ AM/PM'|| Chr(10)); Text_IO.PUTF(P_SlkFile, 'P;Ph:mm:ss\ AM/PM'|| Chr(10)); Text_IO.PUTF(P_SlkFile, 'P;Ph:mm'|| Chr(10)); Text_IO.PUTF(P_SlkFile, 'P;Ph:mm:ss'|| Chr(10)); Text_IO.PUTF(P_SlkFile, 'P;Pyyyy/m/d\ h:mm'|| Chr(10)); Text_IO.PUTF(P_SlkFile, 'P;Pmm:ss'|| Chr(10)); Text_IO.PUTF(P_SlkFile, 'P;Pmm:ss.0'|| Chr(10)); Text_IO.PUTF(P_SlkFile, 'P;P@'|| Chr(10)); Text_IO.PUTF(P_SlkFile, 'P;P[h]:mm:ss'|| Chr(10)); Text_IO. |
