Sumário - Índice

Exemplo de uso

// aqui a tabela de usuários é aberta
procedure TForm1.EvPasswordOnBeforeInput(Sender: TObject);
begin
  TableUsuarios.Open;
end;

// aqui é feita a verificação do que foi digitado pelo usuário
procedure TForm1.EvPasswordOnValidade(Sender: TObject; UserName,
  Password: string; var Valid: Boolean)
begin
  if TableUsuarios.FindKey([UserName]) then
    Valid := TableUsuariosSenha.AsString = Password;
end;

// aqui a tabela é fechada
procedure TForm1.EvPasswordOnAfterInput(Sender: TObject);
begin
  TableUsuarios.Close;
end;