如何自己编程实现报表的预览，麻烦各位大侠给指点一下迷津

Question

则是以前别人告诉我的！！
转贴：自 定 义 快 速 报 表 的 打 印 预 览 窗 口 复 旦 大 学 电 子 工 程 系 本 科95 级 李 兴 华 ---- Quick Report 2.0 中 提 供 的 默 认 打 印 预 览 窗 口 是 英 文 界 面 的， 如 果 开 发 的 中 文
软 件 中 带 有 这 种 英 文 显 示， 不 免 有 些 小 小 的 缺 憾。 因 此 有 必 要 实 现 中 文 界
面 的 打 印 预 览 窗 口。 但 是Delphi 提 供 的 源 代 码 中 并 没 有 打 印 预 览 窗 口 的.PAS 源
文 件， 这 就 无 法 直 接 修 改 源 码， 只 能 全 部 自 己 编 程 实 现。 经 多 次 实 践， 笔 者
模 仿 实 现 了 与 默 认 预 览 窗 口 外 观 类 似， 功 能 相 同 的 打 印 预 览 窗 口。 步 骤 如
下： ---- 1. 新 建 一 个 窗 体， 设 置Name 为MyPreview。 ---- 2. 在 窗 体 上 添 加 一Toolbar 控 件， 模 仿 默 认 预 览 窗 口 创 建 相 应 的Toolbutton， 并 设
置 各 按 钮 的Hint 提 示。 ---- 3. 添 加 一Panel 控 件， 对 齐 方 式 置 为alBottom。 再 在 此Panel 上 放 一ProgressBar( 左 对 齐)
和Panel( 右 对 齐)， 分 别 显 示 报 表 装 载 进 度 和 其 他 提 示 信 息。 ---- 4. 添 加QRPreview 控 件， 对 齐 方 式 置 为alClient。 ---- 5. 添 加OpenDialog， 设 置Filter 属 性 为*.QR； 添 加SaveDialog， 设 置Filter 属 性 为
*.QR¦*.TXT¦*.HTM¦*.CSV， 设 置DefaultExt 属 性 为*.QR。 ---- 6. 双 击 各 个Toolbutton， 输 入 相 应 代 码。 ---- 可 以 按 以 下 方 法 调 用 自 定 义 预 览 窗 口。 ---- 重 载TQuickRep 的OnPreview 事 件， 输 入 如 下 代 码： procedure TRptForm.RptFormPreview(Sender: TObject);
begin
with TMyPreview.Create(Application) do
begin
    QRPreview1.QRPrinter := TQRPrinter(Sender);
    CurRep := self;
Show;
end;
end;附 各 成 员 方 法 的 具 体 实 现：
unit Myprv;interface
uses
  Windows, Messages, SysUtils, Classes,
Graphics, Controls, Forms, Dialogs,
  ComCtrls, ToolWin, qrprntr,Quickrpt, 
StdCtrls, ExtCtrls,qrextra,qrhtml;
type
  TMyPreview = class(TForm)
    QRPreview1: TQRPreview;
ToolBar1: TToolBar;
（ 其 余 成 员 变 量 和 成 员 方 法 声 明 略。）
private
    { Private declarations }
    FPageCount : integer;  // 生 成 报 表 的 总 页 数
  public
    { Public declarations }
    CurRep : TQuickRep;    // 所 预 览 的 报 表
procedure UpdatePanelShow;
  end;
implementation{$R *.DFM}
procedure TMyPreview.UpdatePanelShow;
begin  // 更 新 显 示
    Panel2.Caption := 
' 第 '+inttostr(QRPreview1.PageNumber)+
  ' 页  总 '+inttostr(FPageCount)+' 页';
end;
procedure TMyPreview.ToolButton2Click(Sender: TObject);
begin    //ZoomToFit 缩 放 至 全 屏
    QRPreview1.ZoomToFit;
end;
procedure TMyPreview.ToolButton3Click(Sender: TObject);
begin    //ZoomTo100% 缩 放 至 实 际 大 小
    QRPreview1.Zoom:=100;
