数据库输出HTML格式报表的测试

原创 2006年06月05日 18:17:00

当需要在数据库中开发输出HTML报表的时候, 我们可以在过程中直接使用htp包来实现html代码和对数据处理后的输出. 并输出为需要的格式(HTML标记语言来控制) . 以下提供一个直接从数据库生成HTML报表的测试例子, 需要根据自己的需要来进行修改或增加. 

在使用前需要配置apache的连接, 这样在调用过程的时候, 系统直接将生成的html输出到WEB;

--配置apache连接:

如安装在D:/system/https  下, D:/system/https/Apache/modplsql/conf/dads.conf文件. 设置为 :   
<Location /ss>
  SetHandler pls_handler
  Order deny,allow
  Allow from all
  AllowOverride None
  PlsqlDatabaseUsername         dinya
  PlsqlDatabasePassword         dinya
  PlsqlDatabaseConnectString    dinya:1521:ora10g
  PlsqlAuthenticationMode       Basic
</Location>

当然对数据库的连接必须有效, 具体请见相关的设置文档.   重起Apache服务.

--创建测试包:

create or replace package cux_html_report as

    function t(p_size in number, p_content in varchar2) return varchar2 ;
    type c_sql is ref cursor;
   
    procedure main;
    procedure html_header(p_title in varchar2);
    procedure html_body(p_sql in varchar2,p_column_count in number,p_subtitle in varchar2,p_align in varchar2,p_black in varchar2);
    procedure html_tail;
   
    procedure table_h(p_width in number,p_border in number,p_align in varchar2);
    procedure table_t;
    procedure tr_(p_col_count in number,p_column in varchar2,p_align in varchar2,p_black in varchar2);
    procedure tr_h;
    procedure tr_t;
    procedure td_(p_col_count in number,p_content in varchar2,p_align in varchar2,p_black in varchar2);
   
    procedure report_header(p_title in varchar2);
    procedure report_subtitle(p_col_count in number,p_content in varchar2,p_align in varchar2,p_black in varchar2);
    procedure report_tail(p_content in varchar2);
