Einzelnen Beitrag anzeigen

Benutzerbild von MrSpock
MrSpock
(Co-Admin)

Registriert seit: 7. Jun 2002
Ort: Owingen
5.865 Beiträge
 
Delphi 2010 Professional
 
#31
  Alt 17. Nov 2002, 17:22
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.
Albert
Live long and prosper


MrSpock
  Mit Zitat antworten Zitat