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.