Buscar por:

PostgreSQL - Classe TConexao

Código

unit unTConexao;

interface

uses ZConnection, ZDbcIntfs;

type

TConexao = class

public

Conexao: TZConnection;

constructor create;

end;

implementation

{ TConexao }

constructor TConexao.create;

begin

Conexao := TZConnection.Create(NIL);

Conexao.Database := 'Estoques';

Conexao.HostName := '127.0.0.1';

Conexao.LoginPrompt := False;

Conexao.Password := '9976543';

Conexao.Port := 5432;

Conexao.Protocol := 'postgresql-7.3';

Conexao.SQLHourGlass := True;

Conexao.User := 'postgres';

Conexao.TransactIsolationLevel := tiReadCommitted;

Conexao.Connected := True;

end;

end. 

____

Meu Blog pessoal: http://bloggersdelphi.blogspot.com