ftest.pas

suite component ace report

unit ftest;

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

interface

uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls, sctrep, Mask, DBCtrls, DB, DBTables,
  sctctrl, printers, Buttons, ExtCtrls, Menus, Grids, Outline,
  Aceprev, TabNotBk,DBGrids, Tabs, Sctbtn, Sctvar, acefile, AcePage;

type
  TformTest = class(TForm)
    CancelButton: TButton;
    Panel2: TPanel;
    Panel1: TPanel;
    Label10: TLabel;
    Label9: TLabel;
    DBText1: TDBText;
    DBText2: TDBText;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    DBText3: TDBText;
    Label4: TLabel;
    TabSet1: TTabSet;
    Notebook1: TNotebook;
    FeatureSource: TDataSource;
    FeatureTable: TTable;
    FeatureTableFEATURECOD: TStringField;
    FeatureTableFEATURE: TStringField;
    FeatureTableDESCRIPT: TMemoField;
    CrossrefSource: TDataSource;
    CrossrefTable: TTable;
    ReportName: TStringField;
    CrossrefTableREPCODE: TStringField;
    CrossrefTableFEATURECOD: TStringField;
    ReportSource: TDataSource;
    ReportTable: TTable;
    ReportTableREPCODE: TStringField;
    ReportTableREPNAME: TStringField;
    ReportTableUNITNAME: TStringField;
    ReportTableFORM: TStringField;
    ReportTableNOTES: TMemoField;
    ReportLookupTable: TTable;
    ReportLookupSource: TDataSource;
    DBText4: TDBText;
    DBText5: TDBText;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    DBText6: TDBText;
    Label8: TLabel;
    DBMemo1: TDBMemo;
    DBGrid2: TDBGrid;
    DBGrid3: TDBGrid;
    DBMemo2: TDBMemo;
    ReportSource1: TDataSource;
    ReportTable1: TTable;
    CrossrefSource1: TDataSource;
    CrossrefTable1: TTable;
    FeatureSource1: TDataSource;
    FeatureLookupSource: TDataSource;
    FeatureTable1: TTable;
    FeatureLookupTable: TTable;
    CrossrefTable1FEATURECOD: TStringField;
    CrossrefTable1REPCODE: TStringField;
    MainMenu1: TMainMenu;
    File2: TMenuItem;
    Exit1: TMenuItem;
    Reports1: TMenuItem;
    EmployeeListing1: TMenuItem;
    OrdersListing1: TMenuItem;
    BiolifeListing1: TMenuItem;
    OrdersbyCustomer1: TMenuItem;
    AnimalsListing1: TMenuItem;
    CountryList1: TMenuItem;
    AllOrders1: TMenuItem;
    Labels1: TMenuItem;
    AceTutorial1: TMenuItem;
    CodeCreated1: TMenuItem;
    CustomPreview1: TMenuItem;
    CrossTab1: TMenuItem;
    Forms1: TMenuItem;
    OrderForms1: TMenuItem;
    Help1: TMenuItem;
    About1: TMenuItem;
    DBGrid1: TDBGrid;
    ReportTable1REPCODE: TStringField;
    ReportTable1REPNAME: TStringField;
    ReportTable1UNITNAME: TStringField;
    ReportTable1FORM: TStringField;
    ReportTable1NOTES: TMemoField;
    DBMemo3: TDBMemo;
    DBGrid4: TDBGrid;
    CrossrefTable1Feature: TStringField;
    FeatureTable1FEATURECOD: TStringField;
    FeatureTable1FEATURE: TStringField;
    FeatureTable1DESCRIPT: TMemoField;
    FeatureLookupTableFEATURECOD: TStringField;
    FeatureLookupTableFEATURE: TStringField;
    FeatureLookupTableDESCRIPT: TMemoField;
    Label11: TLabel;
    Label12: TLabel;
    FeatureDescript: TDBMemo;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Button1: TButton;
    Label17: TLabel;
    Button3: TButton;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    DBText7: TDBText;
    DBText8: TDBText;
    DBText9: TDBText;
    ReportHeaderBand: TSctBand;
    ReportHeaderBandlevel: TSctLevel;
    PageHeaderBand: TSctBand;
    PageHeaderBandlevel: TSctLevel;
    DetailBand: TSctBand;
    DetailBandlevel: TSctLevel;
    PageFooterBand: TSctBand;
    PageFooterBandlevel: TSctLevel;
    ReportFooterBand: TSctBand;
    ReportFooterBandlevel: TSctLevel;
    ReportPage: TSctGrouppage;
    SctReport1: TSctReport;
    svarDateTime: TSctDateTimeVar;
    svarPage: TSctPageVar;
    DataSourceGuide: TSctDataSourceGuide;
    DataSourceGuide1: TSctDataSourceGuide;
    DataSourceGuide2: TSctDataSourceGuide;
    DataSourceGuide3: TSctDataSourceGuide;
    DataSourceGuide4: TSctDataSourceGuide;
    DataSourceGuide5: TSctDataSourceGuide;
    DataSourceGuide6: TSctDataSourceGuide;
    DataSourceGuide7: TSctDataSourceGuide;
    featuretableFEATURECOD1: TSctdbvar;
    featuretableFEATURE1: TSctdbvar;
    featuretableDESCRIPT1: TSctdbvar;
    crossreftableREPORTNAME: TSctdbvar;
    crossreftableREPCODE1: TSctdbvar;
    crossreftableFEATURECOD1: TSctdbvar;
    reporttableREPCODE1: TSctdbvar;
    reporttableREPNAME1: TSctdbvar;
    reporttableUNITNAME1: TSctdbvar;
    reporttableFORM1: TSctdbvar;
    reporttableNOTES1: TSctdbvar;
    reportlookuptableREPCODE: TSctdbvar;
    reportlookuptableREPNAME: TSctdbvar;
    reportlookuptableUNITNAME: TSctdbvar;
    reportlookuptableFORM: TSctdbvar;
    reportlookuptableNOTES: TSctdbvar;
    reporttable1REPCODE1: TSctdbvar;
    reporttable1REPNAME1: TSctdbvar;
    reporttable1UNITNAME1: TSctdbvar;
    reporttable1FORM1: TSctdbvar;
    reporttable1NOTES1: TSctdbvar;
    crossreftable1FEATURECOD1: TSctdbvar;
    crossreftable1REPCODE1: TSctdbvar;
    crossreftable1FEATURE1: TSctdbvar;
    featuretable1FEATURECOD1: TSctdbvar;
    featuretable1FEATURE1: TSctdbvar;
    featuretable1DESCRIPT1: TSctdbvar;
    featurelookuptableFEATURECOD1: TSctdbvar;
    featurelookuptableFEATURE1: TSctdbvar;
    featurelookuptableDESCRIPT1: TSctdbvar;
    SctReportButton1: TSctReportButton;
    SubDataDetailBand: TSctSubDataBand;
    SubDataDetailBandlevel: TSctLevel;
    Sctvarlabel3: TSctvarlabel;
    Sctvarlabel2: TSctvarlabel;
    Sctvarlabel4: TSctvarlabel;
    TSctvarlabel: TSctvarlabel;
    TSctTextLabel: TSctTextLabel;
    TSctvarlabel1: TSctvarlabel;
    TSctTextLabel1: TSctTextLabel;
    SctTextLabel1: TSctTextLabel;
    ReportHeaderBand1: TSctBand;
    ReportHeaderBand1level: TSctLevel;
    PageHeaderBand1: TSctBand;
    PageHeaderBand1level: TSctLevel;
    DetailBand1: TSctBand;
    DetailBand1level: TSctLevel;
    PageFooterBand1: TSctBand;
    PageFooterBand1level: TSctLevel;
    ReportFooterBand1: TSctBand;
    ReportFooterBand1level: TSctLevel;
    ReportPage1: TSctGrouppage;
    SctReport2: TSctReport;
    svarDateTime1: TSctDateTimeVar;
    svarPage1: TSctPageVar;
    DataSourceGuide8: TSctDataSourceGuide;
    DataSourceGuide9: TSctDataSourceGuide;
    DataSourceGuide10: TSctDataSourceGuide;
    DataSourceGuide11: TSctDataSourceGuide;
    DataSourceGuide12: TSctDataSourceGuide;
    DataSourceGuide13: TSctDataSourceGuide;
    DataSourceGuide14: TSctDataSourceGuide;
    DataSourceGuide15: TSctDataSourceGuide;
    reporttable1REPCODE2: TSctdbvar;
    reporttable1REPNAME2: TSctdbvar;
    reporttable1UNITNAME2: TSctdbvar;
    reporttable1FORM2: TSctdbvar;
    reporttable1NOTES2: TSctdbvar;
    featurelookuptableFEATURECOD2: TSctdbvar;
    featurelookuptableFEATURE2: TSctdbvar;
    featurelookuptableDESCRIPT2: TSctdbvar;
    SubDataDetailBand1: TSctSubDataBand;
    SubDataDetailBand1level: TSctLevel;
    TSctvarlabel2: TSctvarlabel;
    TSctTextLabel2: TSctTextLabel;
    TSctvarlabel5: TSctvarlabel;
    TSctTextLabel5: TSctTextLabel;
    TSctvarlabel7: TSctvarlabel;
    SctTextLabel2: TSctTextLabel;
    SctShape1: TSctShape;
    SctReportButton2: TSctReportButton;
    Sctvarlabel1: TSctvarlabel;
    SctTextLabel3: TSctTextLabel;
    Sctvarlabel5: TSctvarlabel;
    Sctvarlabel6: TSctvarlabel;
    SctTextLabel4: TSctTextLabel;
    SctTextLabel5: TSctTextLabel;
    Sctvarlabel7: TSctvarlabel;
    SctTextLabel6: TSctTextLabel;
    SubDataDetailBand1Head: TSctDataHeadBand;
    SubDataDetailBand1Headlevel: TSctLevel;
    Sctvarlabel8: TSctvarlabel;
    SctTextLabel7: TSctTextLabel;
    SubDataDetailBand1Foot: TSctDataFootBand;
    SubDataDetailBand1Footlevel: TSctLevel;
    SubDataDetailBandFoot: TSctDataFootBand;
    SubDataDetailBandFootlevel: TSctLevel;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox5: TCheckBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    AceCanvas1: TMenuItem;
    DualDetailReport1: TMenuItem;
    BarGraphReport1: TMenuItem;
    ColumnGroups1: TMenuItem;
    NonDbfMasterDetail1: TMenuItem;
    procedure CancelButtonClick(Sender: TObject);
    procedure EmployeeListing1Click(Sender: TObject);
    procedure OrdersListing1Click(Sender: TObject);
    procedure BiolifeListing1Click(Sender: TObject);
    procedure OrdersbyCustomer1Click(Sender: TObject);
    procedure AnimalsListing1Click(Sender: TObject);
    procedure CountryList1Click(Sender: TObject);
    procedure AllOrders1Click(Sender: TObject);
    procedure Exit1Click(Sender: TObject);
    procedure About1Click(Sender: TObject);
    procedure Labels1Click(Sender: TObject);
    procedure AceTutorial1Click(Sender: TObject);
    procedure CodeCreated1Click(Sender: TObject);
    procedure OrderForms1Click(Sender: TObject);
    procedure CustomPreview1Click(Sender: TObject);
    procedure CrossTab1Click(Sender: TObject);
    procedure TabSet1Change(Sender: TObject; NewTab: Integer;

      var AllowChange: Boolean);
    procedure CrossrefTableCalcFields(DataSet: TDataset);
    procedure CrossrefTable1CalcFields(DataSet: TDataset);
    procedure DBGrid2DblClick(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    function SubDetailBand1PrintWhen(band: TSctBand): Boolean;
    function DetailBand1PrintWhen(band: TSctBand): Boolean;
    procedure SubDataDetailBand1HeadPrintWhen(band: TSctBand; var Result: Boolean);
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure CheckBox5Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure AceCanvas1Click(Sender: TObject);
    procedure DualDetailReport1Click(Sender: TObject);
    procedure BarGraphReport1Click(Sender: TObject);
    procedure ColumnGroups1Click(Sender: TObject);
    procedure NonDbfMasterDetail1Click(Sender: TObject);

  private
    { Private declarations }
    procedure RunEmployeeListing (Sender: TObject);
    procedure RunOrderListing (Sender: TObject);
    procedure RunBiolifeListing (Sender: TObject);
    procedure RunCustomerOrders (Sender: TObject);
    procedure RunAnimalListing (Sender: TObject);
    procedure RunCountryListing (Sender: TObject);
    procedure RunAllOrders (Sender: TObject);
    procedure RunLabels (Sender: TObject);
    procedure RunAceTutorial (Sender: TObject);
    procedure RunCodeCreated (Sender: TObject);
    procedure RunCustomPreview (Sender: TObject);
    procedure RunCrossTab (Sender: TObject);
    procedure RunOrdersForm (Sender: TObject);
    procedure RunAceCanvas (Sender: TObject);
    procedure RunTwoDetail (Sender: TObject);
    procedure RunBarGraph (Sender: TObject);
    procedure RunColumnGroup(Sender: TObject);
    procedure RunNonDbf(Sender: TObject);

  public
    { Public declarations }
  end;

var
  formTest: TformTest;

procedure preview(Page: TSctPage);
procedure OldPreview(Page: TSctPage);
procedure MyPrompt(Page: TSctPage; var Result: Boolean);
procedure MyStat(Page: TSctPage);

implementation

uses flist, forders, rbio, rptind, rcust, rptmany, aord, about, label3
      , mast_dtl, fcode, rord, custprev, cross, myprev, sampdest,
       sampstat, sctprev, acecan, twodetrp, bargraph, grp3, nondbf;

{$R *.DFM}

const
  rpStart          = 0;
  rpEmployee       = 0;
  rpOrders         = 1;
  rpBiolife        = 2;
  rpCustOrders     = 3;
  rpAnimals        = 4;
  rpCountry        = 5;
  rpAllOrders      = 6;
  rpLabels         = 7;
  rpAceTutorial    = 8;
  rpCodeCreated    = 9;
  rpOrdersForm     = 10;
  rpCrossTab       = 11;
  rpCustomPreview  = 12;
  rpAceCanvas      = 13;
  rpTwoDetail      = 14;
  rpBarGraph       = 15;
  rpColumnGroup    = 16;
  rpNonDbf         = 17;

procedure TformTest.CancelButtonClick(Sender: TObject);
begin
  Close;
end;

procedure TformTest.EmployeeListing1Click(Sender: TObject);
begin
   RunEmployeeListing(Sender);
end;

procedure TformTest.OrdersListing1Click(Sender: TObject);
begin
  RunOrderListing(Sender);
end;

procedure TformTest.BiolifeListing1Click(Sender: TObject);
begin
  RunBiolifeListing(Sender);
end;

procedure TformTest.OrdersbyCustomer1Click(Sender: TObject);
begin
  RunCustomerOrders(Sender);
end;

procedure TformTest.AnimalsListing1Click(Sender: TObject);
begin
  RunAnimalListing(Sender);
end;

procedure TformTest.CountryList1Click(Sender: TObject);
begin
  RunCountryListing(Sender);
end;

procedure TformTest.AllOrders1Click(Sender: TObject);
begin
  RunAllOrders(Sender);
end;

procedure TformTest.Exit1Click(Sender: TObject);
begin
  Close;
end;

procedure TformTest.About1Click(Sender: TObject);
var
  ab: TAboutBox;
begin
  ab := TAboutBox.Create(Application);
  ab.ShowModal;
  ab.free;
end;

procedure TformTest.Labels1Click(Sender: TObject);
begin
  RunLabels(Sender);
end;