--- ibx/trunk/runtime/IBQuery.pas	2000/07/31 16:43:00	1
+++ ibx/trunk/runtime/IBQuery.pas	2011/02/18 16:26:16	5
@@ -30,7 +30,15 @@ unit IBQuery;
 
 interface
 
-uses Windows, SysUtils, Graphics, Classes, Controls, Db, StdVCL,
+{$Mode Delphi}
+
+uses
+{$IFDEF LINUX }
+  unix,
+{$ELSE}
+  Windows,
+{$ENDIF}
+ SysUtils, Graphics, Classes, Controls, Db,
      IBHeader, IB, IBCustomDataSet, IBSQL;
 
 type
@@ -61,11 +69,11 @@ type
 
   protected
     { IProviderSupport }
-    procedure PSExecute; override;
+(*    procedure PSExecute; override;
     function PSGetParams: TParams; override;
     function PSGetTableName: string; override;
     procedure PSSetCommandText(const CommandText: string); override;
-    procedure PSSetParams(AParams: TParams); override;
+    procedure PSSetParams(AParams: TParams); override;  *)
 
     procedure DefineProperties(Filer: TFiler); override;
     procedure InitFieldDefs; override;
@@ -81,7 +89,7 @@ type
     procedure BatchInput(InputObject: TIBBatchInput);
     procedure BatchOutput(OutputObject: TIBBatchOutput);
     procedure ExecSQL;
-    procedure GetDetailLinkFields(MasterFields, DetailFields: TList); override;
+    procedure GetDetailLinkFields(MasterFields, DetailFields: TList);(* override;*)
     function ParamByName(const Value: string): TParam;
     procedure Prepare;
     procedure UnPrepare;
@@ -141,7 +149,7 @@ end;
 
 procedure TIBQuery.InitFieldDefs;
 begin
-  inherited;
+  inherited InitFieldDefs;
 end;
 
 procedure TIBQuery.InternalOpen;
@@ -470,7 +478,7 @@ begin
 end;
 
 { TIBQuery IProviderSupport }
-
+ (*
 function TIBQuery.PSGetParams: TParams;
 begin
   Result := Params;
@@ -498,6 +506,6 @@ begin
   if CommandText <> '' then
     SQL.Text := CommandText;
 end;
-
+ *)
 end.