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

Move code from TDBObjectEditor.GetDefiners to new TDBConnection.AllUserHostCombinations

Browse Source
This commit is contained in:
Ansgar Becker
2019-07-22 07:44:19 +02:00
parent 0d054a1397
commit db9e76bd78
6 changed files with 24 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
source/apphelpers.pas
View File

@ -29,7 +29,6 @@ type
TDBObjectEditor = class(TFrame)
private
FModified: Boolean;
FDefiners: TStringList;
procedure SetModified(Value: Boolean);
protected
public
@ -38,7 +37,6 @@ type
destructor Destroy; override;
procedure Init(Obj: TDBObject); virtual;
function DeInit: TModalResult;
function GetDefiners: TStringList;
property Modified: Boolean read FModified write SetModified;
function ApplyModifications: TModalResult; virtual; abstract;
end;
@ -1976,25 +1974,6 @@ begin
end;
function TDBObjectEditor.GetDefiners: TStringList;
function q(s: String): String;
begin
Result := DBObject.Connection.QuoteIdent(s);
end;
begin
// For populating combobox items
if not Assigned(FDefiners) then begin
try
FDefiners := DBObject.Connection.GetCol('SELECT CONCAT('+q('User')+', '+esc('@')+', '+q('Host')+') FROM '+
q('mysql')+'.'+q('user')+' WHERE '+q('User')+'!='+esc('')+' ORDER BY '+q('User')+', '+q('Host'));
except on E:EDbError do
FDefiners := TStringList.Create;
end;
end;
Result := FDefiners;
end;
// Following code taken from OneInst.pas, http://assarbad.net/de/stuff/!import/nico.old/