ViewVC Help

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

root/public/ibx/trunk/runtime/nongui/IBCustomDataSet.pas

Comparing ibx/trunk/runtime/nongui/IBCustomDataSet.pas (file contents):
Revision 269 by tony, Thu Dec 6 15:55:01 2018 UTC vs.
Revision 270 by tony, Fri Jan 18 11:10:37 2019 UTC

#	Line 399 | Line 399 | type
399		FArrayFieldCount: integer;
400		FArrayCacheOffset: integer;
401		FAutoCommit: TIBAutoCommit;
402	+	FCaseSensitiveParameterNames: boolean;
403		FEnableStatistics: boolean;
404		FGenerateParamNames: Boolean;
405		FGeneratorField: TIBGenerator;
#	Line 474 | Line 475 | type
475		FieldIndex: integer; Buffer: PChar);
476		procedure InitModelBuffer(Qry: TIBSQL; Buffer: PChar);
477		function GetSelectStmtIntf: IStatement;
478	+	procedure SetCaseSensitiveParameterNames(AValue: boolean);
479		procedure SetUpdateMode(const Value: TUpdateMode);
480		procedure SetUpdateObject(Value: TIBDataSetUpdateObject);
481
#	Line 652 | Line 654 | type
654		property SelectStmtHandle: IStatement read GetSelectStmtIntf;
655
656		{Likely to be made published by descendant classes}
657	+	property CaseSensitiveParameterNames: boolean read FCaseSensitiveParameterNames
658	+	write SetCaseSensitiveParameterNames;
659		property BufferChunks: Integer read FBufferChunks write SetBufferChunks;
660		property CachedUpdates: Boolean read FCachedUpdates write SetCachedUpdates;
661		property UniDirectional: Boolean read FUniDirectional write SetUniDirectional default False;
#	Line 810 | Line 814 | type
814		property AutoCommit;
815		property BufferChunks;
816		property CachedUpdates;
817	+	property CaseSensitiveParameterNames;
818		property EnableStatistics;
819		property DeleteSQL;
820		property InsertSQL;
#	Line 3102 | Line 3107 | begin
3107		if not FInternalPrepared then
3108		InternalPrepare;
3109		Result := Params.ByName(ParamName);
3110	+	if Result = nil then
3111	+	IBError(ibxeParameterNameNotFound,[ParamName]);
3112		end;
3113
3114		function TIBCustomDataSet.GetRowsAffected(var SelectCount, InsertCount,
#	Line 4750 | Line 4757 | begin
4757		Result := FQSelect.Statement;
4758		end;
4759
4760	+	procedure TIBCustomDataSet.SetCaseSensitiveParameterNames(AValue: boolean);
4761	+	begin
4762	+	if FCaseSensitiveParameterNames = AValue then Exit;
4763	+	FCaseSensitiveParameterNames := AValue;
4764	+	if assigned(FQSelect) then
4765	+	FQSelect.CaseSensitiveParameterNames := AValue;
4766	+	end;
4767	+
4768		procedure TIBCustomDataSet.SetMasterDetailDelay(AValue: integer);
4769		begin
4770		FDataLink.DelayTimerValue := AValue;

Diff Legend

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