home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Internet 2000 May / MICD_2000_05.iso / CBuilder5 / INSTALL / DATA1.CAB / Program_Built_Files / Include / Vcl / ibbatchmove.hpp < prev    next >
C/C++ Source or Header  |  2000-02-01  |  4KB  |  104 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) 'IBBatchMove.pas' rev: 5.00
  6.  
  7. #ifndef IBBatchMoveHPP
  8. #define IBBatchMoveHPP
  9.  
  10. #pragma delphiheader begin
  11. #pragma option push -w-
  12. #pragma option push -Vx
  13. #include <IBTable.hpp>    // Pascal unit
  14. #include <IBDatabase.hpp>    // Pascal unit
  15. #include <IBCustomDataSet.hpp>    // Pascal unit
  16. #include <IB.hpp>    // Pascal unit
  17. #include <StdVCL.hpp>    // Pascal unit
  18. #include <Db.hpp>    // Pascal unit
  19. #include <Controls.hpp>    // Pascal unit
  20. #include <Classes.hpp>    // Pascal unit
  21. #include <Graphics.hpp>    // Pascal unit
  22. #include <SysUtils.hpp>    // Pascal unit
  23. #include <Windows.hpp>    // Pascal unit
  24. #include <SysInit.hpp>    // Pascal unit
  25. #include <System.hpp>    // Pascal unit
  26.  
  27. //-- user supplied -----------------------------------------------------------
  28.  
  29. namespace Ibbatchmove
  30. {
  31. //-- type declarations -------------------------------------------------------
  32. #pragma option push -b-
  33. enum TBatchMode { batAppend, batUpdate, batAppendUpdate, batDelete, batCopy };
  34. #pragma option pop
  35.  
  36. class DELPHICLASS TIBBatchMove;
  37. class PASCALIMPLEMENTATION TIBBatchMove : public Classes::TComponent 
  38. {
  39.     typedef Classes::TComponent inherited;
  40.     
  41. private:
  42.     bool FIBLoaded;
  43.     Ibtable::TIBTable* FDestination;
  44.     Ibcustomdataset::TIBCustomDataSet* FSource;
  45.     TBatchMode FMode;
  46.     bool FAbortOnKeyViol;
  47.     bool FAbortOnProblem;
  48.     bool FTransliterate;
  49.     int FRecordCount;
  50.     int FMovedCount;
  51.     int FKeyViolCount;
  52.     int FProblemCount;
  53.     int FChangedCount;
  54.     Classes::TStrings* FMappings;
  55.     AnsiString FKeyViolTableName;
  56.     AnsiString FProblemTableName;
  57.     AnsiString FChangedTableName;
  58.     int FCommitCount;
  59.     void __fastcall SetMappings(Classes::TStrings* Value);
  60.     void __fastcall SetSource(Ibcustomdataset::TIBCustomDataSet* Value);
  61.     void __fastcall InternalExecute(TBatchMode BatchMode, Word FieldCount);
  62.     
  63. protected:
  64.     virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation
  65.         );
  66.     
  67. public:
  68.     __fastcall virtual TIBBatchMove(Classes::TComponent* AOwner);
  69.     __fastcall virtual ~TIBBatchMove(void);
  70.     void __fastcall Execute(void);
  71.     __property int ChangedCount = {read=FChangedCount, nodefault};
  72.     __property int KeyViolCount = {read=FKeyViolCount, nodefault};
  73.     __property int MovedCount = {read=FMovedCount, nodefault};
  74.     __property int ProblemCount = {read=FProblemCount, nodefault};
  75.     
  76. __published:
  77.     __property bool AbortOnKeyViol = {read=FAbortOnKeyViol, write=FAbortOnKeyViol, default=1};
  78.     __property bool AbortOnProblem = {read=FAbortOnProblem, write=FAbortOnProblem, default=1};
  79.     __property int CommitCount = {read=FCommitCount, write=FCommitCount, default=0};
  80.     __property AnsiString ChangedTableName = {read=FChangedTableName, write=FChangedTableName};
  81.     __property Ibtable::TIBTable* Destination = {read=FDestination, write=FDestination};
  82.     __property AnsiString KeyViolTableName = {read=FKeyViolTableName, write=FKeyViolTableName};
  83.     __property Classes::TStrings* Mappings = {read=FMappings, write=SetMappings};
  84.     __property TBatchMode Mode = {read=FMode, write=FMode, default=0};
  85.     __property AnsiString ProblemTableName = {read=FProblemTableName, write=FProblemTableName};
  86.     __property int RecordCount = {read=FRecordCount, write=FRecordCount, default=0};
  87.     __property Ibcustomdataset::TIBCustomDataSet* Source = {read=FSource, write=SetSource};
  88.     __property bool Transliterate = {read=FTransliterate, write=FTransliterate, default=1};
  89. };
  90.  
  91.  
  92. //-- var, const, procedure ---------------------------------------------------
  93.  
  94. }    /* namespace Ibbatchmove */
  95. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  96. using namespace Ibbatchmove;
  97. #endif
  98. #pragma option pop    // -w-
  99. #pragma option pop    // -Vx
  100.  
  101. #pragma delphiheader end.
  102. //-- end unit ----------------------------------------------------------------
  103. #endif    // IBBatchMove
  104.