DELPHI 报表问题? 就是我做了一个简单的计算清单的程序,没有数据库连接的,想把计算好的数据打印出来,应该怎么做,我已经用RAVE设计好了表格样式,现在要将数据显示出来,有什么办法吗,我是刚刚学习DELPHI 的 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 将程序中Memo组件的内容传递到Rave Report 的Memo组件中 unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, RpDefine, RpRave, StdCtrls,RVClass,RvProj,RVCsStd;type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; RvProject1: TRvProject; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);var MyPage : TRavePage; MyMemo : TRaveMemo;begin RvProject1.Open; with RvProject1.ProjMan do begin MyPage := FindRaveComponent('Report1.Page1', nil) as TRavePage; MyMemo := FindRaveComponent('Memo1', MyPage) as TRaveMemo; MyMemo.Text := Memo1.Lines.Text; end; {with} RvProject1.ExecuteReport('Report1'); RvProject1.Close;end;end. 我通常用quickreport觉得传值方便 一直知道fastreport比较不错 不过还没来得及研究如果你选用quickreport就像两个窗体变量传值一样 对于简单的报表 我觉得还是挺方便的 把窗体放入页面中后,actionlist 中设置的快捷键失灵了 PASCAL简单的问题? 初学多媒体编程 关于RealMagic 哪位有进销存程序? 请问在DELPHI中我如何向指定的EMAIL发送信件? 请问哪位有indy组件做pop3的资料? 关于监视交换机,然后将告警信息写入数据库的问题!搞定再给100分! 有关VCL的消息机制? 如何判断一个文件已经存在? delphi开发的屏保,如何设置中文名称 又是:乱码问题 请问:怎么接受gprs发送的数据阿?谢谢
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, RpDefine, RpRave, StdCtrls,RVClass,RvProj,RVCsStd;type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
RvProject1: TRvProject;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
MyPage : TRavePage;
MyMemo : TRaveMemo;
begin
RvProject1.Open;
with RvProject1.ProjMan do
begin
MyPage := FindRaveComponent('Report1.Page1', nil) as TRavePage;
MyMemo := FindRaveComponent('Memo1', MyPage) as TRaveMemo;
MyMemo.Text := Memo1.Lines.Text;
end; {with}
RvProject1.ExecuteReport('Report1');
RvProject1.Close;
end;end.
如果你选用quickreport就像两个窗体变量传值一样 对于简单的报表 我觉得还是挺方便的