end;
procedure TMyPreview.ToolButton4Click(Sender: TObject);
begin    //ZoomToWidth 缩 放 至 页 宽
    QRPreview1.ZoomToWidth;
end;
procedure TMyPreview.ToolButton6Click(Sender: TObject);
begin    //First page
    QRPreview1.PageNumber := 1;
    UpdatePanelShow;
end;
procedure TMyPreview.ToolButton8Click(Sender: TObject);
begin    //prior page
    QRPreview1.PageNumber := QRPreview1.PageNumber+1;
    UpdatePanelShow;
end;
procedure TMyPreview.ToolButton7Click(Sender: TObject);
begin    //next page
    QRPreview1.PageNumber := QRPreview1.PageNumber-1;
    if QRPreview1.PageNumber =0 then
        QRPreview1.PageNumber:=1;
    UpdatePanelShow;
end;
procedure TMyPreview.ToolButton9Click(Sender: TObject);
begin    //Last page
    QRPreview1.PageNumber := FPageCount;
    UpdatePanelShow;
end;
procedure TMyPreview.QRPreview1PageAvailable(Sender: TObject;
  PageNum: Integer);
begin    //get pagecount
    FPageCount := PageNum ;
    UpdatePanelShow;
end;
procedure TMyPreview.FormClose
(Sender: TObject; var Action: TCloseAction);
begin
    CurRep := nil;
    Action := caFree;
end;
procedure TMyPreview.ToolButton14Click(Sender: TObject);
begin    //close the window
    Close;
end;
procedure TMyPreview.ToolButton11Click(Sender: TObject);
begin    //print setup
    QRPreview1.QRPrinter.PrintSetup;
end;
procedure TMyPreview.ToolButton13Click(Sender: TObject);
begin    //print
    QRPreview1.QRPrinter.Print;
end;
procedure TMyPreview.ToolButton16Click(Sender: TObject);
begin    //save button
    if SaveDlg1.Execute then
    begin
    if (SaveDlg1.FIlterIndex <>1)and(CurRep = nil)then Exit;
    case SaveDlg1.FilterINdex of
        //--*.QR
    1: QRPreview1.QRPrinter.Save(SaveDlg1.FileName);
        //--*.TXT
    2: CurRep.ExportToFilter
(TQRAsciiExportFilter.Create(SaveDlg1.FileName));
        //--*.HTM
    3: CurRep.ExportToFilter
(TQRHTMLExportFilter.Create(SaveDlg1.FileName));
        //--*.CSV
    4: CurRep.ExportToFilter
(TQRCSVExportFilter.Create(SaveDlg1.FileName));
    end;
    end;
end;
procedure TMyPreview.ToolButton17Click(Sender: TObject);
begin    //load button
    if OpenDlg1.Execute then
        QRPreview1.QRPrinter.Load(OpenDlg1.FileName);
end;
procedure TMyPreview.QRPreview1
ProgressUpdate(Sender: TObject;
  Progress: Integer);
begin    //updage progress bar
    ProgressBar1.Position := Progress;
end;
procedure TMyPreview.SaveDlg1TypeChange(Sender: TObject);
begin    //set DefaultExt property of Savedialog
    with SaveDlg1 do
    case FilterIndex of
    0: DefaultExt := '.QR';
    1: DefaultExt := '.TXT';
    2: DefaultExt := '.HTM';
    3: DefaultExt := '.CSV';
    end;
end;
end.//end of Unit
---- 以 上 程 序 在Windows NT 4.0 中 文 版(Service Pack 3)，Delphi 3.0 环 境 下 调 试 通 过。 

Answer 1

TO: hlilna()
  谢谢你的帖子，不过我是想自己作个报表预览的，不想用控件的。所以你的方法用不上。TO: cobi(我是小新，我只有5岁)
  你说的那个例子是不是昨天发给我的那个呀，工程名叫Envlope的，我昨天开了个帖子专门
向你要的那个。如果不是的话麻烦你再给发一下吧。EMail: [email protected]

Answer 2

To cobi
  也给我一份吧。谢谢！
  [email protected]

Answer 3

