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