Componente para guardar el valor estable de BD

[Garry]

Ya, egostar, pero es un intento, tal y como dices . Quizá es que empiezo por poner el carro delante de los bueyes y comienzo a lo suicida... En mi feliz ignorancia y por poner un ejemplo, se me ocurre recomendarte este curso de creación de componentes para iniciarte (todo es cuestión de empezar por algún sitio). Confieso que todo esto se me antoja bastante complicadillo...

El caso es que lo que me aporta Lepe me viene muy bien porque ya reconocí ser novatillo, así que agradezco mucho las ayudas, jeje. De todos modos, tendré que probarlo porque lo que quiero es detectar sólo cambios útiles para descartar actualizaciones en las que se "descambie" el contenido. El objetivo es evitar ir a la base de datos innecesariamente y no sé si esa propiedad que cuentas sirve porque:

1. Cargo el valor a.
2. Edito y pongo b (...Modified = true).
3. Reedito "descambiando", quedando nuevamente a (si ahora ...Modified = true? no serviría).

Realmente, también quería reinventar el fuego y que el cambio lo detecte el propio componente internamente tras cada edición, para colorear cuando haya cambios y/o errores, actualizar el filtro de búsqueda sin tener que contorlar todos los cambios uno a uno...

[[Lepe]]

Empezado por Garry

1. Cargo el valor a.
2. Edito y pongo b (...Modified = true).
3. Reedito "descambiando", quedando nuevamente a (si ahora ...Modified = true? no serviría).

en 3, no estas reeditando, porque no has guardado aún. tampoco hay valor "estable".

El valor antiguo será "a". si usas Dataset.cancel es como si no hubieras hecho nada. si usas Dataset.Post estarás actualizando un registro con los mismos valores que tenías antes. Entiendo que es lo que quieres evitar, pero sigue leyendo.

El punto aquí, sería poner una webcam, para ver el usuario cuantas veces entra y sale de un DBEdit cambiando los valores, 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.

Si un usuario hace esos 3 pasos que has indicado, yo le explico cuando debe hacer un Post y cuando un Cancel .

Como en muchas ocasiones, el problema está entre el teclado y la silla .

Saludos

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

[[Lepe]]

ha salido repe el mensaje...

Saludos