unit1.pas

suite component ace report

unit Unit1;

interface

uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, SctCtrl, SctRep, SctVar, StdCtrls, Buttons, SctBtn,
  Menus, AcePage, DB, DBTables, ExtCtrls;

type
  TForm1 = class(TForm)
    SctReport1: TSctReport;
    ReportPage: TSctGrouppage;
    ReportHeaderBand: TSctBand;
    ReportHeaderBandlevel: TSctLevel;
    PageHeaderBand: TSctBand;
    PageHeaderBandlevel: TSctLevel;
    DetailBand: TSctBand;
    DetailBandlevel: TSctLevel;
    PageFooterBand: TSctBand;
    PageFooterBandlevel: TSctLevel;
    ReportFooterBand: TSctBand;
    ReportFooterBandlevel: TSctLevel;
    DataSource1: TDataSource;
    Table1: TTable;
    svarDateTime: TSctDateTimeVar;
    svarPage: TSctPageVar;
    DataSourceGuide: TSctDataSourceGuide;
    Data: TSctSubDataBand;
    DataLevel: TSctLevel;
    SctReportButton1: TSctReportButton;
    table1OrderNoVar: TSctDBVar;
    table1CustNoVar: TSctDBVar;
    table1SaleDateVar: TSctDBVar;
    table1ShipDateVar: TSctDBVar;
    table1EmpNoVar: TSctDBVar;
    table1ShipToContactVar: TSctDBVar;
    table1ShipToAddr1Var: TSctDBVar;
    table1ShipToAddr2Var: TSctDBVar;
    table1ShipToCityVar: TSctDBVar;
    table1ShipToStateVar: TSctDBVar;
    table1ShipToZipVar: TSctDBVar;
    table1ShipToCountryVar: TSctDBVar;
    table1ShipToPhoneVar: TSctDBVar;
    table1ShipVIAVar: TSctDBVar;
    table1POVar: TSctDBVar;
    table1TermsVar: TSctDBVar;
    table1PaymentMethodVar: TSctDBVar;
    table1ItemsTotalVar: TSctDBVar;
    table1TaxRateVar: TSctDBVar;
    table1FreightVar: TSctDBVar;
    table1AmountPaidVar: TSctDBVar;
    DataSub: TSctSubBand;
    DataSub1: TSctSubBand;
    DataSub2: TSctSubBand;
    varlabel1: TSctvarlabel;
    varlabel3: TSctvarlabel;
    varlabel5: TSctvarlabel;
    varlabel7: TSctvarlabel;
    varlabel9: TSctvarlabel;
    varlabel11: TSctvarlabel;
    varlabel13: TSctvarlabel;
    varlabel15: TSctvarlabel;
    varlabel17: TSctvarlabel;
    varlabel19: TSctvarlabel;
    varlabel21: TSctvarlabel;
    varlabel23: TSctvarlabel;
    varlabel24: TSctvarlabel;
    varlabel25: TSctvarlabel;
    varlabel26: TSctvarlabel;
    varlabel27: TSctvarlabel;
    varlabel28: TSctvarlabel;
    varlabel29: TSctvarlabel;
    varlabel30: TSctvarlabel;
    varlabel31: TSctvarlabel;
    varlabel32: TSctvarlabel;
    varlabel33: TSctvarlabel;
    varlabel34: TSctvarlabel;
    varlabel35: TSctvarlabel;
    varlabel36: TSctvarlabel;
    varlabel37: TSctvarlabel;
    varlabel: TSctvarlabel;
    varlabel2: TSctvarlabel;
    varlabel4: TSctvarlabel;
    varlabel6: TSctvarlabel;
    varlabel8: TSctvarlabel;
    varlabel10: TSctvarlabel;
    varlabel22: TSctvarlabel;
    varlabel20: TSctvarlabel;
    varlabel18: TSctvarlabel;
    varlabel16: TSctvarlabel;
    varlabel12: TSctvarlabel;
    varlabel14: TSctvarlabel;
    Memo1: TMemo;
    procedure ReportPageDataStart(Sender: TObject);
    procedure ReportPageDataSkip(Sender: TObject);
    procedure BandWhenTag(Band: TSctBand; var Result: Boolean);
    procedure LabelWhenTag(lb: TSctLabel; var Result: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
    Counter: Integer;
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.ReportPageDataStart(Sender: TObject);
begin
   Counter := 0;
end;

procedure TForm1.ReportPageDataSkip(Sender: TObject);
begin
  Inc(Counter);
  TSctPage(Sender).DataIsFinished := (Counter > 3);
end;

procedure TForm1.BandWhenTag(Band: TSctBand; var Result: Boolean);
begin
  Result := (Band.Tag = Counter+1);
end;

procedure TForm1.LabelWhenTag(lb: TSctLabel;
  var Result: Boolean);
begin
  Result := (lb.Tag = Counter+1);
end;

end.