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

Distinguish between multiple stored procedures with different argument list, on PostgreSQL. Closes #58.

Browse Source
This commit is contained in:
Ansgar Becker
2018-04-09 22:17:04 +02:00
parent 7e28c51e3b
commit 8202e76b92
3 changed files with 54 additions and 45 deletions
Download Patch File Download Diff File Expand all files Collapse all files

90
source/dbconnection.pas
View File

@ -37,7 +37,7 @@ type
Created, Updated, LastChecked: TDateTime; Created, Updated, LastChecked: TDateTime;
Rows, Size, Version, AvgRowLen, MaxDataLen, IndexLen, DataLen, DataFree, AutoInc, CheckSum: Int64; Rows, Size, Version, AvgRowLen, MaxDataLen, IndexLen, DataLen, DataFree, AutoInc, CheckSum: Int64;
// Routine options: // Routine options:
Body, Definer, Returns, DataAccess, Security: String; Body, Definer, Returns, DataAccess, Security, ArgTypes: String;
Deterministic: Boolean; Deterministic: Boolean;
NodeType, GroupType: TListNodeType; NodeType, GroupType: TListNodeType;
@ -387,7 +387,7 @@ type
function GetKeyColumns(Columns: TTableColumnList; Keys: TTableKeyList): TStringList; function GetKeyColumns(Columns: TTableColumnList; Keys: TTableKeyList): TStringList;
function ConnectionInfo: TStringList; function ConnectionInfo: TStringList;
function GetLastResults: TDBQueryList; virtual; abstract; function GetLastResults: TDBQueryList; virtual; abstract;
function GetCreateCode(Database, Schema, Name: String; NodeType: TListNodeType): String; virtual; function GetCreateCode(Obj: TDBObject): String; virtual;
procedure PrefetchCreateCode(Objects: TDBObjectList); procedure PrefetchCreateCode(Objects: TDBObjectList);
function GetSessionVariables(Refresh: Boolean): TDBQuery; function GetSessionVariables(Refresh: Boolean): TDBQuery;
function MaxAllowedPacket: Int64; virtual; abstract; function MaxAllowedPacket: Int64; virtual; abstract;
@ -480,7 +480,7 @@ type
procedure Query(SQL: String; DoStoreResult: Boolean=False; LogCategory: TDBLogCategory=lcSQL); override; procedure Query(SQL: String; DoStoreResult: Boolean=False; LogCategory: TDBLogCategory=lcSQL); override;
function Ping(Reconnect: Boolean): Boolean; override; function Ping(Reconnect: Boolean): Boolean; override;
function GetLastResults: TDBQueryList; override; function GetLastResults: TDBQueryList; override;
function GetCreateCode(Database, Schema, Name: String; NodeType: TListNodeType): String; override; function GetCreateCode(Obj: TDBObject): String; override;
property LastRawResults: TMySQLRawResults read FLastRawResults; property LastRawResults: TMySQLRawResults read FLastRawResults;
function MaxAllowedPacket: Int64; override; function MaxAllowedPacket: Int64; override;
function ExplainAnalyzer(SQL, DatabaseName: String): Boolean; override; function ExplainAnalyzer(SQL, DatabaseName: String): Boolean; override;
@ -2674,7 +2674,7 @@ begin
end; end;
function TMySQLConnection.GetCreateCode(Database, Schema, Name: String; NodeType: TListNodeType): String; function TMySQLConnection.GetCreateCode(Obj: TDBObject): String;
var var
Column: Integer; Column: Integer;
ObjType: String; ObjType: String;
@ -2682,18 +2682,18 @@ var
begin begin
Column := -1; Column := -1;
TmpObj := TDBObject.Create(Self); TmpObj := TDBObject.Create(Self);
TmpObj.NodeType := NodeType; TmpObj.NodeType := Obj.NodeType;
ObjType := TmpObj.ObjType; ObjType := TmpObj.ObjType;
case NodeType of case Obj.NodeType of
lntTable, lntView: Column := 1; lntTable, lntView: Column := 1;
lntFunction, lntProcedure, lntTrigger: Column := 2; lntFunction, lntProcedure, lntTrigger: Column := 2;
lntEvent: Column := 3; lntEvent: Column := 3;
else Exception.CreateFmt(_('Unhandled list node type in %s.%s'), [ClassName, 'GetCreateCode']); else Exception.CreateFmt(_('Unhandled list node type in %s.%s'), [ClassName, 'GetCreateCode']);
end; end;
if NodeType = lntView then if Obj.NodeType = lntView then
Result := GetCreateViewCode(Database, Name) Result := GetCreateViewCode(Obj.Database, Obj.Name)
else else
Result := GetVar('SHOW CREATE '+UpperCase(TmpObj.ObjType)+' '+QuoteIdent(Database)+'.'+QuoteIdent(Name), Column); Result := GetVar('SHOW CREATE '+UpperCase(Obj.ObjType)+' '+QuoteIdent(Obj.Database)+'.'+QuoteIdent(Obj.Name), Column);
TmpObj.Free; TmpObj.Free;
end; end;
@ -2757,7 +2757,7 @@ begin
end; end;
function TDBConnection.GetCreateCode(Database, Schema, Name: String; NodeType: TListNodeType): String; function TDBConnection.GetCreateCode(Obj: TDBObject): String;
var var
Cols, Keys, ProcDetails, Comments: TDBQuery; Cols, Keys, ProcDetails, Comments: TDBQuery;
ConstraintName, MaxLen, DataType: String; ConstraintName, MaxLen, DataType: String;
@ -2769,16 +2769,16 @@ var
// TODO: Does not work on MSSQL 2000 // TODO: Does not work on MSSQL 2000
function SchemaClauseIS(Prefix: String): String; function SchemaClauseIS(Prefix: String): String;
begin begin
if Schema <> '' then if Obj.Schema <> '' then
Result := Prefix+'_SCHEMA='+EscapeString(Schema) Result := Prefix+'_SCHEMA='+EscapeString(Obj.Schema)
else else
Result := Prefix+'_CATALOG='+EscapeString(Database); Result := Prefix+'_CATALOG='+EscapeString(Obj.Database);
end; end;
begin begin
case NodeType of case Obj.NodeType of
lntTable: begin lntTable: begin
Result := 'CREATE TABLE '+QuoteIdent(Name)+' ('; Result := 'CREATE TABLE '+QuoteIdent(Obj.Name)+' (';
Comments := nil; Comments := nil;
// Retrieve column details from IS // Retrieve column details from IS
@ -2802,14 +2802,14 @@ begin
' AND pgc.oid = a.attrelid '+ ' AND pgc.oid = a.attrelid '+
' AND pg_table_is_visible(pgc.oid) '+ ' AND pg_table_is_visible(pgc.oid) '+
' AND NOT a.attisdropped '+ ' AND NOT a.attisdropped '+
' AND pgc.relname = '+EscapeString(Name)+' '+ ' AND pgc.relname = '+EscapeString(Obj.Name)+' '+
'ORDER BY a.attnum' 'ORDER BY a.attnum'
); );
end; end;
else begin else begin
Cols := GetResults('SELECT * FROM INFORMATION_SCHEMA.COLUMNS WHERE '+ Cols := GetResults('SELECT * FROM INFORMATION_SCHEMA.COLUMNS WHERE '+
SchemaClauseIS('TABLE') + SchemaClauseIS('TABLE') +
' AND TABLE_NAME='+EscapeString(Name) ' AND TABLE_NAME='+EscapeString(Obj.Name)
); );
// Comments in MSSQL. See http://www.heidisql.com/forum.php?t=19576 // Comments in MSSQL. See http://www.heidisql.com/forum.php?t=19576
Comments := GetResults('SELECT c.name AS '+QuoteIdent('column')+', prop.value AS '+QuoteIdent('comment')+' '+ Comments := GetResults('SELECT c.name AS '+QuoteIdent('column')+', prop.value AS '+QuoteIdent('comment')+' '+
@ -2819,8 +2819,8 @@ begin
'INNER JOIN sys.columns AS c ON prop.major_id = c.object_id AND prop.minor_id = c.column_id '+ 'INNER JOIN sys.columns AS c ON prop.major_id = c.object_id AND prop.minor_id = c.column_id '+
'WHERE '+ 'WHERE '+
' prop.name='+EscapeString('MS_Description')+ ' prop.name='+EscapeString('MS_Description')+
' AND s.name='+EscapeString(Schema)+ ' AND s.name='+EscapeString(Obj.Schema)+
' AND o.name='+EscapeString(Name) ' AND o.name='+EscapeString(Obj.Name)
); );
end; end;
end; end;
@ -2883,7 +2883,7 @@ begin
Keys := GetResults('WITH ndx_list AS ('+ Keys := GetResults('WITH ndx_list AS ('+
' SELECT pg_index.indexrelid, pg_class.oid'+ ' SELECT pg_index.indexrelid, pg_class.oid'+
' FROM pg_index, pg_class'+ ' FROM pg_index, pg_class'+
' WHERE pg_class.relname = '+EscapeString(Name)+ ' WHERE pg_class.relname = '+EscapeString(Obj.Name)+
' AND pg_class.oid = pg_index.indrelid'+ ' AND pg_class.oid = pg_index.indrelid'+
' ),'+ ' ),'+
' ndx_cols AS ('+ ' ndx_cols AS ('+
@ -2914,8 +2914,8 @@ begin
'LEFT JOIN '+QuoteIdent('pg_namespace')+' '+QuoteIdent('n')+' ON '+QuoteIdent('t')+'.'+QuoteIdent('relnamespace')+'='+QuoteIdent('n')+'.'+QuoteIdent('oid')+' '+ 'LEFT JOIN '+QuoteIdent('pg_namespace')+' '+QuoteIdent('n')+' ON '+QuoteIdent('t')+'.'+QuoteIdent('relnamespace')+'='+QuoteIdent('n')+'.'+QuoteIdent('oid')+' '+
'WHERE c.contype IN ('+EscapeString('p')+', '+EscapeString('u')+') '+ 'WHERE c.contype IN ('+EscapeString('p')+', '+EscapeString('u')+') '+
'AND '+QuoteIdent('a')+'.'+QuoteIdent('attnum')+'=ANY('+QuoteIdent('c')+'.'+QuoteIdent('conkey')+') '+ 'AND '+QuoteIdent('a')+'.'+QuoteIdent('attnum')+'=ANY('+QuoteIdent('c')+'.'+QuoteIdent('conkey')+') '+
'AND '+QuoteIdent('n')+'.'+QuoteIdent('nspname')+'='+EscapeString(Schema)+' '+ 'AND '+QuoteIdent('n')+'.'+QuoteIdent('nspname')+'='+EscapeString(Obj.Schema)+' '+
'AND '+QuoteIdent('t')+'.'+QuoteIdent('relname')+'='+EscapeString(Name)+' '+ 'AND '+QuoteIdent('t')+'.'+QuoteIdent('relname')+'='+EscapeString(Obj.Name)+' '+
'ORDER BY '+QuoteIdent('a')+'.'+QuoteIdent('attnum') 'ORDER BY '+QuoteIdent('a')+'.'+QuoteIdent('attnum')
); );
end; end;
@ -2925,7 +2925,7 @@ begin
' FROM INFORMATION_SCHEMA.TABLE_CONSTRAINTS AS C'+ ' FROM INFORMATION_SCHEMA.TABLE_CONSTRAINTS AS C'+
' INNER JOIN INFORMATION_SCHEMA.KEY_COLUMN_USAGE AS K ON'+ ' INNER JOIN INFORMATION_SCHEMA.KEY_COLUMN_USAGE AS K ON'+
' C.CONSTRAINT_NAME = K.CONSTRAINT_NAME'+ ' C.CONSTRAINT_NAME = K.CONSTRAINT_NAME'+
' AND K.TABLE_NAME='+EscapeString(Name)+ ' AND K.TABLE_NAME='+EscapeString(Obj.Name)+
' AND '+SchemaClauseIS('K.TABLE')+ ' AND '+SchemaClauseIS('K.TABLE')+
' WHERE C.CONSTRAINT_TYPE IN ('+EscapeString('PRIMARY KEY')+', '+EscapeString('UNIQUE')+')'+ ' WHERE C.CONSTRAINT_TYPE IN ('+EscapeString('PRIMARY KEY')+', '+EscapeString('UNIQUE')+')'+
' ORDER BY K.ORDINAL_POSITION'); ' ORDER BY K.ORDINAL_POSITION');
@ -2960,10 +2960,10 @@ begin
case FParameters.NetTypeGroup of case FParameters.NetTypeGroup of
ngPgSQL: begin ngPgSQL: begin
// Prefer pg_catalog tables. See http://www.heidisql.com/forum.php?t=16213#p16685 // Prefer pg_catalog tables. See http://www.heidisql.com/forum.php?t=16213#p16685
Result := 'CREATE VIEW ' + QuoteIdent(Name) + ' AS ' + GetVar('SELECT '+QuoteIdent('definition')+ Result := 'CREATE VIEW ' + QuoteIdent(Obj.Name) + ' AS ' + GetVar('SELECT '+QuoteIdent('definition')+
' FROM '+QuoteIdent('pg_views')+ ' FROM '+QuoteIdent('pg_views')+
' WHERE '+QuoteIdent('viewname')+'='+EscapeString(Name)+ ' WHERE '+QuoteIdent('viewname')+'='+EscapeString(Obj.Name)+
' AND '+QuoteIdent('schemaname')+'='+EscapeString(Schema) ' AND '+QuoteIdent('schemaname')+'='+EscapeString(Obj.Schema)
); );
end; end;
ngMSSQL: begin ngMSSQL: begin
@ -2974,14 +2974,14 @@ begin
' JOIN '+QuoteIdent('SYS')+'.'+QuoteIdent('SQL_MODULES')+' AS '+QuoteIdent('MODS')+' ON '+QuoteIdent('OBJ')+'.'+QuoteIdent('OBJECT_ID')+'='+QuoteIdent('MODS')+'.'+QuoteIdent('OBJECT_ID')+ ' JOIN '+QuoteIdent('SYS')+'.'+QuoteIdent('SQL_MODULES')+' AS '+QuoteIdent('MODS')+' ON '+QuoteIdent('OBJ')+'.'+QuoteIdent('OBJECT_ID')+'='+QuoteIdent('MODS')+'.'+QuoteIdent('OBJECT_ID')+
' JOIN '+QuoteIdent('SYS')+'.'+QuoteIdent('SCHEMAS')+' AS '+QuoteIdent('SCHS')+' ON '+QuoteIdent('OBJ')+'.'+QuoteIdent('SCHEMA_ID')+'='+QuoteIdent('SCHS')+'.'+QuoteIdent('SCHEMA_ID')+ ' JOIN '+QuoteIdent('SYS')+'.'+QuoteIdent('SCHEMAS')+' AS '+QuoteIdent('SCHS')+' ON '+QuoteIdent('OBJ')+'.'+QuoteIdent('SCHEMA_ID')+'='+QuoteIdent('SCHS')+'.'+QuoteIdent('SCHEMA_ID')+
' WHERE '+QuoteIdent('OBJ')+'.'+QuoteIdent('TYPE')+'='+EscapeString('V')+ ' WHERE '+QuoteIdent('OBJ')+'.'+QuoteIdent('TYPE')+'='+EscapeString('V')+
' AND '+QuoteIdent('SCHS')+'.'+QuoteIdent('NAME')+'='+EscapeString(Schema)+ ' AND '+QuoteIdent('SCHS')+'.'+QuoteIdent('NAME')+'='+EscapeString(Obj.Schema)+
' AND '+QuoteIdent('OBJ')+'.'+QuoteIdent('NAME')+'='+EscapeString(Name) ' AND '+QuoteIdent('OBJ')+'.'+QuoteIdent('NAME')+'='+EscapeString(Obj.Name)
); );
end; end;
else begin else begin
Result := GetVar('SELECT VIEW_DEFINITION'+ Result := GetVar('SELECT VIEW_DEFINITION'+
' FROM INFORMATION_SCHEMA.VIEWS'+ ' FROM INFORMATION_SCHEMA.VIEWS'+
' WHERE TABLE_NAME='+EscapeString(Name)+ ' WHERE TABLE_NAME='+EscapeString(Obj.Name)+
' AND '+SchemaClauseIS('TABLE') ' AND '+SchemaClauseIS('TABLE')
); );
end; end;
@ -2993,16 +2993,16 @@ begin
ngMSSQL: begin ngMSSQL: begin
// Tested on MS SQL 8.0 and 11.0 // Tested on MS SQL 8.0 and 11.0
// See http://www.heidisql.com/forum.php?t=12495 // See http://www.heidisql.com/forum.php?t=12495
if not Schema.IsEmpty then if not Obj.Schema.IsEmpty then
Rows := GetCol('EXEC sp_helptext '+EscapeString(Schema+'.'+Name)) Rows := GetCol('EXEC sp_helptext '+EscapeString(Obj.Schema+'.'+Obj.Name))
else else
Rows := GetCol('EXEC sp_helptext '+EscapeString(Database+'.'+Name)); Rows := GetCol('EXEC sp_helptext '+EscapeString(Obj.Database+'.'+Obj.Name));
// Do not use Rows.Text, as the rows already include a trailing linefeed // Do not use Rows.Text, as the rows already include a trailing linefeed
Result := implodestr('', Rows); Result := implodestr('', Rows);
Rows.Free; Rows.Free;
end; end;
ngPgSQL: begin ngPgSQL: begin
Result := 'CREATE FUNCTION '+QuoteIdent(Name); Result := 'CREATE FUNCTION '+QuoteIdent(Obj.Name);
ProcDetails := GetResults('SELECT '+ ProcDetails := GetResults('SELECT '+
QuoteIdent('p')+'.'+QuoteIdent('prosrc')+', '+ QuoteIdent('p')+'.'+QuoteIdent('prosrc')+', '+
QuoteIdent('p')+'.'+QuoteIdent('proargnames')+', '+ QuoteIdent('p')+'.'+QuoteIdent('proargnames')+', '+
@ -3011,8 +3011,9 @@ begin
'FROM '+QuoteIdent('pg_catalog')+'.'+QuoteIdent('pg_namespace')+' AS '+QuoteIdent('n')+' '+ 'FROM '+QuoteIdent('pg_catalog')+'.'+QuoteIdent('pg_namespace')+' AS '+QuoteIdent('n')+' '+
'JOIN '+QuoteIdent('pg_catalog')+'.'+QuoteIdent('pg_proc')+' AS '+QuoteIdent('p')+' ON '+QuoteIdent('p')+'.'+QuoteIdent('pronamespace')+' = '+QuoteIdent('n')+'.'+QuoteIdent('oid')+' '+ 'JOIN '+QuoteIdent('pg_catalog')+'.'+QuoteIdent('pg_proc')+' AS '+QuoteIdent('p')+' ON '+QuoteIdent('p')+'.'+QuoteIdent('pronamespace')+' = '+QuoteIdent('n')+'.'+QuoteIdent('oid')+' '+
'WHERE '+ 'WHERE '+
QuoteIdent('n')+'.'+QuoteIdent('nspname')+'='+EscapeString(Database)+ QuoteIdent('n')+'.'+QuoteIdent('nspname')+'='+EscapeString(Obj.Database)+
'AND '+QuoteIdent('p')+'.'+QuoteIdent('proname')+'='+EscapeString(Name) 'AND '+QuoteIdent('p')+'.'+QuoteIdent('proname')+'='+EscapeString(Obj.Name)+
'AND '+QuoteIdent('p')+'.'+QuoteIdent('proargtypes')+'='+EscapeString(Obj.ArgTypes)
); );
ArgNames := Explode(',', Copy(ProcDetails.Col('proargnames'), 2, Length(ProcDetails.Col('proargnames'))-2)); ArgNames := Explode(',', Copy(ProcDetails.Col('proargnames'), 2, Length(ProcDetails.Col('proargnames'))-2));
ArgTypes := Explode(' ', Copy(ProcDetails.Col('proargtypes'), 1, Length(ProcDetails.Col('proargtypes')))); ArgTypes := Explode(' ', Copy(ProcDetails.Col('proargtypes'), 1, Length(ProcDetails.Col('proargtypes'))));
@ -3033,7 +3034,7 @@ begin
else begin else begin
Result := GetVar('SELECT ROUTINE_DEFINITION'+ Result := GetVar('SELECT ROUTINE_DEFINITION'+
' FROM INFORMATION_SCHEMA.ROUTINES'+ ' FROM INFORMATION_SCHEMA.ROUTINES'+
' WHERE ROUTINE_NAME='+EscapeString(Name)+ ' WHERE ROUTINE_NAME='+EscapeString(Obj.Name)+
' AND ROUTINE_TYPE='+EscapeString('FUNCTION')+ ' AND ROUTINE_TYPE='+EscapeString('FUNCTION')+
' AND '+SchemaClauseIS('ROUTINE') ' AND '+SchemaClauseIS('ROUTINE')
); );
@ -3045,17 +3046,17 @@ begin
case Parameters.NetTypeGroup of case Parameters.NetTypeGroup of
ngMSSQL: begin ngMSSQL: begin
// See comments above // See comments above
if not Schema.IsEmpty then if not Obj.Schema.IsEmpty then
Rows := GetCol('EXEC sp_helptext '+EscapeString(Schema+'.'+Name)) Rows := GetCol('EXEC sp_helptext '+EscapeString(Obj.Schema+'.'+Obj.Name))
else else
Rows := GetCol('EXEC sp_helptext '+EscapeString(Database+'.'+Name)); Rows := GetCol('EXEC sp_helptext '+EscapeString(Obj.Database+'.'+Obj.Name));
Result := implodestr('', Rows); Result := implodestr('', Rows);
Rows.Free; Rows.Free;
end; end;
else begin else begin
Result := GetVar('SELECT ROUTINE_DEFINITION'+ Result := GetVar('SELECT ROUTINE_DEFINITION'+
' FROM INFORMATION_SCHEMA.ROUTINES'+ ' FROM INFORMATION_SCHEMA.ROUTINES'+
' WHERE ROUTINE_NAME='+EscapeString(Name)+ ' WHERE ROUTINE_NAME='+EscapeString(Obj.Name)+
' AND ROUTINE_TYPE='+EscapeString('PROCEDURE')+ ' AND ROUTINE_TYPE='+EscapeString('PROCEDURE')+
' AND '+SchemaClauseIS('ROUTINE') ' AND '+SchemaClauseIS('ROUTINE')
); );
@ -4718,7 +4719,7 @@ begin
// Stored functions. No procedures in PostgreSQL. // Stored functions. No procedures in PostgreSQL.
// See http://dba.stackexchange.com/questions/2357/what-are-the-differences-between-stored-procedures-and-stored-functions // See http://dba.stackexchange.com/questions/2357/what-are-the-differences-between-stored-procedures-and-stored-functions
try try
Results := GetResults('SELECT '+QuoteIdent('p')+'.'+QuoteIdent('proname')+' '+ Results := GetResults('SELECT '+QuoteIdent('p')+'.'+QuoteIdent('proname')+', '+QuoteIdent('p')+'.'+QuoteIdent('proargtypes')+' '+
'FROM '+QuoteIdent('pg_catalog')+'.'+QuoteIdent('pg_namespace')+' AS '+QuoteIdent('n')+' '+ 'FROM '+QuoteIdent('pg_catalog')+'.'+QuoteIdent('pg_namespace')+' AS '+QuoteIdent('n')+' '+
'JOIN '+QuoteIdent('pg_catalog')+'.'+QuoteIdent('pg_proc')+' AS '+QuoteIdent('p')+' ON '+QuoteIdent('p')+'.'+QuoteIdent('pronamespace')+' = '+QuoteIdent('n')+'.'+QuoteIdent('oid')+' '+ 'JOIN '+QuoteIdent('pg_catalog')+'.'+QuoteIdent('pg_proc')+' AS '+QuoteIdent('p')+' ON '+QuoteIdent('p')+'.'+QuoteIdent('pronamespace')+' = '+QuoteIdent('n')+'.'+QuoteIdent('oid')+' '+
'WHERE '+QuoteIdent('n')+'.'+QuoteIdent('nspname')+'='+EscapeString(db) 'WHERE '+QuoteIdent('n')+'.'+QuoteIdent('nspname')+'='+EscapeString(db)
@ -4731,6 +4732,7 @@ begin
obj := TDBObject.Create(Self); obj := TDBObject.Create(Self);
Cache.Add(obj); Cache.Add(obj);
obj.Name := Results.Col('proname'); obj.Name := Results.Col('proname');
obj.ArgTypes := Results.Col('proargtypes');
obj.Database := db; obj.Database := db;
obj.NodeType := lntFunction; obj.NodeType := lntFunction;
Results.Next; Results.Next;
@ -6387,7 +6389,7 @@ begin
if Obj = nil then if Obj = nil then
raise EDatabaseError.Create(f_('Could not find table or view %s.%s. Please refresh database tree.', [DB, TableName])); raise EDatabaseError.Create(f_('Could not find table or view %s.%s. Please refresh database tree.', [DB, TableName]));
end; end;
CreateCode := Connection.GetCreateCode(Obj.Database, Obj.Schema, Obj.Name, Obj.NodeType); CreateCode := Connection.GetCreateCode(Obj);
FColumns := TTableColumnList.Create; FColumns := TTableColumnList.Create;
FKeys := TTableKeyList.Create; FKeys := TTableKeyList.Create;
FForeignKeys := TForeignKeyList.Create; FForeignKeys := TForeignKeyList.Create;
@ -7057,6 +7059,7 @@ begin
Comment := s.Comment; Comment := s.Comment;
Rows := s.Rows; Rows := s.Rows;
Size := s.Size; Size := s.Size;
ArgTypes := s.ArgTypes;
FCreateCode := s.FCreateCode; FCreateCode := s.FCreateCode;
FCreateCodeFetched := s.FCreateCodeFetched; FCreateCodeFetched := s.FCreateCodeFetched;
end else end else
@ -7074,6 +7077,7 @@ begin
and (Database = CompareTo.Database) and (Database = CompareTo.Database)
and (Schema = CompareTo.Schema) and (Schema = CompareTo.Schema)
and (Column = CompareTo.Column) and (Column = CompareTo.Column)
and (ArgTypes = CompareTo.ArgTypes)
and (Connection = CompareTo.Connection); and (Connection = CompareTo.Connection);
end; end;
@ -7174,7 +7178,7 @@ end;
function TDBObject.GetCreateCode: String; function TDBObject.GetCreateCode: String;
begin begin
if not FCreateCodeFetched then try if not FCreateCodeFetched then try
CreateCode := Connection.GetCreateCode(Database, Schema, Name, NodeType); CreateCode := Connection.GetCreateCode(Self);
except on E:Exception do except on E:Exception do
Connection.Log(lcError, E.Message); Connection.Log(lcError, E.Message);
end; end;

7
source/table_editor.pas
View File

@ -2249,6 +2249,7 @@ var
Err: String; Err: String;
RefColumns: TTableColumnList; RefColumns: TTableColumnList;
TypesMatch: Boolean; TypesMatch: Boolean;
RefObj: TDBObject;
begin begin
// Cell text in foreign key list edited // Cell text in foreign key list edited
Key := FForeignKeys[Node.Index]; Key := FForeignKeys[Node.Index];
@ -2294,7 +2295,11 @@ begin
RefDatabase := Copy(RefTable, 1, i-1); RefDatabase := Copy(RefTable, 1, i-1);
RefTable := Copy(RefTable, i+1, MaxInt); RefTable := Copy(RefTable, i+1, MaxInt);
end; end;
RefCreateCode := DBObject.Connection.GetCreateCode(RefDatabase, '', RefTable, lntTable); RefObj := TDBObject.Create(DBObject.Connection);
RefObj.Name := RefTable;
RefObj.Database := RefDatabase;
RefObj.NodeType := lntTable;
RefCreateCode := DBObject.Connection.GetCreateCode(RefObj);
RefColumns := TTableColumnList.Create(True); RefColumns := TTableColumnList.Create(True);
DBObject.Connection.ParseTableStructure(RefCreateCode, RefColumns, nil, nil); DBObject.Connection.ParseTableStructure(RefCreateCode, RefColumns, nil, nil);
TypesMatch := True; TypesMatch := True;

2
source/trigger_editor.pas
View File

@ -130,7 +130,7 @@ begin
rx.ModifierI := True; rx.ModifierI := True;
rx.Expression := 'FOR\s+EACH\s+ROW\s+(.+)$'; rx.Expression := 'FOR\s+EACH\s+ROW\s+(.+)$';
try try
Body := DBObject.Connection.GetCreateCode(DBObject.Database, DBObject.Schema, DBObject.Name, lntTrigger); Body := DBObject.Connection.GetCreateCode(DBObject);
if rx.Exec(Body) then if rx.Exec(Body) then
Body := rx.Match[1] Body := rx.Match[1]
else else