Moin allerseits,

ich stehe hier vor dem Problem, eine Read-Only-View-Tabelle unmittelbar auf die Änderung eines Feldwertes der zugrundeliegenden realen Tabelle reagieren zu lassen. Es geht um eine TDBCheckBox-Komponente, die mit der realen Tabelle Dateien verbunden ist, auf die sich das View V_Dateien bezieht. Das View wird in einem DBGrid angezeigt und soll auf die Änderung in einem Boolean-Feld reagieren. Es stellt sich die Frage nach dem Auslöser: TDBCheckBox.OnChange kann ich genauso wenig verwenden wie TDBCheckBox.OnClick, da beide vor dem Schreiben des neuen Wertes ausgelöst werden. Ich benötige aber einen Auslöser, der nach dem Schreiben des neuen Wertes in die Datenbank triggert. Bin vorerst ratlos ...

Ein TDataSource hat doch OnDataChange und OnUpdateData -Events?

AfterPost von Tabelle Dateien ?

Hi Günther, hi Thomas,

natürlich kenne ich diese Ereignisse, doch nützen sie mir nichts, da sie erst ausgelöst werden, wenn sich der Datensatzzeiger ändert bzw. wenn ich explizit ein Post absetze. Anders ausgedrückt:

Beim Klick auf eine TDBCheckBox ändert sich der Status der Checkbox sofort. Der Eintrag in die DB (das Update) erfolgt aber erst, wenn sich der Datensatzzeiger ändert oder wenn ich AdoDataSet.Post auführe. Es geht jedoch darum, sofort eine Änderung der beiden Anzeigen DBCheckBox (Tabelle) und DBGrid (View) zu erzeugen. Ich muß also irgendwie bewerkstelligen, daß das Ändern des DBCheckBox-Status sofort ein Update der verbundenen Tabelle auslöst.

Ich versuch's jetzt mal mit einer "normalen" CheckBox, die beim AfterScroll eben jedesmal den aktuellen Status des aktuellen Feldes zugewiesen bekommt. Melde mich gleich wieder ...

wenn Du ungepostete Werte darstellen willst könntest Du ein berechnetes Feld in das Dataset von V_Dateien aufnehmen, oder die Checkbox Direkt an die View binden.

AfterScroll könnte auch gehn ... das wird doch bei einem Post ebenfalls ausgelöst.

Ich hab's jetzt mit einer "normalen" CheckBox gelöst:

markieren

Delphi-Quellcode:

Procedure TFormMain.Check_GesehenClick(Sender: TObject);
begin
  IF GL.CheckModus THEN Exit;
  GL.CheckModus := True;
  DatMod.Aset_Datei.Edit;
  DatMod.Aset_Datei.FieldByName('Gesehen').AsBoolean := Check_Gesehen.Checked;
  DatMod.Aset_Datei.Post;
  DatMod.ViewDateienRefresh;
  GL.CheckModus := False;
end;

GL ist eine Unit mit Globalen Variablen und Konstanten, CheckModus ein Boolean. Der Status von Check_Gesehen wird im AfterScroll des Views aktualisiert (selbstverständlich mit einem Ereignis, das in der Formular-Unit abgefangen wird). Das Flag GL.CheckModus ist deshalb notwendig, weil beim Ändern des Checkstatus, was ja beim Scrollen passiert, ebenfalls das Ereignis OnClick ausgelöst wird. So funktioniert's auf jeden Fall einwandfrei, das View wird sofort aktualisiert, ohne daß der Anwender erst einen anderen Datensatz anwählen muß.

DatMod.ViewDateienRefresh ist eine Public-Methode im Datenmodul, die ich benötige, weil das normale Refresh offenbar nicht korrekt arbeitet. Ersetze ich DatMod.ViewDateienRefresh durch DatMod.Tab_VDateien.Refresh, erhalte ich diese Fehlermeldung:

Nicht genügend Basistabelleninformationen zum Aktualisieren

markieren

Delphi-Quellcode:

Procedure TDatMod.ViewDateienRefresh;
Var
  Merk : Integer;

