Issue #852: Implement Assign method on TTableColumnList and friends, TDBObject.LoadDetails and .UnloadDetails, and cross fingers that assigning details to Mainform.FActiveDbObj reduces the number of internal queries

This commit is contained in:
Ansgar Becker
2020-01-16 07:40:30 +01:00
parent 94cd1d84ed
commit 1c39075d7c
7 changed files with 121 additions and 51 deletions

View File

@ -513,7 +513,7 @@ begin
DBObject.Connection.Query(ComposeCreateStatement(editName.Text));
// Set editing name if create/alter query was successful
DBObject.Name := editName.Text;
DBObject.CreateCode := '';
DBObject.UnloadDetails;
FAlterRoutineType := ProcOrFunc;
if FAlterRoutineType = 'PROCEDURE' then DBObject.NodeType := lntProcedure
else DBObject.NodeType := lntFunction;