unit DataModule;

interface

uses
  SysUtils, Classes, SqlExpr, FMTBcd, DBClient,
  Provider, WideStrings, DB;

type
  TDM = class(TDataModule)
    SQLDataSet_Schema: TSQLDataSet;
    DataSetProvider: TDataSetProvider;
    ClientDataSet: TClientDataSet;
    ds: TDataSource;
    SQLConnection: TSQLConnection;
    SQLDataSet: TSQLDataSet;
    procedure DataModuleCreate(Sender: TObject);
    procedure DataModuleDestroy(Sender: TObject);

  private

  public

  end;

var
  DM: TDM;

implementation
{$R *.dfm}
{------------------------------------------------------------------------------}
procedure TDM.DataModuleCreate(Sender: TObject);
begin
   SQLConnection.Connected := True;
end;

procedure TDM.DataModuleDestroy(Sender: TObject);
begin
   SQLConnection.Connected := False;
end;

end.
