unit1.pas

suite component ace report

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    DataSource1: TDataSource;
    Table1: TTable;
    DataSource2: TDataSource;
    Query1: TQuery;
    SctReport1: TSctReport;
    ReportPage: TSctGrouppage;
    ReportHeaderBand: TSctBand;
    ReportHeaderBandlevel: TSctLevel;
    PageHeaderBand: TSctBand;
    PageHeaderBandlevel: TSctLevel;
    DetailBand: TSctBand;
    DetailBandlevel: TSctLevel;
    PageFooterBand: TSctBand;
    PageFooterBandlevel: TSctLevel;
    ReportFooterBand: TSctBand;
    ReportFooterBandlevel: TSctLevel;
    svarDateTime: TSctDateTimeVar;
    svarPage: TSctPageVar;
    DataSourceGuide: TSctDataSourceGuide;
    DataSourceGuide1: TSctDataSourceGuide;
    table1ACCT_NBR: TSctDBVar;
    table1SYMBOL: TSctDBVar;
    table1SHARES: TSctDBVar;
    table1PUR_PRICE: TSctDBVar;
    table1PUR_DATE: TSctDBVar;
    query1ACCT_NBR: TSctDBVar;
    query1QTY: TSctDBVar;
    query1CNT: TSctDBVar;
    Data: TSctSubDataBand;
    Datalevel: TSctLevel;
    ExpAverage: TSctExprVar;
    ExpVariance: TSctExprVar;
    ExpVarSq: TSctExprVar;
    TotalOfExpVariance: TSctTotalvar;
    TotalOfExpVarSq: TSctTotalvar;
    ExpStdDev: TSctExprVar;
    DataFoot: TSctDataFootBand;
    DataFootlevel: TSctLevel;
    varlabel: TSctvarlabel;
    TextLabel: TSctTextLabel;
    varlabel1: TSctvarlabel;
    TextLabel1: TSctTextLabel;
    varlabel2: TSctvarlabel;
    TextLabel2: TSctTextLabel;
    TotalOfSHARES: TSctTotalvar;
    DataHead: TSctDataHeadBand;
    DataHeadlevel: TSctLevel;
    varlabel3: TSctvarlabel;
    TextLabel3: TSctTextLabel;
    varlabel4: TSctvarlabel;
    TextLabel4: TSctTextLabel;
    varlabel5: TSctvarlabel;
    TextLabel5: TSctTextLabel;
    varlabel6: TSctvarlabel;
    TextLabel6: TSctTextLabel;
    varlabel7: TSctvarlabel;
    TextLabel7: TSctTextLabel;
    varlabel8: TSctvarlabel;
    TextLabel8: TSctTextLabel;
    Sctvarlabel1: TSctvarlabel;
    SctTextLabel1: TSctTextLabel;
    TotalvarLabel: TSctTotalvarLabel;
    TotalvarLabel1: TSctTotalvarLabel;
    TotalvarLabel2: TSctTotalvarLabel;
    Sctvarlabel2: TSctvarlabel;
    SctTextLabel2: TSctTextLabel;
    SctReportButton1: TSctReportButton;
    Sctvarlabel3: TSctvarlabel;
    SctTextLabel3: TSctTextLabel;
    procedure ExpAverageGetData(oVar: TSctVar);
    procedure ExpVarianceGetData(oVar: TSctVar);
    procedure ExpVarSqGetData(oVar: TSctVar);
    procedure ExpStdDevGetData(oVar: TSctVar);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
uses sctdata;

{$R *.DFM}

procedure TForm1.ExpAverageGetData(oVar: TSctVar);
begin
  oVar.AsFloat := query1Qty.AsFloat / Query1Cnt.AsFloat;
end;

procedure TForm1.ExpVarianceGetData(oVar: TSctVar);
begin
  oVar.AsFloat := table1Shares.AsFloat - ExpAverage.AsFloat;
  if oVar.AsFloat < 0 then oVar.AsFloat := -1 * oVar.AsFloat;
end;

procedure TForm1.ExpVarSqGetData(oVar: TSctVar);
begin
  oVar.AsFloat := ExpVariance.AsFloat * ExpVariance.AsFloat;
end;

procedure TForm1.ExpStdDevGetData(oVar: TSctVar);
begin
  oVar.AsFloat := Sqrt(TotalOfExpVarSq.GetLevel(DataFootLevel,ttSum).AsFloat);
end;

end.