home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 May / VPR9705A.ISO / VPR_DATA / PROGRAM / CBTRIAL / SETUP / DATA.Z / DSDEFINE.HPP < prev    next >
C/C++ Source or Header  |  1997-02-14  |  6KB  |  138 lines
  1. //----------------------------------------------------------------------------
  2. // DSDefine.hpp - bcbdcc32 generated hdr (DO NOT EDIT) rev: 0
  3. // From: DSDefine.pas
  4. //----------------------------------------------------------------------------
  5. #ifndef DSDefineHPP
  6. #define DSDefineHPP
  7. //----------------------------------------------------------------------------
  8. #include <DsgnIntf.hpp>
  9. #include <DBTables.hpp>
  10. #include <DB.hpp>
  11. #include <Buttons.hpp>
  12. #include <ExtCtrls.hpp>
  13. #include <StdCtrls.hpp>
  14. #include <Forms.hpp>
  15. #include <Controls.hpp>
  16. #include <Graphics.hpp>
  17. #include <Classes.hpp>
  18. #include <Messages.hpp>
  19. #include <Windows.hpp>
  20. #include <SysUtils.hpp>
  21. #include <System.hpp>
  22. #pragma warn -par
  23. #pragma warn -hid 
  24. #pragma warn -inl
  25.  
  26. namespace Dsdefine
  27. {
  28. //-- type declarations -------------------------------------------------------
  29. class __declspec(delphiclass) TDefineField;
  30. class __declspec(pascalimplementation) TDefineField : public Forms::TForm
  31. {
  32.     typedef Forms::TForm inherited;
  33.     
  34. __published:
  35.     Stdctrls::TButton* OkBtn;
  36.     Stdctrls::TButton* CancelBtn;
  37.     Stdctrls::TButton* HelpBtn;
  38.     Stdctrls::TGroupBox* FieldGroup;
  39.     Stdctrls::TLabel* ComponentNameLabel;
  40.     Stdctrls::TLabel* FieldNameLabel;
  41.     Stdctrls::TEdit* ComponentNameEdit;
  42.     Stdctrls::TEdit* FieldNameEdit;
  43.     Stdctrls::TComboBox* FieldTypeList;
  44.     Stdctrls::TLabel* Label2;
  45.     Stdctrls::TEdit* SizeEdit;
  46.     Extctrls::TRadioGroup* FieldKind;
  47.     Stdctrls::TGroupBox* LookupGroup;
  48.     Stdctrls::TComboBox* DatasetList;
  49.     Stdctrls::TLabel* DatasetLabel;
  50.     Stdctrls::TComboBox* KeyFieldsList;
  51.     Stdctrls::TComboBox* LookupKeysList;
  52.     Stdctrls::TComboBox* ResultFieldList;
  53.     Stdctrls::TLabel* KeyFieldsLabel;
  54.     Stdctrls::TLabel* LookupKeysLabel;
  55.     Stdctrls::TLabel* ResultFieldLabel;
  56.     Stdctrls::TLabel* FieldTypeLabel;
  57.     void __fastcall FieldNameEditChange(System::TObject* Sender);
  58.     void __fastcall FormCreate(System::TObject* Sender);
  59.     void __fastcall OkBtnClick(System::TObject* Sender);
  60.     void __fastcall DatasetListDropDown(System::TObject* Sender);
  61.     void __fastcall LookupKeysListDropDown(System::TObject* Sender);
  62.     void __fastcall KeyFieldsListDropDown(System::TObject* Sender);
  63.     void __fastcall ResultFieldListDropDown(System::TObject* Sender);
  64.     void __fastcall FieldKindClick(System::TObject* Sender);
  65.     void __fastcall DatasetListChange(System::TObject* Sender);
  66.     void __fastcall HelpBtnClick(System::TObject* Sender);
  67.     
  68. private:
  69.     Db::TDataSet* FDataset;
  70.     Dsgnintf::TFormDesigner* FDesigner;
  71.     Db::TDataSetDesigner* FDSDesigner;
  72.     Forms::TForm* FForm;
  73.     Db::TFieldDescList *FFieldDescs;
  74.     int FFieldDescCount;
  75.     bool __fastcall GetCalculated(void);
  76.     System::AnsiString __fastcall GetComponentName(void);
  77.     System::TMetaClass* __fastcall GetFieldClass(void);
  78.     System::AnsiString __fastcall GetFieldName(void);
  79.     bool __fastcall GetLookup(void);
  80.     Db::TDataSet* __fastcall GetLookupDataset(void);
  81.     System::AnsiString __fastcall GetKeyFields(void);
  82.     System::AnsiString __fastcall GetLookupKeyFields(void);
  83.     System::AnsiString __fastcall GetLookupResultField(void);
  84.     void __fastcall GetLookupFields(Classes::TStrings* Items);
  85.     int __fastcall GetSize(void);
  86.     void __fastcall SetCalculated(bool Value);
  87.     void __fastcall SetComponentName(const System::AnsiString Value);
  88.     void __fastcall SetDataset(Db::TDataSet* Value);
  89.     void __fastcall SetFieldClass(System::TMetaClass* Value);
  90.     void __fastcall SetFieldName(const System::AnsiString Value);
  91.     void __fastcall SetLookup(bool Value);
  92.     void __fastcall SetSize(int Value);
  93.     void __fastcall UpdateLookupControls(void);
  94.     
  95. public:
  96.     __property bool Calculated = {read=GetCalculated, write=SetCalculated, nodefault};
  97.     __property bool Lookup = {read=GetLookup, write=SetLookup, nodefault};
  98.     __property System::AnsiString ComponentName = {read=GetComponentName, write=SetComponentName, nodefault
  99.         };
  100.     __property System::TMetaClass* FieldClass = {read=GetFieldClass, write=SetFieldClass, nodefault};
  101.     __property System::AnsiString FieldName = {read=GetFieldName, write=SetFieldName, nodefault};
  102.     __property int Size = {read=GetSize, write=SetSize, nodefault};
  103.     __property Db::TDataSet* LookupDataset = {read=GetLookupDataset, nodefault};
  104.     __property System::AnsiString KeyFields = {read=GetKeyFields, nodefault};
  105.     __property System::AnsiString LookupKeyFields = {read=GetLookupKeyFields, nodefault};
  106.     __property System::AnsiString LookupResultField = {read=GetLookupResultField, nodefault};
  107.     __property Db::TDataSet* Dataset = {read=FDataset, write=SetDataset, nodefault};
  108.     __property Dsgnintf::TFormDesigner* Designer = {read=FDesigner, write=FDesigner, nodefault};
  109.     __property Db::TDataSetDesigner* DSDesigner = {read=FDSDesigner, write=FDSDesigner, nodefault};
  110. public:
  111.         
  112.     /* TForm.Create */ __fastcall virtual TDefineField(Classes::TComponent* AOwner) : Forms::TForm(AOwner
  113.         ) { }
  114.     /* TForm.CreateNew */ __fastcall TDefineField(Classes::TComponent* AOwner, int Dummy) : Forms::TForm(
  115.         AOwner, Dummy) { }
  116.     /* TForm.Destroy */ __fastcall virtual ~TDefineField(void) { }
  117.     
  118. public:
  119.     /* TWinControl.CreateParented */ __fastcall TDefineField(HWND ParentWindow) : Forms::TForm(ParentWindow
  120.         ) { }
  121.     
  122. };
  123.  
  124. //-- var, const, procedure ---------------------------------------------------
  125. extern TDefineField* DefineField;
  126.  
  127. }    /* namespace Dsdefine */
  128.  
  129. #pragma warn .par
  130. #pragma warn .hid 
  131. #pragma warn .inl
  132.  
  133. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  134. using namespace Dsdefine;
  135. #endif
  136. //-- end unit ----------------------------------------------------------------
  137. #endif    // DSDefine
  138.