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 23 by tony, Fri Mar 13 10:26:52 2015 UTC vs.
Revision 27 by tony, Tue Apr 14 13:10:23 2015 UTC

#	Line 60 | Line 60 | type
60		FCheckRowsAffected: Boolean;
61		FSQLUpdating: boolean;
62		function GetRowsAffected: Integer;
63	<	procedure PrepareSQL(Value: PChar);
63	>	procedure PrepareSQL;
64		procedure QueryChanged(Sender: TObject);
65		procedure ReadParamData(Reader: TReader);
66		procedure SetQuery(Value: TStrings);
#	Line 123 | Line 123 | type
123		property UniDirectional default False;
124		property UpdateObject;
125		property Filtered;
126	+	property DataSetCloseAction;
127
128		property BeforeDatabaseDisconnect;
129		property AfterDatabaseDisconnect;
#	Line 131 | Line 132 | type
132		property AfterTransactionEnd;
133		property TransactionFree;
134		property OnFilterRecord;
135	+	property OnValidatePost;
136		end;
137
138		implementation
#	Line 294 | Line 296 | begin
296		begin
297		FRowsAffected := -1;
298		FCheckRowsAffected := True;
299	<	if Length(Text) > 1 then PrepareSQL(PChar(Text))
299	>	if Length(Text) > 1 then PrepareSQL
300		else IBError(ibxeEmptySQLStatement, [nil]);
301		end
302		else
#	Line 320 | Line 322 | var
322		for I := 0 to FParams.Count - 1 do
323		with FParams[I] do
324		if not Bound then
325	<	IBError(ibxeRequiredParamNotSet, [nil]);
325	>	IBError(ibxeRequiredParamNotSet, [FParams[I].Name]);
326		end;
327
328		begin
#	Line 443 | Line 445 | begin
445		end;
446		end;
447
448	<	procedure TIBQuery.PrepareSQL(Value: PChar);
448	>	procedure TIBQuery.PrepareSQL;
449		begin
450		QSelect.GenerateParamNames := GenerateParamNames;
451		InternalPrepare;

Diff Legend

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