frxclass.hpp

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

	AnsiString FOnAfterPrint;
	AnsiString FOnBeforePrint;
	AnsiString FOnPreviewClick;
	AnsiString FOnPreviewDblClick;
	
public:
	Extended FShiftAmount;
	Classes::TList* FShiftChildren;
	__fastcall virtual TfrxReportComponent(Classes::TComponent* AOwner);
	__fastcall virtual ~TfrxReportComponent(void);
	virtual void __fastcall Draw(Graphics::TCanvas* Canvas, Extended ScaleX, Extended ScaleY, Extended OffsetX, Extended OffsetY) = 0 ;
	virtual void __fastcall BeforePrint(void);
	virtual void __fastcall GetData(void);
	virtual void __fastcall AfterPrint(void);
	virtual AnsiString __fastcall GetComponentText();
	virtual TfrxRect __fastcall GetRealBounds();
	__property AnsiString OnAfterData = {read=FOnAfterData, write=FOnAfterData};
	__property AnsiString OnAfterPrint = {read=FOnAfterPrint, write=FOnAfterPrint};
	__property AnsiString OnBeforePrint = {read=FOnBeforePrint, write=FOnBeforePrint};
	__property AnsiString OnPreviewClick = {read=FOnPreviewClick, write=FOnPreviewClick};
	__property AnsiString OnPreviewDblClick = {read=FOnPreviewDblClick, write=FOnPreviewDblClick};
	
__published:
	__property Description ;
public:
	#pragma option push -w-inl
	/* TfrxComponent.DesignCreate */ inline __fastcall virtual TfrxReportComponent(Classes::TComponent* AOwner, Word Flags) : TfrxComponent(AOwner, Flags) { }
	#pragma option pop
	
};


class DELPHICLASS TfrxDialogComponent;
class PASCALIMPLEMENTATION TfrxDialogComponent : public TfrxReportComponent 
{
	typedef TfrxReportComponent inherited;
	
private:
	Classes::TComponent* FComponent;
	HIDESBASE void __fastcall ReadLeft(Classes::TReader* Reader);
	HIDESBASE void __fastcall ReadTop(Classes::TReader* Reader);
	HIDESBASE void __fastcall WriteLeft(Classes::TWriter* Writer);
	HIDESBASE void __fastcall WriteTop(Classes::TWriter* Writer);
	
protected:
	int FImageIndex;
	virtual void __fastcall DefineProperties(Classes::TFiler* Filer);
	
public:
	__fastcall virtual TfrxDialogComponent(Classes::TComponent* AOwner);
	__fastcall virtual ~TfrxDialogComponent(void);
	virtual void __fastcall Draw(Graphics::TCanvas* Canvas, Extended ScaleX, Extended ScaleY, Extended OffsetX, Extended OffsetY);
	__property Classes::TComponent* Component = {read=FComponent, write=FComponent};
public:
	#pragma option push -w-inl
	/* TfrxComponent.DesignCreate */ inline __fastcall virtual TfrxDialogComponent(Classes::TComponent* AOwner, Word Flags) : TfrxReportComponent(AOwner, Flags) { }
	#pragma option pop
	
};


