P Verificar Conexão

Delphi

27/06/2006

Quero Fazer uma tela de login que verifique a conexão. eu tentei assim:


Try
ADOConnection1.Connected := True;
ADOConnection1.Open;
Except
end;

If
ADOConnection1.Connected = True then
begin
PanLogin1.Visible := True;
PanLogin2.Visible := True;
ImgLogin.Visible := True;
lblLogin.Visible := True;
txtLogin.Visible := True;
btnLogin.Visible := True;
end

else begin
PanFalha1.Visible := True;
PanFalha2.Visible := True;
ImgFalha.Visible := True;
lblFalha.Visible:= True;
end


Quando a conexão ta ativa. ok funciona, mas quando n tá da erro.

o que eu poderia fazer??


Tiago_hs

Tiago_hs

Curtidas 0

Respostas

Paullsoftware

Paullsoftware

27/06/2006

acho que vc deveria somente mudar a forma de sequencia do seu código:
Try 
ADOConnection1.Open; 
If ADOConnection1.Connected then 
begin 
PanLogin1.Visible := True; 
PanLogin2.Visible := True; 
ImgLogin.Visible := True; 
lblLogin.Visible := True; 
txtLogin.Visible := True; 
btnLogin.Visible := True; 
end 
else begin 
PanFalha1.Visible := True; 
PanFalha2.Visible := True; 
ImgFalha.Visible := True; 
lblFalha.Visible:= True; 
end
Except 
raise Exception.Create(´Erro ao Conectar´);
end;

espero ter ajudado! :wink:


GOSTEI 0
POSTAR