home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Internet 2000 May / MICD_2000_05.iso / CBuilder5 / INSTALL / DATA1.CAB / Program_Built_Files / Include / Vcl / dsdefine.hpp < prev    next >
C/C++ Source or Header  |  2000-02-01  |  6KB  |  151 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) 'DSDefine.pas' rev: 5.00
  6.  
  7. #ifndef DSDefineHPP
  8. #define DSDefineHPP
  9.  
  10. #pragma delphiheader begin
  11. #pragma option push -w-
  12. #pragma option push -Vx
  13. #include <DsgnIntf.hpp>    // Pascal unit
  14. #include <Db.hpp>    // Pascal unit
  15. #include <Buttons.hpp>    // Pascal unit
  16. #include <ExtCtrls.hpp>    // Pascal unit
  17. #include <StdCtrls.hpp>    // Pascal unit
  18. #include <Forms.hpp>    // Pascal unit
  19. #include <Controls.hpp>    // Pascal unit
  20. #include <Graphics.hpp>    // Pascal unit
  21. #include <Classes.hpp>    // Pascal unit
  22. #include <Messages.hpp>    // Pascal unit
  23. #include <SysUtils.hpp>    // Pascal unit
  24. #include <Windows.hpp>    // Pascal unit
  25. #include <SysInit.hpp>    // Pascal unit
  26. #include <System.hpp>    // Pascal unit
  27.  
  28. //-- user supplied -----------------------------------------------------------
  29.  
  30. namespace Dsdefine
  31. {
  32. //-- type declarations -------------------------------------------------------
  33. class DELPHICLASS TDefineField;
  34. class PASCALIMPLEMENTATION TDefineField : public Forms::TForm 
  35. {
  36.     typedef Forms::TForm inherited;
  37.     
  38. __published:
  39.     Stdctrls::TButton* OkBtn;
  40.     Stdctrls::TButton* CancelBtn;
  41.     Stdctrls::TButton* HelpBtn;
  42.     Stdctrls::TGroupBox* FieldGroup;
  43.     Stdctrls::TLabel* ComponentNameLabel;
  44.     Stdctrls::TLabel* FieldNameLabel;
  45.     Stdctrls::TEdit* ComponentNameEdit;
  46.     Stdctrls::TEdit* FieldNameEdit;
  47.     Stdctrls::TComboBox* FieldTypeList;
  48.     Stdctrls::TLabel* SizeEditLabel;
  49.     Stdctrls::TEdit* SizeEdit;
  50.     Extctrls::TRadioGroup* FieldKind;
  51.     Stdctrls::TGroupBox* LookupGroup;
  52.     Stdctrls::TComboBox* DatasetList;
  53.     Stdctrls::TLabel* DatasetLabel;
  54.     Stdctrls::TComboBox* KeyFieldsList;
  55.     Stdctrls::TComboBox* LookupKeysList;
  56.     Stdctrls::TComboBox* ResultFieldList;
  57.     Stdctrls::TLabel* KeyFieldsLabel;
  58.     Stdctrls::TLabel* LookupKeysLabel;
  59.     Stdctrls::TLabel* ResultFieldLabel;
  60.     Stdctrls::TLabel* FieldTypeLabel;
  61.     void __fastcall FieldNameEditChange(System::TObject* Sender);
  62.     void __fastcall FormCreate(System::TObject* Sender);
  63.     void __fastcall OkBtnClick(System::TObject* Sender);
  64.     void __fastcall DatasetListDropDown(System::TObject* Sender);
  65.     void __fastcall LookupKeysListDropDown(System::TObject* Sender);
  66.     void __fastcall KeyFieldsListDropDown(System::TObject* Sender);
  67.     void __fastcall ResultFieldListDropDown(System::TObject* Sender);
  68.     void __fastcall FieldKindClick(System::TObject* Sender);
  69.     void __fastcall DatasetListChange(System::TObject* Sender);
  70.     void __fastcall HelpBtnClick(System::TObject* Sender);
  71.     void __fastcall FieldTypeListChange(System::TObject* Sender);
  72.     
  73. private:
  74.     Db::TDataSet* FDataset;
  75.     Dsgnintf::_di_IFormDesigner FDesigner;
  76.     Db::TDataSetDesigner* FDSDesigner;
  77.     Db::TField* FField;
  78.     bool __fastcall GetCalculated(void);
  79.     AnsiString __fastcall GetComponentName();
  80.     TMetaClass* __fastcall GetFieldClass(void);
  81.     AnsiString __fastcall GetFieldName();
  82.     bool __fastcall GetLookup(void);
  83.     Db::TDataSet* __fastcall GetLookupDataset(void);
  84.     AnsiString __fastcall GetKeyFields();
  85.     AnsiString __fastcall GetLookupKeyFields();
  86.     AnsiString __fastcall GetLookupResultField();
  87.     void __fastcall GetLookupFields(Classes::TStrings* Items);
  88.     int __fastcall GetSize(void);
  89.     void __fastcall SetCalculated(bool Value);
  90.     void __fastcall SetComponentName(const AnsiString Value);
  91.     void __fastcall SetDataset(Db::TDataSet* Value);
  92.     void __fastcall SetFieldClass(TMetaClass* Value);
  93.     void __fastcall SetFieldName(const AnsiString Value);
  94.     void __fastcall SetLookup(bool Value);
  95.     void __fastcall SetSize(int Value);
  96.     void __fastcall UpdateLookupControls(void);
  97.     
  98. public:
  99.     void __fastcall ConfigureForLookupOnly(const AnsiString ADataSet, const AnsiString AKey, const AnsiString 
  100.         ALookup, const AnsiString AResult, const AnsiString AType, Word ASize);
  101.     __property bool Calculated = {read=GetCalculated, write=SetCalculated, nodefault};
  102.     __property bool Lookup = {read=GetLookup, write=SetLookup, nodefault};
  103.     __property AnsiString ComponentName = {read=GetComponentName, write=SetComponentName};
  104.     __property TMetaClass* FieldClass = {read=GetFieldClass, write=SetFieldClass};
  105.     __property AnsiString FieldName = {read=GetFieldName, write=SetFieldName};
  106.     __property Db::TField* Field = {read=FField};
  107.     __property int Size = {read=GetSize, write=SetSize, nodefault};
  108.     __property Db::TDataSet* LookupDataset = {read=GetLookupDataset};
  109.     __property AnsiString KeyFields = {read=GetKeyFields};
  110.     __property AnsiString LookupKeyFields = {read=GetLookupKeyFields};
  111.     __property AnsiString LookupResultField = {read=GetLookupResultField};
  112.     __property Db::TDataSet* Dataset = {read=FDataset, write=SetDataset};
  113.     __property Dsgnintf::_di_IFormDesigner Designer = {read=FDesigner, write=FDesigner};
  114.     __property Db::TDataSetDesigner* DSDesigner = {read=FDSDesigner, write=FDSDesigner};
  115. public:
  116.     #pragma option push -w-inl
  117.     /* TCustomForm.Create */ inline __fastcall virtual TDefineField(Classes::TComponent* AOwner) : Forms::TForm(
  118.         AOwner) { }
  119.     #pragma option pop
  120.     #pragma option push -w-inl
  121.     /* TCustomForm.CreateNew */ inline __fastcall virtual TDefineField(Classes::TComponent* AOwner, int 
  122.         Dummy) : Forms::TForm(AOwner, Dummy) { }
  123.     #pragma option pop
  124.     #pragma option push -w-inl
  125.     /* TCustomForm.Destroy */ inline __fastcall virtual ~TDefineField(void) { }
  126.     #pragma option pop
  127.     
  128. public:
  129.     #pragma option push -w-inl
  130.     /* TWinControl.CreateParented */ inline __fastcall TDefineField(HWND ParentWindow) : Forms::TForm(ParentWindow
  131.         ) { }
  132.     #pragma option pop
  133.     
  134. };
  135.  
  136.  
  137. //-- var, const, procedure ---------------------------------------------------
  138. extern PACKAGE TDefineField* DefineField;
  139. extern PACKAGE AnsiString __fastcall ClassNameNoT(TMetaClass* FieldClass);
  140.  
  141. }    /* namespace Dsdefine */
  142. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  143. using namespace Dsdefine;
  144. #endif
  145. #pragma option pop    // -w-
  146. #pragma option pop    // -Vx
  147.  
  148. #pragma delphiheader end.
  149. //-- end unit ----------------------------------------------------------------
  150. #endif    // DSDefine
  151.