LOGIN

Delphi

28/06/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

Respostas

Babu

Babu

28/06/2003

:lol:
if EditUsuario.Text = ´´then
begin
ShowMessage(´O Nome do Usuario Esta Incorreto...´);
EditUsuario.setfocus;
inc(Contador);
if Contador = 4 then
begin
Application.Terminate;
end;
end
else
if not QUsuarios.Locate(´Nome´,EditUsuario.text,[]) then
begin
ShowMessage(´O Nome do Usuario Esta Incorreto...´);
EditUsuario.setfocus;
inc(Contador);
if Contador = 4 then
begin
Application.Terminate;
end;
end
else
begin
if QUsuarios.FieldByName(´SENHA´).Text <> EditSenha.text then
begin
ShowMessage(´A Senha Esta Incorreta, Verifique...´);
EditSenha.setfocus;
inc(Contador);
if contador=4 then
begin
Application.Terminate;
end;
end
else
begin
Application.CreateForm(TfrmMenu, frmMenu);
frmMenu.show;
frmSenha.Visible := False;
frmMenu.enabled:=true;
end;
end;
[color=red:989966d235][/color:989966d235][color=darkred:989966d235][/color:989966d235][size=18:989966d235][/size:989966d235]


GOSTEI 0
POSTAR