ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/public/ibx/branches/journaling/fbintf/client/FBStatement.pas

Comparing ibx/trunk/fbintf/client/FBStatement.pas (file contents):
Revision 345 by tony, Mon Aug 23 14:22:29 2021 UTC vs.
Revision 347 by tony, Mon Sep 20 22:08:20 2021 UTC

#	Line 59 | Line 59 | type
59		protected
60		FTransactionIntf: ITransaction;
61		FExecTransactionIntf: ITransaction;
62	+	FStaleReferenceChecks: boolean;
63		FSQLStatementType: TIBSQLStatementTypes;         { Select, update, delete, insert, create, alter, etc...}
64		FSQLDialect: integer;
65		FOpen: boolean;
#	Line 138 | Line 139 | type
139		function GetBatchCompletion: IBatchCompletion; virtual;
140		function GetBatchRowLimit: integer;
141		procedure SetBatchRowLimit(aLimit: integer);
142	+	{Stale Reference Check}
143	+	procedure SetStaleReferenceChecks(Enable:boolean); {default true}
144	+	function GetStaleReferenceChecks: boolean;
145		public
146		property ChangeSeqNo: integer read FChangeSeqNo;
147		property SQLParams: ISQLParams read GetSQLParams;
#	Line 179 | Line 183 | begin
183		FSQLDialect := SQLDialect;
184		FSQL := sql;
185		FBatchRowLimit := DefaultBatchRowLimit;
186	+	FStaleReferenceChecks := true;
187		end;
188
189		constructor TFBStatement.CreateWithParameterNames(Attachment: IAttachment;
#	Line 344 | Line 349 | begin
349		FBatchRowLimit := aLimit;
350		end;
351
352	+	procedure TFBStatement.SetStaleReferenceChecks(Enable: boolean);
353	+	begin
354	+	FStaleReferenceChecks := Enable;
355	+	end;
356	+
357	+	function TFBStatement.GetStaleReferenceChecks: boolean;
358	+	begin
359	+	Result := FStaleReferenceChecks;
360	+	end;
361	+
362		function TFBStatement.OpenCursor(aTransaction: ITransaction): IResultSet;
363		begin
364		Close;

Diff Legend

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