conexaodb.pas

unit conexaoDB;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, sqldb, pqconnection, FileUtil, Forms, Controls, Graphics,
  Dialogs;

type

  { TDB }

  TDB = class(TForm)
    PQConnection1: TPQConnection;
    SQLQuery1: TSQLQuery;
    SQLTransaction1: TSQLTransaction;


  private
    { private declarations }
  public
    { public declarations }
  end;

var
  DB: TDB;

implementation

{$R *.lfm}
 uses telaInicial;
{ TDB }


end.