作者：未知 来源：月光软件站 加入时间：2005-2-28　月光软件站

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事件往报表当中添加数据。

相关软件：