399 |
|
FArrayFieldCount: integer; |
400 |
|
FArrayCacheOffset: integer; |
401 |
|
FAutoCommit: TIBAutoCommit; |
402 |
+ |
FCaseSensitiveParameterNames: boolean; |
403 |
|
FEnableStatistics: boolean; |
404 |
|
FGenerateParamNames: Boolean; |
405 |
|
FGeneratorField: TIBGenerator; |
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 |
|
|
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; |
814 |
|
property AutoCommit; |
815 |
|
property BufferChunks; |
816 |
|
property CachedUpdates; |
817 |
+ |
property CaseSensitiveParameterNames; |
818 |
|
property EnableStatistics; |
819 |
|
property DeleteSQL; |
820 |
|
property InsertSQL; |
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, |
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; |