untrprttable.pas

来自「是分布式粮库程序,是采用Delphi实现的」· PAS 代码 · 共 67 行

 unit UntRprtTable;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Qrctrls, QuickRpt, ExtCtrls,UnitStandard1, Db, DBTables;

type
  TFrmRprtTable = class(TForm)
    QuickRep1: TQuickRep;
    ColumnHeaderBand1: TQRBand;
    DetailBand1: TQRBand;
    PageFooterBand1: TQRBand;
    PageHeaderBand1: TQRBand;
    SummaryBand1: TQRBand;
    TitleBand1: TQRBand;
    QRLblPgHdr: TQRLabel;
    QRLblTitle: TQRLabel;
    QRLblPage1: TQRLabel;
    QRLblPage2: TQRLabel;
    QRSysData1: TQRSysData;
    QRSysData2: TQRSysData;
    QryRprtTbl: TQuery;

    procedure FormCreate(Sender: TObject);

                                
  private
    { Private declarations }
    
  public
    { Public declarations }
    QRLblList: array  of TQRLabel;
    QRDBTextList: array  of TQRDBText;
  end;

var
  FrmRprtTable: TFrmRprtTable;


implementation

 uses UnitDataModul;

{$R *.DFM}

procedure TFrmRprtTable.FormCreate(Sender: TObject);

begin
  setlength(QRLblList,UnitStandard1.CrntFieldCount);
  setlength(QRDBTextList,UnitStandard1.CrntFieldCount);
  
  QryRprtTbl.Close;
  QryRprtTbl.DatabaseName := DtMdl.Database1.DatabaseName;
  QryRprtTbl.SQL.Clear;
  QryRprtTbl.SQL.Add(StrSQL);
  QryRprtTbl.Prepare;
  QryRprtTbl.Open;

end;

end.