DBnavigator abfrage ob feld eingetragen ist

[Schuby]

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

[haentschman]

Hallöle...8-)

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. :zwinker:

[Uwe Raabe]

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.

[Schuby]

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

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

[Billa]

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"

[Schuby]

so gehts auch nicht. Kein Eintrag möglich.

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

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

[Klaus01]

sollte das so sein wenn das eMailfeld gefüllt ist dann ist es false?

sollte es nicht eher so sein:

Delphi-Quellcode:

ok := DBemail.DataField <> ''

Grüße
Klaus

[Schuby]

Hallo Klaus,
das datenfeld für email darf nicht leer sein.


mfg

[Klaus01]

ja, aber bei Dir ist es false wenn es nicht leer ist.

<> '' ist notEmpty

[Schuby]

Ja das habe ich jetzt auch gesehen, ich denke mein Problem ist
wie ich ein Datenfeld überpürüfe ob da was drin steht.

if DBemail.DataField <> ''

Diese abfrage haut so nicht hin.


mfg

[Schuby]

Jetzt haut es hin, die abfrage war falsch

if dbemail.Text <> '' then


mfg

[haentschman]

Zitat:

wie ich ein Datenfeld überpürüfe ob da was drin steht.

Delphi-Quellcode:

if DBemail.DataField <> ''

...so jedenfalls nicht. DataField ist der Name der Komponente/Field. https://docwiki.embarcadero.com/Libr...Edit.DataField
Wenn DBemail :gruebel: eine Query/Tabelle ist:

Delphi-Quellcode:

ok := DBemail.FieldByName('EMailFeld').AsString <> ''

...
Nachtrag:
.Text sieht nach einer visuellen Komponente aus. DBEdit etc. Das ist aber keine gute Idee, die Daten der visuellen Komponenten für Prüfungen zu missbrauchen. Immer über die Datenmenge ist besser. :warn:

:wink:

[Uwe Raabe]

Zitat:

Zitat von haentschman (Beitrag 1549028)

Wenn DBemail :gruebel: eine Query/Tabelle ist

...dann hätte sie wohl auch kein Property DataField...

[haentschman]

Stimmt...:oops: