ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/runtime/IBQuery.pas
(Generate patch)

Comparing ibx/trunk/runtime/IBQuery.pas (file contents):
Revision 4 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