home *** CD-ROM | disk | FTP | other *** search
/ Prima Shareware 3 / DuCom_Prima-Shareware-3_cd1.bin / PROGRAMO / delphi / ODA10 / _SETUP.1 / DAO.int < prev    next >
Encoding:
Text File  |  1996-03-20  |  1.1 KB  |  50 lines
  1. unit DAO;
  2.  
  3. { Data Access Objects (DAO) frame classes for Delphi.
  4.   (c)1996 by Opus Software Gmbh }
  5.  
  6. {==============================================================================}
  7. interface
  8. uses
  9.   SysUtils, OLE2, OLECtl,
  10.   DAO_Base;
  11.  
  12.  
  13. {$define DAO_DBCS}    // define this to use the DBCS engine
  14.  
  15.  
  16. const
  17.   {$I DAOErr.inc}
  18.   {$I DAOConst.inc}
  19.  
  20.  
  21. type
  22.   TBookmark =    Variant;
  23.   EOLEIntError = Exception;
  24.  
  25.  
  26. type
  27.   DAOObject = class
  28.   private
  29.     FParent:    DAOObject;
  30.     FUserData:  TObject;
  31.     pOLEObject: IUnknown;
  32.   public
  33.     constructor Create( oleObj: IUnknown; parent: DAOObject ); virtual;
  34.     constructor CreateFromVariantArg( var oleObj: VariantArg; parent: DAOObject ); virtual;
  35.     destructor Destroy; override;
  36.     property Parent: DAOObject read FParent;
  37.     property UserData: TObject read FUserData write FUserData;
  38.     function AsVariant{}: Variant;
  39.   end {TDAOObject};
  40.  
  41.   {$I DAOClass.inc}
  42.  
  43.  
  44. function CreateEngine{}: DAOEngine;
  45. function CreatePrivateEngine{}: DAOEngine;
  46.  
  47.  
  48. {==============================================================================}
  49. implementation
  50.