absreg.pas

来自「Absolute Database 是来替代BDE[Borland数据库引擎]的」· PAS 代码 · 共 54 行

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.