Delphi 7 中使用RAVE报表(六)
来源:互联网 发布:快手笑声配音软件 编辑:程序博客网 时间:2024/05/18 01:58
Delphi 7 中使用RAVE报表(六)
——和数据库连接的报表(2)
在Delphi 7 中使用RAVE报表(五)中讲解了和数据库连接的报表,有朋友提出了问题,所以在用一篇文章讲解使用Query动态查询和存储过程连接数据库的报表。
因为要使用到存储过程,我们使用SQL_Server2000数据库,建立数据库Infotest,建立数据表InfoTable 字段为: {[name]、[sex]、[age]、[province]} ,添加数据。
数据库的部分不进行过多地讲解。在窗体上放置Database,Query,DataSource,RvQueryConnection,DBGrid组件,连接到数据库,{查询所有[陕西]的}按钮的事件为:
procedure TForm1.Button1Click(Sender: TObject);
begin
Query1.SQL.Clear ;
Query1.SQL.Add('SELECT * FROM InfoTable WHERE (province =:pro) ');
Query1.ParamByName('pro').AsString :='陕西';
Query1.ExecSQL ;
Query1.Active :=True;
end;
运行点击后,可以查看到DBGrid显示了查看的结果,这样完成了第一步------动态查询的过程。
将程序运行,[查询],然后打开Rave,记住不要关掉查询的程序。
[File]=〉New Data Object=〉Direct Data View=〉选择RvQueryConnection1=〉 [Finish]=〉看到报表设计导航区的Data View Dictionary增加了DataView1,扩展后可以看到数据字段;
选[Tools]=〉Report Wizards=〉Single Table=〉选DataView1,选择数据库字段=〉Report Title改为“个人情况报表”。好了之后,可以看到在page中生成了报表。
然后,保存*.rav文件关闭程序,添加[报表预览]按钮事件。以及RvQueryConnection1的GetCols和GetRow事件。
procedure TForm1.Button2Click(Sender: TObject);
begin
With RvProject1.ProjMan do
begin
RvProject1.Open ;
RvQueryConnection1.ExecGetCols ; //得到列名
RvQueryConnection1.ExecGetRow ; //得到记录
RvProject1.ExecuteReport('Report2');
Close ;
end;
end;
procedure TForm1.RvQueryConnection1GetCols(
Connection: TRvCustomConnection);
begin
Connection.WriteField('name',dtString,10,'','');
Connection.WriteField('sex',dtString,6,'','');
Connection.WriteField('age',dtInteger,6,'','');
Connection.WriteField('province',dtString,10,'','');
end;
procedure TForm1.RvQueryConnection1GetRow(Connection: TRvCustomConnection);
begin
Connection.WriteStrdata('',DBGrid1.Fields[0].value);
Connection.WriteStrdata('',DBGrid1.Fields[1].value);
Connection.WriteIntdata('',DBGrid1.Fields[2].value);
Connection.WriteStrdata('',DBGrid1.Fields[3].value);
end;
在运行程序,这样就完成了一个根据动态查询生成的报表。
使用存储过程的报表方法如下:
首先你要建立你的存储过程,建立存储如下,虽然这样的简单的查询用存储过程没有必要,这里也只是简单的示例:
ALTER procedure pr_test
as
DECLARE @chrnSQL nvarchar(1000)
SELECT @chrnSQL='select * FROM InfoTable where age>21'
EXEC sp_ExecuteSql @chrnSQL
在上例的程序中,增加DBGrid2, StoredProc1,DataSource2,RvDataSetConnection1,[运行存储过程]按钮,和[报表预览]按钮。DataSource2的dataset属性设置为StoredProc1,DBGrid2的DataSource设置为DataSource2。StoredProc1连接数据库,StoredProcName := 'pr_test'; RvDataSetConnection1的dataset属性设置为StoredProc1, [运行存储过程]按钮的click事件为:
with StoredProc1 do begin
prepare;
StoredProc1.Active :=True;
end;
运行程序,看到DBGrid2显示了存储过程查询的结果。
将程序运行,[运行存储过程],然后打开Rave,记住不要关掉查询的程序。
然后,用和上例相同的方法,添加如下代码:
[File]=〉New Data Object=〉Direct Data View=〉选择RvDataSetConnection1=〉 [Finish]=〉看到报表设计导航区的Data View Dictionary增加了DataView2,扩展后可以看到数据字段;
选[Tools]àReport WizardsàSingle Tableà 选DataView2,选择数据库字段àReport Title改为“个人情况报表”。好了之后,可以看到在page中生成了报表。
保存文件,关闭程序,添加[报表预览]按钮事件。以及RvDataSetConnection1的GetCols和GetRow事件。
procedure TForm1.Button4Click(Sender: TObject);
begin
With RvProject1.ProjMan do
begin
RvProject1.Open ;
RvDataSetConnection1.ExecGetCols ; //得到列名
RvDataSetConnection1.ExecGetRow ; //得到记录
RvProject1.ExecuteReport('Report3');
Close ;
end;
end;
procedure TForm1.RvDataSetConnection1GetCols(
Connection: TRvCustomConnection);
begin
Connection.WriteField('name',dtString,10,'',''); {列名}
Connection.WriteField('sex',dtString,6,'','');
Connection.WriteField('age',dtInteger,6,'','');
Connection.WriteField('province',dtString,10,'','');
end;
procedure TForm1.RvDataSetConnection1GetRow(
Connection: TRvCustomConnection);
begin
Connection.WriteStrdata('',DBGrid2.Fields[0].value);
Connection.WriteStrdata('',DBGrid2.Fields[1].value);
Connection.WriteIntdata('',DBGrid2.Fields[2].value);
Connection.WriteStrdata('',DBGrid2.Fields[3].value);
end;
好了,这篇的讲解应该大家都明白和数据库有关的报表怎么设计了,总结一下:通过DBGrid数据感应组件得到查询的结果,通过和rave的连接组件(RvDataSetConnection、RvQueryConnection等)的GetCols和GetRow事件往报表当中添加数据。
(ps:转载请注明作者--高速公路上的鱼(cyq))
- Delphi 7 中使用RAVE报表(六)
- Delphi 7 中使用RAVE报表(一)
- Delphi 7 中使用RAVE报表(二)
- Delphi 7 中使用RAVE报表(三)
- Delphi 7 中使用RAVE报表(四)
- Delphi 7 中使用RAVE报表(五)
- Delphi 7 中使用RAVE报表(七)
- DELPHI版块RAVE报表上解决的问题(zz)
- Delphi报表设计之Rave介绍
- Delphi报表设计之Rave组件
- DELPHI7中窗体中使用rave报表的一个小问题
- delphi报表设计之Rave的高级特性
- Rave 报表入门
- 在Delphi 中如何使用水晶报表
- Rave使用体会(22):Rave中连接ADO数据库的例子
- Delphi 报表 Quickreport使用
- 在报表中打印固定行(不足时补充空行)----使用fastreport 4.6 和 Delphi 7
- rave report设置不同报表的打印机
- 一位老工程师给年轻人的“十大忠告”
- 程序员的酸甜苦辣——告别Coding
- blog.csdn.net 对firefox的支持问题
- SP手机通信名词简析大全之二(zz)
- blog.csdn.net对W3C CSS支持的问题
- Delphi 7 中使用RAVE报表(六)
- TCWeb使用的tablib标准
- Eclipse快速上手EJB -- 1. Lomboz + JBoss-IDE 配置1
- 〔转载〕Google,这个时代伪知识分子的载体
- 打制虚拟Grub启动盘
- IT人为什么有的难以拿到高薪?
- new有六种重载形式
- Eclipse快速上手EJB -- 1. Lomboz + JBoss-IDE 配置2
- Servlet规范简介——web框架是如何注入到Servlet中的