wageitemf.h

科思ERP部分源码及控件

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

#ifndef WageItemFH
#define WageItemFH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ExtCtrls.hpp>
#include <Buttons.hpp>
#include "StdBaseForm.h"
#include "Calc.h"
//---------------------------------------------------------------------------
class  PACKAGE TfrmWageItemF;
class TfrmWageItemF : public TStdBaseForm
{
__published:	// IDE-managed Components
        TBitBtn *btOk;
        TBitBtn *btCacel;
        TGroupBox *GroupBox3;
        TListBox *ListItem;
        TGroupBox *GroupBox2;
        TSpeedButton *SpeedButton1;
        TSpeedButton *SpeedButton2;
        TSpeedButton *SpeedButton3;
        TSpeedButton *SpeedButton4;
        TSpeedButton *SpeedButton5;
        TSpeedButton *SpeedButton6;
        TSpeedButton *SpeedButton7;
        TSpeedButton *SpeedButton8;
        TSpeedButton *SpeedButton9;
        TSpeedButton *SpeedButton10;
        TSpeedButton *SpeedButton11;
        TSpeedButton *SpeedButton12;
        TSpeedButton *SpeedButton13;
        TSpeedButton *SpeedButton14;
        TSpeedButton *SpeedButton15;
        TSpeedButton *SpeedButton16;
        TSpeedButton *SpeedButton17;
        TSpeedButton *SpeedButton18;
        TGroupBox *GroupBox1;
        TMemo *memFormula;
        TBitBtn *btReSet;
        TEdit *seTempUse;
        TMemo *memFormulaCode;
        void __fastcall btOkClick(TObject *Sender);
        void __fastcall btCacelClick(TObject *Sender);
        void __fastcall ListItemDblClick(TObject *Sender);
        void __fastcall btReSetClick(TObject *Sender);
        void __fastcall SpeedButtonClick(TObject *Sender);
private:	// User declarations
        int fi_count,i;
        AnsiString  Name_n;
        struct WItem
        {
           AnsiString  Code;
           AnsiString  Name;
        };
        struct WItem  m_WItem[30];
        AnsiString  m_WageItemFResultName;
        AnsiString  m_WageItemFResultCode;
        bool        m_WageItemFSure;
        TExpression * Expression;
        bool __fastcall IsVariable(AnsiString Variable);
        double __fastcall GetValue(AnsiString Variable);

public:		// User declarations
        __property AnsiString WageItemFResultName={read=m_WageItemFResultName};
        __property AnsiString WageItemFResultCode={read=m_WageItemFResultCode};
        __property bool WageItemFSure={read=m_WageItemFSure};
        __fastcall TfrmWageItemF(TComponent* Owner,AnsiString WageItemFC,AnsiString WageItemFN );
};
//---------------------------------------------------------------------------
extern PACKAGE TfrmWageItemF *frmWageItemF;
//---------------------------------------------------------------------------
#endif