Problemas na mudança do BDE para ADO.

Delphi

15/08/2003

Tenho o seguinte procedimento para validação de Login e Senha, usando DBE, no entanto estou mudando meu projeto e quero usar ADO no lugar do BDE.
Porém ao substituir as tabelas de BDE pelas do ADO, o procedimento não funcionou mais, pq a tabela do ADO não me oferece a opção [color=blue:13157c8266]FindKey[/color:13157c8266].
O que eu poderia usar no lugar, ou de que outra maneira eu poderia fazer usando o ADO?
Desde já agradeço.

procedure TF_Login.BitBtn1Click(Sender: TObject);
Var
  CONTEUDOSENHA : TStringField ;
begin
 --->  If Not (DM_Modulo.TabLogin.FindKey([Edit1.Text])) Then <---
    Begin
      ShowMessage(´Login recusado, usuário(a) não cadastrado(a)...´) ;
      Edit1.SetFocus ;
      Exit ;
    End ;
  CONTEUDOSENHA := DM_Modulo.TabLogin.FindField(´Senha´) as TStringField ;
  Encrypt(Edit2.Text);
  If (CONTEUDOSENHA.Value <> Edit2.Text) Then
    Begin
      ShowMessage(´Login recusado, senha inválida...              ´) ;
      Edit2.SetFocus ;
      Exit ;
    End ;
  if  ((DM_Modulo.TabLoginLogin.Value = Edit1.Text) and (DM_Modulo.TabLoginSenha.Value = Edit2.Text)) then
      begin
      F_Menu.Enabled:=True;
      F_Menu.LinhaStatus.Panels[1].Text:=(´ Logado como: ´+ Edit1.Text);
      end;
        F_Login.Release ;
end;



Helbert

Helbert

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

15/08/2003

Colega,

Ou vc utiliza o método locate ou faz uma query.


GOSTEI 0
Ronanz

Ronanz

15/08/2003

Faça com o LOCATE

procedure TF_Login.BitBtn1Click(Sender: TObject);
begin
If Not DM_Modulo.TabLogin.locate(´NOMECAMPO´,Edit1.Text,[]) Then
Begin
ShowMessage(´Login recusado, usuário(a) não cadastrado(a)...´) ;
Edit1.SetFocus ;
Exit ;
end;

Ou faça por uma AdoQuery como citou nosso amigo Aroldo
Espero ter ajudado;


GOSTEI 0
POSTAR