Buscar por:

Procedimento para confirmação de senha

Código

{Aqui neste procedimento ele vai conferir se vc esta ciente da senha que vc esta colocando, nde se tem uma segunda cx de texto pedindo para vc digitar de novo a senha par a ver se coloca a mesma }

(* EditConfirma é a cx de texto para confirmação, DBEEdit a cx de texto que estará ligado ao campo senha do BD.*)

{Aqui neste procedimento ele vai conferir se vc esta ciente da senha que vc esta colocando, nde se tem uma segunda cx de texto pedindo para vc digitar de novo a senha par a ver se coloca a mesma }

(* EditConfirma é a cx de texto para confirmação, DBEEdit a cx de texto que estará ligado ao campo senha do BD.*)

procedure TFrmCadSupervisor.EditConfirmaExit(Sender: TObject);//Evento ao Sair da Cx de Confirmação

var conf:string; //Variavel Caixa onde digita a confirmação

begin

conf:= EditConfirma.Text;// Declarando que a var é igual a cx de confirmação

If conf <> DBEditSenha.Text then //confirmando se o usuário digitou a mesma senha antes de salvar

       begin

       Application.MessageBox('Senha não confirmada! Tente novamente.','ERRO NA CONFIRMAÇÂO',MB_OK + MB_ICONERROR);

       Abort;//Aborta 

       DBEditSenha.Clear;//Apaga o campo senha

       EditConfirma.Clear;//Apaga o campo Confirmação

       DBEditSenha.SetFocus;

end;

end;