Deplhi

[ropesca]

Como fazer para fazer um LOGIN de senha e usuário usando uma tabela paradox ?

Rodrigo! ???

[Visitante]

E aí, tudo bom?

Olha, eu fiz um programinha simples um tempo atrás que usava um login pedindo para entrar com senha e usuário. Eu vou colocar aqui o comando que verificava login e senha. Caso não seja isso que você queira, entre em contato comigo pelo e-mail [email protected] para eu tentar te ajudar.

Bom, primeiro eu criei o formulário de login e duas tabelas, depois eu coloquei o seguinte código:

procedure TfrmLogin.BitBtnOk(Sender: TObject);

begin

   {verifica se senha é igual ao que está na tabela, se for abre o formulário KeepIt}

   if (Table1.Locate('Login',Edit1.Text,[])) and (Table2.Locate('Senha',Edit2.Text,[])) then

   begin

       frmKeepIt.Show;

       frmLogin.Hide;

   end

   else

   begin

       ShowMessage('Login ou senha inválida!');

       Edit1.Clear;

       edit2.Clear;

       edit1.SetFocus;

   end;

end;

OBS: Para finalizar o programa você coloca o comando application.terminate no evento Onclose do formulario principal.

Espero ter ajudado!