Arbeitszeitaufzeichnung - Ideen sind gefragt!

[MrSpock]

Hallo m-werk,

da die Arbeitszeittabelle ja auch auf der Personalnummer basiert, würde ich noch zwei Änderungen im bisherigen Programm machen:

Delphi-Quellcode:

if UpperCase(Trim(qryCheckPasswort.Value)) =
            UpperCase(Trim(ePasswort.Text)) then
         begin
            PasswortOK := True;
            PNr := qryCheckpersonalnummer.Value;
         end

An der Stelle, an der das Passwort überprüft wird, solltest du die gleich die Personalnummer in der Variablen PNr merken, die im pulic Bereich des Formulars deklariert werden muss, damit das Hauptformular später darauf zugreifen kann. Damit die Personalnummer in der qryCheck - Datenmenge erscheint, muss der SQL Text wie folgt aussehen:

Code:

SELECT Passwort,personalnummer FROM passwoerter W
    WHERE W.personalnummer =
       (SELECT personalnummer, name  FROM personen
          WHERE name = :name)

Außerdem musst du noch das neue Feld "Personalnummer" über den Feldeditor deiner Anwendung hinzufügen.

Jetzt kannst du dir überlegen, wie du die Eingabe auf dem Hauptformular realisierst. Bei speziellen Fragen helfe ich gerne weiter.