Fabrício Desbessel
Delphiano de coração
Clube Delphi
 Downloads | Mapa do Site | 106 visitantes on-line 


 Login
   
    
 Lembrar de mim
Esqueceu sua senha?

 MENU
 :: Inicial
 :: Currículo
 :: Lições
 :: Contato
 :: Delphi
 :: Publicações
 :: Livros
 :: Lattes
 :: Projetos

 Buscar no site
  

 Ajuda...


 Clube Delphi


 Busca Google

  
 Delphi - 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ê.

Veja a figura abaixo:

 

 

 

 

 

 

 

 

 

 

 

 


 

 

OBS.: Esse artigo parte do pressuposto que você já tem instalado o componente VCLSkin (SkinData)

Comece baixando o formulário no link:
http://www.fabricio.pro.br/redirect.asp?id=14&type=dw

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 devera 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.


 
 Edição Atual

Edição Atual


 Aprendizagem

Para você que quer aprender SQL, abaixo tem o link para um Objeto de Aprendizagem (OA) sobre o assunto.

Aprendendo SQL


 Frases
"No meio de qualquer dificuldade encontra-se a oportunidade."
Albert Einstein

 Arquivo
 :: Acessando o Firebird através do Excel  
 :: Dar um pouco de amor incentiva muito as outras pessoas a fazerem o mesmo 
 :: Super produção da minha KX250F 
 :: Retorno a FAHOR/CFJL 
 :: O que você quer ser quando crescer? 
 :: Como a vida ensina 
 :: Delphi Conference 2010 - Uma certa indignação... 
 :: RadPHP XE o novo Delphi for PHP 
 :: Delphi - Tratando erros de banco de dados 
 :: Delphi - Tratando erros de sistemas 
 :: Delphi - Uilizando o Enter ao invés do TAB em projetos CLX 
 :: Delphi 2009 
 :: Crie uma loja virtual com Delphi for PHP - Parte XII 
 :: Crie uma loja virtual com Delphi for PHP - Parte XI 
 :: Crie uma loja virtual com Delphi for PHP - Parte X 
 :: Delphi - Como fazer o enter disparar um Click de um botão 
 :: Crie uma loja virtual com Delphi for PHP - Parte IX 
 :: Crie uma loja virtual com Delphi for PHP - Parte VIII 
 :: Crie uma loja virtual com Delphi for PHP - Parte VII 
 :: Delphi - Validando CNPJ 
 :: Crie uma loja virtual com Delphi for PHP - Parte VI 
 :: Crie uma loja virtual com Delphi for PHP - Parte V 
 :: Crie uma loja virtual com Delphi for PHP - Parte IV 
 :: Crie uma loja virtual com Delphi for PHP - Parte III 
 :: Encontro de Craques 
 :: Crie uma loja virtual com Delphi for PHP - Parte II 
 :: Você é Hands on? 
 :: Crie uma loja virtual com Delphi for PHP - Parte I 
 :: Autenticação no Delphi for PHP - Parte IV 
 :: Autenticação no Delphi for PHP - Parte III 
 :: Autenticação no Delphi for PHP - Parte II 
 :: Autenticação no Delphi for PHP - Parte I 
 :: Cá entre nós... – Horizontina e os horizontinenses 
 :: Window (Janelas) no Delphi For PHP 
 :: Nada substitui o Talento 
 :: MainMenu no Delphi For PHP 
 :: Aplicações MySQL com Delphi for PHP - Parte VII 
 :: Aplicações MySQL com Delphi for PHP - Parte VI 
 :: Delphi - Conexões dinâmicas ao Banco de Dados 
 :: Mundo Corporativo - A história da formiga 
 :: Aplicações MySQL com Delphi for PHP - Parte V 
 :: Impedir os cadastros em duplicidade 
 :: Aplicações MySQL com Delphi for PHP - Parte IV 
 :: Aplicações MySQL com Delphi for PHP - Parte III 
 :: Aplicações MySQL com Delphi for PHP - Parte II 
 :: Aplicações MySQL com Delphi for PHP - Parte I 
 :: Gráficos no Delphi II 
 :: Gráficos no Delphi I 
 :: Delphi For PHP 
 :: Delphi - Relatórios com Quick Report - Parte VI 
 :: Delphi - Relatórios com Quick Report - Parte V 
 :: Delphi Tour 
 :: Delphi - Relatórios com Quick Report - Parte IV 
 :: Delphi - Relatórios com Quick Report - Parte III 
 :: Delphi - CodeGear anuncia Delphi 2007 
 :: Delphi - CodeGear anuncia Delphi for PHP 
 :: Delphi - Relatórios com Quick Report - Parte II 
 :: Delphi - Relatórios com Quick Report - Parte I 
 :: Delphi - Mestre/Detail com dbExpress 
 :: Delphi - Iniciando a utilização da Tecnologia Ajax - Parte V 
 :: Delphi - Iniciando a utilização da Tecnologia Ajax - Parte IV 
 :: Delphi - Iniciando a utilização da Tecnologia Ajax - Parte III 
 :: Delphi - Iniciando a utilização da Tecnologia Ajax - Parte II 
 :: Delphi - Iniciando a utilização da Tecnologia Ajax - Parte I 
 :: Delphi - Wizards para criação de banco de dados no Delphi 7 
 :: Delphi - Trabalhando com o Database Desktop 
 :: Delphi - Validando CPF 
 :: Delphi - Colocando Backup e Restauração em Sistemas com Firebird ou Interbase 
 :: Delphi - Artigo publicado na Revista ClubeDelphi 
 :: Palestrante na Borcon 
 :: Calculando o "Custo Brasil" em um PC 
 :: Delphi - Aplicações Web com Webbroker - Parte V 
 :: Políticos Honestos 
 :: Delphi - Aplicações Web com Webbroker - Parte IV 
 :: Delphi - Artigo publicado na revista Clube Delphi 
 :: Delphi - Aplicações Web com Webbroker - Parte III 
 :: Delphi - Artigo publicado na revista Clube Delphi 
 :: Delphi - Aplicações Web com Webbroker - Parte II 
 :: Delphi - Aplicações Web com Webbroker - Parte I 
 :: Delphi - Instalando o QuickReport no Delphi 7 
 :: Delphi - DLL's com formulários 
 :: Delphi - DLLs! Porque e Como utilizar 
 :: Delphi - Montando telas de cadastro dinamicamente 
 :: Delphi - Executando vídeo no Delphi através do ActiveX do Windows Media Player 
 :: Delphi - Listando arquivos de um diretório 
 :: Delphi - Como criar arquivos de Help com softwares gratuitos 
 :: Delphi - Consumindo RSS de notícias em .Net 
 :: Delphi - Criando uma instalação profissional para sua aplicação utilizando o InstallShield  
 :: Comissão Editorial da Revista Clube Delphi 
 :: Lançamento do Sistema SAS 
 :: Colunista ClubeDelphi 
 :: Delphi - Não perder dados com uma queda de energia 
 :: Delphi - Colocando a opção de configurar impressão 
 :: Delphi - Traduzindo as mensagens de erro 
 :: Exemplo de Persistência 
 :: Delphi - Colocando Backup em sistemas com tabelas Paradox 
 :: Delphi - Uilizando o Enter ao invés do TAB 
 :: Delphi - Deixando seus sistemas muito mais bonitos 
 :: Delphi - Impedir o fechamento da tela com ALT+F4 
 :: Delphi 2005 
 :: Delphi - Tela de Consultas Personalizáveis 
 ::  Delphi - Gerar planilhas do excel através de uma consulta (Query) 
 :: Delphi - Telas de Apresentação 
 :: Delphi - Filtrando Tabelas 

Fabrício Desbessel - É permitida a reprodução de qualquer material desse site desde que seja citada a fonte.