Autoguardado en Firedac

[juniorSoft]

pues si se me quedan onclick sin enlazar en tiempo de diseño luego no hace nada el control en run time.

Puedes hacerlo en runtime definiendo un método con un parámetro sender y colocar tu código en dicho método y luego en el evento show del formulario recorrer todos los controles del form con un ciclo preguntando si el control es un dbcheckbox asignarle al evento click el método previamente mencionado.

Saludos,

[juniorSoft]

Quizás Otra alternativa mas exótica seria utilizar un Helper para redefinir el evento onclick del componente si este lo permite definiendo tu código de la manera siguiente:

TFDQuery(TDBCheckBox(Sender).datasource.dataset).ApplyUpdates(0);

[juank1971]

Si esa idea del helper esta buena. pero todavía esto que hice no está funcionando muy eficiente, porque que sucede realmente :
Para que no esté mandando la consulta de update constantemente a MySQL con cada click , porque a lo mejor el usuario marca y desmarca y vuelve a marcar y vuelve a desmarcar, debo comprobar primero que si esta modify el FDQuery y creo que lo mejor es hacer el update en el onmouselive cuando el mause abandona el control,
Porque también sucede otra cosa que nunca había comprobado en Delphi, si das un solo click arriba de un control DB conectado a datos cuando chequeas en el fdquery si esta modify no lo está todavía, al parecer en el evento onclick de un control conectado a datos el dataset no se ha refrescado aun cuando ocurre el evento onclick del DBCheckbox.

Si das click en varios DBCheckbox si se cambia la propiedad Modify del FDQuery pero si das click en un solo DBCheckbox no se cambia Modify, entonces creo que voy a hacerlo en el onmouselive y lo que hago es poner una variable global que me guarde el nombre del componente DBCheckbox donde fue hecho el click y en el onmouselive chequeo primero que este el mouse saliendo del control que previmente di clcik para mandar a hacer el Update porque de lo contrario se ejecutaría el update en cada onmouselive de cada control , entonces con esa variable global voy a forzar a hacer un update correctoen el click que se ejecuto previo, no se si me explique. el problema nuevo que me encontre que no sabia que existia es ese que explique antes que cuando tocas con un solo click un control conectado a datos y chequeas el dataset este no ha refrescado los cambios, no encontre ninguna propiedad que cambiara, ni en el datasourse tampoco. pruebenlo y me dicen si les sucede igual.

[juank1971]

Amigos esto es lo mas funcional pero cochino que he encontrado, funciona muy bien y hace lo que quiero que en resumen es que el usuario cada vez que toque algun control conectado a datos este se actualiza sin preguntar ni interactuar con el usuario me quedo asi, lo veo on poco feo pero no encuentro otra manera de hacerlo.


este esta ya hecho para varios controles DB cada uno tiene asociado el evento onclick o de lo contrario el evento OnChange a el procedimiento onClickControl y estan conectados a FDQuery 's cada FDQuery hay que ponerle la propiedad CachedUpdates a true:

Código Delphi [-]
procedure TForm1.onClickControl(Sender: TObject);
begin
 if Sender is TDBCheckBox then
    ControlClicked :=  (Sender as TDBCheckBox).Name;
  if Sender is TDBRadioGroup then
    ControlClicked :=  (Sender as TDBRadioGroup).Name;
   if Sender is TDBedit then
    ControlClicked :=  (Sender as TDBedit).Name;
end;

procedure TForm1.onMouseLeaveControl(Sender: TObject);
begin
  if Sender is TDBCheckBox then
  if (sender as TDBCheckBox).Name = ControlClicked then
   begin
    ControlClicked := '';
    TFDQuery(TDBCheckBox(Sender).datasource.dataset).ApplyUpdates(0);
   end;

  if Sender is TDBRadioGroup then
  if (sender as TDBRadioGroup).Name = ControlClicked then
   begin
    ControlClicked := '';
    TFDQuery(TDBRadioGroup(Sender).datasource.dataset).ApplyUpdates(0);
   end;

   if Sender is TDBedit then
  if (sender as TDBedit).Name = ControlClicked then
   begin
    ControlClicked := '';
    TFDQuery(TDBedit(Sender).datasource.dataset).ApplyUpdates(0);
   end;
end;