注册 登录  
 加关注
查看详情
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

成功源于细节

梦想、奋斗、收获

 
 
 

日志

 
 
 
 

Delphi 7 中使用RAVE报表(六)  

2011-05-22 17:11:32|  分类: delphi |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

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))
  评论这张
 
阅读(857)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2018