If a session is configured to prompt for username + password, only prompt on the initial connect, not on each reconnection, which is annoying and superfluous.

ansgarbecker · ansgarbecker · commit b3526fa9d1b1 · 2010-07-24T13:32:09.000Z
diff --git a/source/mysql_connection.pas b/source/mysql_connection.pas
@@ -191,6 +191,7 @@   TMySQLConnection = class(TComponent)
       FConnectionStarted: Integer;
       FServerStarted: Integer;
       FParameters: TConnectionParameters;
+      FLoginPromptDone: Boolean;
       FDatabase: String;
       FLogPrefix: String;
       FOnLog: TMySQLLogEvent;
@@ -409,6 +410,7 @@ constructor TMySQLConnection.Create(AOwner: TComponent);
   FLogPrefix := '';
   FIsUnicode := False;
   FDatabases := TDatabaseList.Create(True);
+  FLoginPromptDone := False;
 end;
 
 
@@ -435,13 +437,14 @@ procedure TMySQLConnection.SetActive( Value: Boolean );
   ExitCode: LongWord;
 begin
   if Value and (FHandle = nil) then begin
-    // Prompt for password
-    if FParameters.LoginPrompt then begin
+    // Prompt for password on initial connect
+    if FParameters.LoginPrompt and (not FLoginPromptDone) then begin
       UsernamePrompt := FParameters.Username;
       PasswordPrompt := FParameters.Password;
       LoginPrompt('Login to '+FParameters.Hostname+':', UsernamePrompt, PasswordPrompt);
       FParameters.Username := UsernamePrompt;
       FParameters.Password := PasswordPrompt;
+      FLoginPromptDone := True;
     end;
 
     // Get handle
