qu_apan.h

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

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

#ifndef Qu_ApAnH
#define Qu_ApAnH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include "ListBaseForm.h"
#include <ComCtrls.hpp>
#include "QueryBaseForm.h"
#include <Dialogs.hpp>
#include <ImgList.hpp>
#include <Menus.hpp>
#include <ToolWin.hpp>
#include "SDGrid.h"
#include <Grids.hpp>
#include <Chart.hpp>
#include <ExtCtrls.hpp>
#include <TeEngine.hpp>
#include <TeeProcs.hpp>
#include <Buttons.hpp>
#include <Series.hpp>
#include "KSAdvReport.h"
//---------------------------------------------------------------------------
class PACKAGE TfrmQu_ApAn;
class TfrmQu_ApAn : public TQueryBaseForm
{
__published:	// IDE-managed Components
        TPageControl *PageControl1;
        TPageControl *PageControl2;
        TTabSheet *TabSheet1;
        TTabSheet *TabSheet2;
        TSDGrid *sgApAn;
        TChart *sChart;
        TLabel *Label1;
        TPanel *Panel1;
        TSpeedButton *spCol;
        TSpeedButton *spPie;
        TCheckBox *chGr;
        TSpeedButton *spOut;
        TSpeedButton *spIn;
        TSpeedButton *spLe;
        TSpeedButton *spRi;
        TSpeedButton *spUp;
        TSpeedButton *spDo;
        TSpeedButton *spUd;
        TCheckBox *ch3D;
        TScrollBar *sb3d;

        void __fastcall tbQueryClick(TObject *Sender);
        void __fastcall tbRefreshClick(TObject *Sender);
        void __fastcall sgApAnDblClick(TObject *Sender);
        void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
        void __fastcall muFirstClick(TObject *Sender);
        void __fastcall muPreviousClick(TObject *Sender);
        void __fastcall muNextClick(TObject *Sender);
        void __fastcall muLastClick(TObject *Sender);
        void __fastcall spPieClick(TObject *Sender);
        void __fastcall ch3DMouseUp(TObject *Sender, TMouseButton Button,
          TShiftState Shift, int X, int Y);
        void __fastcall chGrMouseUp(TObject *Sender, TMouseButton Button,
          TShiftState Shift, int X, int Y);
        void __fastcall sb3dChange(TObject *Sender);
        void __fastcall spOutClick(TObject *Sender);
        void __fastcall spInClick(TObject *Sender);
        void __fastcall spLeClick(TObject *Sender);
        void __fastcall spRiClick(TObject *Sender);
        void __fastcall spUpClick(TObject *Sender);
        void __fastcall spDoClick(TObject *Sender);
        void __fastcall spUdClick(TObject *Sender);
        void __fastcall spColClick(TObject *Sender);
private:	// User declarations
        AnsiString m_SQL;      //查询语句
        TComResultSet *RsQuery;
        TBarSeries *Bar;
        TPieSeries *Pie;
        int flag;
        void __fastcall ClearControl(bool BringToNext);
        void __fastcall GetDataFromComObject();
        void __fastcall WaitUserInput();
        void __fastcall RefreshGridData(int mAction);
        void __fastcall DisplayBill();
        void __fastcall GetBill(AnsiString BillID);
        void __fastcall FillGridWithData();
        void __fastcall InitGrid();
        void __fastcall Draw(AnsiString type);
        void __fastcall Zoom(TChart *ch ,double percent);
        void __fastcall XYScroll(TChart *Ch ,AnsiString xy,const double Percent);
        void __fastcall SetToolState(bool Flag);
public:		// User declarations
        __fastcall TfrmQu_ApAn(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr);
};
//---------------------------------------------------------------------------
extern PACKAGE TfrmQu_ApAn *frmQu_ApAn;
//---------------------------------------------------------------------------
#endif