Einzelnen Beitrag anzeigen

m-werk

Registriert seit: 14. Jun 2002
215 Beiträge
 
Delphi 2009 Architect
 
#34
  Alt 17. Nov 2002, 20:41
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!
Grüße, m-werk
  Mit Zitat antworten Zitat