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

Allow reference table in foreign key tab to be from a different database. See comment #17 in issue #400 : http://code.google.com/p/heidisql/issues/detail?id=400#c17

Browse Source
This commit is contained in:
Ansgar Becker
2009-08-22 16:07:03 +00:00
parent eed0c7bbfb
commit c058039c40
2 changed files with 27 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
source/main.pas
View File

@ -898,6 +898,7 @@ type
procedure ResetSelectedTableStuff;
procedure SetWindowCaption;
procedure OnMessageHandler(var Msg: TMsg; var Handled: Boolean);
function MaskMulti(str: WideString): WideString;
end;
@ -2132,6 +2133,21 @@ begin
end;
// Quote identifier, probably with multiple segments, e.g. db.table.column
function TMainform.MaskMulti(str: WideString): WideString;
var
Segments: TWideStringlist;
i: Integer;
begin
Segments := Explode('.', str);
Result := '';
for i:=0 to Segments.Count-1 do
Result := Result + mask(Segments[i]) + '.';
FreeAndNil(Segments);
Delete(Result, Length(Result), 1);
end;
procedure TMainForm.actExportSettingsExecute(Sender: TObject);
begin
// Export settings to .reg-file