home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 9 / CDACTUAL9.iso / progs / CB / DATA.Z / DATAFORM.HPP < prev    next >
Encoding:
C/C++ Source or Header  |  1996-11-06  |  4.0 KB  |  147 lines

  1. //----------------------------------------------------------------------------
  2. // Dataform.hpp - dcc32 generated hdr (DO NOT EDIT) rev: -2
  3. // From: Dataform.pas
  4. //----------------------------------------------------------------------------
  5. #ifndef DataformHPP
  6. #define DataformHPP
  7. //----------------------------------------------------------------------------
  8. #ifndef FrmexprtHPP
  9. #include <Frmexprt.hpp>
  10. #endif
  11.  
  12. #ifndef DBGridsHPP
  13. #include <DBGrids.hpp>
  14. #endif
  15.  
  16. #ifndef BdeHPP
  17. #include <Bde.hpp>
  18. #endif
  19.  
  20. #ifndef DBCtrlsHPP
  21. #include <DBCtrls.hpp>
  22. #endif
  23.  
  24. #ifndef DBTablesHPP
  25. #include <DBTables.hpp>
  26. #endif
  27.  
  28. #ifndef DBHPP
  29. #include <DB.hpp>
  30. #endif
  31.  
  32. #ifndef ControlsHPP
  33. #include <Controls.hpp>
  34. #endif
  35.  
  36. #ifndef ExtCtrlsHPP
  37. #include <ExtCtrls.hpp>
  38. #endif
  39.  
  40. #ifndef FormsHPP
  41. #include <Forms.hpp>
  42. #endif
  43.  
  44. #ifndef GraphicsHPP
  45. #include <Graphics.hpp>
  46. #endif
  47.  
  48. #ifndef StdCtrlsHPP
  49. #include <StdCtrls.hpp>
  50. #endif
  51.  
  52. #ifndef ClassesHPP
  53. #include <Classes.hpp>
  54. #endif
  55.  
  56. #ifndef WindowsHPP
  57. #include <Windows.hpp>
  58. #endif
  59.  
  60. #ifndef SysUtilsHPP
  61. #include <SysUtils.hpp>
  62. #endif
  63.  
  64. #ifndef SystemHPP
  65. #include <System.hpp>
  66. #endif
  67.  
  68. namespace Dataform
  69. {
  70. //-- type declarations -------------------------------------------------------
  71. enum TUsedControls { ucGrid, ucScrollBox };
  72.  
  73. class __declspec(delphiclass) TDataForm;
  74. class __declspec(pascalimplementation) TDataForm : public Forms::TForm
  75. {
  76.     typedef TDataForm ThisClass;
  77.     typedef Forms::TForm inherited;
  78.     
  79. __published:
  80.     Dbtables::TQuery *Query1;
  81.     Dbtables::TQuery *Query2;
  82.     Db::TDataSource *DataSource1;
  83.     Db::TDataSource *DataSource2;
  84.     Extctrls::TPanel *Panel1;
  85.     Dbtables::TTable *Table1;
  86.     Dbtables::TTable *Table2;
  87.     Dbctrls::TDBNavigator *DBNavigator;
  88.     void __fastcall FormCreate(System::TObject *Sender);
  89.     
  90. private:
  91.     System::Integer NumFields;
  92.     System::Integer XPos;
  93.     System::Integer YPos;
  94.     Forms::TScrollBox *FScrollBox;
  95.     Extctrls::TPanel *FScrollPanel;
  96.     Extctrls::TPanel *FGridPanel1;
  97.     Extctrls::TPanel *FGridPanel2;
  98.     System::Integer MaxLabelWidth;
  99.     System::Word CharWidth;
  100.     System::Integer LowestControl;
  101.     Set<TUsedControls, ucGrid, ucScrollBox>  UsedControls;
  102.     Controls::TControl *__fastcall CreateControl(Frmexprt::PFieldInfo Field);
  103.     System::AnsiString __fastcall CreateName(Classes::TComponent *Component,  System::AnsiString Value)
  104.         ;
  105.     Windows::TPoint __fastcall GetMaxControlValue(void);
  106.     void __fastcall RestructureForm(System::Integer Value);
  107.     
  108. public:
  109.     System::Boolean MultiQuery;
  110.     System::Boolean ByRow;
  111.     System::Integer Pass;
  112.     System::Boolean LabelsLeft;
  113.     System::Integer LastHeight;
  114.     System::Boolean CreateTable;
  115.     System::Boolean GenDataSets;
  116.     System::AnsiString UsesName;
  117.     Db::TDataSource *MainDataSource1;
  118.     Db::TDataSource *MainDataSource2;
  119.     void __fastcall NextPass(void);
  120.     Classes::TMemoryStream *__fastcall CreateRes(const System::AnsiString FormName);
  121.     Classes::TMemoryStream *__fastcall CreateHdrSource(const System::AnsiString FilePath, const System::AnsiString 
  122.         FormName);
  123.     Classes::TMemoryStream *__fastcall CreateSource(const System::AnsiString FilePath, const System::AnsiString 
  124.         FormName);
  125.     void __fastcall CreateField(const System::AnsiString FieldName, Frmexprt::PFieldInfo Field);
  126.     void __fastcall CreateGrid(void);
  127.     __property Forms::TScrollBox * ScrollBox = {read=FScrollBox, nodefault};
  128. public:
  129.     /* !! TForm.Create */ __fastcall virtual TDataForm(Classes::TComponent *AOwner) : Forms::TForm(AOwner
  130.         ) { }
  131.     /* !! TForm.CreateNew */ __fastcall TDataForm(Classes::TComponent *AOwner, System::Integer Dummy) : Forms::TForm(
  132.         AOwner, Dummy) { }
  133.     /* !! TForm.Destroy */ __fastcall virtual ~TDataForm(void) { }
  134.     
  135. };
  136.  
  137. //-- var, const, procedure ---------------------------------------------------
  138. //-- template instantiations -------------------------------------------------
  139. template class Set<TUsedControls, ucGrid, ucScrollBox>  ;
  140.  
  141. }    /* namespace Dataform */
  142. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  143. using namespace Dataform;
  144. #endif
  145. //-- end unit ----------------------------------------------------------------
  146. #endif    // Dataform
  147.