Componente para guardar el valor estable de BD

[Garry]

Empezado por Lepe

...y adivinar cual de todas esas modificaciones, considera "estable". Una letra de más, una tilde, un espacio... y todos nuestros esfuerzos por la borda.

Tienes algo de razón, Lepe (aunque esto ronda la metafísica). No obstante, no es necesario entrar en ese debate, ya que cada uno tiene sus motivos. Cualquier cosa que retoque el usuario merece la consideración oportuna según cada caso.

En el mío, pretendo eliminar tabulaciones y espacios indeseados, autocorregir la capitalización, y comparar ese valor formateado con el original para reducir aún más los accesos a la BD, con lo que debo comparar los valores yo mismo.

Vale, puedo ser un poco maniático (quizá soy informático por ello, no sé, ), pero me parece que lo interesante sigue sin respuesta:

¿Hay cómo recuperar el valor original sin crear un nuevo componente?

Tal vez todo el hilo se reduce a esto y quizá rayo en lo inútil, pero no deja de ser la duda que planteo. Aunque puede no parecer útil para la actualización, sí aún para lo que decía de los colores, por ejemplo.

De todas formas, el código que me diste me va a ser muy útil, claro. No daría por zanjada la cuestión , pero gracias por la sugerencia.

[[Lepe]]

El DBEdit es una mera representación visual. Si quieres capturar cuando cambian los datos, antes de que los valores vayan a parar a la base de datos, o al recibirlos, tendrás que pelearte con el TFieldDataLink. Dicha clase tiene:

Código Delphi [-]
protected
    procedure ActiveChanged; override;
    procedure DataEvent(Event: TDataEvent; Info: Integer); override;
    procedure EditingChanged; override;
    procedure FocusControl(Field: TFieldRef); override;
    procedure LayoutChanged; override;
    procedure RecordChanged(Field: TField); override;
    procedure UpdateData; override;
public
    property OnDataChange: TNotifyEvent read FOnDataChange write FOnDataChange;
    property OnEditingChange: TNotifyEvent read FOnEditingChange write FOnEditingChange;
    property OnUpdateData: TNotifyEvent read FOnUpdateData write FOnUpdateData;
    property OnActiveChange: TNotifyEvent read FOnActiveChange write FOnActiveChange;

Los métodos protegidos serán los que tienes que modificar. Aparte, tendrías que crearte un nuevo TDBEdit que use tu TFieldDatalink modificado.

Espero me equivoque y haya un método más fácil. Pero dudo que sea trabajando sobre el TDBEdit, porque te dará falsos positivos (por ejemplo, al cambiar de registro, se producirá un evento DBedit.OnChange y "no podrías diferenciarlo de cuando el usuario modifica el registro" (este caso es un mero ejemplo, no lo tomes al pie de la letra, porque no he estudiado el caso a fondo).

En respuesta a tu pregunta directa:
Si, si lo hay, en el evento afterScroll de tu Dataset, pero no será viable hacerlo allí.

Saludos

[Garry]

Creo que esto me supera con creces.

Y tienes razón con el DBedit.OnChange, lo había probado y salta al cargar valores, ¡rayos! Mi gozo en un pozo. Al menos, de momento. Supongo que ya volveré sobre esto, pero así me va costar demasiado avanzar...

Me pregunto si alguien se ha currado algo similar que pueda y quiera aportar alguna idea. Creo que sería un componente útil para todo en esta vida, jeje.

Un saludillo y gracias por responder tan rápidamente .

[[Lepe]]

Te voy a contar un secreto que espero sepas guardar .

A veces, en lugar de heredar de TDBEdit, lo que hago es crear mis propios objetos, mapeando los datos a ellos cuando lo necesito. Ejemplo simplificado:

Código Delphi [-]
type TMiRegistro = class(TObject);

public
   constructor Create; override;
   Valores:TStrings
end;

implementation

constructor TMiRegistro.Create;
begin
  Valores := TStringList.Create;
end;

Ahora en mi aplicación, en el OnCreate de la ventana Clientes (típico tópico donde los haya):

Código Delphi [-]
private
 Actual :TMiRegistro; // declarado arriba, en el Form


procedure TForm1.FormCreate....
begin
   Actual := TMiRegistro.Create;
end;

procedure TForm1.TablaclienteAfterScroll;
begin
  Actual.Valores.Clear; // borramos los valores del registro anterior
   for i:= 0 to tablaClientes.FieldCount -1 do
     Actual.Valores.Add(tablaClientes.Fields[i].AsString);
end;

procedure TForm1.Close(...);
begin 
  Actual.Free;
end;

Nada del otro mundo, Simplemente guardar los valores en el AfterScroll y cuando quiera sobreescibir alguno con un "valor estable", modifico mi objeto.

Saludos

[Garry]

Gracias, Lepe.

Bueno, sin afán de restar méritos, se aproxima a cómo pensaba yo solucionar en plan "simple", es decir, renunciando a la automatización que deseaba para cada campo (al tener que centralizar el control campo a campo en un mismo punto y despreciando la comodidad de los DBEdit). Como consuelo, veo que no voy tan desencaminado

Ya volveré sobre esto y, si consigo algún avance interesante, ya lo contaré. Ahora necesito progresar con el desarrollo... Un saludo y gracias de nuevo.

[yusnerqui]

En mi delphi 7 los datafields no tienen esta propiedad tan útil(Modified),sino que aparece como un atributo del TDataset para saber si se ha modificado el rejistro actual.
Alguien sabe a partir de que versión está incorporada?.

Gracias

[Garry]

Lo he buscado, pero ni idea, yusnerqui. ¿Es relevante la versión?