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