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,
  AcePage, Menus, HtmlUtil ;

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;
    varlabel2: TSctvarlabel;
    varlabel3: TSctvarlabel;
    PageHeaderBandSub: TSctSubBand;
    Sctvarlabel1: TSctvarlabel;
    Sctvarlabel2: TSctvarlabel;
    Sctvarlabel3: TSctvarlabel;
    Sctvarlabel4: TSctvarlabel;
    Sctvarlabel5: TSctvarlabel;
    Sctvarlabel6: TSctvarlabel;
    SctReport2: TSctReport;
    ReportPage1: TSctGrouppage;
    ReportHeaderBand1: TSctBand;
    ReportHeaderBand1level: TSctLevel;
    PageHeaderBand1: TSctBand;
    PageHeaderBand1level: TSctLevel;
    DetailBand1: TSctBand;
    DetailBand1level: TSctLevel;
    PageFooterBand1: TSctBand;
    PageFooterBand1level: TSctLevel;
    ReportFooterBand1: TSctBand;
    ReportFooterBand1level: TSctLevel;
    DataSource2: TDataSource;
    Table2: TTable;
    svarDateTime1: TSctDateTimeVar;
    svarPage1: TSctPageVar;
    DataSourceGuide2: TSctDataSourceGuide;
    table2Species_NoVar: TSctDBVar;
    table2CategoryVar: TSctDBVar;
    table2Common_NameVar: TSctDBVar;
    table2Species_NameVar: TSctDBVar;
    table2Length__cm_Var: TSctDBVar;
    table2Length_InVar: TSctDBVar;
    table2NotesVar: TSctDBVar;
    table2GraphicVar: TSctDBVar;
    varlabel4: TSctvarlabel;
    varlabel5: TSctvarlabel;
    varlabel6: TSctvarlabel;
    Button2: TButton;
    varlabel8: TSctvarlabel;
    varlabel9: TSctvarlabel;
    varlabel10: TSctvarlabel;
    ImageLabel: TSctImageLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }

  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses ACEUTIL, ShellApi;

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
 // if SaveDialog1.Execute then begin
    MyHtmlRun(SaveDialog1.Filename,SctReport2);
//    SctReport1.Run;
//    MyHtmlEnd();
    {Launch the default browser to display the HTML file we just created}
    ShellExecute(Application.Handle, nil, PChar(SaveDialog1.FileName), nil, nil,
                 SW_SHOWNOACTIVATE);
 // end;
end;

end.