home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Internet 2000 May / MICD_2000_05.iso / CBuilder5 / INSTALL / DATA1.CAB / Program_Built_Files / Include / Vcl / drtable.hpp < prev    next >
Encoding:
C/C++ Source or Header  |  2000-02-01  |  7.7 KB  |  280 lines
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 1999 by Borland International
  3. // All rights reserved
  4.  
  5. // (DO NOT EDIT: machine generated header) 'DRTable.pas' rev: 5.00
  6.  
  7. #ifndef DRTableHPP
  8. #define DRTableHPP
  9.  
  10. #pragma delphiheader begin
  11. #pragma option push -w-
  12. #pragma option push -Vx
  13. #include <DBTables.hpp>    // Pascal unit
  14. #include <Db.hpp>    // Pascal unit
  15. #include <Bde.hpp>    // Pascal unit
  16. #include <Classes.hpp>    // Pascal unit
  17. #include <SysUtils.hpp>    // Pascal unit
  18. #include <Windows.hpp>    // Pascal unit
  19. #include <SysInit.hpp>    // Pascal unit
  20. #include <System.hpp>    // Pascal unit
  21.  
  22. //-- user supplied -----------------------------------------------------------
  23.  
  24. namespace Drtable
  25. {
  26. //-- type declarations -------------------------------------------------------
  27. class DELPHICLASS TDRList;
  28. class PASCALIMPLEMENTATION TDRList : public Dbtables::TBDEDataSet 
  29. {
  30.     typedef Dbtables::TBDEDataSet inherited;
  31.     
  32. protected:
  33.     virtual Bde::hDBICur __fastcall CreateHandle(void);
  34. public:
  35.     #pragma option push -w-inl
  36.     /* TBDEDataSet.Create */ inline __fastcall virtual TDRList(Classes::TComponent* AOwner) : Dbtables::TBDEDataSet(
  37.         AOwner) { }
  38.     #pragma option pop
  39.     #pragma option push -w-inl
  40.     /* TBDEDataSet.Destroy */ inline __fastcall virtual ~TDRList(void) { }
  41.     #pragma option pop
  42.     
  43. };
  44.  
  45.  
  46. class DELPHICLASS TDRDataSet;
  47. class PASCALIMPLEMENTATION TDRDataSet : public Dbtables::TBDEDataSet 
  48. {
  49.     typedef Dbtables::TBDEDataSet inherited;
  50.     
  51. private:
  52.     Bde::_hDBIObj *FDBIDR;
  53.     
  54. public:
  55.     __property Bde::hDBIDR DRHandle = {read=FDBIDR, write=FDBIDR};
  56. public:
  57.     #pragma option push -w-inl
  58.     /* TBDEDataSet.Create */ inline __fastcall virtual TDRDataSet(Classes::TComponent* AOwner) : Dbtables::TBDEDataSet(
  59.         AOwner) { }
  60.     #pragma option pop
  61.     #pragma option push -w-inl
  62.     /* TBDEDataSet.Destroy */ inline __fastcall virtual ~TDRDataSet(void) { }
  63.     #pragma option pop
  64.     
  65. };
  66.  
  67.  
  68. class DELPHICLASS TDRObjectDescList;
  69. class PASCALIMPLEMENTATION TDRObjectDescList : public TDRDataSet 
  70. {
  71.     typedef TDRDataSet inherited;
  72.     
  73. protected:
  74.     virtual Bde::hDBICur __fastcall CreateHandle(void);
  75. public:
  76.     #pragma option push -w-inl
  77.     /* TBDEDataSet.Create */ inline __fastcall virtual TDRObjectDescList(Classes::TComponent* AOwner) : 
  78.         TDRDataSet(AOwner) { }
  79.     #pragma option pop
  80.     #pragma option push -w-inl
  81.     /* TBDEDataSet.Destroy */ inline __fastcall virtual ~TDRObjectDescList(void) { }
  82.     #pragma option pop
  83.     
  84. };
  85.  
  86.  
  87. class DELPHICLASS TDRObjectItems;
  88. class PASCALIMPLEMENTATION TDRObjectItems : public TDRDataSet 
  89. {
  90.     typedef TDRDataSet inherited;
  91.     
  92. protected:
  93.     AnsiString FObjectName;
  94. public:
  95.     #pragma option push -w-inl
  96.     /* TBDEDataSet.Create */ inline __fastcall virtual TDRObjectItems(Classes::TComponent* AOwner) : TDRDataSet(
  97.         AOwner) { }
  98.     #pragma option pop
  99.     #pragma option push -w-inl
  100.     /* TBDEDataSet.Destroy */ inline __fastcall virtual ~TDRObjectItems(void) { }
  101.     #pragma option pop
  102.     
  103. };
  104.  
  105.  
  106. class DELPHICLASS TDRRelationshipDescList;
  107. class PASCALIMPLEMENTATION TDRRelationshipDescList : public TDRObjectItems 
  108. {
  109.     typedef TDRObjectItems inherited;
  110.     
  111. protected:
  112.     virtual Bde::hDBICur __fastcall CreateHandle(void);
  113.     
  114. __published:
  115.     __property AnsiString ObjectTypeName = {read=FObjectName, write=FObjectName};
  116. public:
  117.     #pragma option push -w-inl
  118.     /* TBDEDataSet.Create */ inline __fastcall virtual TDRRelationshipDescList(Classes::TComponent* AOwner
  119.         ) : TDRObjectItems(AOwner) { }
  120.     #pragma option pop
  121.     #pragma option push -w-inl
  122.     /* TBDEDataSet.Destroy */ inline __fastcall virtual ~TDRRelationshipDescList(void) { }
  123.     #pragma option pop
  124.     
  125. };
  126.  
  127.  
  128. class DELPHICLASS TDRAttrDescList;
  129. class PASCALIMPLEMENTATION TDRAttrDescList : public TDRObjectItems 
  130. {
  131.     typedef TDRObjectItems inherited;
  132.     
  133. protected:
  134.     virtual Bde::hDBICur __fastcall CreateHandle(void);
  135.     
  136. __published:
  137.     __property AnsiString TypeName = {read=FObjectName, write=FObjectName};
  138. public:
  139.     #pragma option push -w-inl
  140.     /* TBDEDataSet.Create */ inline __fastcall virtual TDRAttrDescList(Classes::TComponent* AOwner) : TDRObjectItems(
  141.         AOwner) { }
  142.     #pragma option pop
  143.     #pragma option push -w-inl
  144.     /* TBDEDataSet.Destroy */ inline __fastcall virtual ~TDRAttrDescList(void) { }
  145.     #pragma option pop
  146.     
  147. };
  148.  
  149.  
  150. class DELPHICLASS TDRInstanceItems;
  151. class PASCALIMPLEMENTATION TDRInstanceItems : public TDRObjectItems 
  152. {
  153.     typedef TDRObjectItems inherited;
  154.     
  155. private:
  156.     AnsiString FCond;
  157.     
  158. __published:
  159.     __property AnsiString Condition = {read=FCond, write=FCond};
  160. public:
  161.     #pragma option push -w-inl
  162.     /* TBDEDataSet.Create */ inline __fastcall virtual TDRInstanceItems(Classes::TComponent* AOwner) : 
  163.         TDRObjectItems(AOwner) { }
  164.     #pragma option pop
  165.     #pragma option push -w-inl
  166.     /* TBDEDataSet.Destroy */ inline __fastcall virtual ~TDRInstanceItems(void) { }
  167.     #pragma option pop
  168.     
  169. };
  170.  
  171.  
  172. class DELPHICLASS TDRObjectList;
  173. class PASCALIMPLEMENTATION TDRObjectList : public TDRInstanceItems 
  174. {
  175.     typedef TDRInstanceItems inherited;
  176.     
  177. private:
  178.     AnsiString FRelName;
  179.     #pragma pack(push, 1)
  180.     Bde::DRObject FSource;
  181.     #pragma pack(pop)
  182.     
  183.     
  184. protected:
  185.     virtual Bde::hDBICur __fastcall CreateHandle(void);
  186.     
  187. public:
  188.     void __fastcall NavigateFrom(const Bde::DRObject &ASource, const AnsiString ARelationship);
  189.     
  190. __published:
  191.     __property AnsiString ObjectTypeName = {read=FObjectName, write=FObjectName};
  192. public:
  193.     #pragma option push -w-inl
  194.     /* TBDEDataSet.Create */ inline __fastcall virtual TDRObjectList(Classes::TComponent* AOwner) : TDRInstanceItems(
  195.         AOwner) { }
  196.     #pragma option pop
  197.     #pragma option push -w-inl
  198.     /* TBDEDataSet.Destroy */ inline __fastcall virtual ~TDRObjectList(void) { }
  199.     #pragma option pop
  200.     
  201. };
  202.  
  203.  
  204. class DELPHICLASS TDRRelationshipList;
  205. class PASCALIMPLEMENTATION TDRRelationshipList : public TDRInstanceItems 
  206. {
  207.     typedef TDRInstanceItems inherited;
  208.     
  209. private:
  210.     #pragma pack(push, 1)
  211.     Bde::DRObject FSource;
  212.     #pragma pack(pop)
  213.     
  214.     #pragma pack(push, 1)
  215.     Bde::DRObject FTarget;
  216.     #pragma pack(pop)
  217.     
  218.     
  219. protected:
  220.     virtual Bde::hDBICur __fastcall CreateHandle(void);
  221.     
  222. public:
  223.     void __fastcall NavigateFromTo(const Bde::DRObject &ASource, const Bde::DRObject &ATarget);
  224.     
  225. __published:
  226.     __property AnsiString RelationshipTypeName = {read=FObjectName, write=FObjectName};
  227. public:
  228.     #pragma option push -w-inl
  229.     /* TBDEDataSet.Create */ inline __fastcall virtual TDRRelationshipList(Classes::TComponent* AOwner)
  230.          : TDRInstanceItems(AOwner) { }
  231.     #pragma option pop
  232.     #pragma option push -w-inl
  233.     /* TBDEDataSet.Destroy */ inline __fastcall virtual ~TDRRelationshipList(void) { }
  234.     #pragma option pop
  235.     
  236. };
  237.  
  238.  
  239. class DELPHICLASS TQueryDescription;
  240. class PASCALIMPLEMENTATION TQueryDescription : public Dbtables::TBDEDataSet 
  241. {
  242.     typedef Dbtables::TBDEDataSet inherited;
  243.     
  244. private:
  245.     Dbtables::TQuery* FQuery;
  246.     bool FPrepared;
  247.     
  248. protected:
  249.     virtual Bde::hDBICur __fastcall CreateHandle(void);
  250.     virtual void __fastcall DestroyHandle(void);
  251.     virtual void __fastcall OpenCursor(bool InfoQuery);
  252.     
  253. public:
  254.     __property Dbtables::TQuery* Query = {read=FQuery, write=FQuery};
  255. public:
  256.     #pragma option push -w-inl
  257.     /* TBDEDataSet.Create */ inline __fastcall virtual TQueryDescription(Classes::TComponent* AOwner) : 
  258.         Dbtables::TBDEDataSet(AOwner) { }
  259.     #pragma option pop
  260.     #pragma option push -w-inl
  261.     /* TBDEDataSet.Destroy */ inline __fastcall virtual ~TQueryDescription(void) { }
  262.     #pragma option pop
  263.     
  264. };
  265.  
  266.  
  267. //-- var, const, procedure ---------------------------------------------------
  268. extern PACKAGE Bde::DRObject NullDRObject;
  269.  
  270. }    /* namespace Drtable */
  271. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  272. using namespace Drtable;
  273. #endif
  274. #pragma option pop    // -w-
  275. #pragma option pop    // -Vx
  276.  
  277. #pragma delphiheader end.
  278. //-- end unit ----------------------------------------------------------------
  279. #endif    // DRTable
  280.