form.h

速达开源ERP系统

//---------------------------------------------------------------------------
#ifndef FormH
#define FormH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include "fpanel.h"
#include "RecBaseForm.h"
#include "SDEdit.h"
#include "SDGrid.h"
#include <ComCtrls.hpp>
#include <Grids.hpp>
#include <ImgList.hpp>
#include <Menus.hpp>
#include <ToolWin.hpp>
#include <Dialogs.hpp>
#include "SDComboBox.h"
//---------------------------------------------------------------------------
class PACKAGE TfrmForm;
class TfrmForm : public TRecBaseForm
{
__published:	// IDE-managed Components
    TFloatPanel *FloatPanel1;
    TSDGrid *sgForm;
    TSDEdit *seFormName;
    TSDEdit *seFormCaption;
    TSDEdit *seFormDesc;
    TSDEdit *seFormPosition;
    TSDEdit *seFormHelpIndex;
    TSDEdit *seFormWindowState;
    TLabel *Label1;
    TLabel *Label3;
    TLabel *Label4;
    TLabel *Label5;
    TLabel *Label6;
    TLabel *Label7;
    TLabel *Label8;
        TLabel *Label9;
        TSDEdit *seFormID;
        TFloatPanel *FloatPanel2;
        TLabel *Label10;
        TLabel *labLgLocName;
        TSDComboBox *scFormClassID;
        TSDEdit *seFormClassIDName;
        TLabel *Label2;
        TSDComboBox *scFormType;
        void __fastcall scFormClassIDChange(TObject *Sender);
        void __fastcall seFormNameKeyDown(TObject *Sender, WORD &Key,
          TShiftState Shift);
        void __fastcall sgFormClick(TObject *Sender);
private:	// User declarations
    AnsiString LastFormClassID;
    AnsiString __fastcall GetFieldValue(int FieldIndex);
    void __fastcall ClearControl(bool BringToNext);
    void __fastcall GetDataFromComObject();
    void __fastcall SendDataToComObject();

    void __fastcall WaitUserInput();
    AnsiString __fastcall GetDataToGrid();
    void __fastcall RefreshGridData(int mAction);
    void __fastcall FillGridWithData();
    void __fastcall InitEditControl();

public:		// User declarations
    __fastcall TfrmForm(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TfrmForm *frmForm;
//---------------------------------------------------------------------------
#endif