Ajuda em trocar senha

Question

Ol� , gostaria de uma ajuda na hora de trocar senha , quando eu clico para trocar senha , ele diz que n�o � poss�vel salvar e as vezes pede o campo c�digo(Quando coloco QueryTrocaSenha.edit) , algo qu...

Alisson Santos · Answer

Amigo o ideal � fazer um update na tabela, pois o jeito que est� fazendo est� errado mesmo, pois n�o est� dando um update.
poderia fazer dessa maneira. So lembrando que tem que colocar dentro de uma transa��o, agora se quiser criar uma store procedure para fazer isso fica ao crit�rio.

QueryTrocaSenha.Close;
QueryTrocaSenha.SQL.Clear;
QueryTrocaSenha.SQL.Add('SELECT * FROM USUARIOS WHERE SENHA_USUARIO = :PRM_SenhaUsuA');
QueryTrocaSenha.ParamByName('PRM_SenhaUsuA').AsString := edtSenhaAntiga.text;
QueryTrocaSenha.Open;
if (QueryTrocaSenha.RecordCount) = 1 then
begin
If (edNovaSenha.text = edtConfirmaNvSenha.Text) then
begin
QueryTrocaSenha.sql.add('update usuarios set senha = ' + edtConfirmaNvSenha.Text);
QueryTrocaSenha.sql.add('where cd_usu�rio = ' + parametro do usu�rio);
Self.Close;
MessageDlg('Senha Modificada com sucesso!',mtConfirmation,[mbOK],0);
end else
begin

Ol� , gostaria de uma ajuda na hora de trocar senha , quando eu clico para trocar senha , ele diz que n�o � poss�vel salvar e as vezes pede o campo c�digo(Quando coloco QueryTrocaSenha.edit) , algo que ja tem , eu quero s� trocar senha e manter os dados antigos, no programa est� estas linhas de c�digo:

   QueryTrocaSenha.Close;
   QueryTrocaSenha.SQL.Clear;
   QueryTrocaSenha.SQL.Add('SELECT * FROM USUARIOS WHERE SENHA_USUARIO = :PRM_SenhaUsuA');
   QueryTrocaSenha.ParamByName('PRM_SenhaUsuA').AsString := edtSenhaAntiga.text;
   QueryTrocaSenha.Open;
     if (QueryTrocaSenha.RecordCount) = 1 then
     begin
          If (edNovaSenha.text = edtConfirmaNvSenha.Text) then
          begin
            QueryTrocaSenha.FieldByName('SENHA_USUARIO').Value := edtConfirmaNvSenha.Text;
            QueryTrocaSenha.ParamByName('PRM_SenhaUsuA').AsString := edtConfirmaNvSenha.text;
            QueryTrocaSenha.Post;
            Self.Close;
            MessageDlg('Senha Modificada com sucesso!',mtConfirmation,[mbOK],0);
          end else
         begin
               MessageDlg('Verifique se os campos de nova senha conferem!',mtError,[mbOK],0);
              edtConfirmaNvSenha.SetFocus;
          end;
     end else
     begin
          Application.MessageBox('Senha antiga n�o confere!', 'Alerta', mb_Ok+
          mb_IconExclamation);
          edtSenhaAntiga.SetFocus;
     end;


end;

Jonathan Romeiro · Answer

Fiz o que dissestes , mas � como se nada ocorresse fui no IBexpert e continuou a antiga senha....

Gilvanio Gon�alves · Answer

Jonathan, Onde vc esta usando este codigo em um bot�o, certo?

onde tem a string PRM_SenhaUsuA , � uma variavel?ou campo na tabela?

se for uma variavel como vc declara ela? onde vc declara, qual o valor?

vc tres edits. edtisenhaantiga,editnovasenha, editconfirmanovasenha.

Aqui :

QueryTrocaSenha.ParamByName('PRM_SenhaUsuA').AsString := edtSenhaAntiga.text;

vc diz no codigo que parametroname(prm_senhaUsuaA) � igual edtsenhaantiga
ou seja vc carrega a senha antiga do banco para este edit, como?

poste o codigo onde declara PRM_SenhaUsuA.
que vou ajustar o seu codigo,ok.

Alisson Santos · Answer

Amigo, tentou executar no ibexpert o update.Execute primeiramente o update e verifica se vai funcionar, caso n�o faz os acertos necess�rios e depois coloca no seu c�digo....

Jonathan Romeiro · Answer

Gilvanio � uma vari�vel ou melhor um par�metro do fb que eu utilizo para receber os arquivos do edit, outra onde voc� citou como code � onde o par�metro � declarado....

Jonathan Romeiro · Answer

Tentei no ibexpert e tamb�m n�o funcionou....

Gilvanio Gon�alves · Answer

entendi, vc usa o parametro levando o valor para o edit no caso acredito a senha atual do usuario,veja b�m para seguran�a de troca de senha, vc n�o acha que a rotina deveria pegar o usuario logado! onde s� elepode alterar a senha?no seu exemplo n�o vi onde vc define qual usuario ser� a troca de senha, para ele digitar a senha atual, ser verificada se � valida, e ser for valida, digita nova senha, e confirma a nova senha, e grava.o que me diz?...

Jonathan Romeiro · Answer

Gilv�nio , tentei outro meio aqui usando update ,deu certo ,eu n�o faria o que me disse pois o programa ja est� demorando muito na minha m�o e preciso entregar pronto logo....

F�rum Ajuda em trocar senha #426182