class DELPHICLASS TfrxDialogControl;
class PASCALIMPLEMENTATION TfrxDialogControl : public TfrxReportComponent 
{
	typedef TfrxReportComponent inherited;
	
private:
	Controls::TControl* FControl;
	AnsiString FOnClick;
	AnsiString FOnDblClick;
	AnsiString FOnEnter;
	AnsiString FOnExit;
	AnsiString FOnKeyDown;
	AnsiString FOnKeyPress;
	AnsiString FOnKeyUp;
	AnsiString FOnMouseDown;
	AnsiString FOnMouseMove;
	AnsiString FOnMouseUp;
	Classes::TNotifyEvent FOnActivate;
	Graphics::TColor __fastcall GetColor(void);
	bool __fastcall GetEnabled(void);
	void __fastcall DoOnClick(System::TObject* Sender);
	void __fastcall DoOnDblClick(System::TObject* Sender);
	void __fastcall DoOnEnter(System::TObject* Sender);
	void __fastcall DoOnExit(System::TObject* Sender);
	void __fastcall DoOnKeyDown(System::TObject* Sender, Word &Key, Classes::TShiftState Shift);
	void __fastcall DoOnKeyPress(System::TObject* Sender, char &Key);
	void __fastcall DoOnKeyUp(System::TObject* Sender, Word &Key, Classes::TShiftState Shift);
	void __fastcall DoOnMouseDown(System::TObject* Sender, Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	void __fastcall DoOnMouseMove(System::TObject* Sender, Classes::TShiftState Shift, int X, int Y);
	void __fastcall DoOnMouseUp(System::TObject* Sender, Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	void __fastcall SetColor(const Graphics::TColor Value);
	void __fastcall SetEnabled(const bool Value);
	AnsiString __fastcall GetCaption();
	void __fastcall SetCaption(const AnsiString Value);
	AnsiString __fastcall GetHint();
	void __fastcall SetHint(const AnsiString Value);
	bool __fastcall GetShowHint(void);
	void __fastcall SetShowHint(const bool Value);
	bool __fastcall GetTabStop(void);
	void __fastcall SetTabStop(const bool Value);
	
protected:
	bool FRunAlways;
	virtual void __fastcall SetLeft(Extended Value);
	virtual void __fastcall SetTop(Extended Value);
	virtual void __fastcall SetWidth(Extended Value);
	virtual void __fastcall SetHeight(Extended Value);
	virtual void __fastcall SetParentFont(const bool Value);
	virtual void __fastcall SetVisible(bool Value);
	virtual void __fastcall SetParent(TfrxComponent* AParent);
	virtual void __fastcall FontChanged(System::TObject* Sender);
	void __fastcall InitControl(Controls::TControl* AControl);
	virtual void __fastcall SetName(const AnsiString AName);
	
public:
	__fastcall virtual TfrxDialogControl(Classes::TComponent* AOwner);
	__fastcall virtual ~TfrxDialogControl(void);
	virtual void __fastcall Draw(Graphics::TCanvas* Canvas, Extended ScaleX, Extended ScaleY, Extended OffsetX, Extended OffsetY);
	__property AnsiString Caption = {read=GetCaption, write=SetCaption};
	__property Graphics::TColor Color = {read=GetColor, write=SetColor, nodefault};
	__property Controls::TControl* Control = {read=FControl, write=FControl};
	__property bool TabStop = {read=GetTabStop, write=SetTabStop, default=1};
	__property AnsiString OnClick = {read=FOnClick, write=FOnClick};
	__property AnsiString OnDblClick = {read=FOnDblClick, write=FOnDblClick};
	__property AnsiString OnEnter = {read=FOnEnter, write=FOnEnter};
	__property AnsiString OnExit = {read=FOnExit, write=FOnExit};
	__property AnsiString OnKeyDown = {read=FOnKeyDown, write=FOnKeyDown};
	__property AnsiString OnKeyPress = {read=FOnKeyPress, write=FOnKeyPress};
	__property AnsiString OnKeyUp = {read=FOnKeyUp, write=FOnKeyUp};
	__property AnsiString OnMouseDown = {read=FOnMouseDown, write=FOnMouseDown};
	__property AnsiString OnMouseMove = {read=FOnMouseMove, write=FOnMouseMove};
	__property AnsiString OnMouseUp = {read=FOnMouseUp, write=FOnMouseUp};
	__property Classes::TNotifyEvent OnActivate = {read=FOnActivate, write=FOnActivate};
	
__published:
	__property Left ;
	__property Top ;
	__property Width ;
	__property Height ;
	__property Font ;
	__property GroupIndex  = {default=0};
	__property ParentFont  = {default=1};
	__property bool Enabled = {read=GetEnabled, write=SetEnabled, default=1};
	__property AnsiString Hint = {read=GetHint, write=SetHint};
	__property bool ShowHint = {read=GetShowHint, write=SetShowHint, nodefault};
	__property Visible  = {default=1};
public:
	#pragma option push -w-inl
	/* TfrxComponent.DesignCreate */ inline __fastcall virtual TfrxDialogControl(Classes::TComponent* AOwner, Word Flags) : TfrxReportComponent(AOwner, Flags) { }
	#pragma option pop
	
};


class PASCALIMPLEMENTATION TfrxDataSet : public TfrxDialogComponent 
{
	typedef TfrxDialogComponent inherited;
	
private:
	bool FCloseDataSource;
	bool FEnabled;
	bool FEof;
	bool FOpenDataSource;
	TfrxRangeBegin FRangeBegin;
	TfrxRangeEnd FRangeEnd;
	int FRangeEndCount;
	TfrxReport* FReportRef;
	AnsiString FUserName;
	TfrxCheckEOFEvent FOnCheckEOF;
	Classes::TNotifyEvent FOnFirst;
	Classes::TNotifyEvent FOnNext;
	Classes::TNotifyEvent FOnPrior;
	Classes::TNotifyEvent FOnOpen;
	Classes::TNotifyEvent FOnClose;
	
protected:
	bool FInitialized;
	int FRecNo;
	virtual WideString __fastcall GetDisplayText(AnsiString Index);
	virtual int __fastcall GetDisplayWidth(AnsiString Index);
	virtual TfrxFieldType __fastcall GetFieldType(AnsiString Index);
	virtual Variant __fastcall GetValue(AnsiString Index);
	virtual void __fastcall SetName(const AnsiString NewName);
	virtual void __fastcall SetUserName(const AnsiString Value);
	
public:
	__fastcall virtual TfrxDataSet(Classes::TComponent* AOwner);
	__fastcall virtual ~TfrxDataSet(void);
	virtual void __fastcall Initialize(void);
	virtual void __fastcall Finalize(void);
	virtual void __fastcall Open(void);
	virtual void __fastcall Close(void);
	virtual void __fastcall First(void);
	virtual void __fastcall Next(void);
	virtual void __fastcall Prior(void);
	virtual bool __fastcall Eof(void);
	virtual int __fastcall FieldsCount(void);
	bool __fastcall HasField(const AnsiString fName);
	virtual bool __fastcall IsBlobField(const AnsiString fName);
	virtual int __fastcall RecordCount(void);
	virtual void __fastcall AssignBlobTo(const AnsiString fName, System::TObject* Obj);
	virtual void __fastcall GetFieldList(Classes::TStrings* List);
	__property WideString DisplayText[AnsiString Index] = {read=GetDisplayText};
	__property int DisplayWidth[AnsiString Index] = {read=GetDisplayWidth};
	__property TfrxFieldType FieldType[AnsiString Index] = {read=GetFieldType};
	__property Variant Value[AnsiString Index] = {read=GetValue};
	__property bool CloseDataSource = {read=FCloseDataSource, write=FCloseDataSource, nodefault};
	__property bool OpenDataSource = {read=FOpenDataSource, write=FOpenDataSource, default=1};
	__property int RecNo = {read=FRecNo, nodefault};
	__property TfrxReport* ReportRef = {read=FReportRef, write=FReportRef};
	__property Classes::TNotifyEvent OnClose = {read=FOnClose, write=FOnClose};
	__property Classes::TNotifyEvent OnOpen = {read=FOnOpen, write=FOnOpen};
	
__published:
	__property bool Enabled = {read=FEnabled, write=FEnabled, default=1};
	__property TfrxRangeBegin RangeBegin = {read=FRangeBegin, write=FRangeBegin, default=0};
	__property TfrxRangeEnd RangeEnd = {read=FRangeEnd, write=FRangeEnd, default=0};
	__property int RangeEndCount = {read=FRangeEndCount, write=FRangeEndCount, default=0};
	__property AnsiString UserName = {read=FUserName, write=SetUserName};
	__property TfrxCheckEOFEvent OnCheckEOF = {read=FOnCheckEOF, write=FOnCheckEOF};
	__property Classes::TNotifyEvent OnFirst = {read=FOnFirst, write=FOnFirst};
	__property Classes::TNotifyEvent OnNext = {read=FOnNext, write=FOnNext};
	__property Classes::TNotifyEvent OnPrior = {read=FOnPrior, write=FOnPrior};
public:
	#pragma option push -w-inl
	/* TfrxComponent.DesignCreate */ inline __fastcall virtual TfrxDataSet(Classes::TComponent* AOwner, Word Flags) : TfrxDialogComponent(AOwner, Flags) { }
	#pragma option pop
	
};


class DELPHICLASS TfrxUserDataSet;
class PASCALIMPLEMENTATION TfrxUserDataSet : public TfrxDataSet 
{
	typedef TfrxDataSet inherited;
	
private:
	Classes::TStrings* FFields;
	TfrxGetValueEvent FOnGetValue;
	TfrxNewGetValueEvent FOnNewGetValue;
	void __fastcall SetFields(const Classes::TStrings* Value);
	
protected:
	virtual WideString __fastcall GetDisplayText(AnsiString Index);
	virtual Variant __fastcall GetValue(AnsiString Index);
	
public:
	__fastcall virtual TfrxUserDataSet(Classes::TComponent* AOwner);
	__fastcall virtual ~TfrxUserDataSet(void);
	virtual int __fastcall FieldsCount(void);
	virtual void __fastcall GetFieldList(Classes::TStrings* List);
	
__published:
	__property Classes::TStrings* Fields = {read=FFields, write=SetFields};
	__property TfrxGetValueEvent OnGetValue = {read=FOnGetValue, write=FOnGetValue};
	__property TfrxNewGetValueEvent OnNewGetValue = {read=FOnNewGetValue, write=FOnNewGetValue};
public:
	#pragma option push -w-inl
	/* TfrxComponent.DesignCreate */ inline __fastcall virtual TfrxUserDataSet(Classes::TComponent* AOwner, Word Flags) : TfrxDataSet(AOwner, Flags) { }
	#pragma option pop
	
};


class DELPHICLASS TfrxCustomDBDataSet;
class PASCALIMPLEMENTATION TfrxCustomDBDataSet : public TfrxDataSet 
{
	typedef TfrxDataSet inherited;
	
private:
	Classes::TStrings* FAliases;
	Classes::TStringList* FFields;
	void __fastcall SetFieldAliases(const Classes::TStrings* Value);
	
protected:
	__property Classes::TStringList* Fields = {read=FFields};
	
public:
	__fastcall virtual TfrxCustomDBDataSet(Classes::TComponent* AOwner);
	__fastcall virtual ~TfrxCustomDBDataSet(void);
	AnsiString __fastcall ConvertAlias(const AnsiString fName);
	AnsiString __fastcall GetAlias(const AnsiString fName);
	virtual int __fastcall FieldsCount(void);
	
__published:
	__property CloseDataSource ;
	__property Classes::TStrings* FieldAliases = {read=FAliases, write=SetFieldAliases};
	__property OpenDataSource  = {default=1};
	__property OnClose ;
	__property OnOpen ;
public:
	#pragma option push -w-inl
	/* TfrxComponent.DesignCreate */ inline __fastcall virtual TfrxCustomDBDataSet(Classes::TComponent* AOwner, Word Flags) : TfrxDataSet(AOwner, Flags) { }
	#pragma option pop
	
};


class DELPHICLASS TfrxDBComponents;
class PASCALIMPLEMENTATION TfrxDBComponents : public Classes::TComponent 
{
	typedef Classes::TComponent inherited;
	
public:
	virtual AnsiString __fastcall GetDescription();
public:
	#pragma option push -w-inl
	/* TComponent.Create */ inline __fastcall virtual TfrxDBComponents(Classes::TComponent* AOwner) : Classes::TComponent(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TComponent.Destroy */ inline __fastcall virtual ~TfrxDBComponents(void) { }
	#pragma option pop
	
};


class PASCALIMPLEMENTATION TfrxCustomDatabase : public TfrxDialogComponent 
{
	typedef TfrxDialogComponent inherited;
	
protected:
	void __fastcall BeforeConnect(bool &Value);
	virtual void __fastcall SetConnected(bool Value);
	virtual void __fastcall SetDatabaseName(const AnsiString Value);
	virtual void __fastcall SetLoginPrompt(bool Value);
	virtual void __fastcall SetParams(Classes::TStrings* Value);
	virtual bool __fastcall GetConnected(void);
	virtual AnsiString __fastcall GetDatabaseName();
	virtual bool __fastcall GetLoginPrompt(void);
	virtual Classes::TStrings* __fastcall GetParams(void);
	
public:
	virtual WideString __fastcall ToString();
	virtual void __fastcall FromString(const WideString Connection);
	virtual void __fastcall SetLogin(const AnsiString Login, const AnsiString Password);
	__property bool Connected = {read=GetConnected, write=SetConnected, default=0};
	__property AnsiString DatabaseName = {read=GetDatabaseName, write=SetDatabaseName};