[delphi-br] Passagem de parâmetros em aplicação n-camada

Tue, 22 Sep 2009 05:08:09 -0700 

Bom dia a todos

Tenho uma aplicação n-camada, na camada de acesso a dados preciso fazer uma 
conexão a mais de um banco de dados sendo que a escolha do banco deve ser feita 
na camada de apresentação da aplicação.

Banco: postgres
Componente de Conexao : Zeos

Se fosse uma aplicação comum, eu faria desta forma:
procedure TfrmConexao.btnConectarClick(Sender: TObject);
begin
 zqDados.Close;
 ZConne.Connected := False;
 if RadioGroup1.ItemIndex = 0 then
  begin
    ShowMessage('conectando a loja 01');
    ZConne.HostName    := 'localhost';
    ZConne.Database    := 'NomeBanco';
        ZConne.User        := 'postgres';
        ZConne.Password    := 'root';
    ZConne.LoginPrompt := False;
    ZConne.Connected:= True;
    ShowMessage('Conexão com sucesso loja 01!!');
    zqDados.Open;
  end;
  //
 if RadioGroup1.ItemIndex = 1 then
  begin
    ShowMessage('conectando a loja 02');
    ZConne.HostName    := localhost;
    ZConne.Database    := 'NomeBanco';
        ZConne.User        := 'postgres';
        ZConne.Password    := '';
    ZConne.LoginPrompt := False;
    ZConne.Connected:= True;
    ShowMessage('Conexão com sucesso loja 02!!');
    zqDados.Open;
  end;
end;

Como eu conseguiria passar isso como parâmetros.
Agradeço se alguém poder ajudar!!

Att. Crist

Responder a