home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Internet 2000 May / MICD_2000_05.iso / CBuilder5 / INSTALL / DATA1.CAB / Program_Built_Files / Include / Vcl / frmexprt.hpp < prev    next >
C/C++ Source or Header  |  2000-02-01  |  14KB  |  352 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) 'Frmexprt.pas' rev: 5.00
  6.  
  7. #ifndef FrmexprtHPP
  8. #define FrmexprtHPP
  9.  
  10. #pragma delphiheader begin
  11. #pragma option push -w-
  12. #pragma option push -Vx
  13. #include <DBCombo.hpp>    // Pascal unit
  14. #include <FileCtrl.hpp>    // Pascal unit
  15. #include <DBTables.hpp>    // Pascal unit
  16. #include <Db.hpp>    // Pascal unit
  17. #include <Dialogs.hpp>    // Pascal unit
  18. #include <Buttons.hpp>    // Pascal unit
  19. #include <ExtCtrls.hpp>    // Pascal unit
  20. #include <Controls.hpp>    // Pascal unit
  21. #include <Forms.hpp>    // Pascal unit
  22. #include <Graphics.hpp>    // Pascal unit
  23. #include <Classes.hpp>    // Pascal unit
  24. #include <StdCtrls.hpp>    // Pascal unit
  25. #include <SysUtils.hpp>    // Pascal unit
  26. #include <ActiveX.hpp>    // Pascal unit
  27. #include <Windows.hpp>    // Pascal unit
  28. #include <SysInit.hpp>    // Pascal unit
  29. #include <System.hpp>    // Pascal unit
  30.  
  31. //-- user supplied -----------------------------------------------------------
  32.  
  33. namespace Frmexprt
  34. {
  35. //-- type declarations -------------------------------------------------------
  36. class DELPHICLASS FormExcept;
  37. class PASCALIMPLEMENTATION FormExcept : public Sysutils::Exception 
  38. {
  39.     typedef Sysutils::Exception inherited;
  40.     
  41. public:
  42.     #pragma option push -w-inl
  43.     /* Exception.Create */ inline __fastcall FormExcept(const AnsiString Msg) : Sysutils::Exception(Msg
  44.         ) { }
  45.     #pragma option pop
  46.     #pragma option push -w-inl
  47.     /* Exception.CreateFmt */ inline __fastcall FormExcept(const AnsiString Msg, const System::TVarRec 
  48.         * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  49.     #pragma option pop
  50.     #pragma option push -w-inl
  51.     /* Exception.CreateRes */ inline __fastcall FormExcept(int Ident)/* overload */ : Sysutils::Exception(
  52.         Ident) { }
  53.     #pragma option pop
  54.     #pragma option push -w-inl
  55.     /* Exception.CreateResFmt */ inline __fastcall FormExcept(int Ident, const System::TVarRec * Args, 
  56.         const int Args_Size)/* overload */ : Sysutils::Exception(Ident, Args, Args_Size) { }
  57.     #pragma option pop
  58.     #pragma option push -w-inl
  59.     /* Exception.CreateHelp */ inline __fastcall FormExcept(const AnsiString Msg, int AHelpContext) : Sysutils::Exception(
  60.         Msg, AHelpContext) { }
  61.     #pragma option pop
  62.     #pragma option push -w-inl
  63.     /* Exception.CreateFmtHelp */ inline __fastcall FormExcept(const AnsiString Msg, const System::TVarRec 
  64.         * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  65.         ) { }
  66.     #pragma option pop
  67.     #pragma option push -w-inl
  68.     /* Exception.CreateResHelp */ inline __fastcall FormExcept(int Ident, int AHelpContext)/* overload */
  69.          : Sysutils::Exception(Ident, AHelpContext) { }
  70.     #pragma option pop
  71.     #pragma option push -w-inl
  72.     /* Exception.CreateResFmtHelp */ inline __fastcall FormExcept(System::PResStringRec ResStringRec, const 
  73.         System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : Sysutils::Exception(
  74.         ResStringRec, Args, Args_Size, AHelpContext) { }
  75.     #pragma option pop
  76.     
  77. public:
  78.     #pragma option push -w-inl
  79.     /* TObject.Destroy */ inline __fastcall virtual ~FormExcept(void) { }
  80.     #pragma option pop
  81.     
  82. };
  83.  
  84.  
  85. #pragma option push -b-
  86. enum TLayouts { ctHorz, ctVert, ctGrid };
  87. #pragma option pop
  88.  
  89. #pragma option push -b-
  90. enum TSources { stLocal, stAlias };
  91. #pragma option pop
  92.  
  93. #pragma option push -b-
  94. enum TLabelPos { lLeft, lTop };
  95. #pragma option pop
  96.  
  97. struct TExpertChoice;
  98. typedef TExpertChoice *PExpertChoice;
  99.  
  100. struct TExpertChoice
  101. {
  102.     TLayouts Layout;
  103.     TSources Source;
  104.     TLabelPos Labels;
  105.     Classes::TStringList* QueryText;
  106.     AnsiString TableName;
  107.     Classes::TStringList* FieldList;
  108.     int DriveIndex;
  109.     AnsiString Path;
  110.     AnsiString AliasName;
  111.     int TypeIndex;
  112. } ;
  113.  
  114. struct TFieldInfo;
  115. typedef TFieldInfo *PFieldInfo;
  116.  
  117. struct TFieldInfo
  118. {
  119.     Db::TFieldType DataType;
  120.     Word ControlWidth;
  121.     TMetaClass*FieldClass;
  122.     TMetaClass*ControlClass;
  123. } ;
  124.  
  125. class DELPHICLASS TFormExpert;
  126. class PASCALIMPLEMENTATION TFormExpert : public Forms::TForm 
  127. {
  128.     typedef Forms::TForm inherited;
  129.     
  130. __published:
  131.     Extctrls::TNotebook* Notebook1;
  132.     Stdctrls::TGroupBox* GroupBox2;
  133.     Stdctrls::TRadioButton* CreateSingle;
  134.     Stdctrls::TRadioButton* CreateMulti;
  135.     Stdctrls::TLabel* Label1;
  136.     Stdctrls::TLabel* LayoutLine1;
  137.     Stdctrls::TRadioButton* HorzButton;
  138.     Stdctrls::TRadioButton* VertButton;
  139.     Stdctrls::TRadioButton* GridButton;
  140.     Stdctrls::TLabel* Label8;
  141.     Stdctrls::TLabel* Label9;
  142.     Stdctrls::TLabel* Label10;
  143.     Stdctrls::TLabel* Label11;
  144.     Stdctrls::TLabel* Label12;
  145.     Stdctrls::TLabel* Label13;
  146.     Stdctrls::TLabel* Label6;
  147.     Filectrl::TFilterComboBox* FilterList;
  148.     Stdctrls::TLabel* Label25;
  149.     Stdctrls::TLabel* Label26;
  150.     Stdctrls::TLabel* Label27;
  151.     Stdctrls::TLabel* DirPath;
  152.     Stdctrls::TEdit* FileEdit;
  153.     Stdctrls::TLabel* PathText;
  154.     Dbcombo::TAliasDrive* AliasDriveList;
  155.     Dbcombo::TAliasListBox* AliasPathList;
  156.     Dbcombo::TAliasFileListBox* AliasFileList;
  157.     Stdctrls::TLabel* Label22;
  158.     Stdctrls::TLabel* Label24;
  159.     Stdctrls::TLabel* TableLine;
  160.     Stdctrls::TLabel* Label5;
  161.     Stdctrls::TRadioButton* LeftButton;
  162.     Stdctrls::TRadioButton* TopButton;
  163.     Stdctrls::TLabel* Label28;
  164.     Stdctrls::TLabel* Label29;
  165.     Stdctrls::TListBox* DetailList;
  166.     Stdctrls::TListBox* MasterList;
  167.     Stdctrls::TLabel* Label30;
  168.     Stdctrls::TLabel* Label31;
  169.     Stdctrls::TButton* AddButton;
  170.     Stdctrls::TLabel* Label32;
  171.     Stdctrls::TLabel* Label33;
  172.     Stdctrls::TButton* DeleteButton;
  173.     Stdctrls::TButton* ClearButton;
  174.     Stdctrls::TListBox* BindList;
  175.     Stdctrls::TLabel* Label4;
  176.     Extctrls::TImage* Image1;
  177.     Stdctrls::TListBox* ChosenList;
  178.     Buttons::TBitBtn* UpButton;
  179.     Buttons::TBitBtn* DownButton;
  180.     Stdctrls::TListBox* AvailableList;
  181.     Stdctrls::TGroupBox* GroupBox1;
  182.     Stdctrls::TRadioButton* CreateTable;
  183.     Stdctrls::TRadioButton* CreateQuery;
  184.     Stdctrls::TLabel* IndexLabel;
  185.     Extctrls::TBevel* Bevel1;
  186.     Stdctrls::TComboBox* IndexList;
  187.     Stdctrls::TLabel* Label17;
  188.     Stdctrls::TLabel* Label18;
  189.     Dbtables::TTable* Table1;
  190.     Buttons::TBitBtn* BitBtn3;
  191.     Buttons::TBitBtn* BitBtn4;
  192.     Buttons::TBitBtn* BitBtn5;
  193.     Buttons::TBitBtn* BitBtn6;
  194.     Stdctrls::TCheckBox* GenMainForm;
  195.     Dbtables::TTable* Table2;
  196.     Stdctrls::TButton* CancelButton;
  197.     Stdctrls::TButton* HelpButton;
  198.     Stdctrls::TButton* PrevButton;
  199.     Stdctrls::TButton* NextButton;
  200.     Stdctrls::TButton* CreateButton;
  201.     Stdctrls::TGroupBox* FormChoices;
  202.     Stdctrls::TRadioButton* FormAndModule;
  203.     Stdctrls::TRadioButton* Form;
  204.     void __fastcall FormCreate(System::TObject* Sender);
  205.     void __fastcall NextButtonClick(System::TObject* Sender);
  206.     void __fastcall PrevButtonClick(System::TObject* Sender);
  207.     void __fastcall CreateOptionClick(System::TObject* Sender);
  208.     void __fastcall DataSourceListClick(System::TObject* Sender);
  209.     void __fastcall FormDestroy(System::TObject* Sender);
  210.     void __fastcall LayoutButtonClick(System::TObject* Sender);
  211.     void __fastcall AliasDriveListChange(System::TObject* Sender);
  212.     void __fastcall AliasPathListChange(System::TObject* Sender);
  213.     void __fastcall FilterListChange(System::TObject* Sender);
  214.     void __fastcall AliasFileListClick(System::TObject* Sender);
  215.     void __fastcall Button2Click(System::TObject* Sender);
  216.     void __fastcall Button1Click(System::TObject* Sender);
  217.     void __fastcall Button3Click(System::TObject* Sender);
  218.     void __fastcall Button4Click(System::TObject* Sender);
  219.     void __fastcall FileEditChange(System::TObject* Sender);
  220.     void __fastcall ListDragOver(System::TObject* Sender, System::TObject* Source, int X, int Y, Controls::TDragState 
  221.         State, bool &Accept);
  222.     void __fastcall ListDragDrop(System::TObject* Sender, System::TObject* Source, int X, int Y);
  223.     void __fastcall UpButtonClick(System::TObject* Sender);
  224.     void __fastcall DownButtonClick(System::TObject* Sender);
  225.     void __fastcall PosButtonClick(System::TObject* Sender);
  226.     void __fastcall BindingListClick(System::TObject* Sender);
  227.     void __fastcall AddButtonClick(System::TObject* Sender);
  228.     void __fastcall ClearButtonClick(System::TObject* Sender);
  229.     void __fastcall ListDblClick(System::TObject* Sender);
  230.     void __fastcall DeleteButtonClick(System::TObject* Sender);
  231.     void __fastcall BindListClick(System::TObject* Sender);
  232.     void __fastcall AliasFileListDblClick(System::TObject* Sender);
  233.     void __fastcall FormPaint(System::TObject* Sender);
  234.     void __fastcall FileEditKeyPress(System::TObject* Sender, char &Key);
  235.     void __fastcall CreateTableClick(System::TObject* Sender);
  236.     void __fastcall CreateQueryClick(System::TObject* Sender);
  237.     void __fastcall IndexListChange(System::TObject* Sender);
  238.     void __fastcall FormClick(System::TObject* Sender);
  239.     void __fastcall FormAndModuleClick(System::TObject* Sender);
  240.     void __fastcall HelpButtonClick(System::TObject* Sender);
  241.     void __fastcall FormCloseQuery(System::TObject* Sender, bool &CanClose);
  242.     
  243. private:
  244.     Classes::TStringList* FAliasList;
  245.     int FCurPage;
  246.     bool FSimpleQuery;
  247.     bool FProcessedMaster;
  248.     TExpertChoice FChoice1;
  249.     TExpertChoice FChoice2;
  250.     TExpertChoice *FCurChoice;
  251.     int FInitialDriveIndex;
  252.     AnsiString FInitialDir;
  253.     int FChosenItem;
  254.     Controls::TImageList* FImageList;
  255.     bool FDataModule;
  256.     bool FClearDetails;
  257.     Classes::TStringList* FOrderedDetailList;
  258.     Classes::TStringList* FOrderedMasterList;
  259.     Classes::TStringList* FMasterDescList;
  260.     Classes::TStringList* FDetailDescList;
  261.     bool FCreateTable;
  262.     bool SyncChoices;
  263.     bool ForceUpdate;
  264.     AnsiString FFullIndexName;
  265.     void __fastcall AddToBindList(const AnsiString Str1, const AnsiString Str2);
  266.     void __fastcall ChangePages(int Value);
  267.     void __fastcall CheckBind(void);
  268.     TMetaClass* __fastcall CreateField(Classes::TComponent* AOwner, Db::TDataSet* DataSet, TMetaClass* 
  269.         FieldClass, const AnsiString DatabaseName, const AnsiString TableName, const AnsiString FieldName)
  270.         ;
  271.     bool __fastcall DoDragOver(Stdctrls::TListBox* List, const Windows::TPoint &Point, int &Index, Controls::TDragState 
  272.         State, bool DropOnSelected);
  273.     void __fastcall FillFieldList(Classes::TStrings* List, PExpertChoice Choice, bool StoreDesc);
  274.     AnsiString __fastcall AliasPath(const AnsiString AliasName);
  275.     void __fastcall FreeChoice(TExpertChoice &Choice);
  276.     void __fastcall GenSelect(const AnsiString TableName, Classes::TStrings* Fields, Classes::TStrings* 
  277.         SQLText, const AnsiString AliasName, const AnsiString Delimiter, bool QuoteTableName, const AnsiString 
  278.         Owner);
  279.     void __fastcall GenBindVar(const AnsiString TableName, Classes::TStrings* List, Classes::TStrings* 
  280.         Query, const AnsiString Delimiter);
  281.     int __fastcall GetFirstSelection(Stdctrls::TCustomListBox* List);
  282.     void __fastcall SetFileEditText(const AnsiString Value);
  283.     void __fastcall Init(void);
  284.     void __fastcall InitChoice(TExpertChoice &Choice);
  285.     void __fastcall InitFilter(void);
  286.     void __fastcall InitQuery(Classes::TComponent* AOwner, Dbtables::TQuery* Query, const TExpertChoice 
  287.         &Choice, bool Bind);
  288.     void __fastcall InitTable(Classes::TComponent* AOwner, Dbtables::TTable* Table, const TExpertChoice 
  289.         &Choice, bool Bind);
  290.     void __fastcall MoveDragList(Stdctrls::TListBox* List1, Stdctrls::TListBox* List2, const Windows::TPoint 
  291.         &Point, int Index);
  292.     void __fastcall MoveItems(Stdctrls::TListBox* List, const Windows::TPoint &Point, int Index);
  293.     void __fastcall OrderFieldList(Classes::TStrings* OrderedList, Classes::TStrings* List);
  294.     void __fastcall ProcessPage0(void);
  295.     void __fastcall ProcessPage1(void);
  296.     void __fastcall ProcessPage2(void);
  297.     void __fastcall ProcessPage3(void);
  298.     void __fastcall ProcessPage4(void);
  299.     void __fastcall ProcessPage5(void);
  300.     void __fastcall RemoveMatch(Classes::TStrings* List1, Classes::TStrings* List2);
  301.     void __fastcall MoveSelected(Stdctrls::TCustomListBox* List, Classes::TStrings* Items);
  302.     void __fastcall InsertSelected(Stdctrls::TCustomListBox* List, Classes::TStrings* Items, int Index)
  303.         ;
  304.     void __fastcall SetButtons(void);
  305.     void __fastcall SetFilter(const AnsiString AFilter);
  306.     void __fastcall SetItem(Stdctrls::TListBox* List, int Index);
  307.     void __fastcall SetLayOut(void);
  308.     __property Classes::TStringList* AliasList = {read=FAliasList};
  309.     __property int CurPage = {read=FCurPage, write=FCurPage, nodefault};
  310.     __property bool SimpleQuery = {read=FSimpleQuery, write=FSimpleQuery, nodefault};
  311.     __property bool ProcessedMaster = {read=FProcessedMaster, write=FProcessedMaster, nodefault};
  312.     __property TExpertChoice Choice1 = {read=FChoice1, write=FChoice1};
  313.     __property TExpertChoice Choice2 = {read=FChoice2, write=FChoice2};
  314.     __property int ChosenItem = {read=FChosenItem, write=FChosenItem, nodefault};
  315.     __property Controls::TImageList* ImageList = {read=FImageList};
  316.     __property Classes::TStringList* OrderedDetailList = {read=FOrderedDetailList};
  317.     __property Classes::TStringList* OrderedMasterList = {read=FOrderedMasterList};
  318.     
  319. public:
  320.     __fastcall virtual TFormExpert(Classes::TComponent* AOwner);
  321.     bool __fastcall CreateForm(void);
  322. public:
  323.     #pragma option push -w-inl
  324.     /* TCustomForm.CreateNew */ inline __fastcall virtual TFormExpert(Classes::TComponent* AOwner, int 
  325.         Dummy) : Forms::TForm(AOwner, Dummy) { }
  326.     #pragma option pop
  327.     #pragma option push -w-inl
  328.     /* TCustomForm.Destroy */ inline __fastcall virtual ~TFormExpert(void) { }
  329.     #pragma option pop
  330.     
  331. public:
  332.     #pragma option push -w-inl
  333.     /* TWinControl.CreateParented */ inline __fastcall TFormExpert(HWND ParentWindow) : Forms::TForm(ParentWindow
  334.         ) { }
  335.     #pragma option pop
  336.     
  337. };
  338.  
  339.  
  340. //-- var, const, procedure ---------------------------------------------------
  341.  
  342. }    /* namespace Frmexprt */
  343. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  344. using namespace Frmexprt;
  345. #endif
  346. #pragma option pop    // -w-
  347. #pragma option pop    // -Vx
  348.  
  349. #pragma delphiheader end.
  350. //-- end unit ----------------------------------------------------------------
  351. #endif    // Frmexprt
  352.