docireg.pas

来自「delphi通过OCI访问ORACLE」· PAS 代码 · 共 27 行

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.