Conexões dinâmicas ao Banco de Dados

Como ter um arquivo que guarda as configurações para acesso aos bancos de dados Firebird/Interbase.

Para que seja possível configurar os parâmetros de conexão ao banco de dados, depois da instalação no usuário, faz-se necessária a criação de um formulário que tornará a configuração dinâmica. Pense que o usuário não precisa ou não deve ter o banco localizado no mesmo diretório que você.

OBS.: Esse artigo parte do pressuposto que você já tem instalado o componente VCLSkin (SkinData). Se ainda não tem, clique aqui e veja o artigo de como instalar e utilizar.

Comece baixando o formulário clicando aqui.

Descompacte, copie para o diretório de sua aplicação a adicione ao projeto (Add file to project).

No evento OnShow do Formulário principal, antes de chamar a tela de senha, coloque o seguinte código:

Var

  Arquivo : TextFile;

  Linha : String;

begin

     AssignFile(Arquivo, ExtractFilePath(Application.ExeName)+'Configuracoes.txt');

     {$i-}

     Reset(Arquivo);

     {$i+}

     if (IOResult = 0) then

     begin

      //Dados.Banco.Connected:=False;

      Dados.Banco.ConnectionName:='Sistema';

      Dados.Banco.Params.Clear;

      Dados.Banco.Params.Add('DriverName=Interbase');

      Readln(Arquivo, Linha);

      Dados.Banco.Params.Add('DataBase='+Linha);

      Readln(Arquivo, Linha);

      Dados.Banco.Params.Add('User_Name='+frmConfigura.Descripta(Linha));

      Readln(Arquivo, Linha);

      Dados.Banco.Params.Add('password='+frmConfigura.Descripta(Linha));

      Readln(Arquivo, Linha);

      Dados.Banco.Params.Add('SQLDialect=3');

      Dados.Banco.Params.Add('CommitRetain=False');

      Dados.Banco.Params.Add('WaitOnLocks=True');

      Dados.Banco.Params.Add('LocaleCode=0000');

      Dados.Banco.Params.Add('Interbase TransIsolation=ReadCommited');

      Dados.Banco.Params.Add('Trim Char=False');

      frmConfigura.SkinData1.SkinFile := Linha;

      if not frmConfigura.SkinData1.Active Then frmConfigura.SkinData1.Active := True;

      CloseFile(Arquivo);

      Try

        Dados.Banco.Connected:=True;

      Except

      begin

        MessageDlg('Servidor de Banco de Dados FORA DO AR!'+#13+

        'Para trocar de servidor apague o arquivo Configuracoes.txt', mtError, [mbOk], 0);

        Application.Terminate;

      end;

      end;

     end

     Else

     begin

        frmConfigura.btnCancelar.Enabled:=False;

        frmConfigura.ShowModal;

     end;

Na primeira vez que você entrar na aplicação, deve aparecer a tela de configuração, onde deverá ser informado o caminho do banco de dados, o usuário e senha. Isso será criptografado e salvo em um arquivo com o nome de Configuracoes.txt no diretório da aplicação.

Você também deverá copiar as Peles (skins) para um diretório de nome skins, localizado dentro do diretório da aplicação.

Além de configurar a conexão com o banco, o arquivo guarda a aparência escolhida pelo próprio usuário.