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）)
|
