home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / borland / cb / setup / cbuilder / data.z / DRTABLE.HPP < prev    next >
Encoding:
C/C++ Source or Header  |  1997-02-28  |  5.9 KB  |  196 lines
  1. //----------------------------------------------------------------------------
  2. // DRTable.hpp - bcbdcc32 generated hdr (DO NOT EDIT) rev: 0
  3. // From: DRTable.pas
  4. //----------------------------------------------------------------------------
  5. #ifndef DRTableHPP
  6. #define DRTableHPP
  7. //----------------------------------------------------------------------------
  8. #include <DB.hpp>
  9. #include <Bde.hpp>
  10. #include <Classes.hpp>
  11. #include <SysUtils.hpp>
  12. #include <Windows.hpp>
  13. #include <System.hpp>
  14. #pragma warn -par
  15. #pragma warn -hid 
  16. #pragma warn -inl
  17.  
  18. namespace Drtable
  19. {
  20. //-- type declarations -------------------------------------------------------
  21. class __declspec(delphiclass) TDRList;
  22. class __declspec(pascalimplementation) TDRList : public Db::TDataSet
  23. {
  24.     typedef Db::TDataSet inherited;
  25.     
  26. protected:
  27.     virtual Bde::hDBICur __fastcall CreateHandle(void);
  28. public:
  29.     /* TDataSet.Create */ __fastcall virtual TDRList(Classes::TComponent* AOwner) : Db::TDataSet(AOwner
  30.         ) { }
  31.     /* TDataSet.Destroy */ __fastcall virtual ~TDRList(void) { }
  32.     
  33. };
  34.  
  35. class __declspec(delphiclass) TDRDataSet;
  36. class __declspec(pascalimplementation) TDRDataSet : public Db::TDataSet
  37. {
  38.     typedef Db::TDataSet inherited;
  39.     
  40. private:
  41.     Bde::_hDBIObj *FDBIDR;
  42.     
  43. public:
  44.     __property Bde::hDBIDR DRHandle = {read=FDBIDR, write=FDBIDR, nodefault};
  45. public:
  46.     /* TDataSet.Create */ __fastcall virtual TDRDataSet(Classes::TComponent* AOwner) : Db::TDataSet(AOwner
  47.         ) { }
  48.     /* TDataSet.Destroy */ __fastcall virtual ~TDRDataSet(void) { }
  49.     
  50. };
  51.  
  52. class __declspec(delphiclass) TDRObjectDescList;
  53. class __declspec(pascalimplementation) TDRObjectDescList : public TDRDataSet
  54. {
  55.     typedef TDRDataSet inherited;
  56.     
  57. protected:
  58.     virtual Bde::hDBICur __fastcall CreateHandle(void);
  59. public:
  60.     /* TDataSet.Create */ __fastcall virtual TDRObjectDescList(Classes::TComponent* AOwner) : Drtable::
  61.         TDRDataSet(AOwner) { }
  62.     /* TDataSet.Destroy */ __fastcall virtual ~TDRObjectDescList(void) { }
  63.     
  64. };
  65.  
  66. class __declspec(delphiclass) TDRObjectItems;
  67. class __declspec(pascalimplementation) TDRObjectItems : public TDRDataSet
  68. {
  69.     typedef TDRDataSet inherited;
  70.     
  71. protected:
  72.     System::AnsiString FObjectName;
  73. public:
  74.     /* TDataSet.Create */ __fastcall virtual TDRObjectItems(Classes::TComponent* AOwner) : Drtable::TDRDataSet(
  75.         AOwner) { }
  76.     /* TDataSet.Destroy */ __fastcall virtual ~TDRObjectItems(void) { }
  77.     
  78. };
  79.  
  80. class __declspec(delphiclass) TDRRelationshipDescList;
  81. class __declspec(pascalimplementation) TDRRelationshipDescList : public TDRObjectItems
  82. {
  83.     typedef TDRObjectItems inherited;
  84.     
  85. protected:
  86.     virtual Bde::hDBICur __fastcall CreateHandle(void);
  87.     
  88. __published:
  89.     __property System::AnsiString ObjectTypeName = {read=FObjectName, write=FObjectName, nodefault};
  90. public:
  91.         
  92.     /* TDataSet.Create */ __fastcall virtual TDRRelationshipDescList(Classes::TComponent* AOwner) : Drtable::
  93.         TDRObjectItems(AOwner) { }
  94.     /* TDataSet.Destroy */ __fastcall virtual ~TDRRelationshipDescList(void) { }
  95.     
  96. };
  97.  
  98. class __declspec(delphiclass) TDRAttrDescList;
  99. class __declspec(pascalimplementation) TDRAttrDescList : public TDRObjectItems
  100. {
  101.     typedef TDRObjectItems inherited;
  102.     
  103. protected:
  104.     virtual Bde::hDBICur __fastcall CreateHandle(void);
  105.     
  106. __published:
  107.     __property System::AnsiString TypeName = {read=FObjectName, write=FObjectName, nodefault};
  108. public:
  109.     /* TDataSet.Create */ __fastcall virtual TDRAttrDescList(Classes::TComponent* AOwner) : Drtable::TDRObjectItems(
  110.         AOwner) { }
  111.     /* TDataSet.Destroy */ __fastcall virtual ~TDRAttrDescList(void) { }
  112.     
  113. };
  114.  
  115. class __declspec(delphiclass) TDRInstanceItems;
  116. class __declspec(pascalimplementation) TDRInstanceItems : public TDRObjectItems
  117. {
  118.     typedef TDRObjectItems inherited;
  119.     
  120. private:
  121.     System::AnsiString FCond;
  122.     
  123. __published:
  124.     __property System::AnsiString Condition = {read=FCond, write=FCond, nodefault};
  125. public:
  126.     /* TDataSet.Create */ __fastcall virtual TDRInstanceItems(Classes::TComponent* AOwner) : Drtable::TDRObjectItems(
  127.         AOwner) { }
  128.     /* TDataSet.Destroy */ __fastcall virtual ~TDRInstanceItems(void) { }
  129.     
  130. };
  131.  
  132. class __declspec(delphiclass) TDRObjectList;
  133. class __declspec(pascalimplementation) TDRObjectList : public TDRInstanceItems
  134. {
  135.     typedef TDRInstanceItems inherited;
  136.     
  137. private:
  138.     System::AnsiString FRelName;
  139.     Bde::DRObject FSource;
  140.     
  141. protected:
  142.     virtual Bde::hDBICur __fastcall CreateHandle(void);
  143.     
  144. public:
  145.     void __fastcall NavigateFrom(const Bde::DRObject &ASource, const System::AnsiString ARelationship);
  146.         
  147. __published:
  148.     __property System::AnsiString ObjectTypeName = {read=FObjectName, write=FObjectName, nodefault};
  149. public:
  150.         
  151.     /* TDataSet.Create */ __fastcall virtual TDRObjectList(Classes::TComponent* AOwner) : Drtable::TDRInstanceItems(
  152.         AOwner) { }
  153.     /* TDataSet.Destroy */ __fastcall virtual ~TDRObjectList(void) { }
  154.     
  155. };
  156.  
  157. class __declspec(delphiclass) TDRRelationshipList;
  158. class __declspec(pascalimplementation) TDRRelationshipList : public TDRInstanceItems
  159. {
  160.     typedef TDRInstanceItems inherited;
  161.     
  162. private:
  163.     Bde::DRObject FSource;
  164.     Bde::DRObject FTarget;
  165.     
  166. protected:
  167.     virtual Bde::hDBICur __fastcall CreateHandle(void);
  168.     
  169. public:
  170.     void __fastcall NavigateFromTo(const Bde::DRObject &ASource, const Bde::DRObject &ATarget);
  171.     
  172. __published:
  173.     __property System::AnsiString RelationshipTypeName = {read=FObjectName, write=FObjectName, nodefault
  174.         };
  175. public:
  176.     /* TDataSet.Create */ __fastcall virtual TDRRelationshipList(Classes::TComponent* AOwner) : Drtable::
  177.         TDRInstanceItems(AOwner) { }
  178.     /* TDataSet.Destroy */ __fastcall virtual ~TDRRelationshipList(void) { }
  179.     
  180. };
  181.  
  182. //-- var, const, procedure ---------------------------------------------------
  183. extern Bde::DRObject NullDRObject;
  184.  
  185. }    /* namespace Drtable */
  186.  
  187. #pragma warn .par
  188. #pragma warn .hid 
  189. #pragma warn .inl
  190.  
  191. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  192. using namespace Drtable;
  193. #endif
  194. //-- end unit ----------------------------------------------------------------
  195. #endif    // DRTable
  196.