Geburtstagsabfrage

[Walter Landwehr]

Hallo, ich möchte beim Aufruf einer kundenform und Wechsel des Kunden angezeigt bekommen das dieser Kunde Geburtstag hat. In welschen Ereignis sollte die Abfrage stehen. Auf jeden Fall sollte erst das Formular angezeigt werden und dann die Geburtstagsmeldung. Beim Wechsel vom Kunden sollte die Anzeige auch kommen wenn er Geburtstag hat aber nur einmal.

Delphi-Quellcode:

if CalcBirthday(Patient1Qry.FieldByName('GEBURTSDATUM').AsDateTime) and (Geburtstagheute = True) then
    begin
      lblAlter.Font.Color := clRed;
      MessageDlg('Patient / Klient / Kunde hat heute Geburtstag.?', mtConfirmation, [mbOK],0);
      Geburtstagheute := False;
    end
    else
    begin
      lblAlter.Font.Color := clBlack;
    end;

hat jemand einen Ansatz wo ich den Aufruf Platzieren sollte.

[Uwe Raabe]

Ich würde einen Timer starten, wenn das Form angezeigt bzw. der Kunde gewechselt wird. Damit das nur einmal pro Kunde passiert, musst du dir das eben irgendwo notieren.

[himitsu]

AfterScroll bzw. AfterOpen (oder sowas)

und das erste Open ins OnShow.

[Rollo62]

Ich nutze oft einen angepassten DelayWorker, von Sir Rufo hier im Forum, um eine zeitverzögerte Meldung abzusetzen.
Alt aber bewährt.

[Walter Landwehr]

Danke an alle habe es hinbekommen. Anzeige im OnShow und dann im AfterScroll.
OnShow der Form

Delphi-Quellcode:

Geburtstagheute := False;

.
Im AfterScroll

Delphi-Quellcode:

if CalcBirthday(Patient1Qry.FieldByName('GEBURTSDATUM').AsDateTime) and (Geburtstagheute = False) then
    begin
      lblAlter.Font.Color := clRed;
      MessageDlg('Patient / Klient / Kunde hat heute Geburtstag.?', mtConfirmation, [mbOK],0);
      Geburtstagheute := True;
    end
    else
    begin
      if CalcBirthday(Patient1Qry.FieldByName('GEBURTSDATUM').AsDateTime) then
        lblAlter.Font.Color := clRed
      else
        lblAlter.Font.Color := clBlack;
    end;

[peterbelow]

Zitat:

Zitat von Walter Landwehr (Beitrag 1521433)

Danke an alle habe es hinbekommen. Anzeige im OnShow und dann im AfterScroll.
OnShow der Form

Delphi-Quellcode:

Geburtstagheute := False;

.
Im AfterScroll

Delphi-Quellcode:

if CalcBirthday(Patient1Qry.FieldByName('GEBURTSDATUM').AsDateTime) and (Geburtstagheute = False) then
    begin
      lblAlter.Font.Color := clRed;
      MessageDlg('Patient / Klient / Kunde hat heute Geburtstag.?', mtConfirmation, [mbOK],0);
      Geburtstagheute := True;
    end
    else
    begin
      if CalcBirthday(Patient1Qry.FieldByName('GEBURTSDATUM').AsDateTime) then
        lblAlter.Font.Color := clRed
      else
        lblAlter.Font.Color := clBlack;
    end;

Also, ich halte das für einen strafbaren Missbrauch persönlicher Daten. Da lebt der Mensch glücklich und zufrieden in einer Superposition aller Alterszustände und dann macht ihn jemand darauf aufmerksam, dass er Geburtstag hat. Folge: Die Wellenfunktion kollabiert und der Mensch muss sich der traurigen Erkenntnis stellen, dass er schon wieder ein Jahr näher an der Kiste ist... :wink:
Geburtstage sind was für Kinder, ab 21 sind sie nur noch lästig...

[Union]

Nur eine Kleinigkeit, aber boolean sollte man auch als solche behandeln:

Delphi-Quellcode:

and (Geburtstagheute = False)

Also niemals mit Konstanten vergleichen, sondern boolesche Logik verwenden. In dem Fall simpel:

Delphi-Quellcode:

and Geburtstagheute

Da es verschiedene boolean Typen gibt, deren Bedeutung sich auch noch teilweise unterscheidet, kannst Du dir damit auch ein schönes Ei legen.

[himitsu]

SQL-Code:

and not Geburtstagheute

:zwinker:

[Union]

Zitat:

Zitat von himitsu (Beitrag 1521490)

SQL-Code:

and not Geburtstagheute

:zwinker:

Wie peinlich :oops:

[Delphi.Narium]

Wenn dann eher andersherum

Delphi-Quellcode:

if not Geburtstagheute and (CalcBirthday(Patient1Qry.FieldByName('GEBURTSDATUM').AsDateTime)) then

Dann können wir uns ggfls. auch noch die mehr oder weniger komplexe Berechnung in CalcBirthday sparen, jedenfalls dann, wenn boolsche Ausdrücke nicht vollständig ausgewertet werden müssen ;-)

[himitsu]

Und auch das Doppelte rauswerfen.

Delphi-Quellcode:

