TQuery (BDE) / TDataSet - Verständnisproblem "Modified"

[Uwe Raabe]

Zitat von Bodenseematze:

Wieso wird durch das Verändern des "UpdateRecordTypes"-Set der Status des einen (!) vorhandenen Records geändert?
Er veliert das Modified-Flag und auch der State des gesamten Queries geht von "dsEdit" auf "dsBrowse"!???

Ein Blick in die Sourcen macht das klar:

Delphi-Quellcode:

procedure TBDEDataSet.SetUpdateRecordSet(RecordTypes: TUpdateRecordTypes);
begin
  CheckCachedUpdateMode;
  CheckBrowseMode;
  UpdateCursorPos;
  Check(DbiSetProp(hDbiObj(Handle), curDELAYUPDDISPLAYOPT, Longint(Byte(RecordTypes))));
  Resync([]);
end;

Delphi-Quellcode:

procedure TDataSet.CheckBrowseMode;
begin
  CheckActive;
  DataEvent(deCheckBrowseMode, 0);
  case State of
    dsEdit, dsInsert:
      begin
        UpdateRecord;
        if Modified then Post else Cancel;
      end;
    dsSetKey:
      Post;
  end;
end;

Zitat von Bodenseematze:

Lt. Doku heißt es doch:
An application might also use UpdateRecordTypes like a filter to temporarily limit visible records to those added or inserted by the user during the current session.
Das habe ich so interpretiert, dass man das problemlos während der Laufzeit ändern kann (am Ende o.a. Funktion stelle ich das auch wieder auf den ursprünglichen Wert zurück)...

Kann man ja auch. Es hat halt bestimmte Auswirkungen, die in der Hilfe nicht umfassend beschrieben sind. Dass diese Aktion den dsBrowse State erfordert, war vermutlich für den damaligen Author der Hilfe irgendwie selbstverständlich. Wenn man überlegt, ist das auch nachvollziehbar, da die Hilfe ja erwähnt, dass es eine Art Filter ist, und beim Ändern eines Filters könnte ja der aktuelle Datensatz aus der Anzeige rausfallen. Insofern ist ein Wechsel in den dsBrowse State schon angebracht.

[Bodenseematze]

Zitat von Uwe Raabe:

Ein Blick in die Sourcen macht das klar:

Delphi-Quellcode:

procedure TBDEDataSet.SetUpdateRecordSet(RecordTypes: TUpdateRecordTypes);
begin
  CheckCachedUpdateMode;
  CheckBrowseMode;
  UpdateCursorPos;
  Check(DbiSetProp(hDbiObj(Handle), curDELAYUPDDISPLAYOPT, Longint(Byte(RecordTypes))));
  Resync([]);
end;

Delphi-Quellcode:

procedure TDataSet.CheckBrowseMode;
begin
  CheckActive;
  DataEvent(deCheckBrowseMode, 0);
  case State of
    dsEdit, dsInsert:
      begin
        UpdateRecord;
        if Modified then Post else Cancel;
      end;
    dsSetKey:
      Post;
  end;
end;

OK - das erklärt es, wobei das (vermutlich wg. CachedUpdates) ja immer noch nicht tatsächlich in der Datenbank angekommen ist, sondern wohl "nur" in der internen (Paradox basierten) Speichertablle, oder?
(OffTopic: eine Methode "CheckXXXX" zu nennen und dann in der Methode die Daten zu verändern, halte ich übrigens für seehr schlechten Programmierstil - und hatte ich ebenfalls beim groben durchsehen der Quellen nicht erwartet)

Zitat von Uwe Raabe:

Wenn man überlegt, ist das auch nachvollziehbar, da die Hilfe ja erwähnt, dass es eine Art Filter ist, und beim Ändern eines Filters könnte ja der aktuelle Datensatz aus der Anzeige rausfallen. Insofern ist ein Wechsel in den dsBrowse State schon angebracht

Stimmt, der umgekehrte Weg, dass jemand ein bestehendes Flag (z.B. rtModified) aus den UpdateRecordTypes entfernt, könnte ja auch sein - habe ich mir noch gar nicht klar gemacht...

Wäre denn (anhand der o.a. Ergebnisse) für die Status-Abfrage des aktuellen Records folgendes richtiger?

Delphi-Quellcode:

Result := usUnmodified;
if ( (ds_ is TBDEDataSet) and TBDEDataSet(ds_).UpdatesPending and (ds_.UpdateStatus() <> usUnmodified) ) then begin
  Result  := ds_.UpdateStatus();
else
if ( ds_.Modified ) then begin
  Result  := usModified;
end;

oder einfach ganz ohne TBDEDataSet-Prüfung (da UpdateStatus() in der Basis-Implementierung und ohne CachedUpdates usUnmodified zurückliefert):

Delphi-Quellcode:

Result := usUnmodified;
if ( ds_.UpdateStatus() <> usUnmodified ) then begin
  Result  := ds_.UpdateStatus();
else
if ( ds_.Modified ) then begin
  Result  := usModified;
end;

Aber für die Abfrage des Status des gesamten Queries müsste dann doch tatsächlich über alle Records gelaufen werden - auf das State-Property kann ich mich da ja nicht verlassen (wenn CachedUpdates gesetzt ist), oder?

[Uwe Raabe]

UpdatesPending ist doch für alle Datensätze außer dem aktuellen, falls er gerade editiert wird, ausreichend:

Delphi-Quellcode:

function HasSomethingChanged(ADataSet: TBDEDataSet): Boolean;
begin
  Result := ADataSet.UpdatesPending;
  if not Result and (ADataSet.State in [dsEdit, dsInsert]) then begin
    ADataSet.UpdateRecord;
    Result := ADataSet.Modified;
  end;
end;