myldbreg.pas

来自「一个本地database引擎,支持中文T_Sql查询,兼容DELPHI标准数据库」· PAS 代码 · 共 54 行

unit MYLDBReg;

{$I MYLDBVer.inc}

interface

procedure Register; // register MYLDBoluteDatabase components in group MYLDBoluteDatabase

implementation

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

// MYLDBoluteDatabase units

 MYLDBMain,
 MYLDBEdit;

//------------------------------------------------------------------------------
// registration
//------------------------------------------------------------------------------
procedure Register;
begin
  RegisterComponents('MYLDB', [TMYLDBTable]);
  RegisterComponents('MYLDB', [TMYLDBQuery]);
  RegisterComponents('MYLDB', [TMYLDBDatabase]);
  RegisterComponents('MYLDB', [TMYLDBSession]);

  //--- dataset ---
  RegisterPropertyEditor(TypeInfo(string),TMYLDBDataSet,'SessionName',
                         TMYLDBSessionNameProperty);
  RegisterPropertyEditor(TypeInfo(string), TMYLDBDataset, 'DatabaseName',
       TMYLDBDatabaseNameProperty);
  //--- table ---
  RegisterPropertyEditor(TypeInfo(string), TMYLDBTable, 'TableName',
       TMYLDBTableNameProperty);
  RegisterPropertyEditor(TypeInfo(string), TMYLDBTable, 'MasterFields',
        TMYLDBFieldLinkProperty);
  RegisterPropertyEditor(TypeInfo(string), TMYLDBTable, 'IndexName', TMYLDBIndexNameProperty);
  RegisterPropertyEditor(TypeInfo(string), TMYLDBTable, 'IndexFieldNames', TMYLDBIndexFieldNamesProperty);
  // --- database ---
  RegisterPropertyEditor(TypeInfo(string),TMYLDBDatabase,'SessionName',
                         TMYLDBSessionNameProperty);
  RegisterPropertyEditor(TypeInfo(string), TMYLDBDatabase, 'DatabaseFileName',
       TMYLDBDatabaseFileNameProperty);
end; // Register


end.