sgd.h

速达开源ERP系统

//---------------------------------------------------------------------------
#ifndef SgdH
#define SgdH
//---------------------------------------------------------------------------
#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 <ExtCtrls.hpp>
#include "SDComboBox.h"
#include <Dialogs.hpp>
//---------------------------------------------------------------------------
class PACKAGE TfrmSgd;
class  TfrmSgd : public TRecBaseForm
{
__published:	// IDE-managed Components
        TSDGrid *sgSgd;
        TFloatPanel *FloatPanel1;
        TLabel *Label2;
        TLabel *Label3;
        TLabel *Label4;
        TSDEdit *seSgdCode;
        TSDEdit *seSgdName;
        TFloatPanel *FloatPanel2;
        TLabel *Label1;
        TSDComboBox *cbSgdClientCode;
        TSDEdit *seSgdGoods;
        void __fastcall cbSgdClientCodeClick(TObject *Sender);
        void __fastcall FormShow(TObject *Sender);
        void __fastcall sgSgdClick(TObject *Sender);
        void __fastcall seSgdGoodsButtonClick(TObject *Sender);
        void __fastcall seSgdGoodsExit(TObject *Sender);
private:
        AnsiString FClientValue;	// User declarations
    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();
        void __fastcall SetClientValue(AnsiString value);
        AnsiString __fastcall GetClientValue();
public:		// User declarations
    __fastcall TfrmSgd(TComponent* Owner);
        __property AnsiString ClientValue  = { read=GetClientValue, write=SetClientValue };
};
//---------------------------------------------------------------------------
extern PACKAGE TfrmSgd *frmSgd;
//---------------------------------------------------------------------------
#endif