知识大全 Delphi 7 中使用RAVE报表（五）

Posted 2022-07-22 知

篇首语：没有完美的个人，只有完美的团队!本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 Delphi 7 中使用RAVE报表（五）相关的知识，希望对你有一定的参考价值。

Delphi 7 中使用RAVE报表（五） 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　在Delphi 中使用RAVE报表（四）中讲解了和数据库连接的报表有朋友提出了问题所以在用一篇文章讲解使用Query动态查询和存储过程连接数据库的报表　　因为要使用到存储过程我们使用SQL_Server 数据库建立数据库Infotest 建立数据表InfoTable 字段为: [name] [sex] [age] [province] 添加数据　　数据库的部分不进行过多地讲解在窗体上放置Database Query DataSource RvQueryConnection DBGrid组件连接到数据库查询所有[陕西]的按钮的事件为 procedure TForm Button Click(Sender: TObject);beginQuery SQL Clear ;Query SQL Add( SELECT * FROM InfoTable WHERE (province =:pro) );Query ParamByName( pro ) AsString := 陕西 ;Query ExecSQL ;Query Active :=True;end; 　　运行点击后可以查看到DBGrid显示了查看的结果这样完成了第一步动态查询的过程　　将程序运行 [查询] 然后打开Rave 记住不要关掉查询的程序　　[File]=〉New Data Object=〉Direct Data View=〉选择RvQueryConnection =〉 [Finish]=〉看到报表设计导航区的Data View Dictionary增加了DataView 扩展后可以看到数据字段　　选[Tools]=〉Report Wizards=〉Single Table=〉选DataView 选择数据库字段=〉Report Title改为个人情况报表好了之后可以看到在page中生成了报表

　　然后保存* rav文件关闭程序添加[报表预览]按钮事件以及RvQueryConnection 的GetCols和GetRow事件 procedure TForm Button Click(Sender: TObject);beginWith RvProject ProjMan dobeginRvProject Open ;RvQueryConnection ExecGetCols ; //得到列名RvQueryConnection ExecGetRow ; //得到记录RvProject ExecuteReport( Report );Close ;end;end;

procedure TForm RvQueryConnection GetCols(Connection: TRvCustomConnection);beginConnection WriteField( name dtString ); Connection WriteField( sex dtString );Connection WriteField( age dtInteger );Connection WriteField( province dtString );end;

procedure TForm RvQueryConnection GetRow(Connection: TRvCustomConnection);beginConnection WriteStrdata( DBGrid Fields[ ] value);Connection WriteStrdata( DBGrid Fields[ ] value);Connection WriteIntdata( DBGrid Fields[ ] value);Connection WriteStrdata( DBGrid Fields[ ] value);end;　　在运行程序这样就完成了一个根据动态查询生成的报表　　使用存储过程的报表方法如下:　　首先你要建立你的存储过程建立存储如下虽然这样的简单的查询用存储过程没有必要这里也只是简单的示例:ALTER procedure pr_testasDECLARE @chrnSQL nvarchar( ) SELECT @chrnSQL= select * FROM InfoTable where age> EXEC sp_ExecuteSql @chrnSQL　　在上例的程序中增加DBGrid StoredProc DataSource RvDataSetConnection [运行存储过程]按钮和[报表预览]按钮 DataSource 的dataset属性设置为StoredProc DBGrid 的DataSource设置为DataSource StoredProc 连接数据库 StoredProcName := pr_test ; RvDataSetConnection 的dataset属性设置为StoredProc [运行存储过程]按钮的click事件为 with StoredProc do beginprepare;StoredProc Active :=True;end;　　运行程序看到DBGrid 显示了存储过程查询的结果　　将程序运行 [运行存储过程] 然后打开Rave 记住不要关掉查询的程序然后用和上例相同的方法添加如下代码 [File]=〉New Data Object=〉Direct Data View=〉选择RvDataSetConnection =〉 [Finish]=〉　　看到报表设计导航区的Data View Dictionary增加了DataView 扩展后可以看到数据字段选[Tools]àReport WizardsàSingle Tableà 选DataView 选择数据库字段àReport Title改为个人情况报表好了之后可以看到在page中生成了报表　　保存文件关闭程序添加[报表预览]按钮事件以及RvDataSetConnection 的GetCols和GetRow事件 procedure TForm Button Click(Sender: TObject);beginWith RvProject ProjMan dobeginRvProject Open ;RvDataSetConnection ExecGetCols ; //得到列名RvDataSetConnection ExecGetRow ; //得到记录RvProject ExecuteReport( Report );Close ;end;end;

cha138/Article/program/Delphi/201311/24721