docireg.pas

delphi通过OCI访问ORACLE

unit dOCIReg;

{$INCLUDE dOCI.inc}

interface

procedure Register;

implementation

uses Classes, dOCIEditors, AORaSQL, OraSQL, AMemoryDataSet, MemoryDataSet,
     AOraUpdateSQL, OraDB, AOraUpdateSQLEd
  {$IFDEF D4} ,Dsgnintf {$ENDIF}
  {$IFDEF D5} ,Dsgnintf {$ENDIF}
  {$IFDEF D6} ,DesignIntf, DesignEditors {$ENDIF}
  {$IFDEF D7} ,DesignIntf, DesignEditors {$ENDIF}
;

procedure Register;
begin
  RegisterComponents('Data Access', [TAMemoryDataSet, TMemoryDataSet, TAOraSQL, TOraSQL, TAOraUpdateSQL, TOraDB]);
  RegisterPropertyEditor(TypeInfo(string), TOraDB, 'DBServer', TTNSNamesProperty);
  RegisterComponentEditor(TAOraUpdateSQL, TAOraUpdateSQLEditor);
end;

end.