|
@@ -346,15 +346,10 @@ begin
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
-{ TQueryThread }
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
|
|
|
{ ApplyClick: Save Updates for the query }
|
|
|
|
|
|
procedure TfmQueryWindow.ApplyClick(Sender: TObject);
|
|
|
-//todo: review this and perhaps use regular FPC databound controls? autogenerated updatesql etc
|
|
|
var
|
|
|
i, x: Integer;
|
|
|
TableName: string;
|
|
@@ -563,7 +558,7 @@ begin
|
|
|
end;
|
|
|
|
|
|
if (Pos('select', MassagedSQL) = 1) then
|
|
|
- { todo: low priority misses insert...returning,
|
|
|
+ { todo: (low priority) misses insert...returning,
|
|
|
update...returning, merge.. returning...}
|
|
|
Result:= qtSelectable
|
|
|
else
|
|
@@ -578,6 +573,7 @@ begin
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
+{ TQueryThread }
|
|
|
|
|
|
{ DoJob: Execute thread job: open query, execute, commit, rollback, etc }
|
|
|
|