Edit bei mehreren Benutzern

[stefan681]

Hallo,

ich möchte beim Zufriff auf einen Datensatz wissen, ob ein anderer User diesen
schon zum edit geöffnet hat. Den Code dafür habe ich schon geschrieben.

Meine Frage ist aber:
Ich wollte diesen Code in dem Ereignis 'BeforeEdit' der Tabelle verwenden.
Wenn jetzt dieser Code sagt, der Datensatz ist gesperrt, würde die Routine 'BeforEdit'
automatisch weitermachen, und so doch eine Fehlermeldung des Datenbank-Servers anzeigen.
Oder kann ich diese Routine irgendwie verlasen?

Danke.

Stefan

[Sharky]

Hai Stefan,

es müsste doch reichen ein DataSet.Cancel einzubauen oder?

[Catbytes]

Langt nicht ein einfaches:

Delphi-Quellcode:

procedure TForm1.ADOQuery1BeforeEdit(DataSet: TDataSet);
begin
if Datensatzgesperrt then
Exit;
SonstigeRoutinen...
end;

???

[Jelly]

Zitat von Sharky:

es müsste doch reichen ein DataSet.Cancel einzubauen oder?

Da im BeforeEdit Ereignis der Datensatz noch nicht im Editiermodus ist. wird ein Cancel nicht viel bringen. Es sollte aber klappen das Ganze ins AfterEdit Ereignis zu verlagern.

[stefan681]

Aber beim Ater Edit ist es "schon zu spät", da Edit schon ausgelöst
wurde und dann der Datenbank-Server die Fehlermeldung erzeugt.

Wie macht ihr das denn bei mehreren Benutzer sicher stellen,
das nur ein User den Datensatz bearbeitet?

[Jelly]

Zitat von stefan681:

Aber beim Ater Edit ist es "schon zu spät", da Edit schon ausgelöst
wurde und dann der Datenbank-Server die Fehlermeldung erzeugt.

Das hängt dann aber davon ab, wie du den Server konfigurierst. Kuck dir in dem Zusammenhang mal TransIsolation Level an.

[Stevie]

Hi,

wenn ich mich recht erinner, müsste ein Abort im BeforeEdit reichen, um auch das Edit an sich zu stoppen.
Allerdings halte ich diese Vorgehensweise in deinem Fall nicht für die beste, denn so wird der Benutzer nicht darüber informiert, dass und warum der Satz nicht gespeichert werden kann. Ich würde eher vorschlagen, global (im Application.OnException) diese spezielle Execption, die der Server liefert, abzufangen und in eine für den Benutzer verständliche Nachricht zu verarbeiten.

MfG
Stevie