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

  SetHandler pls_handler
  Order deny,allow
  Allow from all
  AllowOverride None
  PlsqlDatabaseUsername         dinya
  PlsqlDatabasePassword         dinya
  PlsqlDatabaseConnectString    dinya:1521:ora10g
  PlsqlAuthenticationMode       Basic

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','');  
        report_tail('这里是报表尾');
        html_tail;
    end;
    
    --页头,固定格式
    procedure html_header(p_title in varchar2) as 
    begin 
        htp.p('
            
            
            
            
            
            
            ');   
    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(' ');
    end ;
    
    
    --------------------------------------------------------------------------------
    --表头, 表的属性
    procedure table_h(p_width in number,p_border in number,p_align in varchar2) as 
    begin 
        htp.p('');
    end ;
    
    --表尾
    procedure table_t as 
    begin 
        htp.p('');
    end ;
    --------------------------------------------------------------------------------
    
    
    --表格行
    --------------------------------------------------------------------------------
    procedure tr_(p_col_count in number,p_column in varchar2,p_align in varchar2,
p_black in varchar2) as 
    begin 
        htp.p('

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