Como criar uma classe de conexão a bancos de dados para suas aplicações Delphi usando dbExpress

unit Unit1;

interface

implementation

end.

unit Conexao;

interface

uses Classes, Dialogs, SqlExpr, DBXCommon;

type
  TConexao = class
    private
      conn: TSQLConnection; // uma referência a um TSQLConnection

    public
      // construtor da classe
      constructor Create;

      // uma função que retorna a conexão com o banco de dados
      function getConexao: TSQLConnection;
  end;

implementation

constructor TConexao.Create;
begin
  // vamos criar a conexão com o banco de dados
  conn := TSQLConnection.Create(nil);

  // vamos definir os parâmetros da conexão...note que
  // aqui estou usando uma conexão com o MS SQL Server usando
  // Windows Authentication
  begin
    conn.ConnectionName := 'MSSQLConnection';
    conn.DriverName := 'MSSQL';
    conn.LibraryName := 'dbxmss.dll';
    conn.VendorLib := 'oledb';
    conn.GetDriverFunc := 'getSQLDriverMSSQL';
    conn.LoginPrompt := False;

    // parâmetros adicionais da conexão
    conn.Params.Add('SchemaOverride=sa.dbo');
    conn.Params.Add('HostName=NOTEBOOK');
    conn.Params.Add('DataBase=estudos');
    conn.Params.Add('OS Authentication=True');

    // vamos abrir a conexão
    try
      begin
        conn.Open;
      end;
    except
      on e : TDBXError do // uses DBXCommon
         begin
           ShowMessage('Não foi possível efetuar a conexão. Erro: ' +
              e.Message);
           conn := nil;
         end;
    end;
  end;
end;

function TConexao.getConexao;
begin
  // retorna a conexão criada
  Result := conn;
end;

end.

procedure TForm3.Button1Click(Sender: TObject);
var
  conexao: TConexao; // uma referência à classe Conexao
  conn: TSQLConnection; // uses SqlExpr, DBXMsSQL, DBXCommon
begin
  conexao := TConexao.Create; // vamos criar o objeto Conexao

  // vamos agora obter a conexão
  conn := conexao.getConexao;

  // vamos verificar se a conexão foi efetuada com sucesso
  if conn <> nil then
    ShowMessage('Conexão retornada com sucesso.');
end;