Guten morgen, ich habe ein Problem mit dem DBNavigator, wenn ich auf nbPost
drücke soll geprüft werden ob das datafield email ein eintrag hat.
Ohne den Eintag einer email soll nicht gespeichert werden

Kann mir jmd helfen


Danke für Hilfe

Hallöle...

Der Datenbanknavigator schiebt das Post nur an. Du mußt das über die Query "regeln".

Dein Freund ist https://docwiki.embarcadero.com/Libr...ery.BeforePost
Hier kannst du, das was du möchtest, auswerten und ggf. das Post canceln.

Das BeforePost der Query is schon deshalb der bessere Ort, da dies auch wirkt, wenn der Navigator nicht der Auslöser für das Post ist.

Der Vollständigkeit halber möchte ich aber erwähnen, dass der Navigator einen BeforeAction Event anbietet, in dem man auch solche Überprüfungen unterbringen könnte.

Ich habe es so versucht, aber es haut nicht hin, jetzt wird nichts mehr gespeichert.

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.DBNavigator1BeforeAction(Sender: TObject;
  Button: TNavigateBtn);
  var ok : boolean;
begin
  ok:= false;
  if DBemail.DataField <> '' then ok:= false;

  case Button of
    nbPost : if ok = false then abort;
  end;

end;

mfg

ok ist ja immer "false", d.h. es wird immer abgebrochen!

-> if DBemail.DataField <> '' then ok:= true;

außerdem statt "if ok = false" lieber "if not Ok"

so gehts auch nicht. Kein Eintrag möglich.

if DBemail.DataField macht mir probleme, bei der abfrage kommt immer false raus.

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.DBNavigator1BeforeAction(Sender: TObject;
  Button: TNavigateBtn);
  var ok : boolean;
begin
  ok:= false;
  if DBemail.DataField <> '' then
  begin
    ok:= false
  end else
  begin
    ok:= true;
  end;

  case Button of
    nbPost : if (ok = false) then abort;
  end;
end;

mfg