Hi, das hab ich totall übersehen mit dem Alle Felder hinzufügen.
Das funktioniert jetzt. Ich habe PNr im Public-Teil als String deklariert.
So sieht der Quelltext aus:
Code:
program Arbeitszeitermittlung;
uses
Forms,
Login in 'Login.pas' {FrmLogin},
Arbeitszeit in 'Arbeitszeit.pas' {ArbeitszeitForm};
{$R *.res}
begin
Application.Initialize;
frmLogin := TfrmLogin.Create(Application);
if (frmLogin.ShowModal = 1) and frmLogin.PasswortOK then
begin
Application.CreateForm(TArbeitszeitForm, ArbeitszeitForm);
Application.Run;
end
else
Application.Terminate;
end.
Das ArbeitszeitForm öffnet sich noch immer nicht!