end ;
/
create or replace package body cux_html_report as

    function t(p_size in number, p_content in varchar2) return varchar2 as
        i number:=0;
        v_out varchar2(300):='';
        p_cont varchar2(1000):=p_content;
    begin
        for ii in 1..p_size loop
            select substr(p_cont,0,decode(instr(p_cont,';'),0,length(p_cont),instr(p_cont,';')-1))
            into v_out from dual ;
            p_cont:=substr(p_cont,instr(p_cont,';')+1);
            i:=i+1;
            if i=p_size then
                return v_out;
            end if;
        end loop;
    end ;
   
    /*******************************************************************************
        主程序
        需要处理分页的问题
    ********************************************************************************/
    procedure main as
    begin
        html_header('我的测试报表');
        report_header('我的标题');
        html_body('select t.owner||'';''||t.object_name||'';''||t.object_id||'';''||t.object_type||'';''||t.owner
                  from all_objects t
                  where t.owner=''DINYA''
                  and rownum<=100',5,'序号;对象名称;ID;类型','center','<b></b>'); 
        report_tail('这里是报表尾');
        html_tail;
    end;
   
    --页头,固定格式
    procedure html_header(p_title in varchar2) as
    begin
        htp.p('
            <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
            <html>
            <head>
            <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
            <title>'||nvl(trim(p_title),'无标题文档')||'</title>
            </head>
            <body>');  
    end ;
   
    --页体, 根据SQL程序和字段数,展示数据
    procedure html_body(p_sql in varchar2,p_column_count in number,p_subtitle in varchar2,p_align in varchar2,p_black in varchar2) as
        i number:=0;
        c c_sql;
        v_column varchar2(4000);
    begin
        table_h(90,1,'center');
        report_subtitle(p_column_count,p_subtitle,p_align,p_black);
        open c for p_sql;
        loop
            fetch c into v_column;            
            exit when c%notfound;
            i:=i+1;
            tr_(p_column_count,v_column,'left','');
        end loop;
        table_t;
    end ;
   
    --页尾, 固定内容
    procedure html_tail as
    begin
        htp.p('</body> </html>');
    end ;
   
   
    --------------------------------------------------------------------------------
    --表头, 表的属性
    procedure table_h(p_width in number,p_border in number,p_align in varchar2) as
    begin
        htp.p('<table width="'||p_width||'%" border="'||p_border||'" align="'||p_align||'">');
    end ;
   
    --表尾
    procedure table_t as
    begin
        htp.p('</table>');
    end ;
    --------------------------------------------------------------------------------
   
   
    --表格行
    --------------------------------------------------------------------------------
    procedure tr_(p_col_count in number,p_column in varchar2,p_align in varchar2,p_black in varchar2) as
    begin
        htp.p('<tr>');
        td_(p_col_count,p_column,p_align,p_black);
        htp.p('</tr>');
    end;
    procedure tr_h as
    begin
        htp.p('<tr>');
    end ;
    procedure tr_t as
    begin
       htp.p('</tr>');
    end ;
    -------------------------------------------------------------------------------
   
   
   
    --表单元格
    -------------------------------------------------------------------------------
    procedure td_(p_col_count in number,p_content in varchar2,p_align in varchar2,p_black in varchar2) as
        v_cont varchar2(300):=p_content;
        v_out varchar2(300):='';
    begin
        for i in 1..p_col_count loop
            select substr(v_cont,0,decode(instr(v_cont,';'),0,length(v_cont),instr(v_cont,';')-1))
            into v_out from dual ;
            htp.p('<td align="'||p_align||'">'||substr(p_black,1,3)||v_out||substr(p_black,4)||'</td>');
            v_cont:=substr(v_cont,instr(v_cont,';')+1);
        end loop;
    end ;
    ------------------------------------------------------------------------------
   
   
   
    --报表内容部分
    -----------------------------------------------------------------------------
    procedure report_header(p_title in varchar2) as
    begin
        table_h(90,0,'center');
        tr_(1,p_title,'center','<b></b>');
        table_t;
    end ;
   
    procedure report_subtitle(p_col_count in number,p_content in varchar2,p_align in varchar2,p_black in varchar2) as
    begin
        tr_h;
        td_(p_col_count,p_content,p_align,p_black);
        tr_t;
    end ;
   
    procedure report_tail(p_content in varchar2) as
    begin
        table_h(90,0,'center');
        tr_(1,p_content,'left','');
        table_t;
    end;
    ----------------------------------------------------------------------------------
   
   
end ;
/

 

SQL> @d:/cux_html_report.pck

Package created.


Package body created.

SQL>

编译没有错误后, 使用http://dinya:7777/ss/cux_html_report.main 即可查看报表.

如果在main过程中使用        owa_util.mime_header(ccontent_type => 'application/vnd.ms-excel'); 可以直接将数据生成到Excel中.

如:

    procedure main as
    begin

        owa_util.mime_header(ccontent_type => 'application/vnd.ms-excel'); 
        html_header('我的测试报表');

需要使用的话, 可以根据需要修改上面的程序.

html table属性测试,练习+详解(亲测)

给整个table设置边框:用border-left;border-right;border-top;border-bottom;分别设置table的边框,简写为border: X px; ...
  • ITzhongzi
  • ITzhongzi
  • 2016年09月22日 15:14
  • 443

html速度测试,超过500行的大表格处理(读,写,设置颜色)

html表格处理速度还是挺快的,平常都是用PHP输出完整表格,然后js各种蹂躏,100行以下的表格毫无压力。 最近碰到一个难题,财务模块要输出>500行的表格(不能分页),而且还要统计,根据数值上色...
  • savagego
  • savagego
  • 2015年06月27日 14:03
  • 419

使用sql*plus输出xls和html两种格式文件

我们可以在SQL*PLUS中手工运行AWR,ASH的脚本生成html报表,下面就介绍一下通过SQL*PLUS输出html,xls两种格式的文件,构建更友好的输出,满足用户多样性需求。 在SQLPLU...
  • shaochenshuo
  • shaochenshuo
  • 2015年05月18日 10:49
  • 540

Oracle ERP 报表:类数字格式字符串数据的前置0被截取和被科学计数法表示

Oracle ERP 报表开发,类数字格式字符串数据输出,Excel打开时前置0被截取或被科学计数法表示...
  • huashiwangling
  • huashiwangling
  • 2016年11月07日 11:18
  • 743

EBS报表查看输出的时候,设置成提示下载xls文件的方法

主要是,在EBS跑报表点查看输出的时候,想实现以下的效果(而不是直接就打开): 处理办法: 是针对XLS报表格式而言的.XP系统专用. 打开"文件夹选项",选"文件类型",找到并选中"XLS"...
  • samt007
  • samt007
  • 2014年02月21日 17:39
  • 5647

报表类项目测试

需求目的 已有数据的基础上,经过各种加工,汇总,呈现出数据结果。 需求评估 1 . 源数据 是否正确;针对产品提出的指标,确认和需求是否是同一个数据源。 一般说来,数据源大致分为两类: 1...
  • wodeyijia911
  • wodeyijia911
  • 2017年02月27日 10:42
  • 525

HTML标签简单说明 手写简单的HTML页面 生成最简单的报表

文件宣告 让浏览器知道这是 HTML 文件   开头 提供文件整体信息     标题 定义文件标题,将显示于浏览器顶端     主体 设计文件格式及内容所在   说明标记 为文件加上说...
  • songjuntao8
  • songjuntao8
  • 2014年03月09日 12:40
  • 1589

SAP 中如何输出 ALV 格式报表?

其实并不难,关键就三点,如下: 一, 声明类型及用到的输出内表;TYPE-POOLS: SLIS.DATA: FC_HIER      TYPE SLIS_FIELDCAT_ALV OCCURS 0 ...
  • DJ2008
  • DJ2008
  • 2008年04月30日 16:16
  • 2261

EBS输出HTML报表中文乱码

现象:XML数据文件+ rtf模板输出报表。输出PDF格式和EXCEL格式,中文显示正常。输出HTML格式,中文乱码(倒置的问号)。 原因:字符集相关。 解决方法:进入XML PUblisher ...
  • mingleecqu
  • mingleecqu
  • 2014年01月17日 15:05
  • 1395

设置EBS 报表输出默认类型HTML并在浏览器中打开

设置EBS 报表输出默认类型HTML并在浏览器中打开        这里我们设置“资源事务处理报表”查看输出直接在浏览器中打开。        与“资源事务处理报表”有联系的博文:http://blo...
  • u012025054
  • u012025054
  • 2015年09月22日 23:23
  • 2696
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:数据库输出HTML格式报表的测试
举报原因:
原因补充:

(最多只允许输入30个字)