criar login

Ai vai um exemplo meu com edits que está funcionando

.......
A edit1 pega o nome do usuário e na edit2 ele coloca a senha.
A parte do código abaixo esta em um button de entrada
....
....
erro:=true; // parto da hipótese que existe um erro
if Usuario.findKey([edit1.text]) then begin
if Usuario[´senha´]=edit2.text then erro:=false;
end;
if erro then begin
ShowMessage(´Usuario ou Senha Invalidos´);
Edit2.SetFocus;
exit;
end else begin
....
.... aqui os procedimentos de abertura
tais como anotar o horário que o usuário entrou.
Também o nome da estação de trabalho em que ele está.
Por garantia anoto o IP da máquina e o serial number da HD.
Seria bom controlar as tentativas de entrada com senha ilegal com
os dados acima e bloquear a senha após três tentativas erradas em
um prazo de x minutos.
Quando o usuário sair do sistema é bom anotar isto também.

Boa Sorte

Marconi

Utilize o componente OTLib Security

www.noclop.hpg.ig.com.br/OTLib.html

[]s
Tosta

--------------------------------------------------------------------
não consegui localisar o OTlib qual é o local?