"Post" von DBEdit & Co. mit Abort; verhindern

[Kinimod8]

Hallo,

ich möchte verhindern, dass die datenintensiven Komponenten (TDBxxxxx) nach Bearbeitung automatisch TDataSet.Post; auslösen - die geänderten Daten sollen nur bei Klick auf Button1 gespeichert werden.

Also habe ich einen Boolean mayModify mit false intialisiert und setze ihn nach Klick auf Button1 auf true.

In der Ereignisbehandlung "OnBeforePost" habe ich dann folgendes geschrieben:

Delphi-Quellcode:

procedure TForm1.Table1BeforePost(DataSet: TDataSet);
begin
 if not MayModify then
 begin
  Abort;
 end;
 MayModify := false;
end;

Das funktioniert soweit wunderbar. Nur muss der User jetzt die Daten auch speichern, sonst ist die weitere Navigation in der Tabelle unmöglich, weil sämtliche Methoden wie z.B. Next oder Last auch BeforePost aufrufen

Wie kann ich mein Problem dennoch lösen?

[alex517]

Schau mal unter dem Stichwort CachedUpdates nach.
alex

[sir-archimedes]

Bzw. schau dir mal die Methode "Cancel" an. Damit wird ein Append/Edit-Versuch abgebrochen. Denn in der Regel postet dein Query/Table beim verlassen des Datensatzes automatisch.

[marabu]

Das automatische Speichern wird durch das Verschieben des Datensatzzeigers ausgelöst. Insofern würde ich einfach das Verschieben verhindern, solange die Daten nicht durch den Benutzer gespeichert wurden:

Delphi-Quellcode:

procedure TDataForm.TableBeforeScroll(DataSet: TDataSet);
begin
  if DataSet.State <> dsBrowse then
    Abort;
end;

Freundliche Grüße vom marabu

[Kinimod8]

Erstmal vielen Dank für die Hilfe!

Zitat von marabu:

...das Verschieben verhindern, solange die Daten nicht durch den Benutzer gespeichert wurden

Aber genau das möchte ich ja nicht. Ich möchte das der Nutzer auch ohne Abspeichern der Änderungen in der Tabelle navigieren kann.

[marabu]

So quer kann ich garnicht denken - sorry. Was soll denn das werden? Wie behält denn da der Benutzer deines Programms den Überblick, welche Änderungen er gemacht hat?

marabu

[Kinimod8]

Ist doch ganz einfach - glaub ich :
Der Benutzer ändert die Daten eines Datensatzes und kann danach auf "Änderungen speichern" klicken oder auf "Abbrechen" bzw. einfach einen Datensatz weiter gehen.

[marabu]

Jetzt liest es sich so, als ob du nur das Standardverhalten beim Scrolling ändern möchtest. Packe einfach die Methode Cancel (hallo dominik) in das Ereignis BeforeScroll:

Delphi-Quellcode:

procedure TDataForm.TableBeforeScroll(DataSet: TDataSet);
begin
  if DataSet.State <> dsBrowse then
    Cancel;
end;

marabu

[sir-archimedes]

Dann bin ich ja beruhigt - habe den anderen Dominik nämlich so verstanden

[Kinimod8]

Zitat von marabu:

Jetzt liest es sich so, als ob du nur das Standardverhalten beim Scrolling ändern möchtest. Packe einfach die Methode Cancel (hallo dominik) in das Ereignis BeforeScroll:

Delphi-Quellcode:

procedure TDataForm.TableBeforeScroll(DataSet: TDataSet);
begin
  if DataSet.State <> dsBrowse then
    Cancel;
end;

marabu

Dieser Code bewirkt bei mir gar nichts.

Zum besseren Verständnis habe ich mal eine Echse angehängt, die zeigt, was ich will