fadc.h

科思ERP部分源码及控件

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

#ifndef FaDcH
#define FaDcH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include "RecBaseForm.h"
#include <ComCtrls.hpp>
#include <Dialogs.hpp>
#include <ImgList.hpp>
#include <Menus.hpp>
#include <ToolWin.hpp>
#include "fpanel.h"
#include "SDComboBox.h"
#include "SDEdit.h"
#include "SDGrid.h"
#include <Grids.hpp>
#include <ExtCtrls.hpp>
#include "Calc.h"
//---------------------------------------------------------------------------
class PACKAGE TfrmFaDc;
class TfrmFaDc : public TRecBaseForm
{
__published:	// IDE-managed Components
        TFloatPanel *FloatPanel2;
        TLabel *Label9;
        TLabel *labLgLocName;
        TSDComboBox *scFaDcFMonth;
        TFloatPanel *FloatPanel1;
        TLabel *Label2;
        TLabel *Label4;
        TSDEdit *seFaDcOVal;
        TSDComboBox *scFaDcFadn;
        TLabel *Label1;
        TSDComboBox *scFaDcFadm;
        TLabel *Label5;
        TSDEdit *seFaDcEVal;
        TLabel *Label8;
        TSDEdit *seFaDcPeriod;
        TLabel *Label10;
        TSDEdit *seFaDcAPeriod;
        TLabel *Label12;
        TCheckBox *chkFaDcPost;
        TLabel *Label13;
        TSDEdit *seFaDcPzCode;
        TLabel *Label14;
        TSDEdit *seFaDcFadnName;
        TSDComboBox *scFaDcUser;
        TSDGrid *sgFaDc;
        TLabel *Label3;
        TSDEdit *seFaDcDVal;
        TLabel *Label11;
        TSDEdit *seFaDcVal;
        TLabel *Label6;
        TSDEdit *seFaDcTWork;
        TLabel *Label7;
        TSDEdit *seFaDcAWork;
        void __fastcall scFaDcFMonthClick(TObject *Sender);
        void __fastcall chkFaDcPostClick(TObject *Sender);
        void __fastcall muEditDetailClick(TObject *Sender);
        void __fastcall scFaDcFadnKeyDown(TObject *Sender, WORD &Key,
          TShiftState Shift);
        void __fastcall sgFaDcClick(TObject *Sender);
        void __fastcall FormShow(TObject *Sender);
    void __fastcall scFaDcFadnChange(TObject *Sender);
private:	// User declarations
        struct FlItem
        {
          AnsiString  Name;
          double      Numb;
        };
        struct FlItem  m_FiItem[10];
        TExpression *Expression;
        bool __fastcall IsVariable(AnsiString Variable);
        double __fastcall GetValue(AnsiString Variable);
        AnsiString LastFaDcFMonth;
        void __fastcall InitEditControl();
        AnsiString __fastcall GetDataToGrid();
        void __fastcall ClearControl(bool BringToNext);
        void __fastcall GetDataFromComObject();
        void __fastcall SendDataToComObject();
        void __fastcall WaitUserInput();
        void __fastcall RefreshGridData(int mAction);
        void __fastcall FillGridWithData();
        void __fastcall RefreshUpdateData(int MsgSrc,int MsgType);
        bool __fastcall EnSureDepreciationECode(AnsiString fadncode); //确定该设备是否折旧
        bool __fastcall GetComboBox(AnsiString ASql, AnsiString &ResultStr);//add 2003-02-21
public:		// User declarations
        __fastcall TfrmFaDc(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr);
};
//---------------------------------------------------------------------------
extern PACKAGE TfrmFaDc *frmFaDc;
//---------------------------------------------------------------------------
#endif