IBDatabase und Loginprompt

[dor557]

Habe folgende Frage.

Wenn ich eine Datenbank beim Programmstart connecten möchte dann kann ich ja mit der eigenschaft ein / ausschalten :
  IBDatabase1.LoginPrompt := false Kann ich wenn der wert auf True sitzt die eingegebenen Daten (User_name / password) auslesen ?? oder muss ich da meine Eigene methode benutzen und ein Eigenes LoginPrompt erstellen !?

Danke für eure Tipps....

[Bernhard Geyer]

Username ja (über passenden SQL-Befehl), Passwort hoffentlich nicht (außer es liegt in irgendwelchen Properties der Delphi-Komponenten vor).

[dor557]

Es geht darum :

Wenn der user in der Firebird datenbank anerkannt ist soll er auch berechtigt sein eine datenbank zu estellen welche ich mit einem Script ausführen lasse.

nur wenn das Passwort richtig ist versteht sich.

wenn nicht geht das ja sowiso nicht und ich bekomme eine Exception....

Sprich beim start wird die datenbank versucht zu öffnen.

Geht das nicht da die Datenbank datei nicht existiert (Exception) wir der Benutzer gefragt ob er eine erstellen möchte.

nun ist es ja sowohl für das erstellen und das einloggen notwendig das der user dem FB Server bekannt ist. wenn nicht kommt eine Exception mit Dem Error Code 152. somit wird der user gefragt ob er das erneut versuchen möchte.

Problem : Wenn ich die Datenbank mit hilfe von IBScript anlegen möchte und den Benutzernamen und das passwort eintragen möchte kann ich das ja schlecht wenn es nicht benutzen kann bzw. auslesen beim Login von IBDatabase denn solange keine DB existiert komme ich so oder so nicht dran...

jemand einen Rat oder vorschlag ?

Edit : Tippfehler

[mkinzler]

Eigener Logindialog

[dor557]

Sprich also Selbst erstellen....

[mkinzler]

Ja macht ja auch mehr her als den Standard-Dialog der Komponentensammlung

[dor557]

Ok. Also Eigene Creation

danke bis die Tage !!

Gruss Sascha

[Faxman]

hallo sascha,

schaue dir mal die JvLoginDialog komponente aus der Jeti komponentensammlung an
die sollte das alles händeln.

schöne grüße,

[dor557]

Die DBConnection Componente hat das auch Automatisch....

Nur sieht die warscheinlich auch nicht so super aus !! Oder !?

[dor557]

So nun Folgende lösung, aber dennoch ein Problem was ich nicht verstehe !! :

Ich habe Folgende Function Geschrieben :

Delphi-Quellcode:

function TstartProcess.Login_Panel : Integer;
begin
  try
    SendMessage(handle, CM_ACTIVATE, 0, 0);
    ModalResult := 0;
    repeat
      Application.HandleMessage;
      If Application.Terminated Then ModalResult := mrCancel else
        if ModalResult <> 0 then LoginPanel.Visible := false;
    until ModalResult <> 0;
    Result := ModalResult;
    SendMessage(Handle, CM_DEACTIVATE, 0, 0);
  finally
  end;
end;

Diese als Public unter dem SplashScreen eingesetzt. (Bei mir nennt sich das StartProcess wie man sieht...

Dann habe ich einen Button darauf gesetzt der das ModalResult mrOK zurückgibt.

Wenn ich bei der Programmierung das Panel auf :

visible := true; setze dann wird das angezeigt und ich kann in der Oben angezeigten procedure folgenden code mit hinzufügen :

Delphi-Quellcode:

....
begin
  MainProcess.LoginPanel.Visible := false;
  try
....

und das Panel verschwindet und ist unsichtbar.

Nur umgekehrt... das es erst sichtbar gemacht wird geht nicht !! hat dafür jemand eine Erklärung ??

PS: die funktion rufe ich genauso auf wie die ShowModal funktion bei mir in dem Fall :

Delphi-Quellcode:

case startProcess.Login_Panel of
  mrOK : ShowMessage('Das Modale Panel Funktioniert');
  mrCancel :;
end;

Hat jemand eine mögliche Lösung in dem Fall ??

Gruss Sascha