LOGIN

Delphi

15/07/2003

Aew pessoal, tenho a seguinte rotina para fazer LOGIN de usuarios no meu programa:

if table1.locate(´campo de usuario´,edit1.text,[]) and (table1senha.value=edit2.text) then
Begin
abre o sistema
end
else
begin
showmessage(´usuário ou senha incorretos´);
end;

Estou fazendo um programa CLIENTE/SERVIDOR que se conectam em maquinas remotas, e gostaria que este codigo acima, no momento que eu conectasse o CLIENTE no SERVIDOR, o SERVIDOR pedisse com este codigo a senha cadastrada.

Como fazer isso ?

Espero que possam me ajudar e agradeço desde já,
Rodrigo


Ropesca

Ropesca

Curtidas 0
POSTAR