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.