paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-28 23:24:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Proper fix for 35887

Browse Source 
git-svn-id: trunk@42933 -
This commit is contained in:
michael 2019-09-07 14:25:22 +00:00
parent 0bbe319d4c
commit aee20cd54d
1 changed files with 13 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
packages/fcl-db/src/sqldb/sqldb.pp
View File

@ -508,6 +508,7 @@ type
procedure SetUpdateMode(AValue : TUpdateMode);
procedure OnChangeModifySQL(Sender : TObject);
procedure Execute;
procedure ApplyFilter;
Function AddFilter(SQLstr : string) : string;
protected
function CreateSQLStatement(aOwner: TComponent): TCustomSQLStatement; virtual;
@ -2695,6 +2696,16 @@ begin
end;
end;
procedure TCustomSQLQuery.ApplyFilter;
begin
FStatement.Unprepare;
FStatement.DoPrepare;
FStatement.DoExecute;
InternalRefresh;
First;
end;
procedure TCustomSQLQuery.SetActive(Value: Boolean);
begin
@ -2713,11 +2724,7 @@ begin
if (ServerFiltered <> Value) then
begin
FServerFiltered := Value;
if Active then
begin
Close;
Open;
end;
if Active then ApplyFilter;
end;
end;
@ -2726,11 +2733,7 @@ begin
if Value <> ServerFilter then
begin
FServerFilterText := Value;
if Active then
begin
Close;
Open;
end;
if Active then ApplyFilter;
end;
end;