当需要在数据库中开发输出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('我的测试报表');
需要使用的话, 可以根据需要修改上面的程序.
分享到：
相关推荐
机器学习是一种人工智能（AI）的子领域，致力于研究如何利用数据和算法让计算机系统具备学习能力，从而能够自动地完成特定任务或者改进自身性能。机器学习的核心思想是让计算机系统通过学习数据中的模式和规律来实现目标，而不需要显式地编程。 机器学习应用非常广泛，包括但不限于以下领域： 图像识别和计算机视觉： 机器学习在图像识别、目标检测、人脸识别、图像分割等方面有着广泛的应用。例如，通过深度学习技术，可以训练神经网络来识别图像中的对象、人脸或者场景，用于智能监控、自动驾驶、医学影像分析等领域。 自然语言处理： 机器学习在自然语言处理领域有着重要的应用，包括文本分类、情感分析、机器翻译、语音识别等。例如，通过深度学习模型，可以训练神经网络来理解和生成自然语言，用于智能客服、智能助手、机器翻译等场景。 推荐系统： 推荐系统利用机器学习算法分析用户的行为和偏好，为用户推荐个性化的产品或服务。例如，电商网站可以利用机器学习算法分析用户的购买历史和浏览行为，向用户推荐感兴趣的商品。 预测和预测分析： 机器学习可以用于预测未来事件的发生概率或者趋势。例如，金融领域可以利用机器学习算法进行股票价格预测、信用评分、欺诈检测等。 医疗诊断和生物信息学： 机器学习在医疗诊断、药物研发、基因组学等领域有着重要的应用。例如，可以利用机器学习算法分析医学影像数据进行疾病诊断，或者利用机器学习算法分析基因数据进行疾病风险预测。 智能交通和物联网： 机器学习可以应用于智能交通系统、智能城市管理和物联网等领域。例如，可以利用机器学习算法分析交通数据优化交通流量，或者利用机器学习算法分析传感器数据监测设备状态。 以上仅是机器学习应用的一部分，随着机器学习技术的不断发展和应用场景的不断拓展，机器学习在各个领域都有着重要的应用价值，并且正在改变我们的生活和工作方式。
系统主要分员工管理员两个角色 管理模块具体有商品管理，部门员工管理，进货管理，订单管理，换货管理，供应商管理，供应商管理，客户管理，公告通知管理等模块，而员工模块具体由商品管理，进货管理，订单管理，供应商管理，客户管理，换货订单管理，公告通知管理等模块组成。 仓库管理信息系统所涉及的主要数据包括商品管理、进货管理、订单管理、换货管理和供应商管理，客户管理，公告通知管理下面分别分析这些数据需求。 （1）商品管理 商品管理主要是管理商品分类信息以及管理商品信息。 （2）进货管理 进货管理主要员工可以登记进货信息，以及查看我的进货记录，而管理员可以添加进货信息以及对进货信息的管理。 （3）订单管理 订单管理主要是对订单的一个统计，员工对销售的订单进行登记，管理员可以管理员工们的订单销售。 （4）换货管理 换货管理主要员工可以登记换货信息，以及查看我的换货记录，而管理员可以添加换货信息以及对换货信息的管理。 （5）供应商管理 管理员可以管理对他们厂家的供应商，来达到可以很好及时的跟供应商进行沟通。 （6）客户管理 管理员可以管理客户。对客户进行维护。
清新卡通城市建筑大学毕业论文答辩.ppt
5V继电器控制模块原理图+教程.7z
commons-lang.jar_服务器端非空校验 各个版本，免费下载 windows版本，linux 版本，免费下载
水彩清新创意毕业论文答辩模板.pptx
计算机毕业设计，含源码
myudid
新型MNS抽屉柜sw15可编辑设计图纸.7z
基于ASP的学生信息档案管理系统毕业论文及源码
小清新文艺田园风毕业论文答辩.ppt
PC控制八路继电器控制板原理图+教程+源代码+下位机源代码+上位机源代码.7z
属性数据分析实验.ipynb
纸张风格背景【论文答辩PPT模板】.pptx
commons-lang.jar_服务器端非空校验 各个版本，免费下载 windows版本，linux 版本，免费下载
C++中的数学常用函数及其定义
fastjson1.2.8 jar包及其源码下载(附带Gson jar包) 免费下载， fastjson.jar是阿里开发的一款专门用于Java开发的包,可以方便的实现json对象与JavaBean对象的转换,实现JavaBean对象与json字符串的转换,实现json对象与json字符串的转换。
机器学习是一种人工智能（AI）的子领域，致力于研究如何利用数据和算法让计算机系统具备学习能力，从而能够自动地完成特定任务或者改进自身性能。机器学习的核心思想是让计算机系统通过学习数据中的模式和规律来实现目标，而不需要显式地编程。 机器学习应用非常广泛，包括但不限于以下领域： 图像识别和计算机视觉： 机器学习在图像识别、目标检测、人脸识别、图像分割等方面有着广泛的应用。例如，通过深度学习技术，可以训练神经网络来识别图像中的对象、人脸或者场景，用于智能监控、自动驾驶、医学影像分析等领域。 自然语言处理： 机器学习在自然语言处理领域有着重要的应用，包括文本分类、情感分析、机器翻译、语音识别等。例如，通过深度学习模型，可以训练神经网络来理解和生成自然语言，用于智能客服、智能助手、机器翻译等场景。 推荐系统： 推荐系统利用机器学习算法分析用户的行为和偏好，为用户推荐个性化的产品或服务。例如，电商网站可以利用机器学习算法分析用户的购买历史和浏览行为，向用户推荐感兴趣的商品。 预测和预测分析： 机器学习可以用于预测未来事件的发生概率或者趋势。例如，金融领域可以利用机器学习算法进行股票价格预测、信用评分、欺诈检测等。 医疗诊断和生物信息学： 机器学习在医疗诊断、药物研发、基因组学等领域有着重要的应用。例如，可以利用机器学习算法分析医学影像数据进行疾病诊断，或者利用机器学习算法分析基因数据进行疾病风险预测。 智能交通和物联网： 机器学习可以应用于智能交通系统、智能城市管理和物联网等领域。例如，可以利用机器学习算法分析交通数据优化交通流量，或者利用机器学习算法分析传感器数据监测设备状态。 以上仅是机器学习应用的一部分，随着机器学习技术的不断发展和应用场景的不断拓展，机器学习在各个领域都有着重要的应用价值，并且正在改变我们的生活和工作方式。
这个脚本模拟了一个嵌入式环境中LED灯的开关控制。在实际应用中，你需要根据你所使用的硬件平台（如Raspberry Pi、Arduino等）和具体的GPIO库来调整代码。此外，你还可能需要集成网络通信功能，以便通过物联网技术（如MQTT、HTTP等）远程控制LED灯。 请注意，这只是一个非常基础的示例，用于演示如何在Python中模拟GPIO操作。在真实项目中，你可能还需要考虑更多的因素，如错误处理、多线程/异步操作、电源管理、安全性等。而且，在嵌入式系统上运行Python代码可能还需要交叉编译或特定的运行环境。
WOA_注释版