opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-26 11:17:57 +08:00
Code Issues Packages Projects Releases Wiki Activity

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.

Browse Source
This commit is contained in:
Ansgar Becker
2010-07-24 13:32:09 +00:00
parent 33ff2e95d3
commit b3526fa9d1
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
source/mysql_connection.pas
View File

@ -191,6 +191,7 @@ type
FConnectionStarted: Integer;
FServerStarted: Integer;
FParameters: TConnectionParameters;
FLoginPromptDone: Boolean;
FDatabase: String;
FLogPrefix: String;
FOnLog: TMySQLLogEvent;
@ -409,6 +410,7 @@ begin
FLogPrefix := '';
FIsUnicode := False;
FDatabases := TDatabaseList.Create(True);
FLoginPromptDone := False;
end;
@ -435,13 +437,14 @@ var
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