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 1 by tony, Mon Jul 31 16:43:00 2000 UTC vs.
Revision 5 by tony, Fri Feb 18 16:26:16 2011 UTC

#	Line 30 | Line 30 | unit IBQuery;
30
31		interface
32
33	<	uses Windows, SysUtils, Graphics, Classes, Controls, Db, StdVCL,
33	>	{$Mode Delphi}
34	>
35	>	uses
36	>	{$IFDEF LINUX }
37	>	unix,
38	>	{$ELSE}
39	>	Windows,
40	>	{$ENDIF}
41	>	SysUtils, Graphics, Classes, Controls, Db,
42		IBHeader, IB, IBCustomDataSet, IBSQL;
43
44		type
#	Line 61 | Line 69 | type
69
70		protected
71		{ IProviderSupport }
72	<	procedure PSExecute; override;
72	>	(*    procedure PSExecute; override;
73		function PSGetParams: TParams; override;
74		function PSGetTableName: string; override;
75		procedure PSSetCommandText(const CommandText: string); override;
76	<	procedure PSSetParams(AParams: TParams); override;
76	>	procedure PSSetParams(AParams: TParams); override;  *)
77
78		procedure DefineProperties(Filer: TFiler); override;
79		procedure InitFieldDefs; override;
#	Line 81 | Line 89 | type
89		procedure BatchInput(InputObject: TIBBatchInput);
90		procedure BatchOutput(OutputObject: TIBBatchOutput);
91		procedure ExecSQL;
92	<	procedure GetDetailLinkFields(MasterFields, DetailFields: TList); override;
92	>	procedure GetDetailLinkFields(MasterFields, DetailFields: TList);(* override;*)
93		function ParamByName(const Value: string): TParam;
94		procedure Prepare;
95		procedure UnPrepare;
#	Line 141 | Line 149 | end;
149
150		procedure TIBQuery.InitFieldDefs;
151		begin
152	<	inherited;
152	>	inherited InitFieldDefs;
153		end;
154
155		procedure TIBQuery.InternalOpen;
#	Line 470 | Line 478 | begin
478		end;
479
480		{ TIBQuery IProviderSupport }
481	<
481	>	(*
482		function TIBQuery.PSGetParams: TParams;
483		begin
484		Result := Params;
#	Line 498 | Line 506 | begin
506		if CommandText <> '' then
507		SQL.Text := CommandText;
508		end;
509	<
509	>	*)
510		end.
511

Diff Legend

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