To cobi
  也给我一份吧。谢谢！
  [email protected] 

Answer 4

To cobi
给我一份把！谢了！
[email protected]

Answer 5

我这里有一篇文章，供参考：
在Delphi编制的程序运行中动态制作报表--------------------------------------------------------------------------------
---- Delphi中的quickreport是挪威的QuSoft AS公司专门为Delphi设计的用于制作报表的组件，具有很强的访问数据库的能力。但是，从我个人的使用经验来看，这个组件的帮助写的不够详尽，例程也不多。因而一般编程人员都是在设计期间设计好报表的所有格式，并在运行时连上数据源(即delphi中的dataset)运行程序的。显然，这种方法不具备很强的灵活性。在这里我想向大家介绍一种在程序运行时如何动态制作报表的方法。 ---- 首先，建立form1；unit1（调用窗体），其中放入button1:caption为‘预览’，用以查看报表，再加入label1:caption为‘报表标题’;edit1用以接收用户输入的标题。再建立form2(放置quickreport元件的窗体),其中放入quickrep元件和三个qrband元件，其bandtype分别为rbTitle,rbColumnHeader,rbDetail.但其中无须放入qrlabel和qrdbtext元件，由程序中自动生成。再在form2；unit2中放入table1,table2。在databasename属性中填入数据库所在的Alias Name.在tablename中分别填入Goods,TableInformation.其中Goods中存放商品信息，可以设置以下字段:ID;Name;Unit;Price。TableInformation中的字段为TableName; FieldsName; DisplayName数据库中填入以下信息。 ————————————————————————
Goods         ID              商品编号
Goods         Name            商品名称
Goods         Price           商品单价---- 好了，准备工作完成了一半，现在写入代码。在unit1的implementation下写入uses Unit2;在button1的click事件中写入以下代码： 
  begin
   PreparePrint;
   with Form2 do
   begin
     Preview;
     Table1.Close;
     Table2.Close;
   end;
  end;在unit1中添加一个过程PreparePrint；procedure TForm1.PreparePrint;
var LeftValue:integer;
    aLabel : TQRLabel;
    aText:TQRDBText;
begin
  LeftValue:=100;
  with Form2 do
  begin
    aLabel := TQRLabel.Create(Form2); '设置标题
    aLabel.Parent := TitleBand1;
    with aLabel do
    begin
      Width:=300;
      Height:=TitleBand1.Height;
      Alignment:=taCenter;
      Caption := Edit1.Text;
    end;
    Table1.Open;
    Table2.Open;
    Table2.First;
    while not Table2.EOF do
    begin
      aLabel := TQRLabel.Create(Form2);
’设置显示字段标题
      aLabel.Parent := HeaderBand1;
      with aLabel do
      begin
        AutoSize:=False;
        AutoStretch:=True;
        Left :=LeftValue;
        Top := 0;
        Width:=80;
        Height:=HeaderBand1.Height;
        Alignment:=taCenter;
        Caption := ' '+table2.FieldbyName(
         'DisplayName').AsString+' ';
      end;
      aText := TQRDBText.Create(Form2); 
   '设置显示字段内容
      aText.Parent := DetailBand1;
      with aText do
      begin
         AutoSize:=False;
         AutoStretch:=True;
         Height:=DetailBand1.Height;
         DataSet:=Table1;
         DataField:=Table2.FieldbyName(
       'FieldsName').AsString;
         Alignment:=taCenter;
      end;
      LeftValue:=LeftValue+80;
      Table2.Next;
    end;
  end;
end;
---- 好了，运行程序可以看到报表预览的效果，显示了Goods中的ID,Name,Price。在运行时完全可以控制table1和table2中的数据内容。显示不同数据库的不同信息，改变table2中的记录顺序可改变报表中的显示顺序。而且，由于报表的各部分，甚至包括各band和system data均可在程序运行时依据上述方法动态生成。其属性也可动态设置。所以我们完全可以制作一个类似于Dephi中Form Wizard一样的报表精灵，还可提供一个灵活而且强大的打印设置功能。 
---- 以上代码在delphi3中运行通过。