goodsppt.h

来自「科思ERP部分源码及控件」· C头文件 代码 · 共 82 行

//---------------------------------------------------------------------------

#ifndef GoodsPptH
#define GoodsPptH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include "SDEdit.h"
#include <ComCtrls.hpp>
#include <ExtCtrls.hpp>
#include <Grids.hpp>
#include <Buttons.hpp>
#include "StdBaseForm.h"

//---------------------------------------------------------------------------
class PACKAGE TfrmGoodsPpt;
class TfrmGoodsPpt : public TStdBaseForm
{
__published:	// IDE-managed Components
        TPageControl *PGoodsPpt;
        TTabSheet *TGoodsPpt1;
        TPanel *Panel1;
        TLabel *Label12;
        TLabel *Label11;
        TSDEdit *seGoods1Name;
        TSDEdit *seGoodsPpt1Goods;
        TButton *BClear1;
        TButton *BAdd1;
        TButton *BReMove1;
        TGroupBox *GroupBox1;
        TStringGrid *sgGp1;
        TGroupBox *GroupBox2;
        TStringGrid *sgPro1;
        TTabSheet *TGoodsPpt2;
        TPanel *Panel2;
        TLabel *Label1;
        TSDEdit *seGoodsPpt2Goods;
        TLabel *Label2;
        TSDEdit *seGoods2Name;
        TGroupBox *GroupBox3;
        TStringGrid *sgPro2;
        TButton *BAdd2;
        TButton *BReMove2;
        TButton *BClear2;
        TGroupBox *GroupBox4;
        TStringGrid *sgGp2;
        TButton *BAllTake2;
        TButton *BAllTake1;
        TBitBtn *BSave1;
        TBitBtn *BCa1;
        TBitBtn *BSave2;
        TBitBtn *BitBtn2;
        void __fastcall BAdd1Click(TObject *Sender);
        void __fastcall BReMove1Click(TObject *Sender);
        void __fastcall BClear1Click(TObject *Sender);
        void __fastcall BAdd2Click(TObject *Sender);
        void __fastcall BReMove2Click(TObject *Sender);
        void __fastcall BClear2Click(TObject *Sender);
        void __fastcall BAllTake1Click(TObject *Sender);
        void __fastcall BAllTake2Click(TObject *Sender);
        void __fastcall BSave1Click(TObject *Sender);
        void __fastcall BCa1Click(TObject *Sender);
  void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
private:	// User declarations
        int sgGp1Row, sgGp2Row,sgPro1Row,sgPro2Row;
        AnsiString m_PropertyPpt;
        TComServer *ProQuery;
        TComResultSet *PptResultSet;
        void  __fastcall GetProperty();
        AnsiString __fastcall  GetGoodsName();
        void  __fastcall GetOldGoodsPpt();
        void  __fastcall  SureBtEnabled();
public:		// User declarations
        __fastcall TfrmGoodsPpt(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr,AnsiString GoodsPpt,AnsiString Goods );
};
//---------------------------------------------------------------------------
extern PACKAGE TfrmGoodsPpt *frmGoodsPpt;
//---------------------------------------------------------------------------
#endif