home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 May / VPR9705A.ISO / VPR_DATA / PROGRAM / CBTRIAL / SETUP / DATA.Z / DSDESIGN.HPP < prev    next >
C/C++ Source or Header  |  1997-02-14  |  7KB  |  173 lines
  1. //----------------------------------------------------------------------------
  2. // DSDesign.hpp - bcbdcc32 generated hdr (DO NOT EDIT) rev: 0
  3. // From: DSDesign.pas
  4. //----------------------------------------------------------------------------
  5. #ifndef DSDesignHPP
  6. #define DSDesignHPP
  7. //----------------------------------------------------------------------------
  8. #include <DRIntf.hpp>
  9. #include <Menus.hpp>
  10. #include <DsgnWnds.hpp>
  11. #include <libconst.hpp>
  12. #include <LibIntf.hpp>
  13. #include <DsgnIntf.hpp>
  14. #include <DBTables.hpp>
  15. #include <DBCtrls.hpp>
  16. #include <DB.hpp>
  17. #include <ExtCtrls.hpp>
  18. #include <StdCtrls.hpp>
  19. #include <Forms.hpp>
  20. #include <Controls.hpp>
  21. #include <Graphics.hpp>
  22. #include <Classes.hpp>
  23. #include <Messages.hpp>
  24. #include <Windows.hpp>
  25. #include <SysUtils.hpp>
  26. #include <System.hpp>
  27. #pragma warn -par
  28. #pragma warn -hid 
  29. #pragma warn -inl
  30.  
  31. namespace Dsdesign
  32. {
  33. //-- type declarations -------------------------------------------------------
  34. typedef bool __fastcall (__closure *TSelectionProc)(Db::TField* Field);
  35.  
  36. class __declspec(delphiclass) TDatasetEditor;
  37. class __declspec(pascalimplementation) TDatasetEditor : public Dsgnwnds::TDesignWindow
  38. {
  39.     typedef Dsgnwnds::TDesignWindow inherited;
  40.     
  41. __published:
  42.     Extctrls::TPanel* Panel1;
  43.     Db::TDataSource* DataSource;
  44.     Menus::TPopupMenu* LocalMenu;
  45.     Menus::TMenuItem* AddItem;
  46.     Menus::TMenuItem* NewItem;
  47.     Menus::TMenuItem* N1;
  48.     Menus::TMenuItem* CutItem;
  49.     Menus::TMenuItem* CopyItem;
  50.     Menus::TMenuItem* PasteItem;
  51.     Menus::TMenuItem* DeleteItem;
  52.     Menus::TMenuItem* SelectAllItem;
  53.     Menus::TMenuItem* N2;
  54.     Menus::TMenuItem* RetrieveItem;
  55.     Menus::TMenuItem* UpdateItem;
  56.     Menus::TMenuItem* SaveAttributesAsItem;
  57.     Menus::TMenuItem* AssociateItem;
  58.     Menus::TMenuItem* Unassociate;
  59.     Stdctrls::TListBox* FieldListBox;
  60.     Dbctrls::TDBNavigator* DBNavigator;
  61.     void __fastcall FormCreate(System::TObject* Sender);
  62.     void __fastcall FormDestroy(System::TObject* Sender);
  63.     void __fastcall AddItemClick(System::TObject* Sender);
  64.     void __fastcall DeleteItemClick(System::TObject* Sender);
  65.     void __fastcall FieldListBoxDragOver(System::TObject* Sender, System::TObject* Source, int X, int Y
  66.         , Controls::TDragState State, bool &Accept);
  67.     void __fastcall FieldListBoxDragDrop(System::TObject* Sender, System::TObject* Source, int X, int Y
  68.         );
  69.     void __fastcall FieldListBoxKeyDown(System::TObject* Sender, Word &Key, Classes::TShiftState Shift)
  70.         ;
  71.     void __fastcall NewItemClick(System::TObject* Sender);
  72.     void __fastcall SelectTable(System::TObject* Sender);
  73.     void __fastcall FieldListBoxClick(System::TObject* Sender);
  74.     void __fastcall FieldListBoxKeyPress(System::TObject* Sender, char &Key);
  75.     void __fastcall ClearAllClick(System::TObject* Sender);
  76.     void __fastcall FieldListBoxStartDrag(System::TObject* Sender, Controls::TDragObject* &DragObject);
  77.         
  78.     void __fastcall SelectAllItemClick(System::TObject* Sender);
  79.     void __fastcall CutItemClick(System::TObject* Sender);
  80.     void __fastcall CopyItemClick(System::TObject* Sender);
  81.     void __fastcall PasteItemClick(System::TObject* Sender);
  82.     void __fastcall LocalMenuPopup(System::TObject* Sender);
  83.     void __fastcall RetrieveItemClick(System::TObject* Sender);
  84.     void __fastcall UpdateItemClick(System::TObject* Sender);
  85.     void __fastcall SaveAttributesAsItemClick(System::TObject* Sender);
  86.     void __fastcall AssociateItemClick(System::TObject* Sender);
  87.     void __fastcall UnassociateClick(System::TObject* Sender);
  88.     
  89. private:
  90.     Db::TDataSetDesigner* FDSDesigner;
  91.     Forms::TForm* FForm;
  92.     Db::TDataSet* FDataset;
  93.     int FFocusRectItem;
  94.     int FMinWidth;
  95.     int FMinHeight;
  96.     bool FUpdating;
  97.     void __fastcall Copy(void);
  98.     void __fastcall CreateFields(Stdctrls::TListBox* FieldsList);
  99.     void __fastcall Cut(void);
  100.     void __fastcall MoveFields(int Offset);
  101.     void __fastcall Paste(void);
  102.     void __fastcall RemoveFields(void);
  103.     void __fastcall SelectAll(void);
  104.     void __fastcall RestoreSelection(Stdctrls::TListBox* List, Classes::TStringList* &Selection, int ItemIndex
  105.         , int TopIndex, bool RestoreUpdate);
  106.     void __fastcall SaveSelection(Stdctrls::TListBox* List, Classes::TStringList* &Selection, int &ItemIndex
  107.         , int &TopIndex, bool NoUpdate);
  108.     void __fastcall SetDataset(Db::TDataSet* Value);
  109.     HIDESBASE void __fastcall Update(void);
  110.     void __fastcall UpdateCaption(void);
  111.     void __fastcall UpdateFieldList(void);
  112.     void __fastcall UpdateSelection(void);
  113.     bool __fastcall ForEachSelection(TSelectionProc Proc);
  114.     void __fastcall GetTableDesc( System::AnsiString &ADatabase,  System::AnsiString &ATable);
  115.     bool __fastcall FindFieldInfo(Db::TField* Field, Drintf::TFieldID &FieldID, Drintf::TAttrID &AttrID
  116.         );
  117.     void __fastcall GetFieldInfo(Db::TField* Field, Drintf::TFieldID &FieldID, Drintf::TAttrID &AttrID)
  118.         ;
  119.     bool __fastcall RetrieveAttributes(Db::TField* Field);
  120.     bool __fastcall SaveAttributes(Db::TField* Field);
  121.     bool __fastcall SaveAttributesAs(Db::TField* Field);
  122.     bool __fastcall AssociateAttributes(Db::TField* Field);
  123.     bool __fastcall UnassociateAttributes(Db::TField* Field);
  124.     bool __fastcall CheckAttribute(Db::TField* Field);
  125.     System::AnsiString __fastcall QualifyTableName( System::AnsiString DatabaseName, Db::TDatabase* Database
  126.         , const System::AnsiString TableName);
  127.     MESSAGE void __fastcall WMGetMinMaxInfo(Messages::TWMGetMinMaxInfo &Message);
  128.     
  129. protected:
  130.     virtual void __fastcall Activated(void);
  131.     virtual System::AnsiString __fastcall UniqueName(Classes::TComponent* Component);
  132.     
  133. public:
  134.     virtual void __fastcall ComponentDeleted(Classes::TComponent* Component);
  135.     virtual Libintf::TEditState __fastcall GetEditState(void);
  136.     virtual void __fastcall EditAction(Libintf::TEditAction Action);
  137.     virtual void __fastcall FormModified(void);
  138.     virtual void __fastcall SelectionChanged(Dsgnintf::TComponentList* ASelection);
  139.     __property Forms::TForm* Form = {read=FForm, write=FForm, nodefault};
  140.     __property Db::TDataSet* Dataset = {read=FDataset, write=SetDataset, nodefault};
  141. public:
  142.     /* TDesignWindow.Create */ __fastcall virtual TDatasetEditor(Classes::TComponent* AOwner) : Dsgnwnds::
  143.         TDesignWindow(AOwner) { }
  144.     /* TDesignWindow.Destroy */ __fastcall virtual ~TDatasetEditor(void) { }
  145.     
  146. public:
  147.     /* TForm.CreateNew */ __fastcall TDatasetEditor(Classes::TComponent* AOwner, int Dummy) : Dsgnwnds::
  148.         TDesignWindow(AOwner, Dummy) { }
  149.     
  150. public:
  151.     /* TWinControl.CreateParented */ __fastcall TDatasetEditor(HWND ParentWindow) : Dsgnwnds::TDesignWindow(
  152.         ParentWindow) { }
  153.     
  154. };
  155.  
  156. //-- var, const, procedure ---------------------------------------------------
  157. extern void __fastcall ShowDatasetDesigner(Dsgnintf::TFormDesigner* Designer, Db::TDataSet* ADataset
  158.     );
  159. extern System::AnsiString __fastcall CreateUniqueName(Db::TDataSet* Dataset, const System::AnsiString 
  160.     FieldName, System::TMetaClass* FieldClass);
  161.  
  162. }    /* namespace Dsdesign */
  163.  
  164. #pragma warn .par
  165. #pragma warn .hid 
  166. #pragma warn .inl
  167.  
  168. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  169. using namespace Dsdesign;
  170. #endif
  171. //-- end unit ----------------------------------------------------------------
  172. #endif    // DSDesign
  173.