Ayuda con un codigo de cambio de clave.

[[Caral]]

Hola
Pues esto se puede llamar ''un caso auto resuelto''
Saludos

[ecfisa]

Hola DOS.

Una observación sobre el código que tarde o temprano te dará un dolor de cabeza:
Si no sacas el Table1.First; de dentro del condicional (if newclave = clavebis then), sólo va a cambiar la clave si el dato buscado corresponde al primer registro y luego sea este caso o no, el programa va quedar frizado...

Mejor sería:

Código Delphi [-]
...
  while Table1.eof = false do     //  corro la tabla
  begin 
     if ...
       if ...
       begin
          ...
       end;
     Table1.Next;
  end;

Un saludo.

[[Caral]]

Hola

Empezado por ecfisa

.........
Si no sacas el Table1.First; de dentro del condicional (if newclave = clavebis then), ..........

Código Delphi [-]
...
  while Table1.eof = false do     //  corro la tabla
  begin 
     if ...
       if ...
       begin
          ...
       end;
     Table1.Next;
  end;

Saludos

[ecfisa]

Errare humanum est, la intención fue buena...

Edito: Ya hacía rato que no me mandaba una...

[[Caral]]

Hola
Cámbialo, que para eso eres moderador..
Aprovéchate del poder...
Lo que pasa es que sigo tus pasos amigo.
Saludos

[ecfisa]

Lo que pasa es que sigo tus pasos amigo.

Realmente me halaga, no creo ser merecedor de tanta antención...

Un abrazo.

[[Caral]]

Hola
A los Maestros hay que seguirlos amigo.
Si no, como se aprende.
Saludos

[DOS]

Ok, gracias ecfisa, le realice alguna modificacion.

Código Delphi [-]
 Lo mismo de antes +
  if  newclave = clavebis then    //comparo las nuevas claves
  begin        //Modifico la clave
    table1.Edit;
    table1.FieldByName('Clave').AsString:=newclave;
    table1.Post;
    table1.Next;
    if application.messagebox('la clave a sido cambiada correctamente'+
          ', ¿desea volver al menu principal?',
          'consulta',MB_OKcancel+MB_iconquestion)=IDOK then
    begin
      form3.Hide;
      form2.Show;
    end;
  end
  else
    ShowMessage('Clave o Nombre Incorrectos');
end;
end.

El problema ahora es si ingreso mal un dato, despues de aparecer el mensaje de clave incorrecta, se cuelga ahi.

[DOS]

Juro que no toque nada no se porque sale horizontal, ya lo edite

[ecfisa]

Hola DOS.

En realidad me referería a que movieras la línea así:

Código Delphi [-]
...
    while Table1.eof = false do     //  corro la tabla
    begin             //comparo el apellido y la clave
      if (Table1.FieldByName('Apellido').AsString = apellido) and
         (Table1.FieldByName('Clave').AsString = contrasena) then
          if  newclave = clavebis then    //comparo las nuevas claves
          begin        //Modifico la clave
            table1.Edit;
            table1.FieldByName('Clave').AsString:=newclave;
            table1.Post;
            //  table1.Next;  --> De aquí
          end
          else
            ShowMessage('Clave o Nombre Incorrectos');
       table1.Next; // < --- A esta posición
    end;
...

(Tomando en cuenta el primer código)

Un saludo.

Nota: Ya corregí la identación del mensaje #11 ( creo que a eso te referías ).

[DOS]

Muchas gracias y disculpen la tardanza en responder.