home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / ahmstanc / _setup.1 / AHMTDBAscii.hpp < prev    next >
Encoding:
C/C++ Source or Header  |  1998-12-05  |  5.2 KB  |  147 lines
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 1998 by Borland International
  3. // All rights reserved
  4.  
  5. // (DO NOT EDIT: machine generated header) 'AHMTDBAscii.pas' rev: 3.00
  6.  
  7. #ifndef AHMTDBAsciiHPP
  8. #define AHMTDBAsciiHPP
  9. #include <AHMSControls.hpp>
  10. #include <DBCtrls.hpp>
  11. #include <Db.hpp>
  12. #include <Buttons.hpp>
  13. #include <StdCtrls.hpp>
  14. #include <Dialogs.hpp>
  15. #include <Forms.hpp>
  16. #include <Controls.hpp>
  17. #include <Graphics.hpp>
  18. #include <Classes.hpp>
  19. #include <SysUtils.hpp>
  20. #include <Messages.hpp>
  21. #include <Windows.hpp>
  22. #include <SysInit.hpp>
  23. #include <System.hpp>
  24.  
  25. //-- user supplied -----------------------------------------------------------
  26.  
  27. namespace Ahmtdbascii
  28. {
  29. //-- type declarations -------------------------------------------------------
  30. typedef void __fastcall (__closure *TAHMImportExportEvent)(System::TObject* Sender, System::AnsiString 
  31.     RecordText);
  32.  
  33. class DELPHICLASS TAHMADField;
  34. class DELPHICLASS TAHMDBAscii;
  35. class DELPHICLASS TAHMADFields;
  36. class PASCALIMPLEMENTATION TAHMADFields : public Classes::TCollection 
  37. {
  38.     typedef Classes::TCollection inherited;
  39.     
  40. private:
  41.     TAHMDBAscii* FAHMDBAscii;
  42.     HIDESBASE TAHMADField* __fastcall GetItem(int Index);
  43.     HIDESBASE void __fastcall SetItem(int Index, TAHMADField* Value);
  44.     
  45. protected:
  46.     DYNAMIC Classes::TPersistent* __fastcall GetOwner(void);
  47.     
  48. public:
  49.     __fastcall TAHMADFields(TAHMDBAscii* AHMDBAscii);
  50.     HIDESBASE TAHMADField* __fastcall Add(void);
  51.     void __fastcall Delete(int Index);
  52.     __property TAHMADField* Items[int Index] = {read=GetItem, write=SetItem/*, default*/};
  53. public:
  54.     /* TCollection.Destroy */ __fastcall virtual ~TAHMADFields(void) { }
  55.     
  56. };
  57.  
  58. class PASCALIMPLEMENTATION TAHMDBAscii : public Classes::TComponent 
  59. {
  60.     typedef Classes::TComponent inherited;
  61.     
  62. private:
  63.     Ahmscontrols::TAHMAboutSControlStr FAboutStr;
  64.     System::AnsiString FFilename;
  65.     bool FFixedWidth;
  66.     Dbctrls::TFieldDataLink* FFieldDataLink;
  67.     char FDelimiter;
  68.     bool FPrintHeader;
  69.     TAHMADFields* FAHMADFields;
  70.     Classes::TNotifyEvent FOnExportDone;
  71.     TAHMImportExportEvent FOnImportSuccess;
  72.     TAHMImportExportEvent FImportBeforePost;
  73.     TAHMImportExportEvent FOnImportException;
  74.     TAHMImportExportEvent FExportBeforeWrite;
  75.     TAHMImportExportEvent FImportBeforeInsert;
  76.     void __fastcall SetAHMADFields(TAHMADFields* Value);
  77.     Db::TDataSource* __fastcall GetDataSource(void);
  78.     void __fastcall SetDataSource(Db::TDataSource* Value);
  79.     
  80. protected:
  81.     virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation
  82.         );
  83.     System::AnsiString __fastcall SetFixed(System::AnsiString xOriginalString, int xLength);
  84.     
  85. public:
  86.     __property Dbctrls::TFieldDataLink* DataLink = {read=FFieldDataLink};
  87.     __fastcall virtual TAHMDBAscii(Classes::TComponent* AOwner);
  88.     __fastcall virtual ~TAHMDBAscii(void);
  89.     bool __fastcall InsertAllFields(void);
  90.     void __fastcall DoExport(void);
  91.     void __fastcall DoImport(void);
  92.     virtual void __fastcall Loaded(void);
  93.     
  94. __published:
  95.     __property Ahmscontrols::TAHMAboutSControlStr About = {read=FAboutStr, write=FAboutStr};
  96.     __property TAHMADFields* Fields = {read=FAHMADFields, write=SetAHMADFields};
  97.     __property char Delimiter = {read=FDelimiter, write=FDelimiter, nodefault};
  98.     __property System::AnsiString Filename = {read=FFilename, write=FFilename};
  99.     __property bool FixedWidth = {read=FFixedWidth, write=FFixedWidth, default=0};
  100.     __property Db::TDataSource* DataSource = {read=GetDataSource, write=SetDataSource};
  101.     __property bool PrintHeader = {read=FPrintHeader, write=FPrintHeader, default=0};
  102.     __property TAHMImportExportEvent ImportBeforePost = {read=FImportBeforePost, write=FImportBeforePost
  103.         };
  104.     __property TAHMImportExportEvent ImportBeforeInsert = {read=FImportBeforeInsert, write=FImportBeforeInsert
  105.         };
  106.     __property TAHMImportExportEvent OnImportException = {read=FOnImportException, write=FOnImportException
  107.         };
  108.     __property TAHMImportExportEvent OnImportSuccess = {read=FOnImportSuccess, write=FOnImportSuccess};
  109.         
  110.     __property TAHMImportExportEvent ExportBeforeWrite = {read=FExportBeforeWrite, write=FExportBeforeWrite
  111.         };
  112.     __property Classes::TNotifyEvent OnExportDone = {read=FOnExportDone, write=FOnExportDone};
  113. };
  114.  
  115. class PASCALIMPLEMENTATION TAHMADField : public Classes::TCollectionItem 
  116. {
  117.     typedef Classes::TCollectionItem inherited;
  118.     
  119. private:
  120.     System::AnsiString FHeader;
  121.     TAHMDBAscii* fdbascii;
  122.     Dbctrls::TFieldDataLink* FFieldDataLink;
  123.     System::AnsiString FDataField;
  124.     void __fastcall SetDataField(System::AnsiString Value);
  125.     virtual System::AnsiString __fastcall GetDisplayName(void);
  126.     
  127. public:
  128.     __fastcall virtual TAHMADField(Classes::TCollection* Collection);
  129.     __property TAHMDBAscii* Owner = {read=fdbascii};
  130.     
  131. __published:
  132.     __property System::AnsiString DataField = {read=FDataField, write=SetDataField, stored=true};
  133.     __property System::AnsiString Header = {read=FHeader, write=FHeader};
  134. public:
  135.     /* TCollectionItem.Destroy */ __fastcall virtual ~TAHMADField(void) { }
  136.     
  137. };
  138.  
  139. //-- var, const, procedure ---------------------------------------------------
  140.  
  141. }    /* namespace Ahmtdbascii */
  142. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  143. using namespace Ahmtdbascii;
  144. #endif
  145. //-- end unit ----------------------------------------------------------------
  146. #endif    // AHMTDBAscii
  147.