盒子论坛 v2.1

.Qrp是quickreport保存的文件.可以在quickrep预览窗口去打开,
但好象无法打印(打印出的还是原来报表内容)

另一种方式是用 Tqrphandler(附源码);

unit Reportview;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, QuickRpt,Qrextra, StdCtrls, jpeg ;

type
  TFrmReportview = class(TForm)
    OpenDialog1: TOpenDialog;
    Button1: TButton;
    EditFileName: TEdit;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Image1: TImage;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
    Qrphandle:Tqrphandler;
  public
    { Public declarations }
  end;

var
  FrmReportview: TFrmReportview;

implementation

{$R *.DFM}

procedure TFrmReportview.Button1Click(Sender: TObject);
begin
  OpenDialog1.Execute;
  EditFileName.Text :=OpenDialog1.FileName;
end;

procedure TFrmReportview.Button2Click(Sender: TObject);
begin
  Qrphandle.Filename:=EditFilename.Text;
  Qrphandle.Preview;
end;

procedure TFrmReportview.Button3Click(Sender: TObject);
begin
  Qrphandle.Filename:=EditFilename.Text;
  Qrphandle.Print;
end;

procedure TFrmReportview.FormShow(Sender: TObject);
begin
  Qrphandle := Tqrphandler.Create;
end;

procedure TFrmReportview.Button4Click(Sender: TObject);
begin
  close;
end;

procedure TFrmReportview.FormDestroy(Sender: TObject);
begin
  Qrphandle.free;
end;

end.
----------------------------------------------
-

作者：

zzy720529 (zzy)	★☆☆☆☆	-
	普通会员

2003/11/10 8:39:17

3楼：

2楼的。谢谢！！
我编译了以下，很好。
以后请多指教！
----------------------------------------------
-

作者：

bryan (bao)	★☆☆☆☆	-
	盒子活跃会员

2003/11/10 10:25:20

4楼：

别客气!都是同行.
----------------------------------------------
-

信息

登陆以后才能回复