home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 9 / CDACTUAL9.iso / progs / CB / DATA.Z / FLDLINKS.HPP < prev    next >
Encoding:
C/C++ Source or Header  |  1996-11-06  |  4.4 KB  |  152 lines
  1. //----------------------------------------------------------------------------
  2. // Fldlinks.hpp - dcc32 generated hdr (DO NOT EDIT) rev: -2
  3. // From: Fldlinks.pas
  4. //----------------------------------------------------------------------------
  5. #ifndef FldlinksHPP
  6. #define FldlinksHPP
  7. //----------------------------------------------------------------------------
  8. #ifndef DsgnIntfHPP
  9. #include <DsgnIntf.hpp>
  10. #endif
  11.  
  12. #ifndef ButtonsHPP
  13. #include <Buttons.hpp>
  14. #endif
  15.  
  16. #ifndef DBTablesHPP
  17. #include <DBTables.hpp>
  18. #endif
  19.  
  20. #ifndef DBHPP
  21. #include <DB.hpp>
  22. #endif
  23.  
  24. #ifndef ExtCtrlsHPP
  25. #include <ExtCtrls.hpp>
  26. #endif
  27.  
  28. #ifndef StdCtrlsHPP
  29. #include <StdCtrls.hpp>
  30. #endif
  31.  
  32. #ifndef FormsHPP
  33. #include <Forms.hpp>
  34. #endif
  35.  
  36. #ifndef ControlsHPP
  37. #include <Controls.hpp>
  38. #endif
  39.  
  40. #ifndef GraphicsHPP
  41. #include <Graphics.hpp>
  42. #endif
  43.  
  44. #ifndef ClassesHPP
  45. #include <Classes.hpp>
  46. #endif
  47.  
  48. #ifndef MessagesHPP
  49. #include <Messages.hpp>
  50. #endif
  51.  
  52. #ifndef WindowsHPP
  53. #include <Windows.hpp>
  54. #endif
  55.  
  56. #ifndef SysUtilsHPP
  57. #include <SysUtils.hpp>
  58. #endif
  59.  
  60. #ifndef SystemHPP
  61. #include <System.hpp>
  62. #endif
  63.  
  64. namespace Fldlinks
  65. {
  66. //-- type declarations -------------------------------------------------------
  67. class __declspec(delphiclass) TLinkFields;
  68. class __declspec(pascalimplementation) TLinkFields : public Forms::TForm
  69. {
  70.     typedef TLinkFields ThisClass;
  71.     typedef Forms::TForm inherited;
  72.     
  73. __published:
  74.     Stdctrls::TListBox *DetailList;
  75.     Stdctrls::TListBox *MasterList;
  76.     Stdctrls::TListBox *BindList;
  77.     Stdctrls::TLabel *Label30;
  78.     Stdctrls::TLabel *Label31;
  79.     Stdctrls::TComboBox *IndexList;
  80.     Stdctrls::TLabel *IndexLabel;
  81.     Dbtables::TTable *Table1;
  82.     Stdctrls::TLabel *Label2;
  83.     Extctrls::TBevel *Bevel1;
  84.     Extctrls::TBevel *Bevel2;
  85.     Stdctrls::TButton *AddButton;
  86.     Stdctrls::TButton *DeleteButton;
  87.     Stdctrls::TButton *ClearButton;
  88.     Stdctrls::TButton *Button1;
  89.     Stdctrls::TButton *Button2;
  90.     Stdctrls::TButton *Help;
  91.     void __fastcall FormCreate(System::TObject *Sender);
  92.     void __fastcall IndexListChange(System::TObject *Sender);
  93.     void __fastcall BindingListClick(System::TObject *Sender);
  94.     void __fastcall AddButtonClick(System::TObject *Sender);
  95.     void __fastcall DeleteButtonClick(System::TObject *Sender);
  96.     void __fastcall BindListClick(System::TObject *Sender);
  97.     void __fastcall ClearButtonClick(System::TObject *Sender);
  98.     void __fastcall FormDestroy(System::TObject *Sender);
  99.     void __fastcall BitBtn1Click(System::TObject *Sender);
  100.     void __fastcall HelpClick(System::TObject *Sender);
  101.     
  102. private:
  103.     System::AnsiString FFullIndexName;
  104.     Classes::TStringList *OrderedDetailList;
  105.     Classes::TStringList *OrderedMasterList;
  106.     System::Boolean Local;
  107.     void __fastcall OrderFieldList(Classes::TStrings *OrderedList, Classes::TStrings *List);
  108.     
  109. public:
  110.     System::AnsiString MasterFieldList;
  111.     System::AnsiString IndexFieldList;
  112.     void __fastcall AddToBindList(const System::AnsiString Str1, const System::AnsiString Str2);
  113.     void __fastcall Initialize(const Dbtables::TTable *Table, const Db::TDataSet *DataSet);
  114.     __property System::AnsiString FullIndexName = {read=FFullIndexName, nodefault};
  115. public:
  116.     /* !! TForm.Create */ __fastcall virtual TLinkFields(Classes::TComponent *AOwner) : Forms::TForm(AOwner
  117.         ) { }
  118.     /* !! TForm.CreateNew */ __fastcall TLinkFields(Classes::TComponent *AOwner, System::Integer Dummy)
  119.          : Forms::TForm(AOwner, Dummy) { }
  120.     /* !! TForm.Destroy */ __fastcall virtual ~TLinkFields(void) { }
  121.     
  122. };
  123.  
  124. class __declspec(delphiclass) TFieldLinkProperty;
  125. class __declspec(pascalimplementation) TFieldLinkProperty : public Dsgnintf::TPropertyEditor
  126. {
  127.     typedef TFieldLinkProperty ThisClass;
  128.     typedef Dsgnintf::TPropertyEditor inherited;
  129.     
  130. public:
  131.     virtual void __fastcall Edit(void);
  132.     virtual Dsgnintf::TPropertyAttributes __fastcall GetAttributes(void);
  133.     virtual System::AnsiString __fastcall GetValue(void);
  134.     virtual void __fastcall SetValue(const System::AnsiString Value);
  135. public:
  136.     /* !! TPropertyEditor.Destroy */ __fastcall virtual ~TFieldLinkProperty(void) { }
  137.     
  138. public:
  139.     /* !! TObject.Create */ __fastcall TFieldLinkProperty(void) : Dsgnintf::TPropertyEditor() { }
  140.     
  141. };
  142.  
  143. //-- var, const, procedure ---------------------------------------------------
  144. extern TLinkFields *LinkFields;
  145.  
  146. }    /* namespace Fldlinks */
  147. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  148. using namespace Fldlinks;
  149. #endif
  150. //-- end unit ----------------------------------------------------------------
  151. #endif    // Fldlinks
  152.