paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 01:39:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazDataDesktop: Support schema names. Issue #29799, patch from Daniel Gaspary

Browse Source 
git-svn-id: trunk@56751 -
This commit is contained in:
juha 2017-12-15 22:19:45 +00:00
parent a6e34f0a9b
commit ec9b0f1db8
1 changed files with 23 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
tools/lazdatadesktop/fraconnection.pp
View File

@ -26,8 +26,6 @@ type
FDescription: String;
FEngine: TFPDDEngine;
FQueryPanel : TQueryFrame;
{ private declarations }
{ public declarations }
procedure AddPair(LV: TListView; Const AName, AValue: String);
procedure ClearDisplay;
function GetCurrentObjectType: TObjectType;
@ -91,7 +89,7 @@ implementation
{$r *.lfm}
uses typinfo, fradata, lazdatadeskstr, frmgeneratesql;
uses typinfo, fradata, lazdatadeskstr, frmgeneratesql, sqltypes;
{ TConnectionEditor }
@ -315,21 +313,38 @@ begin
end;
end;
function CompareSqlIdentifier(Item1, Item2: TCollectionItem): Integer;
var
o1, o2: TSqlObjectIdenfier;
begin
o1:=Item1 as TSqlObjectIdenfier;
o2:=Item2 as TSqlObjectIdenfier;
Result:=CompareStr(o1.SchemaName, o2.SchemaName);
if Result=0
then
Result:=CompareStr(o1.ObjectName, o2.ObjectName);
end;
procedure TConnectionFrame.ShowTables(ATV : TTreeView;ParentNode : TTreeNode; AddSubNodes : Boolean = False);
Var
L : TStringList;
L : TSqlObjectIdentifierList;
I : Integer;
N : TTreeNode;
S : String;
begin
L:=TStringList.Create;
L:=TSqlObjectIdentifierList.Create(TSqlObjectIdenfier);
Try
FEngine.GetTableList(L);
L.Sorted:=True;
FEngine.GetObjectList(stTables, L);
L.Sort(@CompareSqlIdentifier);
For I:=0 to L.Count-1 do
begin
N:=NewNode(ATV,ParentNode,L[I],iiTable);
S:=L[i].ObjectName;
If L[i].SchemaName<>'' then
S:=L[i].SchemaName + '.' + S;
N:=NewNode(ATV,ParentNode,S,iiTable);
If AddSubNodes then
begin
NewNode(ATV,N,SNodeFields,iiFields);