Ayuda con un codigo de cambio de clave.

[DOS]

Hola a todos, de nuevo preguntando por aqui.
Tengo que hacer este ejercicio, crear una tabla en paradox, con nro, clave y usuario. El sistema me debe permitir cargar usuario, contraseña o clave, ingresar una nueva clave y confirmarla, si hay algun error enviar un mensaje sino modificar la clave de la tabla.
Mis conocimientos son basicos, y el codigo que les muestro, tambien lo es, se muy bien que debe haber mejores formas y comandos para hacer lo que necesito, pero quien me pueda ayudar, le pediria que se mantenga dentro de esos parametros, para poder yo entenderlo, gracias.

Código Delphi [-]
procedure TForm3.Button2Click(Sender: TObject);
var
    apellido, contrasena, newclave, clavebis: String;
   
begin
    apellido := Edit1.Text;    // apellido
    contrasena := Edit2.Text;  // clave antigua
    newclave:= Edit3.Text;     // nueva clave
    clavebis:= Edit4.text;  //  repite nueva clave
    
    edit1.Clear;                 //  limpio los edit
    edit2.Clear;
    edit3.Clear;
    edit4.Clear;
    Table1.First;
    edit1.SetFocus;       // lo focaliso en el primer edit
    
    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;
                 end
             else
               ShowMessage('Clave o Nombre Incorrectos');
     end;

end;

end.

El programa me tira error no cuando lo compilo sino cuando lo corro.

[[Caral]]

Hola
1- Cual error.
2- Esto no se ha visto en el foro últimamente muchas veces ?
Sera un dejavú ?????.
Saludos

[[Caral]]

Hola
A ver:
1- Tienes un usuario y una clave en la tabla.
2- Una vez que el usuario y la clave son correctos el programa tiene que poder MODIFICAR la clave de ese usuario.
Es asi o entiendo mal ?.
Saludos

[DOS]

El error dice sos un pelo"@~$po te olvidaste de activar la tabla.
Era para ver si estabas atento Caral, me volvi loco durante un par de dias y cuando preguntaste, cual error?, me pregunte lo mismo y ahi me di cuenta. Saludos y perdonen a este newbie.

[[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.

[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.

[[Caral]]

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

[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.