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

Cache the myriad of SELECT 123::regclass queries in a hash table on the PostgreSQL connection object. Closes #249, closes #538

Browse Source
This commit is contained in:
Ansgar Becker
2019-05-18 08:27:50 +02:00
parent 54f7b77c17
commit 178d92e273
1 changed files with 13 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
source/dbconnection.pas
View File

@ -86,6 +86,8 @@ type
// General purpose editing status flag
TEditingStatus = (esUntouched, esModified, esDeleted, esAddedUntouched, esAddedModified, esAddedDeleted);
TIntStringPairs = TDictionary<Integer, String>;
TColumnDefaultType = (cdtNothing, cdtText, cdtNull, cdtAutoInc, cdtExpression);
// Column object, many of them in a TObjectList
@ -342,6 +344,7 @@ type
FKeepAliveTimer: TTimer;
FFavorites: TStringList;
FPrefetchResults: TDBQueryList;
FRegClasses: TIntStringPairs;
procedure SetActive(Value: Boolean); virtual; abstract;
procedure DoBeforeConnect; virtual;
procedure DoAfterConnect; virtual;
@ -449,6 +452,7 @@ type
property LockedByThread: TThread read FLockedByThread write SetLockedByThread;
property Datatypes: TDBDataTypeArray read FDatatypes;
property Favorites: TStringList read FFavorites;
property RegClasses: TIntStringPairs read FRegClasses;
function GetLockedTableCount(db: String): Integer;
function IdentifierEquals(Ident1, Ident2: String): Boolean;
published
@ -1498,6 +1502,8 @@ begin
FCurrentUserHostCombination := '';
FKeepAliveTimer := TTimer.Create(Self);
FFavorites := TStringList.Create;
// PG only, cache for 123::regclass queries:
FRegClasses := TIntStringPairs.Create;
end;
@ -1548,6 +1554,7 @@ begin
ClearCache(True);
FKeepAliveTimer.Free;
FFavorites.Free;
FRegClasses.Free;
inherited;
end;
@ -7063,7 +7070,12 @@ begin
Result := '';
for i:=0 to ColumnCount-1 do begin
FieldTypeOID := PQftable(FCurrentResults, i);
Result := FConnection.GetVar('SELECT '+IntToStr(FieldTypeOID)+'::regclass');
if not FConnection.RegClasses.ContainsKey(FieldTypeOID) then begin
Result := FConnection.GetVar('SELECT '+IntToStr(FieldTypeOID)+'::regclass');
FConnection.RegClasses.Add(FieldTypeOID, Result);
end else begin
FConnection.RegClasses.TryGetValue(FieldTypeOID, Result);
end;
if Result <> '' then
Break;
end;