IBX em arquivo .ini
Colegas..
Alguem teria uma rotina de se conectar ao firebird via arquivo .ini o componente IBX da palheta INTERBASE?
Grato:
Jose Luiz
Jose Medeiros
Curtidas 0
Respostas
Marco Salles
14/07/2010
Eu tenho
Mas e sobre este post aqui
https://www.devmedia.com.br/forum/viewtopic.asp?id=380586
Que fim vc deu para ele ????
GOSTEI 0
Eriley Barbosa
14/07/2010
procedure Tdm.DataModuleCreate(Sender: TObject);
resourcestring
SErroConexao =
'Erro ao conectar-se com o banco de dados.'#13#13'%s'#13#13 +
'Ajuste as configurações no arquivo %s'; const
Secao = 'Banco de Dados';
var
Ini: TIniFile;
ArqIni, Caminho: string;
begin
ArqIni := ChangeFileExt(ParamStr(0), '.ini'); Ini := TIniFile.Create(ArqIni);
try
Caminho := Ini.ReadString(Secao, 'Caminho', ''); if Caminho = '' then
if InputQuery('Banco de Dados', 'Caminho', Caminho) then
Ini.WriteString(Secao, 'Caminho', Caminho)
else
begin
Application.Terminate;
Exit;
end; finally
Ini.Free;
end;
with IBDtbRecibo do
begin
Close;
DatabaseName := Caminho;
try
Connected := True;
except
on E: Exception do
begin
MessageDlg(Format(SErroConexao, [E.Message, ArqIni]),
mtError, [mbOk], 0);
Application.Terminate;
Exit;
end;
end;
end; end; Atenciosamente Eriley
resourcestring
SErroConexao =
'Erro ao conectar-se com o banco de dados.'#13#13'%s'#13#13 +
'Ajuste as configurações no arquivo %s'; const
Secao = 'Banco de Dados';
var
Ini: TIniFile;
ArqIni, Caminho: string;
begin
ArqIni := ChangeFileExt(ParamStr(0), '.ini'); Ini := TIniFile.Create(ArqIni);
try
Caminho := Ini.ReadString(Secao, 'Caminho', ''); if Caminho = '' then
if InputQuery('Banco de Dados', 'Caminho', Caminho) then
Ini.WriteString(Secao, 'Caminho', Caminho)
else
begin
Application.Terminate;
Exit;
end; finally
Ini.Free;
end;
with IBDtbRecibo do
begin
Close;
DatabaseName := Caminho;
try
Connected := True;
except
on E: Exception do
begin
MessageDlg(Format(SErroConexao, [E.Message, ArqIni]),
mtError, [mbOk], 0);
Application.Terminate;
Exit;
end;
end;
end; end; Atenciosamente Eriley
GOSTEI 0
Pedro Saraiva.
14/07/2010
Programa com códigos fontes?
Ola
pessoal, você programador que quer um aplicativo exemplo para fins
comerciais, tenho uma dica, compre o WinPhar que vem com todos os
códigos fontes e faça um programa baseado nele, sim ele também vêm com
todos os componentes para instalar, voce além de ganhar um programa
complidao, ganha tb os seus códigos fontes e seus componentes. O
programa foi desenvolvido em Delphi 7 com banco de dados paradox, e
custa apenas 20,00 reais
deem uma olhadinha ai no produto
http://produto.mercadolivre.com.br/MLB-149256966-winphar-2008-sistema-para-farmacias-e-drogarias-_JM
e ente em contato pelo e-mail pedroluissaraiva@yahoo.com.br.!
deem uma olhadinha ai no produto
http://produto.mercadolivre.com.br/MLB-149256966-winphar-2008-sistema-para-farmacias-e-drogarias-_JM
e ente em contato pelo e-mail pedroluissaraiva@yahoo.com.br.!
GOSTEI 0