absreg.pas

Absolute Database 是来替代BDE[Borland数据库引擎]的用于Delphi 和 C++ Builder 开发用的数据库引擎. 它小巧, 高速, 健壮, 易于使用. 它能直接编译进

unit ABSReg;

{$I ABSVer.inc}

interface

procedure Register; // register AbsoluteDatabase components in group AbsoluteDatabase

implementation

uses Classes, TypInfo, Controls,
 {$IFDEF D6H}
 DesignIntf,
 {$ELSE}
 Dsgnintf,
 {$ENDIF}

// AbsoluteDatabase units

 ABSMain,
 ABSEdit;

//------------------------------------------------------------------------------
// registration
//------------------------------------------------------------------------------
procedure Register;
begin
  RegisterComponents('Absolute DB', [TABSTable]);
  RegisterComponents('Absolute DB', [TABSQuery]);
  RegisterComponents('Absolute DB', [TABSDatabase]);
  RegisterComponents('Absolute DB', [TABSSession]);

  //--- dataset ---
  RegisterPropertyEditor(TypeInfo(string),TABSDataSet,'SessionName',
                         TABSSessionNameProperty);
  RegisterPropertyEditor(TypeInfo(string), TABSDataset, 'DatabaseName',
       TABSDatabaseNameProperty);
  //--- table ---
  RegisterPropertyEditor(TypeInfo(string), TABSTable, 'TableName',
       TABSTableNameProperty);
  RegisterPropertyEditor(TypeInfo(string), TABSTable, 'MasterFields',
        TABSFieldLinkProperty);
  RegisterPropertyEditor(TypeInfo(string), TABSTable, 'IndexName', TABSIndexNameProperty);
  RegisterPropertyEditor(TypeInfo(string), TABSTable, 'IndexFieldNames', TABSIndexFieldNamesProperty);
  // --- database ---
  RegisterPropertyEditor(TypeInfo(string),TABSDatabase,'SessionName',
                         TABSSessionNameProperty);
  RegisterPropertyEditor(TypeInfo(string), TABSDatabase, 'DatabaseFileName',
       TABSDatabaseFileNameProperty);
end; // Register


end.