formula.h

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

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

#ifndef FormulaH
#define FormulaH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ExtCtrls.hpp>
#include <Buttons.hpp>
#include <ComCtrls.hpp>
#include "SDEdit.h"
#include "SDComboBox.h"
#include "CommFunction.h"
#include "sdenumType.h"
#include "gVar.h"
#include "func.h"
#include "midclass.h"
#include "FinReport.h"
//---------------------------------------------------------------------------
class TfrmFormula : public TForm
{
__published:	// IDE-managed Components
        TPanel *pCwsj;
        TBitBtn *bbOk;
        TBitBtn *bbCancel;
        TBitBtn *bbAdd;
        TSpeedButton *SpeedButton1;
        TSpeedButton *SpeedButton2;
        TSpeedButton *SpeedButton3;
        TSpeedButton *SpeedButton4;
        TSpeedButton *SpeedButton5;
        TSpeedButton *SpeedButton6;
        TTreeView *tvFor;
        TSDEdit *seGlkm;
        TSDComboBox *scPeriod;
        TSDComboBox *scType;
        TSDComboBox *scPerInc;
        TLabel *Label1;
        TLabel *Label2;
        TLabel *Label3;
        TLabel *Label4;
        TPanel *pKmmc;
        TSDEdit *seKmmcGlkm;
        TLabel *Label5;
        TLabel *Label6;
        TSDEdit *seGlkm2;
        TEdit *mFormula;
        void __fastcall tvForChange(TObject *Sender, TTreeNode *Node);
        void __fastcall FormShow(TObject *Sender);
        void __fastcall bbAddClick(TObject *Sender);
        void __fastcall seGlkmButtonClick(TObject *Sender);
        void __fastcall SpeedButton1Click(TObject *Sender);
        void __fastcall SpeedButton2Click(TObject *Sender);
        void __fastcall SpeedButton3Click(TObject *Sender);
        void __fastcall SpeedButton4Click(TObject *Sender);
        void __fastcall SpeedButton5Click(TObject *Sender);
        void __fastcall SpeedButton6Click(TObject *Sender);
        void __fastcall seKmmcGlkmButtonClick(TObject *Sender);
        void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
        void __fastcall bbCancelClick(TObject *Sender);
        void __fastcall bbOkClick(TObject *Sender);
        void __fastcall seGlkmChange(TObject *Sender);
        void __fastcall seGlkmEnter(TObject *Sender);
        void __fastcall FormMouseMove(TObject *Sender, TShiftState Shift,
          int X, int Y);
        void __fastcall FormMouseDown(TObject *Sender, TMouseButton Button,
          TShiftState Shift, int X, int Y);
        void __fastcall FormMouseUp(TObject *Sender, TMouseButton Button,
          TShiftState Shift, int X, int Y);
        void __fastcall FormKeyUp(TObject *Sender, WORD &Key,
          TShiftState Shift);
private:	// User declarations
        void HidePanel();
        void AddFun(AnsiString Fun);
        AnsiString __fastcall GetFormula();
        void __fastcall SetFormula(AnsiString For);
        TfrmFinReport * FinReport;
        int Sheet;
        int Row;
        int Col;
        AnsiString FBkValue;
        int FMoveStartX;
        int FMoveStartY;
        bool FMoving;
public:		// User declarations
        bool FDestroy;
        __fastcall TfrmFormula(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr);
        __property AnsiString Formula = {read=GetFormula, write=SetFormula};
};
//---------------------------------------------------------------------------
extern PACKAGE TfrmFormula *frmFormula;
//---------------------------------------------------------------------------
#endif