Einzelnen Beitrag anzeigen

Slipstream
(Gast)

n/a Beiträge
 
#6

AW: TDBCheckBox: .Checked aktualisiert das DataSet nicht

  Alt 11. Feb 2017, 08:12
Hallo,
ich verwende nie DB-Komponenten.
Ist aber nicht mein Code, ich muss den nur warten.
Spricht denn etwas dagegen, die TDBCheckBox durch eine TCheckBox zu ersetzen und die notwendigen Schritte im Code zu implentenieren?

Da wäre zuerst einmal der Code für die Aktualisierung der TCheckBox. Wir lösen das gerne mit einem AfterScroll-Ereignis, das wiederum in der jeweils aktuellen Form ein Ereignis auslöst. Dieses Ereignis, das wir meist im zutändigen Datenmodul deklarieren, weisen wir dann in der aktuellen Form einer Aktualisierungs-Methode zu. Damit ist gewährleistet, daß die TCheckBox immer aktualisiert wird, nachdem sich der Datenzeiger bewegt hat.

Für den umgekehrten Fall der Änderung durch den Anwender verwenden wir in den jeweiligen Forms Update-Methoden, die in der OnClick-Ereignisbehandlung der TCheckBox angesprungen werden.

Mit dieser Vorgehensweise haben wir das Problem für alle Zeiten erledigt.

Nachtrag
Sollte es dir nicht gestattet sein, derartige Änderungen im Code vorzunehmen, könntest du auch auf das OnClick der TDBCheckBox reagieren und schauen, ob sich das zugehörige Dataset nach dem Click auf TDBCheckBox im Editmodus befindet:

Delphi-Quellcode:
if MyDataset.State = dsEdit then
begin
  MyDataset.Post;
end else
if MyTDBCheckBox.Checked <> MyDataset.FieldByName('BooleanFeld').AsBoolean then
begin
  MyDataset.Edit;
  MyDataset.FieldByName('BooleanFeld').AsBoolean := MyTDBCheckBox.Checked;
  MyDataset.Post;
end;
... nur mal so als Denkansatz ...

Geändert von Slipstream (11. Feb 2017 um 08:18 Uhr)
  Mit Zitat antworten Zitat