begin
  Merk := Aset_Datei.FieldByName('Id_Video').AsInteger;
  Tab_VDateien.Close;
  Tab_VDateien.Open;
  Tab_VDateien.Locate('Id_Video',Merk,[]);
end;

Zitat von Bummi:

wenn Du ungepostete Werte darstellen willst könntest Du ein berechnetes Feld in das Dataset von V_Dateien aufnehmen, oder die Checkbox Direkt an die View binden.

Es handelt sich um ein sehr komplexes View, das Werte aus etlichen Subtabellen interpretiert und darstellt. Mit einem Datenbank-View kann ich einfacher und effizienter arbeiten als mit Lookup-Feldern, die auf Clientseite erstellt werden. Auch das Sortieren nach diversen Spalten gestaltet sich einfacher. Wollte ich deinen Vorschlag umsetzen, müßte ich die Anwendung komplett umbauen.

Zitat von himitsu:

AfterScroll könnte auch gehn ... das wird doch bei einem Post ebenfalls ausgelöst.

Es geht aber gerade um das Post: Das wird beim Ändern des Checkstatus einer TDBCheckBox erst ausgelöst, wenn sich der Datensatzzeiger ändert. Durch reines Klicken auf die Komponente passiert noch gar nix.

Zitat von Perlsau:

Es geht aber gerade um das Post: Das wird beim Ändern des Checkstatus einer TDBCheckBox erst ausgelöst, wenn sich der Datensatzzeiger ändert. Durch reines Klicken auf die Komponente passiert noch gar nix.

Ich dachte das sollte so werden?
- anklichen/umschalten der Chackbox ändert noch nichts
- das Speichern des Datensatzes (Post) aktualisiert dann den View.

Zitat von himitsu:

Zitat von Perlsau:

Es geht aber gerade um das Post: Das wird beim Ändern des Checkstatus einer TDBCheckBox erst ausgelöst, wenn sich der Datensatzzeiger ändert. Durch reines Klicken auf die Komponente passiert noch gar nix.

Ich dachte das sollte so werden?
- anklichen/umschalten der Chackbox ändert noch nichts
- das Speichern des Datensatzes (Post) aktualisiert dann den View.

Schon klar, aber "das Speichern des Datensatzes (Post)" wird nicht allein durch das Klicken auf die DBCheckBox ausgelöst. Mit anderen Worten: Das Klicken auf die DBCheckBox ändert lediglich den Wert des Feldes im Dataset, ohne daß ein Post ausgelöst wird. Ich wollte jedoch erreichen, daß bereits ein Klick auf die Checkbox eine Änderung in der Datenbank auslöst, ohne daß der Anwender noch eine weitere Aktion bringen muß. Das habe ich mit der TCheckBox nun erreicht: Die Anzeige der Änderung im DBGrid (View) erfolgt jetzt wie gewünscht sofort. Jetzt kann der Anwender einfach Strg-G drücken, um den Status des Gesehen-Feldes zu ändern, auch wenn der Fokus gerade auf dem DBGrid ist, weil der Anwender darin herumscrollt.

Jetzt blieb nur noch der unschöne Effekt, daß sich die Position der vertikalen Scrollbar im DBGrid verändert. Dem konnte ich mit GetScrollPos und SetScrollPos abhelfen. Der Vollständigkeit halber hier der überarbeitete Code:

zusammenfalten · markieren

Delphi-Quellcode:

Procedure TFormMain.Check_GesehenClick(Sender: TObject);
Var
  ScrollPos : Integer;

begin
  IF GL.CheckModus THEN Exit;
  GL.CheckModus := True;
  DatMod.Aset_Datei.Edit;
  DatMod.Aset_Datei.FieldByName('Gesehen').AsBoolean := Check_Gesehen.Checked;
  DatMod.Aset_Datei.Post;
  ScrollPos := GetScrollPos(Handle, SB_VERT);
  DatMod.ViewDateienRefresh;
  SetScrollPos(Handle, SB_VERT, ScrollPos, True);
  GL.CheckModus := False;
  AL_ED_Gesehen.Checked := Check_Gesehen.Checked;
end;