Hallo Frank,
zunächst mal vielen Dank für Deine Mühe. Ich habe die Anwendung jetzt mal so umgebaut. Leider hängt sich das Programm jetzt im Login auf.
Delphi-Quellcode:
procedure TLoginFrm.FormCreate(Sender: TObject);
begin
Design;
MandantenCbx.KeyValue := dmMain.MandantenQry.FieldByName('MandantenNr').AsInteger; <-------- An dieser Stelle hängt sich das Programm auf, nichts ist mehr möglich.
PasswortQry.open;
PasswortQry.FetchAll;
LeseLetzterBenutzer;
PasswortEdit.Text := '';
if dmMain.ibqryOptionen.State = dsinactive then
dmMain.ibqryOptionen.Open;
end;
Der Aufruf des Login Formular geschieht im Modul wie folgt:
Delphi-Quellcode:
With TLoginFrm.Create(Self) do
begin
ShowModal;
Release;
end;
dmMain.MandantenQry.FieldByName('MandantenNr').AsI nteger kann irgendwie nicht initialisiert werden.
Noch ne Idee hierzu?