home *** CD-ROM | disk | FTP | other *** search
- //----------------------------------------------------------------------------
- // ProcDlg.hpp - dcc32 generated hdr (DO NOT EDIT) rev: -2
- // From: ProcDlg.pas
- //----------------------------------------------------------------------------
- #ifndef ProcDlgHPP
- #define ProcDlgHPP
- //----------------------------------------------------------------------------
- #ifndef DBTablesHPP
- #include <DBTables.hpp>
- #endif
-
- #ifndef DBHPP
- #include <DB.hpp>
- #endif
-
- #ifndef ButtonsHPP
- #include <Buttons.hpp>
- #endif
-
- #ifndef StdCtrlsHPP
- #include <StdCtrls.hpp>
- #endif
-
- #ifndef DialogsHPP
- #include <Dialogs.hpp>
- #endif
-
- #ifndef FormsHPP
- #include <Forms.hpp>
- #endif
-
- #ifndef ControlsHPP
- #include <Controls.hpp>
- #endif
-
- #ifndef GraphicsHPP
- #include <Graphics.hpp>
- #endif
-
- #ifndef ClassesHPP
- #include <Classes.hpp>
- #endif
-
- #ifndef MessagesHPP
- #include <Messages.hpp>
- #endif
-
- #ifndef WindowsHPP
- #include <Windows.hpp>
- #endif
-
- #ifndef SysUtilsHPP
- #include <SysUtils.hpp>
- #endif
-
- #ifndef SystemHPP
- #include <System.hpp>
- #endif
-
- namespace Procdlg
- {
- //-- type declarations -------------------------------------------------------
- class __declspec(delphiclass) TProcParams;
- class __declspec(pascalimplementation) TProcParams : public Forms::TForm
- {
- typedef TProcParams ThisClass;
- typedef Forms::TForm inherited;
-
- __published:
- Stdctrls::TGroupBox *GroupBox1;
- Stdctrls::TLabel *Label1;
- Stdctrls::TEdit *ParamValue;
- Stdctrls::TLabel *Label2;
- Stdctrls::TCheckBox *NullValue;
- Stdctrls::TLabel *Label3;
- Stdctrls::TComboBox *TypeList;
- Stdctrls::TComboBox *ParamTypeList;
- Stdctrls::TLabel *Label4;
- Stdctrls::TListBox *ParamList;
- Stdctrls::TButton *OkBtn;
- Stdctrls::TButton *CancelBtn;
- Stdctrls::TButton *HelpBtn;
- Stdctrls::TButton *AddButton;
- Stdctrls::TButton *DeleteButton;
- Stdctrls::TButton *ClearButton;
- void __fastcall ParamListChange(System::TObject *Sender);
- void __fastcall TypeListChange(System::TObject *Sender);
- void __fastcall ParamValueExit(System::TObject *Sender);
- void __fastcall NullValueClick(System::TObject *Sender);
- void __fastcall ParamTypeListChange(System::TObject *Sender);
- void __fastcall DeleteButtonClick(System::TObject *Sender);
- void __fastcall ClearButtonClick(System::TObject *Sender);
- void __fastcall AddButtonClick(System::TObject *Sender);
- void __fastcall FormCreate(System::TObject *Sender);
- void __fastcall OkBtnClick(System::TObject *Sender);
- void __fastcall HelpBtnClick(System::TObject *Sender);
-
- private:
- Dbtables::TParams *InitList;
- System::Boolean AlterParamList;
- System::Boolean InValueExit;
- System::Boolean InParamChange;
- System::Boolean __fastcall AcceptFieldClass(System::TMetaClass * Value);
- void __fastcall CheckValue(void);
- System::Boolean __fastcall Edit(void);
- void __fastcall InitValues(void);
- void __fastcall SetControls(System::Boolean Value);
- void __fastcall Unbind(void);
- public:
- /* !! TForm.Create */ __fastcall virtual TProcParams(Classes::TComponent *AOwner) : Forms::TForm(AOwner
- ) { }
- /* !! TForm.CreateNew */ __fastcall TProcParams(Classes::TComponent *AOwner, System::Integer Dummy)
- : Forms::TForm(AOwner, Dummy) { }
- /* !! TForm.Destroy */ __fastcall virtual ~TProcParams(void) { }
-
- };
-
- //-- var, const, procedure ---------------------------------------------------
- extern System::Boolean __fastcall EditProcParams(Dbtables::TStoredProc *DataSet, Dbtables::TParams *
- List);
-
- } /* namespace Procdlg */
- #if !defined(NO_IMPLICIT_NAMESPACE_USE)
- using namespace Procdlg;
- #endif
- //-- end unit ----------------------------------------------------------------
- #endif // ProcDlg
-