rptmany.pas

suite component ace report

unit Rptmany;

{ ----------------------------------------------------------------
  Ace Reporter Version 1.0
  Copyright 1995 SCT Accociates, Inc.
  Written by Kevin Maher, Steve Tyrakowski
  ---------------------------------------------------------------- }

interface

uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, Sctvar, StdCtrls, sctctrl, DB, DBTables, Sctrep, ExtCtrls,
  Buttons, Sctbtn, AcePage;

type
  Tformmany = class(TForm)
    TSctBand1: TSctBand;
    ReportHeaderLevel: TSctLevel;
    TSctBand2: TSctBand;
    PageheaderLevel: TSctLevel;
    TSctBand3: TSctBand;
    Detaillevel: TSctLevel;
    TSctBand4: TSctBand;
    PageFooterLevel: TSctLevel;
    TSctBand5: TSctBand;
    ReportFooterLevel: TSctLevel;
    TSctGrouppage1: TSctGrouppage;
    rep1: TSctReport;
    countrySource: TDataSource;
    country: TTable;
    Sctvarlabel1: TSctvarlabel;
    svarDateTime: TSctDateTimeVar;
    svarPage: TSctPageVar;
    countryNAME: TSctdbvar;
    countryCAPITAL: TSctdbvar;
    countryCONTINENT: TSctdbvar;
    countryAREA: TSctdbvar;
    countryPOPULATION: TSctdbvar;
    TSctBand6: TSctBand;
    ReportHeaderBandLevel: TSctLevel;
    TSctBand7: TSctBand;
    PageHeaderBandLevel: TSctLevel;
    TSctBand8: TSctBand;
    DetailBandLevel: TSctLevel;
    TSctBand9: TSctBand;
    PageFooterBandLevel: TSctLevel;
    TSctBand10: TSctBand;
    ReportFooterBandLevel: TSctLevel;
    TSctGrouppage2: TSctGrouppage;
    rep2: TSctReport;
    svarDateTime1: TSctDateTimeVar;
    svarPage1: TSctPageVar;
    countryNAME1: TSctdbvar;
    countryCAPITAL1: TSctdbvar;
    countryCONTINENT1: TSctdbvar;
    countryAREA1: TSctdbvar;
    countryPOPULATION1: TSctdbvar;
    Sctvarlabel3: TSctvarlabel;
    SctTextLabel1: TSctTextLabel;
    SctLine1: TSctLine;
    SctTextLabel2: TSctTextLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Sctvarlabel4: TSctvarlabel;
    SctTextLabel3: TSctTextLabel;
    SctTextLabel4: TSctTextLabel;
    SctLine2: TSctLine;
    DetailBand2: TSctSubBand;
    Sctvarlabel2: TSctvarlabel;
    SctTextLabel5: TSctTextLabel;
    Sctvarlabel6: TSctvarlabel;
    Sctvarlabel7: TSctvarlabel;
    SctTextLabel7: TSctTextLabel;
    Label1: TLabel;
    SctReportButton1: TSctReportButton;
    DataSourceGuide: TSctDataSourceGuide;
    DataSourceGuide1: TSctDataSourceGuide;
    Sctvarlabel5: TSctvarlabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure TSctBand8PrintWhen(band: TSctBand; var Result: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  formmany: Tformmany;


implementation

uses psetup;

{$R *.DFM}

procedure Tformmany.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;

procedure Tformmany.Button1Click(Sender: TObject);
begin
  Close;
end;

procedure Tformmany.Button3Click(Sender: TObject);
begin
  rep2.Run;
end;

procedure Tformmany.Button2Click(Sender: TObject);
begin
  Rep1.Run;
end;

procedure Tformmany.TSctBand8PrintWhen(band: TSctBand; var Result: Boolean);
begin
  result := countryPOPULATION1.AsFloat < 10000000;
end;

end.