frxaggregate.hpp

这个是功能强大的报表软件

// Borland C++ Builder
// Copyright (c) 1995, 2005 by Borland Software Corporation
// All rights reserved

// (DO NOT EDIT: machine generated header) 'Frxaggregate.pas' rev: 10.00

#ifndef FrxaggregateHPP
#define FrxaggregateHPP

#pragma delphiheader begin
#pragma option push
#pragma option -w-      // All warnings off
#pragma option -Vx      // Zero-length empty class member functions
#pragma pack(push,8)
#include <System.hpp>	// Pascal unit
#include <Sysinit.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <Sysutils.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <Dialogs.hpp>	// Pascal unit
#include <Frxclass.hpp>	// Pascal unit
#include <Variants.hpp>	// Pascal unit

//-- user supplied -----------------------------------------------------------

namespace Frxaggregate
{
//-- type declarations -------------------------------------------------------
#pragma option push -b-
enum TfrxAggregateFunction { agSum, agAvg, agMin, agMax, agCount };
#pragma option pop

class DELPHICLASS TfrxAggregateItem;
class PASCALIMPLEMENTATION TfrxAggregateItem : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	TfrxAggregateFunction FAggregateFunction;
	Frxclass::TfrxDataBand* FBand;
	bool FCountInvisibleBands;
	bool FDontReset;
	AnsiString FExpression;
	bool FIsPageFooter;
	Variant FItemsArray;
	int FItemsCount;
	Variant FItemsCountArray;
	Variant FItemsValue;
	bool FKeeping;
	int FLastCount;
	Variant FLastValue;
	AnsiString FMemoName;
	AnsiString FOriginalName;
	Frxclass::TfrxBand* FParentBand;
	Frxclass::TfrxReport* FReport;
	int FTempItemsCount;
	Variant FTempItemsValue;
	int FVColumn;
	
public:
	void __fastcall Calc(void);
	void __fastcall DeleteValue(void);
	void __fastcall Reset(void);
	void __fastcall StartKeep(void);
	void __fastcall EndKeep(void);
	Variant __fastcall Value();
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TfrxAggregateItem(void) : System::TObject() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TfrxAggregateItem(void) { }
	#pragma option pop
	
};


class DELPHICLASS TfrxAggregateList;
class PASCALIMPLEMENTATION TfrxAggregateList : public System::TObject 
{
	typedef System::TObject inherited;
	
public:
	TfrxAggregateItem* operator[](int Index) { return Items[Index]; }
	
private:
	Classes::TList* FList;
	Frxclass::TfrxReport* FReport;
	TfrxAggregateItem* __fastcall GetItem(int Index);
	void __fastcall FindAggregates(Frxclass::TfrxCustomMemoView* Memo, Frxclass::TfrxDataBand* DataBand);
	void __fastcall ParseName(const AnsiString ComplexName, TfrxAggregateFunction &Func, AnsiString &Expr, Frxclass::TfrxDataBand* &Band, bool &CountInvisible, bool &DontReset);
	__property TfrxAggregateItem* Items[int Index] = {read=GetItem/*, default*/};
	
public:
	__fastcall TfrxAggregateList(Frxclass::TfrxReport* AReport);
	__fastcall virtual ~TfrxAggregateList(void);
	void __fastcall Clear(void);
	void __fastcall ClearValues(void);
	void __fastcall AddItems(Frxclass::TfrxReportPage* Page);
	void __fastcall AddValue(Frxclass::TfrxBand* Band, int VColumn = 0x0);
	void __fastcall DeleteValue(Frxclass::TfrxBand* Band);
	void __fastcall EndKeep(void);
	void __fastcall Reset(Frxclass::TfrxBand* ParentBand);
	void __fastcall StartKeep(void);
	Variant __fastcall GetValue(Frxclass::TfrxBand* ParentBand, const AnsiString ComplexName, int VColumn = 0x0)/* overload */;
	Variant __fastcall GetValue(Frxclass::TfrxBand* ParentBand, int VColumn, const AnsiString Name, const AnsiString Expression, Frxclass::TfrxBand* Band, int Flags)/* overload */;
};


//-- var, const, procedure ---------------------------------------------------

}	/* namespace Frxaggregate */
using namespace Frxaggregate;
#pragma pack(pop)
#pragma option pop

#pragma delphiheader end.
//-- end unit ----------------------------------------------------------------
#endif	// Frxaggregate