if CalcBirthday(Patient1Qry.FieldByName('GEBURTSDATUM').AsDateTime) and (Geburtstagheute = False) then
    begin
      //lblAlter.Font.Color := clRed;
      MessageDlg('Patient / Klient / Kunde hat heute Geburtstag.?', mtConfirmation, [mbOK],0);
      Geburtstagheute := True;
    end
;
//    else
//    begin
      if CalcBirthday(Patient1Qry.FieldByName('GEBURTSDATUM').AsDateTime) then
        lblAlter.Font.Color := clRed
      else
        lblAlter.Font.Color := clBlack;
//    end;

Im ersten IF ist etwas, was auch im 2. IF nochmal drin ist -> die Farbe.

Delphi-Quellcode:

HatGeburtstag := CalcBirthday(Patient1Qry.FieldByName('GEBURTSDATUM').AsDateTime);
if HatGeburtstag and not GeburtstagHeute then
  MessageDlg('Patient / Klient / Kunde hat heute Geburtstag?', mtConfirmation, [mbOK], 0);
GeburtstagHeute := True;

//if HatGeburtstag then
//  lblAlter.Font.Color := clRed
//else
//  lblAlter.Font.Color := clBlack;
lblAlter.Font.Color := IfThen(HatGeburtstag, clRed, clBlack);

2 Drittel weniger Code, nichts Mehrfach und vermutlich auch übersichtlicher/verständlicher.


wobei

Delphi-Quellcode:

HatGeburtstag := CalcBirthday(Patient1Qry.FieldByName('GEBURTSDATUM').AsDateTime);
//if HatGeburtstag and not GeburtstagHeute then GeburtstagHeute := MessageDlg('Patient / Klient / Kunde hat heute Geburtstag?', mtConfirmation, [mbClose,mbIgnore], 0) = mrIgnore;
//if HatGeburtstag then GeburtstagHeute := GeburtstagHeute or (MessageDlg('Patient / Klient / Kunde hat heute Geburtstag?', mtConfirmation, [mbClose,mbIgnore], 0) = mrIgnore);
GeburtstagHeute := GeburtstagHeute or (HatGeburtstag and (MessageDlg('Patient / Klient / Kunde hat heute Geburtstag?', mtConfirmation, [mbClose,mbIgnore], 0) = mrIgnore));
lblAlter.Font.Color := IfThen(HatGeburtstag, clRed, clBlack);

[TurboMagic]

Zitat:

Zitat von peterbelow (Beitrag 1521486)

Zitat:

Zitat von Walter Landwehr (Beitrag 1521433)

Danke an alle habe es hinbekommen. Anzeige im OnShow und dann im AfterScroll.
OnShow der Form

Delphi-Quellcode:

Geburtstagheute := False;

.
Im AfterScroll

Delphi-Quellcode:

if CalcBirthday(Patient1Qry.FieldByName('GEBURTSDATUM').AsDateTime) and (Geburtstagheute = False) then
    begin
      lblAlter.Font.Color := clRed;
      MessageDlg('Patient / Klient / Kunde hat heute Geburtstag.?', mtConfirmation, [mbOK],0);
      Geburtstagheute := True;
    end
    else
    begin
      if CalcBirthday(Patient1Qry.FieldByName('GEBURTSDATUM').AsDateTime) then
        lblAlter.Font.Color := clRed
      else
        lblAlter.Font.Color := clBlack;
    end;

Also, ich halte das für einen strafbaren Missbrauch persönlicher Daten. Da lebt der Mensch glücklich und zufrieden in einer Superposition aller Alterszustände und dann macht ihn jemand darauf aufmerksam, dass er Geburtstag hat. Folge: Die Wellenfunktion kollabiert und der Mensch muss sich der traurigen Erkenntnis stellen, dass er schon wieder ein Jahr näher an der Kiste ist... :wink:
Geburtstage sind was für Kinder, ab 21 sind sie nur noch lästig...

Naja, man könnte dem Kunden ein Boolsches Flag spendieren das man setzen kann wenn er nicht an den Geburtstag erinnert werden will... ;-)

[MyRealName]

Zitat:

Zitat von TurboMagic (Beitrag 1521537)

Naja, man könnte dem Kunden ein Boolsches Flag spendieren das man setzen kann wenn er nicht an den Geburtstag erinnert werden will... ;-)

Wobei es fraglich ist, ob man einen Menschen an seinen Geburtstag erinnern muss... Bin fast 50 und mir ist meiner noch NIE entfallen :)

[himitsu]

Och, kann schonmal passieren.
Und vielleicht will man nicht mehr erinnert werden?

Mann hat es ja nicht so leicht, wie die Anderen, denn wie heißt es gerne mal?
"Die besten 10 Jahre der Frau sind die zwischen 29 und 30."



Aber ja, natürlich kommt es drauf an.
Hier hatte sich auch mal wer gewünscht, dass beim Einloggen "alle" die heutigen Geburtstage sehen.
Was schon ein bissl gegen den Datenschutz ist.

[TurboMagic]

Bei uns in der Abteilung gibt's einen GID (Geburtags Informations Dienst).
Kann man "abonieren", man kann die Meldung seines Geburtstages aber sicher
auch rausnehmen lassen...