ViewVC Help

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

root/public/ibx/trunk/runtime/IBQuery.pas

Comparing ibx/trunk/runtime/IBQuery.pas (file contents):
Revision 18 by tony, Sat Dec 28 19:22:24 2013 UTC vs.
Revision 19 by tony, Mon Jul 7 13:00:15 2014 UTC

#	Line 58 | Line 58 | type
58		FText: string;
59		FRowsAffected: Integer;
60		FCheckRowsAffected: Boolean;
61	–	FGenerateParamNames: Boolean;
61		function GetRowsAffected: Integer;
62		procedure PrepareSQL(Value: PChar);
63		procedure QueryChanged(Sender: TObject);
#	Line 104 | Line 103 | type
103		property StatementType;
104		property Text: string read FText;
105		property RowsAffected: Integer read GetRowsAffected;
107	–	property GenerateParamNames: Boolean read FGenerateParamNames write FGenerateParamNames;
106		//   property Params: TParams read FParams write SetParamsList;
107
108		published
#	Line 112 | Line 110 | type
110		property BufferChunks;
111		property CachedUpdates;
112		property DataSource read GetDataSource write SetDataSource;
113	+	property GenerateParamNames;
114		//   property Constraints stored ConstraintsStored;
115		property GeneratorField;
116		property ParamCheck;
117		property SQL: TStrings read FSQL write SetQuery;
118	<	property Params: TParams read FParams write SetParamsList;
118	>	property Params: TParams read FParams write SetParamsList;
119		property UniDirectional default False;
120		property UpdateObject;
121		property Filtered;
#	Line 141 | Line 140 | begin
140		TStringList(SQL).OnChange := QueryChanged;
141		FParams := TParams.Create(Self);
142		ParamCheck := True;
144	–	FGenerateParamNames := False;
143		FRowsAffected := -1;
144		end;
145
#	Line 163 | Line 161 | procedure TIBQuery.InternalOpen;
161		begin
162		ActivateConnection();
163		ActivateTransaction;
164	<	QSelect.GenerateParamNames := FGenerateParamNames;
164	>	QSelect.GenerateParamNames := GenerateParamNames;
165		SetPrepared(True);
166		if DataSource <> nil then
167		SetParamsFromCursor;
#	Line 406 | Line 404 | begin
404		SQLParams[i].AsShort := Params[i].AsSmallInt;
405		ftInteger:
406		SQLParams[i].AsLong := Params[i].AsInteger;
407	<	{        ftLargeInt:
408	<	SQLParams[i].AsInt64 := Params[i].AsLargeInt;  }
407	>	ftLargeInt:
408	>	SQLParams[i].AsInt64 := Params[i].AsLargeInt;
409		ftFloat:
410		SQLParams[i].AsDouble := Params[i].AsFloat;
411		ftBCD, ftCurrency:
#	Line 429 | Line 427 | end;
427
428		procedure TIBQuery.PrepareSQL(Value: PChar);
429		begin
430	<	QSelect.GenerateParamNames := FGenerateParamNames;
430	>	QSelect.GenerateParamNames := GenerateParamNames;
431		InternalPrepare;
432		end;
433
#	Line 522 | Line 520 | begin
520		end;
521		*)
522		end.
523	<
523	>

Diff Legend

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