{ DISQLite3 example project showing how to use FastReport with DISQLite3.
  Developed and tested with FastReport 4 Demo.

  Visit the DISQLite3 Internet site for latest information and updates:

    http://www.yunqa.de

  Copyright (c) 2005-2021 Ralf Junker, Yunqa <delphi@yunqa.de>

------------------------------------------------------------------------------ }

unit DISQLite3_FastReport_frmMain;

{$I DICompilers.inc}
{$I DISQLite3.inc}

interface

uses
  {$IFDEF HAS_UNITSCOPE}
  System.Classes, Vcl.Controls, Vcl.StdCtrls, Vcl.Forms, Data.DB,
  {$ELSE HAS_UNITSCOPE}
  Classes, Controls, StdCtrls, Forms, DB,
  {$ENDIF HAS_UNITSCOPE}
  DISQLite3DataSet, DISQLite3Database,
  frxClass, frxDBSet, frxDesgn, frxPreview;

type
  TForm1 = class(TForm)
    DISQLite3Database: TDISQLite3Database;
    DISQLite3UniDirQuery: TDISQLite3UniDirQuery;
    frxReport: TfrxReport;
    frxDBDataset: TfrxDBDataset;
    frxPreview: TfrxPreview;
    DISQLite3UniDirQueryName: TDISQLite3WideStringField;
    DISQLite3UniDirQueryBackground: TDISQLite3WideStringField;
    DISQLite3UniDirQueryArea: TLargeIntField;
    DISQLite3UniDirQueryPopulation: TLargeIntField;
    DISQLite3UniDirQueryBirthRate: TFloatField;
    DISQLite3UniDirQueryLifeExpectancy: TFloatField;
    DISQLite3UniDirQueryFlag: TBlobField;
    procedure FormCreate(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  frxReport.ShowReport;
end;

end.

