cancelar una accion

[marcos_0586]

hola gente del foro, tengo una aplicacion en delphi 7 en la cual se ingresa para modificar los datos de una persona, y nesecito poner un boton para cancelar cualquier modificacion que se halla echo(por si se arrepiente) por ejemplo si le modifique el nombre y la direccion pero despues me doy cuenta de que no era la persona indicada para modificar pueda volver a lo que estaba antes y otro boton para ir cancelando la ultima accion realizada como el boton deshacer de word. se puede???? gracias.

[delphi.com.ar]

Obvio que se puede. Pero sería importante saber como has cargado los datos del formulario, si utilizas componentes DBAware o los cargas manualmente. Supongo que estas usando conexión a alguna base de datos. Por favor, explica un poco mas la situación.

Saludos!

[marcos_0586]

Empezado por delphi.com.ar

Obvio que se puede. Pero sería importante saber como has cargado los datos del formulario, si utilizas componentes DBAware o los cargas manualmente. Supongo que estas usando conexión a alguna base de datos. Por favor, explica un poco mas la situación.

Saludos!

es verdad, aclare muy poco, bueno, yo ingreso un numero de DNI en un edit para buscar los datos de un empleado en una tabla,y tengo 6 DBedit y dos DBLookupComboBox que los relaciono con la tabla empleado, que es de donde saco los datos para modificar despues tengo otro boton donde lo unico que hago es guardar lo que hay en cada dbedit en ese registro de mi tabla y a los DBLookupComboBox no hace falta
Form1.table1.Edit;
Form1.Table1.FieldByName('Ape').AsString:=DBEdit1.Text;
Form1.Table1.FieldByName('Nom').AsString:=DBEdit2.Text;
Form1.Table1.FieldByName('Dni').AsInteger:=StrToInt(DBEdit3.Text);
Form1.Table1.FieldByName('Direccion').AsString:=DBEdit4.Text;
Form1.Table1.FieldByName('Telfijo').AsString:=DBEdit5.Text;
Form1.Table1.FieldByName('Telmovil').AsString:=DBEdit6.Text;
Form1.table1.Post;

[ecfisa]

Hola marcos.

Si todavía los datos no fueron guardados lo solucionás con:

  Table1.Cancel;

De otro modo deberías usar en la apertura:

   Table1.CachedUpdates:= True;
   Table1.Open;
   ...

Y para deshacer los cambios:

   Table1.RevertRecord;

RevertRecord sólo funciona si CachedUpdates está activado.
En la ayuda de Delphi, en el foro y en internet tenés mucho escrito sobre el tema.



Saludos.