unit DataModule;

interface

uses
  SysUtils, Classes, DB, Forms,
  ADODB, DBXpress, SqlExpr, FMTBcd, WideStrings;

type
  TDM = class(TDataModule)
    SQLConnection: TSQLConnection;
    procedure DataModuleCreate(Sender: TObject);
    procedure DataModuleDestroy(Sender: TObject);
  private

  public

  end;

var
  DM: TDM;

implementation
{$R *.dfm}
{------------------------------------------------------------------------------}
procedure TDM.DataModuleCreate(Sender: TObject);
var
	idx : Integer;
   ss  : String;

begin
   SQLConnection.Connected := false;


   // parametry połączenia
   // można ustawić w następujący sposób
   // klikamy na komponencie TSQLConnection, prawym przyciekiem myszy
   //  i wybieramy
   // Edit Connection Properties

   try
	   SQLConnection.Connected := True;
	except
   	raise;
      Application.Terminate();
   end;
end;

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

end.
