home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 January / Chip_2000-01_cd.bin / zkuste / Delphi / kolekce / d345 / cdbu.exe / CoolDBUtilities / CBuilder4 / CoolDBUtils.hpp < prev    next >
Encoding:
C/C++ Source or Header  |  1999-09-03  |  10.0 KB  |  321 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) 'CoolDBUtils.pas' rev: 4.00
  6.  
  7. #ifndef CoolDBUtilsHPP
  8. #define CoolDBUtilsHPP
  9.  
  10. #pragma delphiheader begin
  11. #pragma option push -w-
  12. #include <Registry.hpp>    // Pascal unit
  13. #include <DBTables.hpp>    // Pascal unit
  14. #include <Db.hpp>    // Pascal unit
  15. #include <Bde.hpp>    // Pascal unit
  16. #include <FileCtrl.hpp>    // Pascal unit
  17. #include <Forms.hpp>    // Pascal unit
  18. #include <Classes.hpp>    // Pascal unit
  19. #include <SysUtils.hpp>    // Pascal unit
  20. #include <Messages.hpp>    // Pascal unit
  21. #include <Windows.hpp>    // Pascal unit
  22. #include <SysInit.hpp>    // Pascal unit
  23. #include <System.hpp>    // Pascal unit
  24.  
  25. //-- user supplied -----------------------------------------------------------
  26.  
  27. namespace Cooldbutils
  28. {
  29. //-- type declarations -------------------------------------------------------
  30. #pragma option push -b-
  31. enum TTablesAction { taAll, taFromMask, taFromList };
  32. #pragma option pop
  33.  
  34. typedef SmallString<128>  TBDEString;
  35.  
  36. typedef void __fastcall (__closure *TActionInProgress)(System::TObject* Sender, int TablesNum, AnsiString 
  37.     CurName, int CurNum);
  38.  
  39. class DELPHICLASS TDBCUAboutBox;
  40. #pragma pack(push, 4)
  41. class PASCALIMPLEMENTATION TDBCUAboutBox : public System::TObject 
  42. {
  43.     typedef System::TObject inherited;
  44.     
  45. public:
  46.     #pragma option push -w-inl
  47.     /* TObject.Create */ inline __fastcall TDBCUAboutBox(void) : System::TObject() { }
  48.     #pragma option pop
  49.     #pragma option push -w-inl
  50.     /* TObject.Destroy */ inline __fastcall virtual ~TDBCUAboutBox(void) { }
  51.     #pragma option pop
  52.     
  53. };
  54.  
  55. #pragma pack(pop)
  56.  
  57. class DELPHICLASS TCoolDBComponent;
  58. #pragma pack(push, 4)
  59. class PASCALIMPLEMENTATION TCoolDBComponent : public Classes::TComponent 
  60. {
  61.     typedef Classes::TComponent inherited;
  62.     
  63. private:
  64.     TDBCUAboutBox* FAboutBox;
  65.     TBDEString FDatabaseName;
  66.     TTablesAction FTablesAction;
  67.     Classes::TStrings* FTables;
  68.     AnsiString FTablesMask;
  69.     TActionInProgress FOnActionInProgress;
  70.     Classes::TNotifyEvent FOnExecuteBegin;
  71.     Classes::TNotifyEvent FOnExecuteEnd;
  72.     void __fastcall SetDatabaseName( TBDEString &Value);
  73.     void __fastcall SetTables(Classes::TStrings* Value);
  74.     
  75. protected:
  76.     DYNAMIC void __fastcall BeginExecute(void);
  77.     DYNAMIC void __fastcall EndExecute(void);
  78.     
  79. public:
  80.     __fastcall virtual TCoolDBComponent(Classes::TComponent* AOwner);
  81.     __fastcall virtual ~TCoolDBComponent(void);
  82.     DYNAMIC void __fastcall Execute(void) = 0 ;
  83.     __property TBDEString DatabaseName = {read=FDatabaseName, write=SetDatabaseName};
  84.     __property TTablesAction TablesAction = {read=FTablesAction, write=FTablesAction, default=0};
  85.     __property Classes::TStrings* Tables = {read=FTables, write=SetTables};
  86.     __property AnsiString TablesMask = {read=FTablesMask, write=FTablesMask};
  87.     __property TActionInProgress OnActionInProgress = {read=FOnActionInProgress, write=FOnActionInProgress
  88.         };
  89.     __property Classes::TNotifyEvent OnExecuteBegin = {read=FOnExecuteBegin, write=FOnExecuteBegin};
  90.     __property Classes::TNotifyEvent OnExecuteEnd = {read=FOnExecuteEnd, write=FOnExecuteEnd};
  91.     
  92. __published:
  93.     __property TDBCUAboutBox* About = {read=FAboutBox, write=FAboutBox};
  94. };
  95.  
  96. #pragma pack(pop)
  97.  
  98. class DELPHICLASS TCoolDBBackup;
  99. #pragma pack(push, 4)
  100. class PASCALIMPLEMENTATION TCoolDBBackup : public TCoolDBComponent 
  101. {
  102.     typedef TCoolDBComponent inherited;
  103.     
  104. private:
  105.     TBDEString FDatabaseBackupName;
  106.     bool FDeleteOnDone;
  107.     bool FPackOnProgress;
  108.     void __fastcall SetDatabaseBackupName( TBDEString &Value);
  109.     
  110. public:
  111.     __fastcall virtual TCoolDBBackup(Classes::TComponent* AOwner);
  112.     DYNAMIC void __fastcall Execute(void);
  113.     
  114. __published:
  115.     __property TBDEString DatabaseBackupName = {read=FDatabaseBackupName, write=SetDatabaseBackupName};
  116.         
  117.     __property bool DeleteOnDone = {read=FDeleteOnDone, write=FDeleteOnDone, default=0};
  118.     __property bool PackOnProgress = {read=FPackOnProgress, write=FPackOnProgress, default=0};
  119.     __property DatabaseName ;
  120.     __property TablesAction ;
  121.     __property Tables ;
  122.     __property TablesMask ;
  123.     __property OnActionInProgress ;
  124.     __property OnExecuteBegin ;
  125.     __property OnExecuteEnd ;
  126. public:
  127.     #pragma option push -w-inl
  128.     /* TCoolDBComponent.Destroy */ inline __fastcall virtual ~TCoolDBBackup(void) { }
  129.     #pragma option pop
  130.     
  131. };
  132.  
  133. #pragma pack(pop)
  134.  
  135. class DELPHICLASS TCoolDBPack;
  136. #pragma pack(push, 4)
  137. class PASCALIMPLEMENTATION TCoolDBPack : public TCoolDBComponent 
  138. {
  139.     typedef TCoolDBComponent inherited;
  140.     
  141. public:
  142.     DYNAMIC void __fastcall Execute(void);
  143.     
  144. __published:
  145.     __property DatabaseName ;
  146.     __property TablesAction ;
  147.     __property Tables ;
  148.     __property TablesMask ;
  149.     __property OnActionInProgress ;
  150.     __property OnExecuteBegin ;
  151.     __property OnExecuteEnd ;
  152. public:
  153.     #pragma option push -w-inl
  154.     /* TCoolDBComponent.Create */ inline __fastcall virtual TCoolDBPack(Classes::TComponent* AOwner) : 
  155.         TCoolDBComponent(AOwner) { }
  156.     #pragma option pop
  157.     #pragma option push -w-inl
  158.     /* TCoolDBComponent.Destroy */ inline __fastcall virtual ~TCoolDBPack(void) { }
  159.     #pragma option pop
  160.     
  161. };
  162.  
  163. #pragma pack(pop)
  164.  
  165. class DELPHICLASS TCoolDBStructureExporter;
  166. #pragma pack(push, 4)
  167. class PASCALIMPLEMENTATION TCoolDBStructureExporter : public TCoolDBComponent 
  168. {
  169.     typedef TCoolDBComponent inherited;
  170.     
  171. private:
  172.     AnsiString FFileName;
  173.     
  174. public:
  175.     DYNAMIC void __fastcall Execute(void);
  176.     
  177. __published:
  178.     __property AnsiString FileName = {read=FFileName, write=FFileName};
  179.     __property DatabaseName ;
  180.     __property TablesAction ;
  181.     __property Tables ;
  182.     __property TablesMask ;
  183.     __property OnActionInProgress ;
  184.     __property OnExecuteBegin ;
  185.     __property OnExecuteEnd ;
  186. public:
  187.     #pragma option push -w-inl
  188.     /* TCoolDBComponent.Create */ inline __fastcall virtual TCoolDBStructureExporter(Classes::TComponent* 
  189.         AOwner) : TCoolDBComponent(AOwner) { }
  190.     #pragma option pop
  191.     #pragma option push -w-inl
  192.     /* TCoolDBComponent.Destroy */ inline __fastcall virtual ~TCoolDBStructureExporter(void) { }
  193.     #pragma option pop
  194.     
  195. };
  196.  
  197. #pragma pack(pop)
  198.  
  199. class DELPHICLASS TCoolDBStructureRestorer;
  200. #pragma pack(push, 4)
  201. class PASCALIMPLEMENTATION TCoolDBStructureRestorer : public TCoolDBComponent 
  202. {
  203.     typedef TCoolDBComponent inherited;
  204.     
  205. private:
  206.     AnsiString FFileName;
  207.     
  208. public:
  209.     DYNAMIC void __fastcall Execute(void);
  210.     
  211. __published:
  212.     __property AnsiString FileName = {read=FFileName, write=FFileName};
  213.     __property DatabaseName ;
  214.     __property TablesAction ;
  215.     __property Tables ;
  216.     __property TablesMask ;
  217.     __property OnActionInProgress ;
  218.     __property OnExecuteBegin ;
  219.     __property OnExecuteEnd ;
  220. public:
  221.     #pragma option push -w-inl
  222.     /* TCoolDBComponent.Create */ inline __fastcall virtual TCoolDBStructureRestorer(Classes::TComponent* 
  223.         AOwner) : TCoolDBComponent(AOwner) { }
  224.     #pragma option pop
  225.     #pragma option push -w-inl
  226.     /* TCoolDBComponent.Destroy */ inline __fastcall virtual ~TCoolDBStructureRestorer(void) { }
  227.     #pragma option pop
  228.     
  229. };
  230.  
  231. #pragma pack(pop)
  232.  
  233. class DELPHICLASS TCoolDBUpdater;
  234. #pragma pack(push, 4)
  235. class PASCALIMPLEMENTATION TCoolDBUpdater : public TCoolDBComponent 
  236. {
  237.     typedef TCoolDBComponent inherited;
  238.     
  239. private:
  240.     TBDEString FDatabaseImporterName;
  241.     bool FDeleteOnDone;
  242.     void __fastcall SetDatabaseImporterName( TBDEString &Value);
  243.     
  244. public:
  245.     __fastcall virtual TCoolDBUpdater(Classes::TComponent* AOwner);
  246.     DYNAMIC void __fastcall Execute(void);
  247.     
  248. __published:
  249.     __property TBDEString DatabaseImporterName = {read=FDatabaseImporterName, write=SetDatabaseImporterName
  250.         };
  251.     __property bool DeleteOnDone = {read=FDeleteOnDone, write=FDeleteOnDone, default=0};
  252.     __property DatabaseName ;
  253.     __property TablesAction ;
  254.     __property Tables ;
  255.     __property TablesMask ;
  256.     __property OnActionInProgress ;
  257.     __property OnExecuteBegin ;
  258.     __property OnExecuteEnd ;
  259. public:
  260.     #pragma option push -w-inl
  261.     /* TCoolDBComponent.Destroy */ inline __fastcall virtual ~TCoolDBUpdater(void) { }
  262.     #pragma option pop
  263.     
  264. };
  265.  
  266. #pragma pack(pop)
  267.  
  268. class DELPHICLASS TCoolDBUpdater2;
  269. #pragma pack(push, 4)
  270. class PASCALIMPLEMENTATION TCoolDBUpdater2 : public TCoolDBUpdater 
  271. {
  272.     typedef TCoolDBUpdater inherited;
  273.     
  274. public:
  275.     DYNAMIC void __fastcall Execute(void);
  276. public:
  277.     #pragma option push -w-inl
  278.     /* TCoolDBUpdater.Create */ inline __fastcall virtual TCoolDBUpdater2(Classes::TComponent* AOwner) : 
  279.         TCoolDBUpdater(AOwner) { }
  280.     #pragma option pop
  281.     
  282. public:
  283.     #pragma option push -w-inl
  284.     /* TCoolDBComponent.Destroy */ inline __fastcall virtual ~TCoolDBUpdater2(void) { }
  285.     #pragma option pop
  286.     
  287. };
  288.  
  289. #pragma pack(pop)
  290.  
  291. //-- var, const, procedure ---------------------------------------------------
  292. extern PACKAGE void __fastcall CopyTable(Dbtables::TTable* &Table, AnsiString SrcTableName, AnsiString 
  293.     DestName);
  294. extern PACKAGE void __fastcall AddPrimaryIndex(Dbtables::TTable* Table);
  295. extern PACKAGE bool __fastcall AliasExists(AnsiString AliasName);
  296. extern PACKAGE bool __fastcall TableExists(AnsiString AliasName, AnsiString TableName);
  297. extern PACKAGE AnsiString __fastcall GetAliasPath(AnsiString AliasName);
  298. extern PACKAGE void __fastcall ChangeField(Dbtables::TTable* Table, Db::TField* Field, Bde::pFLDDesc 
  299.     FieldsDesc);
  300. extern PACKAGE void __fastcall AddField(Dbtables::TTable* Table, Bde::pFLDDesc FieldsDesc);
  301. extern PACKAGE void __fastcall DeleteField(Dbtables::TTable* Table, Db::TField* Field);
  302. extern PACKAGE void __fastcall TableRestructure(Dbtables::TTable* tblSource, Dbtables::TTable* tblDestination
  303.     );
  304. extern PACKAGE void __fastcall ChangeIndex(Dbtables::TTable* Table, const Bde::IDXDesc &IndexDesc, int 
  305.     Index);
  306. extern PACKAGE Classes::TStringList* __fastcall GetIndexes(Dbtables::TTable* Table);
  307. extern PACKAGE bool __fastcall GetIndexDesc(Dbtables::TTable* Table, AnsiString IndexName, Bde::IDXDesc 
  308.     &IndexDesc);
  309. extern PACKAGE void __fastcall IndexesRestructure(Dbtables::TTable* tblSource, Dbtables::TTable* tblDestination
  310.     );
  311.  
  312. }    /* namespace Cooldbutils */
  313. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  314. using namespace Cooldbutils;
  315. #endif
  316. #pragma option pop    // -w-
  317.  
  318. #pragma delphiheader end.
  319. //-- end unit ----------------------------------------------------------------
  320. #endif    // CoolDBUtils
  321.