unit1.pas

suite component ace report

unit Unit1;
{$X+}

interface

uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls, SctCtrl, SctVar, SctRep, 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;
    SaveDialog1: TSaveDialog;
    DataSource1: TDataSource;
    Table1: TTable;
    svarDateTime: TSctDateTimeVar;
    svarPage: TSctPageVar;
    DataSourceGuide: TSctDataSourceGuide;
    table1LAST_NAME: TSctDBVar;
    table1FIRST_NAME: TSctDBVar;
    table1ACCT_NBR: TSctDBVar;
    table1ADDRESS_1: TSctDBVar;
    table1CITY: TSctDBVar;
    table1STATE: TSctDBVar;
    table1ZIP: TSctDBVar;
    table1TELEPHONE: TSctDBVar;
    table1DATE_OPEN: TSctDBVar;
    table1SS_NUMBER: TSctDBVar;
    table1PICTURE: TSctDBVar;
    table1BIRTH_DATE: TSctDBVar;
    table1RISK_LEVEL: TSctDBVar;
    table1OCCUPATION: TSctDBVar;
    table1OBJECTIVES: TSctDBVar;
    table1INTERESTS: TSctDBVar;
    table1IMAGE: TSctDBVar;
    varlabel: TSctvarlabel;
    TextLabel: TSctTextLabel;
    varlabel1: TSctvarlabel;
    TextLabel1: TSctTextLabel;
    Button1: TButton;
    Sctvarlabel1: TSctvarlabel;
    procedure Button1Click(Sender: TObject);
    procedure DetailBandAfterPrint(Band: TSctBand);
    procedure PageHeaderBandAfterPrint(Band: TSctBand);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
uses ACEUTIL;

{$R *.DFM}

var
  F2: TextFile;

procedure TForm1.Button1Click(Sender: TObject);
var
  ExeCmd: String;
  ExePtr: PChar;
begin
  if SaveDialog1.Execute then begin
      ExeCmd := 'NOTEPAD.EXE ' + SaveDialog1.FileName;
      ExePtr := AceStrToPChar(ExeCmd);
      AssignFile(F2, SaveDialog1.Filename);
      Rewrite(F2);
      SctReport1.Run;
      CloseFile(F2);
      WinExec(ExePtr, SW_SHOWNORMAL);
  end;
end;

procedure TForm1.DetailBandAfterPrint(Band: TSctBand);
begin
  writeln(F2,varlabel.variable.asstring + ' ' + varlabel1.variable.asstring);
end;

procedure TForm1.PageHeaderBandAfterPrint(Band: TSctBand);
begin
  writeln(F2,textlabel.caption + ' ' + textlabel1.caption
    + '     ' + SctVarLabel1.variable.asstring);
  writeln(F2,'-------------');
end;

end.