wsgmcopy.h

速达开源ERP系统

//---------------------------------------------------------------------------
#ifndef WsgmCopyH
#define WsgmCopyH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include "DateEdit.hpp"
#include "fpanel.h"
#include "SDComboBox.h"
#include "SDEdit.h"
#include "SDGrid.h"
#include <Buttons.hpp>
#include <ExtCtrls.hpp>
#include <Grids.hpp>
#include <Mask.hpp>
#include "gVar.h"
#include "StdBaseForm.h"

class PACKAGE TfrmWsgmCopy;
//---------------------------------------------------------------------------
class TfrmWsgmCopy : public TStdBaseForm
{
__published:	// IDE-managed Components
    TFloatPanel *FloatPanel1;
    TLabel *Label1;
    TLabel *Label2;
    TLabel *Label9;
    TLabel *Label10;
    TBitBtn *btnCancel;
    TBitBtn *btnOK;
    TSDGrid *sgWsgm;
    TPanel *Panel1;
    TPanel *Panel2;
    TRadioButton *rbtBomd;
    TRadioButton *rbtWsgm;
    TSDComboBox *scWsgmCopyBom;
    TSDComboBox *scWsgmCopyWoF;
    TSDEdit *seWsgmWo;
    TLabel *Label17;
    TSDEdit *seWsgmCopyQty;
    TLabel *Label20;
    TSDEdit *seWsgmCopyShl;
    TLabel *Label24;
    TSDComboBox *scWsgmCopyFrom;
    TLabel *Label25;
    TSDComboBox *scWsgmCopyProcess;
    TLabel *Label3;
    TSDEdit *seWsgmCopyPqty;
    TLabel *Label4;
    TSDComboBox *scWsgmCopyLoc;
    TLabel *Label30;
    TSDComboBox *scWsgmCopyBatch;
    void __fastcall sgWsgmSelectCell(TObject *Sender, int ACol, int ARow,
          bool &CanSelect);
    void __fastcall btnCancelClick(TObject *Sender);
    void __fastcall FormShow(TObject *Sender);
    void __fastcall btnOKClick(TObject *Sender);
    void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
    void __fastcall scWsgmCopyBomClick(TObject *Sender);
    void __fastcall scWsgmCopyWoFClick(TObject *Sender);
    void __fastcall rbtWsgmClick(TObject *Sender);
    void __fastcall rbtBomdClick(TObject *Sender);
private:	// User declarations

    long   ComErrNum;
    AnsiString FWsgmCopyWo;
    TComResultSet   *Rst;
    TComServer      *comServer;
    void __fastcall InitEditControl();
    void __fastcall SetValueToControl();
    void __fastcall FillGridWithData(AnsiString s_Code);
    void __fastcall SetFieldValue(int Index,AnsiString Value);
public:		// User declarations
    void __fastcall SetcomServer(TComServer *value);
    __fastcall TfrmWsgmCopy(TComponent* Owner);
    __fastcall TfrmWsgmCopy(TComponent* Owner,AnsiString FWsgmWo);
};
//---------------------------------------------------------------------------
extern PACKAGE TfrmWsgmCopy *frmWsgmCopy;
//---------------------------------------------------------------------------
#endif