finreport.h

来自「一个以前收集的基于C/S架构的ERP客户端源代码」· C头文件 代码 · 共 218 行

//---------------------------------------------------------------------------
#ifndef DesignH
#define DesignH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include "TTF160_OCX.h"
#include <OleCtrls.hpp>
#include <ExtCtrls.hpp>
#include "CommFunction.h"
#include "sdenumType.h"
#include "gVar.h"
#include "func.h"
#include "midclass.h"
#include <ComCtrls.hpp>
#include <ToolWin.hpp>
#include <Menus.hpp>
#include <Dialogs.hpp>
#include "SDComboBox.h"
#include "StdBaseForm.h"
#include "SDEdit.h"
#include <ImgList.hpp>
//---------------------------------------------------------------------------
class TfrmFinReport : public TStdBaseForm
{
__published:	// IDE-managed Components
        TToolBar *tbMenu;
        TStatusBar *sb;
        TToolButton *ToolButton1;
        TToolButton *ToolButton3;
        TToolButton *ToolButton4;
        TToolButton *ToolButton5;
        TPopupMenu *pmMain;
        TMenuItem *miFile;
        TMenuItem *miNew;
        TMenuItem *miOpen;
        TMenuItem *miSave;
        TMenuItem *miEdit;
        TMenuItem *miCopy;
        TMenuItem *miPaste;
        TMenuItem *miCut;
        TMenuItem *miSaveAs;
        TMenuItem *miExit;
        TMenuItem *miDeleteCellLeft;
        TMenuItem *miInsert;
        TMenuItem *miCellsDown;
        TMenuItem *miRows;
        TMenuItem *miCols;
        TMenuItem *miWorkSheet;
        TMenuItem *miFormat;
        TMenuItem *miFCells;
        TOpenDialog *od;
        TSaveDialog *sd;
        TMenuItem *miClose;
        TToolButton *ToolButton6;
        TMenuItem *miView;
        TMenuItem *miViewToolBar;
        TMenuItem *miViewStatus;
        TMenuItem *miViewFormula;
        TMenuItem *miViewEditBar;
        TMenuItem *miCellsRight;
        TMenuItem *miDeleteCellsTop;
        TMenuItem *miDeleteRow;
        TMenuItem *miDeleteCol;
        TMenuItem *miDeleteSheet;
        TSDComboBox *scFMonth;
        TMenuItem *miFormula;
        TPopupMenu *pmPop;
        TMenuItem *miOpenp;
        TMenuItem *miSavep;
        TMenuItem *miFormulap;
        TMenuItem *miFormatp;
        TMenuItem *miViewData;
        TMenuItem *miViewFormulap;
        TMenuItem *miViewDatap;
        TMenuItem *miFColor;
        TMenuItem *miFColWidth;
        TMenuItem *miFAlign;
        TMenuItem *miFBorder;
        TMenuItem *miFDefaultFont;
        TMenuItem *miFFont;
        TMenuItem *miFNumber;
        TMenuItem *miFPatten;
        TMenuItem *miFRowHeight;
        TMenuItem *miPageSetup;
        TMenuItem *miPreview;
        TMenuItem *miPrint;
        TImageList *ImageList1;
        TMenuItem *miReCalc;
        TControlBar *ControlBar1;
        TToolBar *tbButton;
        TToolButton *ToolButton2;
        TToolButton *ToolButton7;
        TToolButton *ToolButton8;
        TToolButton *ToolButton16;
        TToolButton *ToolButton10;
        TToolButton *ToolButton11;
        TToolButton *ToolButton17;
        TToolButton *ToolButton12;
        TToolButton *ToolButton13;
        TToolButton *ToolButton14;
        TToolButton *ToolButton18;
        TToolButton *ToolButton15;
        TToolButton *ToolButton19;
        TToolBar *ToolBar1;
        TComboBox *cbFontName;
        TComboBox *cbFontSize;
        TToolButton *tbLeft;
        TToolButton *tbCenter;
        TToolButton *tbRight;
        TToolButton *tbCenter2;
        TToolButton *ToolButton20;
        TToolButton *ToolButton21;
        TToolButton *tbBlob;
        TToolButton *tbItalic;
        TToolButton *tbUnderLine;
        TToolBar *ToolBar2;
        TToolButton *ToolButton9;
        TToolButton *ToolButton22;
        TToolButton *ToolButton23;
        TToolButton *ToolButton24;
        TToolButton *ToolButton25;
        TToolButton *ToolButton26;
        TPanel *Panel1;
        TLabel *lCellName;
        TEdit *eFormula;
        void __fastcall FormShow(TObject *Sender);
        void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
        void __fastcall miFCellsClick(TObject *Sender);
        void __fastcall miOpenClick(TObject *Sender);
        void __fastcall miSaveClick(TObject *Sender);
        void __fastcall miSaveAsClick(TObject *Sender);
        void __fastcall miExitClick(TObject *Sender);
        void __fastcall miCutClick(TObject *Sender);
        void __fastcall miCopyClick(TObject *Sender);
        void __fastcall miPasteClick(TObject *Sender);
        void __fastcall miNewClick(TObject *Sender);
        void __fastcall miCloseClick(TObject *Sender);
        void __fastcall miViewToolBarClick(TObject *Sender);
        void __fastcall miCellsRightClick(TObject *Sender);
        void __fastcall miCellsDownClick(TObject *Sender);
        void __fastcall miRowsClick(TObject *Sender);
        void __fastcall miColsClick(TObject *Sender);
        void __fastcall miWorkSheetClick(TObject *Sender);
        void __fastcall miDeleteCellLeftClick(TObject *Sender);
        void __fastcall miDeleteCellsTopClick(TObject *Sender);
        void __fastcall miDeleteRowClick(TObject *Sender);
        void __fastcall miDeleteColClick(TObject *Sender);
        void __fastcall miDeleteSheetClick(TObject *Sender);
        void __fastcall miFormulaClick(TObject *Sender);
        void __fastcall scFMonthChange(TObject *Sender);
        void __fastcall FormulaStartRecalc(TObject *Sender);
        void __fastcall FormulaEndRecalc(TObject *Sender);
        void __fastcall FormDestroy(TObject *Sender);
        void __fastcall miViewFormulaClick(TObject *Sender);
        void __fastcall FormulaRClick(TObject *Sender, long nRow,
          long nCol);
        void __fastcall miViewDataClick(TObject *Sender);
        void __fastcall miFColorClick(TObject *Sender);
        void __fastcall miFColWidthClick(TObject *Sender);
        void __fastcall miFAlignClick(TObject *Sender);
        void __fastcall miFBorderClick(TObject *Sender);
        void __fastcall miFDefaultFontClick(TObject *Sender);
        void __fastcall miFFontClick(TObject *Sender);
        void __fastcall miFNumberClick(TObject *Sender);
        void __fastcall miFPattenClick(TObject *Sender);
        void __fastcall miFRowHeightClick(TObject *Sender);
        void __fastcall miPageSetupClick(TObject *Sender);
        void __fastcall miPreviewClick(TObject *Sender);
        void __fastcall miPrintClick(TObject *Sender);
        void __fastcall ToolButton19Click(TObject *Sender);
        void __fastcall miReCalcClick(TObject *Sender);
        void __fastcall tbLeftClick(TObject *Sender);
        void __fastcall tbCenterClick(TObject *Sender);
        void __fastcall tbRightClick(TObject *Sender);
        void __fastcall tbCenter2Click(TObject *Sender);
        void __fastcall FormulaSelChange(TObject *Sender);
        void __fastcall cbFontNameChange(TObject *Sender);
        void __fastcall cbFontSizeChange(TObject *Sender);
        void __fastcall tbBlobClick(TObject *Sender);
        void __fastcall tbItalicClick(TObject *Sender);
        void __fastcall tbUnderLineClick(TObject *Sender);
        void __fastcall FormulaMouseUp(TObject *Sender,
          TMouseButton Button, TShiftState Shift, int X, int Y);
private:	// User declarations
        TComResultSet * RsRpod;
        AnsiString FFileName;
        int __fastcall GetSelSheet();
        int __fastcall GetSelRow();
        int __fastcall GetSelCol();
        void __fastcall SetSelSheet(int s);
        void __fastcall SetSelRow(int s);
        void __fastcall SetSelCol(int s);
        void __fastcall ShowFormulas(bool value);
        bool __fastcall GetShowFormula();
        void __fastcall SetShowFormula(bool value);
        bool Changed;
        int bkRow;
        int bkCol;
public:		// User declarations
        __fastcall TfrmFinReport(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr);
        double __fastcall FinData(AnsiString Glkm,
                                  AnsiString Period,
                                  AnsiString Type,
                                  AnsiString PerInc);
        AnsiString __fastcall KmName(AnsiString Glkm);
        __property int SelSheet = {read=GetSelSheet, write=SetSelSheet};
        __property int SelRow = {read=GetSelRow, write=SetSelRow};
        __property int SelCol = {read=GetSelCol, write=SetSelCol};
        __property bool ShowFormula = {read=GetShowFormula, write=SetShowFormula};
};
//---------------------------------------------------------------------------
extern PACKAGE TfrmFinReport *frmFinReport;
//---------------------------------------------------------------------------
#endif