ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/branches/journaling/runtime/nongui/IBCustomDataSet.pas
(Generate patch)

Comparing ibx/trunk/runtime/nongui/IBCustomDataSet.pas (file contents):
Revision 349 by tony, Mon Oct 18 08:39:40 2021 UTC vs.
Revision 359 by tony, Tue Dec 7 09:37:32 2021 UTC

# Line 1854 | Line 1854 | begin
1854    FDataLink := TIBDataLink.Create(Self);
1855    FQDelete := TIBSQL.Create(Self);
1856    FQDelete.OnSQLChanging := SQLChanging;
1857 <  FQDelete.GoToFirstRecordOnExecute := False;
1857 >  FQDelete.GoToFirstRecordOnExecute := True;
1858    FQInsert := TIBSQL.Create(Self);
1859    FQInsert.OnSQLChanging := SQLChanging;
1860 <  FQInsert.GoToFirstRecordOnExecute := False;
1860 >  FQInsert.GoToFirstRecordOnExecute := true;
1861    FQRefresh := TIBSQL.Create(Self);
1862    FQRefresh.OnSQLChanging := SQLChanging;
1863    FQRefresh.GoToFirstRecordOnExecute := False;
# Line 1867 | Line 1867 | begin
1867    FQSelect.GoToFirstRecordOnExecute := False;
1868    FQModify := TIBSQL.Create(Self);
1869    FQModify.OnSQLChanging := SQLChanging;
1870 <  FQModify.GoToFirstRecordOnExecute := False;
1870 >  FQModify.GoToFirstRecordOnExecute := True;  {In Firebird 5, Update..Returning returns a cursor}
1871    FUpdateRecordTypes := [cusUnmodified, cusModified, cusInserted];
1872    FParamCheck := True;
1873    FGenerateParamNames := False;

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines