fqbclass.hpp

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

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

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

#ifndef FqbclassHPP
#define FqbclassHPP

#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 <Messages.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Menus.hpp>	// Pascal unit
#include <Forms.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <Stdctrls.hpp>	// Pascal unit
#include <Grids.hpp>	// Pascal unit
#include <Db.hpp>	// Pascal unit
#include <Sysutils.hpp>	// Pascal unit
#include <Extctrls.hpp>	// Pascal unit
#include <Checklst.hpp>	// Pascal unit
#include <Buttons.hpp>	// Pascal unit
#include <Comctrls.hpp>	// Pascal unit
#include <Variants.hpp>	// Pascal unit

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

namespace Fqbclass
{
//-- type declarations -------------------------------------------------------
class DELPHICLASS EfqbError;
class PASCALIMPLEMENTATION EfqbError : public Sysutils::Exception 
{
	typedef Sysutils::Exception inherited;
	
public:
	#pragma option push -w-inl
	/* Exception.Create */ inline __fastcall EfqbError(const AnsiString Msg) : Sysutils::Exception(Msg) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateFmt */ inline __fastcall EfqbError(const AnsiString Msg, System::TVarRec const * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateRes */ inline __fastcall EfqbError(int Ident)/* overload */ : Sysutils::Exception(Ident) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResFmt */ inline __fastcall EfqbError(int Ident, System::TVarRec const * Args, const int Args_Size)/* overload */ : Sysutils::Exception(Ident, Args, Args_Size) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateHelp */ inline __fastcall EfqbError(const AnsiString Msg, int AHelpContext) : Sysutils::Exception(Msg, AHelpContext) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateFmtHelp */ inline __fastcall EfqbError(const AnsiString Msg, System::TVarRec const * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResHelp */ inline __fastcall EfqbError(int Ident, int AHelpContext)/* overload */ : Sysutils::Exception(Ident, AHelpContext) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResFmtHelp */ inline __fastcall EfqbError(System::PResStringRec ResStringRec, System::TVarRec const * Args, const int Args_Size, int AHelpContext)/* overload */ : Sysutils::Exception(ResStringRec, Args, Args_Size, AHelpContext) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~EfqbError(void) { }
	#pragma option pop
	
};


class DELPHICLASS TfqbField;
class PASCALIMPLEMENTATION TfqbField : public Classes::TCollectionItem 
{
	typedef Classes::TCollectionItem inherited;
	
private:
	AnsiString FFieldName;
	int FFielType;
	bool FLinked;
	AnsiString __fastcall GetFieldName();
	
public:
	__property AnsiString FieldName = {read=GetFieldName, write=FFieldName};
	__property int FieldType = {read=FFielType, write=FFielType, nodefault};
	__property bool Linked = {read=FLinked, write=FLinked, nodefault};
public:
	#pragma option push -w-inl
	/* TCollectionItem.Create */ inline __fastcall virtual TfqbField(Classes::TCollection* Collection) : Classes::TCollectionItem(Collection) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TCollectionItem.Destroy */ inline __fastcall virtual ~TfqbField(void) { }
	#pragma option pop
	
};


class DELPHICLASS TfqbFieldList;
class PASCALIMPLEMENTATION TfqbFieldList : public Classes::TOwnedCollection 
{
	typedef Classes::TOwnedCollection inherited;
	
public:
	TfqbField* operator[](int Index) { return Items[Index]; }
	
private:
	HIDESBASE TfqbField* __fastcall GetItem(int Index);
	HIDESBASE void __fastcall SetItem(int Index, const TfqbField* Value);
	
public:
	HIDESBASE TfqbField* __fastcall Add(void);
	__property TfqbField* Items[int Index] = {read=GetItem, write=SetItem/*, default*/};
public:
	#pragma option push -w-inl
	/* TOwnedCollection.Create */ inline __fastcall TfqbFieldList(Classes::TPersistent* AOwner, TMetaClass* ItemClass) : Classes::TOwnedCollection(AOwner, ItemClass) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TCollection.Destroy */ inline __fastcall virtual ~TfqbFieldList(void) { }
	#pragma option pop
	
};


class DELPHICLASS TfqbLink;
class DELPHICLASS TfqbTableArea;
class DELPHICLASS TfqbLinkList;
class PASCALIMPLEMENTATION TfqbLinkList : public Classes::TOwnedCollection 
{
	typedef Classes::TOwnedCollection inherited;
	
public:
	TfqbLink* operator[](int Index) { return Items[Index]; }
	
private:
	HIDESBASE TfqbLink* __fastcall GetItem(int Index);
	HIDESBASE void __fastcall SetItem(int Index, const TfqbLink* Value);
	
public:
	HIDESBASE TfqbLink* __fastcall Add(void);
	__property TfqbLink* Items[int Index] = {read=GetItem, write=SetItem/*, default*/};
public:
	#pragma option push -w-inl
	/* TOwnedCollection.Create */ inline __fastcall TfqbLinkList(Classes::TPersistent* AOwner, TMetaClass* ItemClass) : Classes::TOwnedCollection(AOwner, ItemClass) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TCollection.Destroy */ inline __fastcall virtual ~TfqbLinkList(void) { }
	#pragma option pop
	
};


class DELPHICLASS TfqbTable;
class PASCALIMPLEMENTATION TfqbTableArea : public Forms::TScrollBox 
{
	typedef Forms::TScrollBox inherited;
	
private:
	Graphics::TCanvas* FCanvas;
	int FInstX;
	int FInstY;
	TfqbLinkList* FLinkList;
	
protected:
	DYNAMIC void __fastcall Click(void);
	virtual AnsiString __fastcall GenerateAlias(const AnsiString ATableNAme);
	int __fastcall GetLineAtCursor(void);
	HIDESBASE MESSAGE void __fastcall WMPaint(Messages::TWMPaint &Message);
	
public:
	__fastcall virtual TfqbTableArea(Classes::TComponent* AOwner);
	__fastcall virtual ~TfqbTableArea(void);
	bool __fastcall CompareFields(int TableID1, int FIndex1, int TableID2, int FIndex2);
	DYNAMIC void __fastcall DragDrop(System::TObject* Source, int X, int Y);
	DYNAMIC void __fastcall DragOver(System::TObject* Source, int X, int Y, Controls::TDragState State, bool &Accept);
	TfqbTable* __fastcall FindTable(const AnsiString AName, const AnsiString AAlias);
	void __fastcall InsertTable(const int X, const int Y, const AnsiString Name)/* overload */;
	void __fastcall InsertTable(const AnsiString Name)/* overload */;
	__property TfqbLinkList* LinkList = {read=FLinkList};
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TfqbTableArea(HWND ParentWindow) : Forms::TScrollBox(ParentWindow) { }
	#pragma option pop
	
};


class PASCALIMPLEMENTATION TfqbLink : public Classes::TCollectionItem 
{
	typedef Classes::TCollectionItem inherited;
	
protected:
	TfqbTableArea* FArea;
	TfqbField* FDestField;
	TfqbTable* FDestTable;
	int FJOp;
	int FJType;
	Menus::TPopupMenu* FMenu;
	bool FSelected;
	TfqbField* FSourceField;
	TfqbTable* FSourceTable;
	void __fastcall DoDelete(System::TObject* Sender);
	void __fastcall DoOptions(System::TObject* Sender);
	void __fastcall Draw(void);
	Types::TPoint __fastcall GetDestCoords();
	Types::TPoint __fastcall GetSourceCoords();
	void __fastcall SetSelected(const bool Value);
	
public:
	__fastcall virtual TfqbLink(Classes::TCollection* Collection);
	__fastcall virtual ~TfqbLink(void);
	__property Types::TPoint DestCoords = {read=GetDestCoords};
	__property TfqbField* DestField = {read=FDestField};
	__property TfqbTable* DestTable = {read=FDestTable};
	__property int JoinOperator = {read=FJOp, write=FJOp, nodefault};
	__property int JoinType = {read=FJType, write=FJType, nodefault};
	__property bool Selected = {read=FSelected, write=SetSelected, nodefault};
	__property Types::TPoint SourceCoords = {read=GetSourceCoords};
	__property TfqbField* SourceField = {read=FSourceField};
	__property TfqbTable* SourceTable = {read=FSourceTable};
};


class DELPHICLASS TfqbCheckListBox;
class PASCALIMPLEMENTATION TfqbCheckListBox : public Checklst::TCheckListBox 
{
	typedef Checklst::TCheckListBox inherited;
	
protected:
	DYNAMIC void __fastcall ClickCheck(void);
	DYNAMIC void __fastcall DragOver(System::TObject* Sender, int X, int Y, Controls::TDragState State, bool &Accept);
	
public:
	DYNAMIC void __fastcall DragDrop(System::TObject* Sender, int X, int Y);
public:
	#pragma option push -w-inl
	/* TCheckListBox.Create */ inline __fastcall virtual TfqbCheckListBox(Classes::TComponent* AOwner) : Checklst::TCheckListBox(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TCheckListBox.Destroy */ inline __fastcall virtual ~TfqbCheckListBox(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TfqbCheckListBox(HWND ParentWindow) : Checklst::TCheckListBox(ParentWindow) { }
	#pragma option pop
	
};


class PASCALIMPLEMENTATION TfqbTable : public Extctrls::TPanel 
{
	typedef Extctrls::TPanel inherited;
	
private:
	AnsiString FAliasName;
	Buttons::TSpeedButton* FButtonClose;
	Buttons::TSpeedButton* FButtonMinimize;
	TfqbCheckListBox* FCheckListBox;
	TfqbFieldList* FFieldList;
	Extctrls::TImage* FImage;
	Stdctrls::TLabel* FLabel;
	int FOldHeight;
	AnsiString FTableName;
	TfqbField* __fastcall GetSellectedField(void);
	void __fastcall SetTableName(const AnsiString Value);
	void __fastcall SetXPStyle(const Controls::TControl* AComp);
	
protected: