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

');
td_(p_col_count,p_column,p_align,p_black);
htp.p('');
end;
procedure tr_h as
begin
htp.p('');
end ;
procedure tr_t as
begin
htp.p('');
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('');
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','');
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('我的测试报表');
需要使用的话, 可以根据需要修改上面的程序.
(t116)
=============
源自：dinya

●当需要在数据库中开发输出HTML报表的时...... 当需要在数据库中开发输出HTML报表的时候，我们可以在过程中直接使用htp包来实现html代码和对数据处理后的输出。并输出为需要的格式(HTML标记语言来控制)。以下提供一个直接从数据库生成HTML报表的测试例子，需要根据自己的需要来进行修改或增加。 在使用前需要配置apache的连接，这样在调用过程的时候，系统直接将生成的html输出到WEB： --配置apache连接: 如安装在D:\system\https 下，D:\system\https\Apache\modplsql\conf\dads.conf文件。设置为： SetHandler pls_handler Order deny,allow Allow from all AllowOverride None PlsqlDatabaseUsername dinya PlsqlDatabasePassword dinya PlsqlDatabaseConnectString dinya:1521:ora10g PlsqlAuthenticationMode Basic 当然对数据库的连接必须有效，具体请见相关的设置文档。重起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',''); 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('

'||substr(p_black,1,3)||v_out|| substr(p_black,4)||'