Den
DB-User und das Passwort kann ich ja beim Klicken des "OK"-Buttons im Login-Formular übergeben,
mir gehts um die Platzierung des Formulars beim Startablauf der Anwendung.
Mein Code im Datamodul :
Delphi-Quellcode:
procedure TDataModule1.DataModuleCreate(Sender: TObject);
begin
Application.CreateForm(TfrmLogin, frmLogin);
frmLogin.ShowModal;
... und im Login-Formular:
Delphi-Quellcode:
procedure TfrmLogin.BitBtnOKClick(Sender: TObject);
begin
gUser.
Name := edUserName.Text;
gUser.Password := edPassword.Text;
try
DataModule1.DBConnect_SV2.Open(gUser.
Name, gUser.Password);
except
on Exception do
begin
ShowMessage('
Eingabe fehlerhaft !');
Update;
end;
end;
Ich kreiere jetzt das Login-Form manuell über Application.CreateForm, nur klappt da das
Exception-Handling nicht...