Criar login.

Delphi

28/10/2003

E aí galera, beleza!

Como faço para criar um arquivo com vários registros e depois compara-los com o dado inserido pelo usuário, se já tiver registrado executar uma determinada função?
Como num login, mais ou menos.

Valeu!!


Slynes

Slynes

Curtidas 0

Respostas

Helbert

Helbert

28/10/2003

Slynes faça o seguinte:
Procedure logar(Sender: TObject);
Begin
If Not Table1.FindKey(´Nome do Campo´ , Edit1.Text , []) Then
   Begin
         ShowMessage(´ O usuário ´ + Edit1.Text + ´ não foi encontrado!´ +13+ 
                              ´ Entre em contato com o Administrador do Sistema.´);
         Edit1.Text := SetFocus;
         Exit;
    end;
End;



Caso vc esteja usando Access substitua [color=red:580b34767a]FindKey[/color:580b34767a] por [color=red:580b34767a]Locate[/color:580b34767a]


GOSTEI 0
POSTAR