Importación inicial

git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.FastReport@24 475b051d-3a53-6940-addd-820bf0cfe0d7
This commit is contained in:
David Arranz 2009-10-21 13:40:53 +00:00
parent f6c2419a55
commit d7207efa93
1930 changed files with 256456 additions and 0 deletions

View File

@ -0,0 +1,211 @@
# ---------------------------------------------------------------------------
!if !$d(BCB)
BCB = $(MAKEDIR)\..
!endif
# ---------------------------------------------------------------------------
# IDE SECTION
# ---------------------------------------------------------------------------
# The following section of the project makefile is managed by the BCB IDE.
# It is recommended to use the IDE to change any of the values in this
# section.
# ---------------------------------------------------------------------------
VERSION = BCB.04.04
# ---------------------------------------------------------------------------
PROJECT = Project1.exe
OBJFILES = Project1.obj Unit1.obj
RESFILES = Project1.res
RESDEPEN = $(RESFILES) Unit1.dfm
LIBFILES =
IDLGENFILES =
IDLFILES =
LIBRARIES =
SPARELIBS = Vcl40.lib Vcldb40.lib frx4.lib VCLX40.lib VCLJPG40.lib FS4.lib frxDB4.lib \
FSDB4.lib
PACKAGES = Vcl40.bpi Vclx40.bpi vcljpg40.bpi Vclmid40.bpi Vcldb40.bpi bcbsmp40.bpi \
ibsmp40.bpi vcldbx40.bpi Qrpt40.bpi TeeUI40.bpi teedb40.bpi tee40.bpi Dss40.bpi \
NMFast40.bpi Inetdb40.bpi Inet40.bpi dclocx40.bpi frx4.bpi fs4.bpi frxe4.bpi \
frxDB4.bpi fsDB4.bpi
DEFFILE =
# ---------------------------------------------------------------------------
PATHCPP = .;
PATHASM = .;
PATHPAS = .;
PATHRC = .;
DEBUGLIBPATH = $(BCB)\lib\debug
RELEASELIBPATH = $(BCB)\lib\release
USERDEFINES =
SYSDEFINES = _RTLDLL;NO_STRICT;USEPACKAGES
# ---------------------------------------------------------------------------
CFLAG1 = -I$(BCB)\include;$(BCB)\include\vcl;..\..\..\Source;..\..\..\LibBCB4;..\..\..\LibBCB5;..\..\..\LibBCB6 \
-Od -Hc -H=$(BCB)\lib\vcl40.csm -w -Ve -r- -a8 -k -y -v -vi- -c -b- -w-par \
-w-inl -Vx -tW -tWM -D$(SYSDEFINES);$(USERDEFINES)
IDLCFLAGS = -I$(BCB)\include -I$(BCB)\include\vcl -I..\..\..\Source -I..\..\..\LibBCB4 \
-I..\..\..\LibBCB5 -I..\..\..\LibBCB6 -src_suffixcpp
PFLAGS = -U$(BCB)\Projects\Lib;$(BCB)\lib\obj;$(BCB)\lib;..\..\..\Source;..\..\..\LibBCB4;..\..\..\LibBCB5;..\..\..\LibBCB6;$(RELEASELIBPATH) \
-I$(BCB)\include;$(BCB)\include\vcl;..\..\..\Source;..\..\..\LibBCB4;..\..\..\LibBCB5;..\..\..\LibBCB6 \
-$YD -$W -$O- -v -JPHNE -M
RFLAGS = -i$(BCB)\include;$(BCB)\include\vcl;..\..\..\Source;..\..\..\LibBCB4;..\..\..\LibBCB5;..\..\..\LibBCB6
AFLAGS = /i$(BCB)\include /i$(BCB)\include\vcl /i..\..\..\Source /i..\..\..\LibBCB4 \
/i..\..\..\LibBCB5 /i..\..\..\LibBCB6 /mx /w2 /zd
LFLAGS = -L$(BCB)\Projects\Lib;$(BCB)\lib\obj;$(BCB)\lib;..\..\..\Source;..\..\..\LibBCB4;..\..\..\LibBCB5;..\..\..\LibBCB6;$(RELEASELIBPATH) \
-aa -Tpe -x -Gn -v
# ---------------------------------------------------------------------------
ALLOBJ = c0w32.obj Memmgr.Lib $(PACKAGES) sysinit.obj $(OBJFILES)
ALLRES = $(RESFILES)
ALLLIB = $(LIBFILES) $(LIBRARIES) import32.lib cp32mti.lib
# ---------------------------------------------------------------------------
!ifdef IDEOPTIONS
[Version Info]
IncludeVerInfo=0
AutoIncBuild=0
MajorVer=1
MinorVer=0
Release=0
Build=0
Debug=0
PreRelease=0
Special=0
Private=0
DLL=0
Locale=1049
CodePage=1251
[Version Info Keys]
CompanyName=
FileDescription=
FileVersion=1.0.0.0
InternalName=
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=
ProductVersion=1.0.0.0
Comments=
[HistoryLists\hlIncludePath]
Count=2
Item0=$(BCB)\include;$(BCB)\include\vcl;..\..\..\Source;..\..\..\LibBCB4;..\..\..\LibBCB5;..\..\..\LibBCB6
Item1=..\..\..\..\Work\Fast Report\fr4\Demos\BCB Demos\InteractiveReport;..\..\..\..\Work\Fast Report\fr4\Source;$(BCB)\include;$(BCB)\include\vcl;C:\Work\Fast Report\fs\Source;C:\Work\Fast Report\fr4\Source
[HistoryLists\hlLibraryPath]
Count=2
Item0=$(BCB)\Projects\Lib;$(BCB)\lib\obj;$(BCB)\lib;..\..\..\Source;..\..\..\LibBCB4;..\..\..\LibBCB5;..\..\..\LibBCB6
Item1=..\..\..\..\Work\Fast Report\fr4\Demos\BCB Demos\InteractiveReport;$(BCB)\Projects\Lib;..\..\..\..\Work\Fast Report\fr4\Source;$(BCB)\lib\obj;$(BCB)\lib;C:\Work\Fast Report\fs\Source;C:\Work\Fast Report\fr4\Source
[HistoryLists\hlDebugSourcePath]
Count=1
Item0=$(BCB)\source\vcl
[Debugging]
DebugSourceDirs=$(BCB)\source\vcl
[Parameters]
RunParams=
HostApplication=
RemoteHost=
RemotePath=
RemoteDebug=0
[Compiler]
InMemoryExe=0
ShowInfoMsgs=0
[CORBA]
AddServerUnit=1
AddClientUnit=1
PrecompiledHeaders=1
!endif
# ---------------------------------------------------------------------------
# MAKE SECTION
# ---------------------------------------------------------------------------
# This section of the project file is not used by the BCB IDE. It is for
# the benefit of building from the command-line using the MAKE utility.
# ---------------------------------------------------------------------------
.autodepend
# ---------------------------------------------------------------------------
!if !$d(BCC32)
BCC32 = bcc32
!endif
!if !$d(CPP32)
CPP32 = cpp32
!endif
!if !$d(DCC32)
DCC32 = dcc32
!endif
!if !$d(TASM32)
TASM32 = tasm32
!endif
!if !$d(LINKER)
LINKER = ilink32
!endif
!if !$d(BRCC32)
BRCC32 = brcc32
!endif
!if !$d(IDL2CPP)
IDL2CPP = idl2cpp
!endif
# ---------------------------------------------------------------------------
!if $d(PATHCPP)
.PATH.CPP = $(PATHCPP)
.PATH.C = $(PATHCPP)
!endif
!if $d(PATHPAS)
.PATH.PAS = $(PATHPAS)
!endif
!if $d(PATHASM)
.PATH.ASM = $(PATHASM)
!endif
!if $d(PATHRC)
.PATH.RC = $(PATHRC)
!endif
# ---------------------------------------------------------------------------
$(PROJECT): $(IDLGENFILES) $(OBJFILES) $(RESDEPEN) $(DEFFILE)
$(BCB)\BIN\$(LINKER) @&&!
$(LFLAGS) +
$(ALLOBJ), +
$(PROJECT),, +
$(ALLLIB), +
$(DEFFILE), +
$(ALLRES)
!
# ---------------------------------------------------------------------------
.pas.hpp:
$(BCB)\BIN\$(DCC32) $(PFLAGS) {$< }
.pas.obj:
$(BCB)\BIN\$(DCC32) $(PFLAGS) {$< }
.cpp.obj:
$(BCB)\BIN\$(BCC32) $(CFLAG1) -n$(@D) {$< }
.c.obj:
$(BCB)\BIN\$(BCC32) $(CFLAG1) -n$(@D) {$< }
.c.i:
$(BCB)\BIN\$(CPP32) $(CFLAG1) -n. {$< }
.cpp.i:
$(BCB)\BIN\$(CPP32) $(CFLAG1) -n. {$< }
.asm.obj:
$(BCB)\BIN\$(TASM32) $(AFLAGS) $<, $@
.rc.res:
$(BCB)\BIN\$(BRCC32) $(RFLAGS) -fo$@ $<
# ---------------------------------------------------------------------------

View File

@ -0,0 +1,21 @@
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
USERES("Project1.res");
USEFORM("Unit1.cpp", Form1);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Application->Initialize();
Application->CreateForm(__classid(TForm1), &Form1);
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
return 0;
}
//---------------------------------------------------------------------------

View File

@ -0,0 +1,33 @@
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "frxClass"
#pragma link "frxDBSet"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
MainReport->ShowReport(true);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::MainReportClickObject(TfrxView *Sender,
TMouseButton Button, TShiftState Shift, bool &Modified)
{
if(strcmp(Sender->Name.c_str(),"Memo8\0") == 0)
{
DetailQuery->Close();
DetailQuery->ParamByName("custno")->Value = StrToInt(Sender->TagStr);
DetailReport->ShowReport(true);
}
}
//---------------------------------------------------------------------------

View File

@ -0,0 +1,80 @@
//---------------------------------------------------------------------------
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include "frxClass.hpp"
#include "frxDBSet.hpp"
#include <Db.hpp>
#include <DBTables.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
TButton *Button1;
TTable *Customers;
TQuery *DetailQuery;
TfrxReport *MainReport;
TfrxDBDataset *CustomersDS;
TfrxDBDataset *DetailQueryDS;
TfrxReport *DetailReport;
TFloatField *DetailQueryCustNo2;
TStringField *DetailQueryCompany2;
TStringField *DetailQueryAddr12;
TStringField *DetailQueryAddr22;
TStringField *DetailQueryCity2;
TStringField *DetailQueryState2;
TStringField *DetailQueryZip2;
TStringField *DetailQueryCountry2;
TStringField *DetailQueryPhone2;
TStringField *DetailQueryFAX2;
TFloatField *DetailQueryTaxRate2;
TStringField *DetailQueryContact2;
TDateTimeField *DetailQueryLastInvoiceDate2;
TFloatField *DetailQueryOrderNo2;
TFloatField *DetailQueryCustNo_12;
TDateTimeField *DetailQuerySaleDate2;
TDateTimeField *DetailQueryShipDate2;
TIntegerField *DetailQueryEmpNo2;
TStringField *DetailQueryShipToContact2;
TStringField *DetailQueryShipToAddr12;
TStringField *DetailQueryShipToAddr22;
TStringField *DetailQueryShipToCity2;
TStringField *DetailQueryShipToState2;
TStringField *DetailQueryShipToZip2;
TStringField *DetailQueryShipToCountry2;
TStringField *DetailQueryShipToPhone2;
TStringField *DetailQueryShipVIA2;
TStringField *DetailQueryPO2;
TStringField *DetailQueryTerms2;
TStringField *DetailQueryPaymentMethod2;
TCurrencyField *DetailQueryItemsTotal2;
TFloatField *DetailQueryTaxRate_12;
TCurrencyField *DetailQueryFreight2;
TCurrencyField *DetailQueryAmountPaid2;
TFloatField *DetailQueryOrderNo_12;
TFloatField *DetailQueryItemNo2;
TFloatField *DetailQueryPartNo2;
TIntegerField *DetailQueryQty2;
TFloatField *DetailQueryDiscount2;
TFloatField *DetailQueryPartNo_12;
TFloatField *DetailQueryVendorNo2;
TStringField *DetailQueryDescription2;
TFloatField *DetailQueryOnHand2;
TFloatField *DetailQueryOnOrder2;
TCurrencyField *DetailQueryCost2;
TCurrencyField *DetailQueryListPrice2;
void __fastcall Button1Click(TObject *Sender);
void __fastcall MainReportClickObject(TfrxView *Sender,
TMouseButton Button, TShiftState Shift, bool &Modified);
private: // User declarations
public: // User declarations
__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

View File

@ -0,0 +1,210 @@
# ---------------------------------------------------------------------------
!if !$d(BCB)
BCB = $(MAKEDIR)\..
!endif
# ---------------------------------------------------------------------------
# IDE SECTION
# ---------------------------------------------------------------------------
# The following section of the project makefile is managed by the BCB IDE.
# It is recommended to use the IDE to change any of the values in this
# section.
# ---------------------------------------------------------------------------
VERSION = BCB.04.04
# ---------------------------------------------------------------------------
PROJECT = Project1.exe
OBJFILES = Project1.obj Unit1.obj
RESFILES = Project1.res
RESDEPEN = $(RESFILES) Unit1.dfm
LIBFILES =
IDLGENFILES =
IDLFILES =
LIBRARIES =
SPARELIBS = Vcl40.lib frx4.lib VCLX40.lib VCLJPG40.lib FS4.lib
PACKAGES = Vcl40.bpi Vclx40.bpi vcljpg40.bpi Vclmid40.bpi Vcldb40.bpi bcbsmp40.bpi \
ibsmp40.bpi vcldbx40.bpi Qrpt40.bpi TeeUI40.bpi teedb40.bpi tee40.bpi Dss40.bpi \
NMFast40.bpi Inetdb40.bpi Inet40.bpi dclocx40.bpi frx4.bpi fs4.bpi frxe4.bpi \
frxDB4.bpi fsDB4.bpi
DEFFILE =
# ---------------------------------------------------------------------------
PATHCPP = .;
PATHASM = .;
PATHPAS = .;
PATHRC = .;
DEBUGLIBPATH = $(BCB)\lib\debug
RELEASELIBPATH = $(BCB)\lib\release
USERDEFINES =
SYSDEFINES = _RTLDLL;NO_STRICT;USEPACKAGES
# ---------------------------------------------------------------------------
CFLAG1 = -I$(BCB)\include;$(BCB)\include\vcl;..\..\..\Source;..\..\..\LibBCB4;..\..\..\LibBCB5;..\..\..\LibBCB6 \
-Od -Hc -H=$(BCB)\lib\vcl40.csm -w -Ve -r- -a8 -k -y -v -vi- -c -b- -w-par \
-w-inl -Vx -tW -tWM -D$(SYSDEFINES);$(USERDEFINES)
IDLCFLAGS = -I$(BCB)\include -I$(BCB)\include\vcl -I..\..\..\Source -I..\..\..\LibBCB4 \
-I..\..\..\LibBCB5 -I..\..\..\LibBCB6 -src_suffixcpp
PFLAGS = -U$(BCB)\Projects\Lib;$(BCB)\lib\obj;$(BCB)\lib;..\..\..\Source;..\..\..\LibBCB4;..\..\..\LibBCB5;..\..\..\LibBCB6;$(RELEASELIBPATH) \
-I$(BCB)\include;$(BCB)\include\vcl;..\..\..\Source;..\..\..\LibBCB4;..\..\..\LibBCB5;..\..\..\LibBCB6 \
-$YD -$W -$O- -v -JPHNE -M
RFLAGS = -i$(BCB)\include;$(BCB)\include\vcl;..\..\..\Source;..\..\..\LibBCB4;..\..\..\LibBCB5;..\..\..\LibBCB6
AFLAGS = /i$(BCB)\include /i$(BCB)\include\vcl /i..\..\..\Source /i..\..\..\LibBCB4 \
/i..\..\..\LibBCB5 /i..\..\..\LibBCB6 /mx /w2 /zd
LFLAGS = -L$(BCB)\Projects\Lib;$(BCB)\lib\obj;$(BCB)\lib;..\..\..\Source;..\..\..\LibBCB4;..\..\..\LibBCB5;..\..\..\LibBCB6;$(RELEASELIBPATH) \
-aa -Tpe -x -Gn -v
# ---------------------------------------------------------------------------
ALLOBJ = c0w32.obj Memmgr.Lib $(PACKAGES) sysinit.obj $(OBJFILES)
ALLRES = $(RESFILES)
ALLLIB = $(LIBFILES) $(LIBRARIES) import32.lib cp32mti.lib
# ---------------------------------------------------------------------------
!ifdef IDEOPTIONS
[Version Info]
IncludeVerInfo=0
AutoIncBuild=0
MajorVer=1
MinorVer=0
Release=0
Build=0
Debug=0
PreRelease=0
Special=0
Private=0
DLL=0
Locale=1049
CodePage=1251
[Version Info Keys]
CompanyName=
FileDescription=
FileVersion=1.0.0.0
InternalName=
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=
ProductVersion=1.0.0.0
Comments=
[HistoryLists\hlIncludePath]
Count=2
Item0=$(BCB)\include;$(BCB)\include\vcl;..\..\..\Source;..\..\..\LibBCB4;..\..\..\LibBCB5;..\..\..\LibBCB6
Item1=..\..\..\..\Work\Fast Report\fr4\Demos\BCB Demos\MasterDetailUDS;..\..\..\..\Work\Fast Report\fr4\Source;$(BCB)\include;$(BCB)\include\vcl;C:\Work\Fast Report\fs\Source;C:\Work\Fast Report\fr4\Source
[HistoryLists\hlLibraryPath]
Count=2
Item0=$(BCB)\Projects\Lib;$(BCB)\lib\obj;$(BCB)\lib;..\..\..\Source;..\..\..\LibBCB4;..\..\..\LibBCB5;..\..\..\LibBCB6
Item1=..\..\..\..\Work\Fast Report\fr4\Demos\BCB Demos\MasterDetailUDS;$(BCB)\Projects\Lib;..\..\..\..\Work\Fast Report\fr4\Source;$(BCB)\lib\obj;$(BCB)\lib;C:\Work\Fast Report\fs\Source;C:\Work\Fast Report\fr4\Source
[HistoryLists\hlDebugSourcePath]
Count=1
Item0=$(BCB)\source\vcl
[Debugging]
DebugSourceDirs=$(BCB)\source\vcl
[Parameters]
RunParams=
HostApplication=
RemoteHost=
RemotePath=
RemoteDebug=0
[Compiler]
InMemoryExe=0
ShowInfoMsgs=0
[CORBA]
AddServerUnit=1
AddClientUnit=1
PrecompiledHeaders=1
!endif
# ---------------------------------------------------------------------------
# MAKE SECTION
# ---------------------------------------------------------------------------
# This section of the project file is not used by the BCB IDE. It is for
# the benefit of building from the command-line using the MAKE utility.
# ---------------------------------------------------------------------------
.autodepend
# ---------------------------------------------------------------------------
!if !$d(BCC32)
BCC32 = bcc32
!endif
!if !$d(CPP32)
CPP32 = cpp32
!endif
!if !$d(DCC32)
DCC32 = dcc32
!endif
!if !$d(TASM32)
TASM32 = tasm32
!endif
!if !$d(LINKER)
LINKER = ilink32
!endif
!if !$d(BRCC32)
BRCC32 = brcc32
!endif
!if !$d(IDL2CPP)
IDL2CPP = idl2cpp
!endif
# ---------------------------------------------------------------------------
!if $d(PATHCPP)
.PATH.CPP = $(PATHCPP)
.PATH.C = $(PATHCPP)
!endif
!if $d(PATHPAS)
.PATH.PAS = $(PATHPAS)
!endif
!if $d(PATHASM)
.PATH.ASM = $(PATHASM)
!endif
!if $d(PATHRC)
.PATH.RC = $(PATHRC)
!endif
# ---------------------------------------------------------------------------
$(PROJECT): $(IDLGENFILES) $(OBJFILES) $(RESDEPEN) $(DEFFILE)
$(BCB)\BIN\$(LINKER) @&&!
$(LFLAGS) +
$(ALLOBJ), +
$(PROJECT),, +
$(ALLLIB), +
$(DEFFILE), +
$(ALLRES)
!
# ---------------------------------------------------------------------------
.pas.hpp:
$(BCB)\BIN\$(DCC32) $(PFLAGS) {$< }
.pas.obj:
$(BCB)\BIN\$(DCC32) $(PFLAGS) {$< }
.cpp.obj:
$(BCB)\BIN\$(BCC32) $(CFLAG1) -n$(@D) {$< }
.c.obj:
$(BCB)\BIN\$(BCC32) $(CFLAG1) -n$(@D) {$< }
.c.i:
$(BCB)\BIN\$(CPP32) $(CFLAG1) -n. {$< }
.cpp.i:
$(BCB)\BIN\$(CPP32) $(CFLAG1) -n. {$< }
.asm.obj:
$(BCB)\BIN\$(TASM32) $(AFLAGS) $<, $@
.rc.res:
$(BCB)\BIN\$(BRCC32) $(RFLAGS) -fo$@ $<
# ---------------------------------------------------------------------------

View File

@ -0,0 +1,21 @@
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
USERES("Project1.res");
USEFORM("Unit1.cpp", Form1);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Application->Initialize();
Application->CreateForm(__classid(TForm1), &Form1);
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
return 0;
}
//---------------------------------------------------------------------------

View File

@ -0,0 +1,94 @@
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "frxClass"
#pragma resource "*.dfm"
#define MAX_MASTER 3
#define MAX_DETAIL 15
TForm1 *Form1;
String Master[MAX_MASTER][2] = { // master Id, master name
{"1", "master 1"},
{"2", "master 2"},
{"3", "master 3"}};
String Detail[MAX_DETAIL][2] = { // master Id, detail name
{"1", "detail 1.1"}, {"1", "detail 1.2"}, {"1", "detail 1.3"},
{"1", "detail 1.4"}, {"1", "detail 1.5"}, {"2", "detail 2.1"},
{"2", "detail 2.2"}, {"2", "detail 2.3"}, {"2", "detail 2.4"},
{"2", "detail 2.5"}, {"3", "detail 3.1"}, {"3", "detail 3.2"},
{"3", "detail 3.3"}, {"3", "detail 3.4"}, {"3", "detail 3.5"}};
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::PrintClick(TObject *Sender)
{
frxReport1->ShowReport(true);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::MasterDSFirst(TObject *Sender)
{
MasterNo = 0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::MasterDSNext(TObject *Sender)
{
MasterNo++;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::MasterDSCheckEOF(TObject *Sender, bool &Eof)
{
Eof = MasterNo > MAX_MASTER - 1;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::MasterDSGetValue(const AnsiString VarName,
Variant &Value)
{
Value = Master[MasterNo][1];
}
//---------------------------------------------------------------------------
void __fastcall TForm1::MasterDSPrior(TObject *Sender)
{
if(MasterNo > 0) MasterNo--;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::DetailDSCheckEOF(TObject *Sender, bool &Eof)
{
Eof = DetailNo > MAX_DETAIL - 1;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::DetailDSFirst(TObject *Sender)
{
DetailNo = 0;
while((!DetailDS->Eof()) && (Detail[DetailNo][0] != Master[MasterNo][0]))
DetailNo++;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::DetailDSGetValue(const AnsiString VarName,
Variant &Value)
{
Value = Detail[DetailNo][1];
}
//---------------------------------------------------------------------------
void __fastcall TForm1::DetailDSNext(TObject *Sender)
{
DetailNo++;
while ((!DetailDS->Eof()) && (Detail[DetailNo][0] != Master[MasterNo][0]))
DetailNo++;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::DetailDSPrior(TObject *Sender)
{
DetailNo--;
while ((DetailNo > 0) && (Detail[DetailNo][0] != Master[MasterNo][0]))
DetailNo--;
}
//---------------------------------------------------------------------------

View File

@ -0,0 +1,40 @@
//---------------------------------------------------------------------------
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include "frxClass.hpp"
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
TfrxReport *frxReport1;
TfrxUserDataSet *MasterDS;
TfrxUserDataSet *DetailDS;
TButton *Print;
void __fastcall PrintClick(TObject *Sender);
void __fastcall MasterDSFirst(TObject *Sender);
void __fastcall MasterDSNext(TObject *Sender);
void __fastcall MasterDSCheckEOF(TObject *Sender, bool &Eof);
void __fastcall MasterDSGetValue(const AnsiString VarName,
Variant &Value);
void __fastcall MasterDSPrior(TObject *Sender);
void __fastcall DetailDSCheckEOF(TObject *Sender, bool &Eof);
void __fastcall DetailDSFirst(TObject *Sender);
void __fastcall DetailDSGetValue(const AnsiString VarName,
Variant &Value);
void __fastcall DetailDSNext(TObject *Sender);
void __fastcall DetailDSPrior(TObject *Sender);
private: // User declarations
int MasterNo;
int DetailNo;
public: // User declarations
__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

View File

@ -0,0 +1,210 @@
# ---------------------------------------------------------------------------
!if !$d(BCB)
BCB = $(MAKEDIR)\..
!endif
# ---------------------------------------------------------------------------
# IDE SECTION
# ---------------------------------------------------------------------------
# The following section of the project makefile is managed by the BCB IDE.
# It is recommended to use the IDE to change any of the values in this
# section.
# ---------------------------------------------------------------------------
VERSION = BCB.04.04
# ---------------------------------------------------------------------------
PROJECT = Project1.exe
OBJFILES = Project1.obj Unit1.obj
RESFILES = Project1.res
RESDEPEN = $(RESFILES) Unit1.dfm
LIBFILES =
IDLGENFILES =
IDLFILES =
LIBRARIES =
SPARELIBS = Vcl40.lib frx4.lib VCLX40.lib VCLJPG40.lib FS4.lib
PACKAGES = Vcl40.bpi Vclx40.bpi vcljpg40.bpi Vclmid40.bpi Vcldb40.bpi bcbsmp40.bpi \
ibsmp40.bpi vcldbx40.bpi Qrpt40.bpi TeeUI40.bpi teedb40.bpi tee40.bpi Dss40.bpi \
NMFast40.bpi Inetdb40.bpi Inet40.bpi dclocx40.bpi frx4.bpi fs4.bpi frxe4.bpi \
frxDB4.bpi fsDB4.bpi
DEFFILE =
# ---------------------------------------------------------------------------
PATHCPP = .;
PATHASM = .;
PATHPAS = .;
PATHRC = .;
DEBUGLIBPATH = $(BCB)\lib\debug
RELEASELIBPATH = $(BCB)\lib\release
USERDEFINES =
SYSDEFINES = _RTLDLL;NO_STRICT;USEPACKAGES
# ---------------------------------------------------------------------------
CFLAG1 = -I$(BCB)\include;$(BCB)\include\vcl;..\..\..\Source;..\..\..\LibBCB4;..\..\..\LibBCB5;..\..\..\LibBCB6 \
-Od -Hc -H=$(BCB)\lib\vcl40.csm -w -Ve -r- -a8 -k -y -v -vi- -c -b- -w-par \
-w-inl -Vx -tW -tWM -D$(SYSDEFINES);$(USERDEFINES)
IDLCFLAGS = -I$(BCB)\include -I$(BCB)\include\vcl -I..\..\..\Source -I..\..\..\LibBCB4 \
-I..\..\..\LibBCB5 -I..\..\..\LibBCB6 -src_suffixcpp
PFLAGS = -U$(BCB)\Projects\Lib;$(BCB)\lib\obj;$(BCB)\lib;..\..\..\Source;..\..\..\LibBCB4;..\..\..\LibBCB5;..\..\..\LibBCB6;$(RELEASELIBPATH) \
-I$(BCB)\include;$(BCB)\include\vcl;..\..\..\Source;..\..\..\LibBCB4;..\..\..\LibBCB5;..\..\..\LibBCB6 \
-$YD -$W -$O- -v -JPHNE -M
RFLAGS = -i$(BCB)\include;$(BCB)\include\vcl;..\..\..\Source;..\..\..\LibBCB4;..\..\..\LibBCB5;..\..\..\LibBCB6
AFLAGS = /i$(BCB)\include /i$(BCB)\include\vcl /i..\..\..\Source /i..\..\..\LibBCB4 \
/i..\..\..\LibBCB5 /i..\..\..\LibBCB6 /mx /w2 /zd
LFLAGS = -L$(BCB)\Projects\Lib;$(BCB)\lib\obj;$(BCB)\lib;..\..\..\Source;..\..\..\LibBCB4;..\..\..\LibBCB5;..\..\..\LibBCB6;$(RELEASELIBPATH) \
-aa -Tpe -x -Gn -v
# ---------------------------------------------------------------------------
ALLOBJ = c0w32.obj Memmgr.Lib $(PACKAGES) sysinit.obj $(OBJFILES)
ALLRES = $(RESFILES)
ALLLIB = $(LIBFILES) $(LIBRARIES) import32.lib cp32mti.lib
# ---------------------------------------------------------------------------
!ifdef IDEOPTIONS
[Version Info]
IncludeVerInfo=0
AutoIncBuild=0
MajorVer=1
MinorVer=0
Release=0
Build=0
Debug=0
PreRelease=0
Special=0
Private=0
DLL=0
Locale=1049
CodePage=1251
[Version Info Keys]
CompanyName=
FileDescription=
FileVersion=1.0.0.0
InternalName=
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=
ProductVersion=1.0.0.0
Comments=
[HistoryLists\hlIncludePath]
Count=2
Item0=$(BCB)\include;$(BCB)\include\vcl;..\..\..\Source;..\..\..\LibBCB4;..\..\..\LibBCB5;..\..\..\LibBCB6
Item1=..\..\..\..\Work\Fast Report\fr4\Demos\BCB Demos\PrintArray;..\..\..\..\Work\Fast Report\fr4\Source;$(BCB)\include;$(BCB)\include\vcl;C:\Work\Fast Report\fs\Source;C:\Work\Fast Report\fr4\Source
[HistoryLists\hlLibraryPath]
Count=2
Item0=$(BCB)\Projects\Lib;$(BCB)\lib\obj;$(BCB)\lib;..\..\..\Source;..\..\..\LibBCB4;..\..\..\LibBCB5;..\..\..\LibBCB6
Item1=..\..\..\..\Work\Fast Report\fr4\Demos\BCB Demos\PrintArray;$(BCB)\Projects\Lib;..\..\..\..\Work\Fast Report\fr4\Source;$(BCB)\lib\obj;$(BCB)\lib;C:\Work\Fast Report\fs\Source;C:\Work\Fast Report\fr4\Source
[HistoryLists\hlDebugSourcePath]
Count=1
Item0=$(BCB)\source\vcl
[Debugging]
DebugSourceDirs=$(BCB)\source\vcl
[Parameters]
RunParams=
HostApplication=
RemoteHost=
RemotePath=
RemoteDebug=0
[Compiler]
InMemoryExe=0
ShowInfoMsgs=0
[CORBA]
AddServerUnit=1
AddClientUnit=1
PrecompiledHeaders=1
!endif
# ---------------------------------------------------------------------------
# MAKE SECTION
# ---------------------------------------------------------------------------
# This section of the project file is not used by the BCB IDE. It is for
# the benefit of building from the command-line using the MAKE utility.
# ---------------------------------------------------------------------------
.autodepend
# ---------------------------------------------------------------------------
!if !$d(BCC32)
BCC32 = bcc32
!endif
!if !$d(CPP32)
CPP32 = cpp32
!endif
!if !$d(DCC32)
DCC32 = dcc32
!endif
!if !$d(TASM32)
TASM32 = tasm32
!endif
!if !$d(LINKER)
LINKER = ilink32
!endif
!if !$d(BRCC32)
BRCC32 = brcc32
!endif
!if !$d(IDL2CPP)
IDL2CPP = idl2cpp
!endif
# ---------------------------------------------------------------------------
!if $d(PATHCPP)
.PATH.CPP = $(PATHCPP)
.PATH.C = $(PATHCPP)
!endif
!if $d(PATHPAS)
.PATH.PAS = $(PATHPAS)
!endif
!if $d(PATHASM)
.PATH.ASM = $(PATHASM)
!endif
!if $d(PATHRC)
.PATH.RC = $(PATHRC)
!endif
# ---------------------------------------------------------------------------
$(PROJECT): $(IDLGENFILES) $(OBJFILES) $(RESDEPEN) $(DEFFILE)
$(BCB)\BIN\$(LINKER) @&&!
$(LFLAGS) +
$(ALLOBJ), +
$(PROJECT),, +
$(ALLLIB), +
$(DEFFILE), +
$(ALLRES)
!
# ---------------------------------------------------------------------------
.pas.hpp:
$(BCB)\BIN\$(DCC32) $(PFLAGS) {$< }
.pas.obj:
$(BCB)\BIN\$(DCC32) $(PFLAGS) {$< }
.cpp.obj:
$(BCB)\BIN\$(BCC32) $(CFLAG1) -n$(@D) {$< }
.c.obj:
$(BCB)\BIN\$(BCC32) $(CFLAG1) -n$(@D) {$< }
.c.i:
$(BCB)\BIN\$(CPP32) $(CFLAG1) -n. {$< }
.cpp.i:
$(BCB)\BIN\$(CPP32) $(CFLAG1) -n. {$< }
.asm.obj:
$(BCB)\BIN\$(TASM32) $(AFLAGS) $<, $@
.rc.res:
$(BCB)\BIN\$(BRCC32) $(RFLAGS) -fo$@ $<
# ---------------------------------------------------------------------------

View File

@ -0,0 +1,21 @@
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
USERES("Project1.res");
USEFORM("Unit1.cpp", Form1);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Application->Initialize();
Application->CreateForm(__classid(TForm1), &Form1);
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
return 0;
}
//---------------------------------------------------------------------------

View File

@ -0,0 +1,33 @@
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "frxClass"
#pragma resource "*.dfm"
TForm1 *Form1;
int ar[10] = {0,1,2,3,4,5,6,7,8,9};
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
ArrayDS->RangeEnd = reCount;
ArrayDS->RangeEndCount = 10;
frxReport1->ShowReport(true);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::frxReport1GetValue(const AnsiString VarName,
Variant &Value)
{
if(CompareText(VarName, "element") == 0)
Value = ar[ArrayDS->RecNo];
}
//---------------------------------------------------------------------------

Binary file not shown.

View File

@ -0,0 +1,27 @@
//---------------------------------------------------------------------------
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include "frxClass.hpp"
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
TButton *Button1;
TfrxReport *frxReport1;
TfrxUserDataSet *ArrayDS;
void __fastcall Button1Click(TObject *Sender);
void __fastcall frxReport1GetValue(const AnsiString VarName,
Variant &Value);
private: // User declarations
public: // User declarations
__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

View File

@ -0,0 +1,210 @@
# ---------------------------------------------------------------------------
!if !$d(BCB)
BCB = $(MAKEDIR)\..
!endif
# ---------------------------------------------------------------------------
# IDE SECTION
# ---------------------------------------------------------------------------
# The following section of the project makefile is managed by the BCB IDE.
# It is recommended to use the IDE to change any of the values in this
# section.
# ---------------------------------------------------------------------------
VERSION = BCB.04.04
# ---------------------------------------------------------------------------
PROJECT = Project1.exe
OBJFILES = Project1.obj Unit1.obj
RESFILES = Project1.res
RESDEPEN = $(RESFILES) Unit1.dfm
LIBFILES =
IDLGENFILES =
IDLFILES =
LIBRARIES =
SPARELIBS = Vcl40.lib frx4.lib VCLX40.lib VCLJPG40.lib FS4.lib
PACKAGES = Vcl40.bpi Vclx40.bpi vcljpg40.bpi Vclmid40.bpi Vcldb40.bpi bcbsmp40.bpi \
ibsmp40.bpi vcldbx40.bpi Qrpt40.bpi TeeUI40.bpi teedb40.bpi tee40.bpi Dss40.bpi \
NMFast40.bpi Inetdb40.bpi Inet40.bpi dclocx40.bpi frx4.bpi fs4.bpi frxe4.bpi \
frxDB4.bpi fsDB4.bpi
DEFFILE =
# ---------------------------------------------------------------------------
PATHCPP = .;
PATHASM = .;
PATHPAS = .;
PATHRC = .;
DEBUGLIBPATH = $(BCB)\lib\debug
RELEASELIBPATH = $(BCB)\lib\release
USERDEFINES =
SYSDEFINES = _RTLDLL;NO_STRICT;USEPACKAGES
# ---------------------------------------------------------------------------
CFLAG1 = -I..\..\..\Source;$(BCB)\include;$(BCB)\include\vcl;..\..\..\LibBCB4;..\..\..\LibBCB5;..\..\..\LibBCB6 \
-Od -Hc -H=$(BCB)\lib\vcl40.csm -w -Ve -r- -a8 -k -y -v -vi- -c -b- -w-par \
-w-inl -Vx -tW -tWM -D$(SYSDEFINES);$(USERDEFINES)
IDLCFLAGS = -I..\..\..\Source -I$(BCB)\include -I$(BCB)\include\vcl -I..\..\..\LibBCB4 \
-I..\..\..\LibBCB5 -I..\..\..\LibBCB6 -src_suffixcpp
PFLAGS = -U$(BCB)\Projects\Lib;..\..\..\Source;$(BCB)\lib\obj;$(BCB)\lib;..\..\..\LibBCB4;..\..\..\LibBCB5;..\..\..\LibBCB6;$(RELEASELIBPATH) \
-I..\..\..\Source;$(BCB)\include;$(BCB)\include\vcl;..\..\..\LibBCB4;..\..\..\LibBCB5;..\..\..\LibBCB6 \
-$YD -$W -$O- -v -JPHNE -M
RFLAGS = -i..\..\..\Source;$(BCB)\include;$(BCB)\include\vcl;..\..\..\LibBCB4;..\..\..\LibBCB5;..\..\..\LibBCB6
AFLAGS = /i..\..\..\Source /i$(BCB)\include /i$(BCB)\include\vcl /i..\..\..\LibBCB4 \
/i..\..\..\LibBCB5 /i..\..\..\LibBCB6 /mx /w2 /zd
LFLAGS = -L$(BCB)\Projects\Lib;..\..\..\Source;$(BCB)\lib\obj;$(BCB)\lib;..\..\..\LibBCB4;..\..\..\LibBCB5;..\..\..\LibBCB6;$(RELEASELIBPATH) \
-aa -Tpe -x -Gn -v
# ---------------------------------------------------------------------------
ALLOBJ = c0w32.obj Memmgr.Lib $(PACKAGES) sysinit.obj $(OBJFILES)
ALLRES = $(RESFILES)
ALLLIB = $(LIBFILES) $(LIBRARIES) import32.lib cp32mti.lib
# ---------------------------------------------------------------------------
!ifdef IDEOPTIONS
[Version Info]
IncludeVerInfo=0
AutoIncBuild=0
MajorVer=1
MinorVer=0
Release=0
Build=0
Debug=0
PreRelease=0
Special=0
Private=0
DLL=0
Locale=1049
CodePage=1251
[Version Info Keys]
CompanyName=
FileDescription=
FileVersion=1.0.0.0
InternalName=
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=
ProductVersion=1.0.0.0
Comments=
[HistoryLists\hlIncludePath]
Count=2
Item0=..\..\..\Source;$(BCB)\include;$(BCB)\include\vcl;..\..\..\LibBCB4;..\..\..\LibBCB5;..\..\..\LibBCB6
Item1=..\..\..\..\Work\Fast Report\fr4\Demos\BCB Demos\PrintFile;C:\Work\Fast Report\fr4\Source;$(BCB)\include;$(BCB)\include\vcl;C:\Work\Fast Report\fs\Source
[HistoryLists\hlLibraryPath]
Count=2
Item0=$(BCB)\Projects\Lib;..\..\..\Source;$(BCB)\lib\obj;$(BCB)\lib;..\..\..\LibBCB4;..\..\..\LibBCB5;..\..\..\LibBCB6
Item1=..\..\..\..\Work\Fast Report\fr4\Demos\BCB Demos\PrintFile;$(BCB)\Projects\Lib;C:\Work\Fast Report\fr4\Source;$(BCB)\lib\obj;$(BCB)\lib;C:\Work\Fast Report\fs\Source
[HistoryLists\hlDebugSourcePath]
Count=1
Item0=$(BCB)\source\vcl
[Debugging]
DebugSourceDirs=$(BCB)\source\vcl
[Parameters]
RunParams=
HostApplication=
RemoteHost=
RemotePath=
RemoteDebug=0
[Compiler]
InMemoryExe=0
ShowInfoMsgs=0
[CORBA]
AddServerUnit=1
AddClientUnit=1
PrecompiledHeaders=1
!endif
# ---------------------------------------------------------------------------
# MAKE SECTION
# ---------------------------------------------------------------------------
# This section of the project file is not used by the BCB IDE. It is for
# the benefit of building from the command-line using the MAKE utility.
# ---------------------------------------------------------------------------
.autodepend
# ---------------------------------------------------------------------------
!if !$d(BCC32)
BCC32 = bcc32
!endif
!if !$d(CPP32)
CPP32 = cpp32
!endif
!if !$d(DCC32)
DCC32 = dcc32
!endif
!if !$d(TASM32)
TASM32 = tasm32
!endif
!if !$d(LINKER)
LINKER = ilink32
!endif
!if !$d(BRCC32)
BRCC32 = brcc32
!endif
!if !$d(IDL2CPP)
IDL2CPP = idl2cpp
!endif
# ---------------------------------------------------------------------------
!if $d(PATHCPP)
.PATH.CPP = $(PATHCPP)
.PATH.C = $(PATHCPP)
!endif
!if $d(PATHPAS)
.PATH.PAS = $(PATHPAS)
!endif
!if $d(PATHASM)
.PATH.ASM = $(PATHASM)
!endif
!if $d(PATHRC)
.PATH.RC = $(PATHRC)
!endif
# ---------------------------------------------------------------------------
$(PROJECT): $(IDLGENFILES) $(OBJFILES) $(RESDEPEN) $(DEFFILE)
$(BCB)\BIN\$(LINKER) @&&!
$(LFLAGS) +
$(ALLOBJ), +
$(PROJECT),, +
$(ALLLIB), +
$(DEFFILE), +
$(ALLRES)
!
# ---------------------------------------------------------------------------
.pas.hpp:
$(BCB)\BIN\$(DCC32) $(PFLAGS) {$< }
.pas.obj:
$(BCB)\BIN\$(DCC32) $(PFLAGS) {$< }
.cpp.obj:
$(BCB)\BIN\$(BCC32) $(CFLAG1) -n$(@D) {$< }
.c.obj:
$(BCB)\BIN\$(BCC32) $(CFLAG1) -n$(@D) {$< }
.c.i:
$(BCB)\BIN\$(CPP32) $(CFLAG1) -n. {$< }
.cpp.i:
$(BCB)\BIN\$(CPP32) $(CFLAG1) -n. {$< }
.asm.obj:
$(BCB)\BIN\$(TASM32) $(AFLAGS) $<, $@
.rc.res:
$(BCB)\BIN\$(BRCC32) $(RFLAGS) -fo$@ $<
# ---------------------------------------------------------------------------

View File

@ -0,0 +1,21 @@
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
USERES("Project1.res");
USEFORM("Unit1.cpp", Form1);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Application->Initialize();
Application->CreateForm(__classid(TForm1), &Form1);
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
return 0;
}
//---------------------------------------------------------------------------

Binary file not shown.

View File

@ -0,0 +1,35 @@
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "frxClass"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::frxReport1GetValue(const AnsiString VarName,
Variant &Value)
{
if(CompareText(VarName, "file") == 0)
{
TStringList * sl = new TStringList;
sl->LoadFromFile("Unit1.cpp");
Value = sl->Text;
delete sl;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
frxReport1->ShowReport(true);
}
//---------------------------------------------------------------------------

Binary file not shown.

View File

@ -0,0 +1,26 @@
//---------------------------------------------------------------------------
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include "frxClass.hpp"
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
TButton *Button1;
TfrxReport *frxReport1;
void __fastcall frxReport1GetValue(const AnsiString VarName,
Variant &Value);
void __fastcall Button1Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

View File

@ -0,0 +1,210 @@
# ---------------------------------------------------------------------------
!if !$d(BCB)
BCB = $(MAKEDIR)\..
!endif
# ---------------------------------------------------------------------------
# IDE SECTION
# ---------------------------------------------------------------------------
# The following section of the project makefile is managed by the BCB IDE.
# It is recommended to use the IDE to change any of the values in this
# section.
# ---------------------------------------------------------------------------
VERSION = BCB.04.04
# ---------------------------------------------------------------------------
PROJECT = Project1.exe
OBJFILES = Project1.obj Unit1.obj
RESFILES = Project1.res
RESDEPEN = $(RESFILES) Unit1.dfm
LIBFILES =
IDLGENFILES =
IDLFILES =
LIBRARIES =
SPARELIBS = Vcl40.lib frx4.lib VCLX40.lib VCLJPG40.lib FS4.lib
PACKAGES = Vcl40.bpi Vclx40.bpi vcljpg40.bpi Vclmid40.bpi Vcldb40.bpi bcbsmp40.bpi \
ibsmp40.bpi vcldbx40.bpi Qrpt40.bpi TeeUI40.bpi teedb40.bpi tee40.bpi Dss40.bpi \
NMFast40.bpi Inetdb40.bpi Inet40.bpi dclocx40.bpi frx4.bpi fs4.bpi frxe4.bpi \
frxDB4.bpi fsDB4.bpi
DEFFILE =
# ---------------------------------------------------------------------------
PATHCPP = .;
PATHASM = .;
PATHPAS = .;
PATHRC = .;
DEBUGLIBPATH = $(BCB)\lib\debug
RELEASELIBPATH = $(BCB)\lib\release
USERDEFINES =
SYSDEFINES = _RTLDLL;NO_STRICT;USEPACKAGES
# ---------------------------------------------------------------------------
CFLAG1 = -I..\..\..\Source;$(BCB)\include;$(BCB)\include\vcl;..\..\..\LibBCB4;..\..\..\LibBCB5;..\..\..\LibBCB6 \
-Od -Hc -H=$(BCB)\lib\vcl40.csm -w -Ve -r- -a8 -k -y -v -vi- -c -b- -w-par \
-w-inl -Vx -tW -tWM -D$(SYSDEFINES);$(USERDEFINES)
IDLCFLAGS = -I..\..\..\Source -I$(BCB)\include -I$(BCB)\include\vcl -I..\..\..\LibBCB4 \
-I..\..\..\LibBCB5 -I..\..\..\LibBCB6 -src_suffixcpp
PFLAGS = -U..\..\..\Source;$(BCB)\Projects\Lib;$(BCB)\lib\obj;$(BCB)\lib;..\..\..\LibBCB4;..\..\..\LibBCB5;..\..\..\LibBCB6;$(RELEASELIBPATH) \
-I..\..\..\Source;$(BCB)\include;$(BCB)\include\vcl;..\..\..\LibBCB4;..\..\..\LibBCB5;..\..\..\LibBCB6 \
-$YD -$W -$O- -v -JPHNE -M
RFLAGS = -i..\..\..\Source;$(BCB)\include;$(BCB)\include\vcl;..\..\..\LibBCB4;..\..\..\LibBCB5;..\..\..\LibBCB6
AFLAGS = /i..\..\..\Source /i$(BCB)\include /i$(BCB)\include\vcl /i..\..\..\LibBCB4 \
/i..\..\..\LibBCB5 /i..\..\..\LibBCB6 /mx /w2 /zd
LFLAGS = -L..\..\..\Source;$(BCB)\Projects\Lib;$(BCB)\lib\obj;$(BCB)\lib;..\..\..\LibBCB4;..\..\..\LibBCB5;..\..\..\LibBCB6;$(RELEASELIBPATH) \
-aa -Tpe -x -Gn -v
# ---------------------------------------------------------------------------
ALLOBJ = c0w32.obj Memmgr.Lib $(PACKAGES) sysinit.obj $(OBJFILES)
ALLRES = $(RESFILES)
ALLLIB = $(LIBFILES) $(LIBRARIES) import32.lib cp32mti.lib
# ---------------------------------------------------------------------------
!ifdef IDEOPTIONS
[Version Info]
IncludeVerInfo=0
AutoIncBuild=0
MajorVer=1
MinorVer=0
Release=0
Build=0
Debug=0
PreRelease=0
Special=0
Private=0
DLL=0
Locale=1049
CodePage=1251
[Version Info Keys]
CompanyName=
FileDescription=
FileVersion=1.0.0.0
InternalName=
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=
ProductVersion=1.0.0.0
Comments=
[HistoryLists\hlIncludePath]
Count=2
Item0=..\..\..\Source;$(BCB)\include;$(BCB)\include\vcl;..\..\..\LibBCB4;..\..\..\LibBCB5;..\..\..\LibBCB6
Item1=..\..\..\Source;..\..\..\..\Work\Fast Report\fr4\Demos\BCB Demos\PrintStringGrid;$(BCB)\include;$(BCB)\include\vcl;C:\Work\Fast Report\fr4\Source;C:\Work\Fast Report\fs\Source
[HistoryLists\hlLibraryPath]
Count=2
Item0=..\..\..\Source;$(BCB)\Projects\Lib;$(BCB)\lib\obj;$(BCB)\lib;..\..\..\LibBCB4;..\..\..\LibBCB5;..\..\..\LibBCB6
Item1=..\..\..\Source;..\..\..\..\Work\Fast Report\fr4\Demos\BCB Demos\PrintStringGrid;$(BCB)\Projects\Lib;$(BCB)\lib\obj;$(BCB)\lib;C:\Work\Fast Report\fr4\Source;C:\Work\Fast Report\fs\Source
[HistoryLists\hlDebugSourcePath]
Count=1
Item0=$(BCB)\source\vcl
[Debugging]
DebugSourceDirs=$(BCB)\source\vcl
[Parameters]
RunParams=
HostApplication=
RemoteHost=
RemotePath=
RemoteDebug=0
[Compiler]
InMemoryExe=0
ShowInfoMsgs=0
[CORBA]
AddServerUnit=1
AddClientUnit=1
PrecompiledHeaders=1
!endif
# ---------------------------------------------------------------------------
# MAKE SECTION
# ---------------------------------------------------------------------------
# This section of the project file is not used by the BCB IDE. It is for
# the benefit of building from the command-line using the MAKE utility.
# ---------------------------------------------------------------------------
.autodepend
# ---------------------------------------------------------------------------
!if !$d(BCC32)
BCC32 = bcc32
!endif
!if !$d(CPP32)
CPP32 = cpp32
!endif
!if !$d(DCC32)
DCC32 = dcc32
!endif
!if !$d(TASM32)
TASM32 = tasm32
!endif
!if !$d(LINKER)
LINKER = ilink32
!endif
!if !$d(BRCC32)
BRCC32 = brcc32
!endif
!if !$d(IDL2CPP)
IDL2CPP = idl2cpp
!endif
# ---------------------------------------------------------------------------
!if $d(PATHCPP)
.PATH.CPP = $(PATHCPP)
.PATH.C = $(PATHCPP)
!endif
!if $d(PATHPAS)
.PATH.PAS = $(PATHPAS)
!endif
!if $d(PATHASM)
.PATH.ASM = $(PATHASM)
!endif
!if $d(PATHRC)
.PATH.RC = $(PATHRC)
!endif
# ---------------------------------------------------------------------------
$(PROJECT): $(IDLGENFILES) $(OBJFILES) $(RESDEPEN) $(DEFFILE)
$(BCB)\BIN\$(LINKER) @&&!
$(LFLAGS) +
$(ALLOBJ), +
$(PROJECT),, +
$(ALLLIB), +
$(DEFFILE), +
$(ALLRES)
!
# ---------------------------------------------------------------------------
.pas.hpp:
$(BCB)\BIN\$(DCC32) $(PFLAGS) {$< }
.pas.obj:
$(BCB)\BIN\$(DCC32) $(PFLAGS) {$< }
.cpp.obj:
$(BCB)\BIN\$(BCC32) $(CFLAG1) -n$(@D) {$< }
.c.obj:
$(BCB)\BIN\$(BCC32) $(CFLAG1) -n$(@D) {$< }
.c.i:
$(BCB)\BIN\$(CPP32) $(CFLAG1) -n. {$< }
.cpp.i:
$(BCB)\BIN\$(CPP32) $(CFLAG1) -n. {$< }
.asm.obj:
$(BCB)\BIN\$(TASM32) $(AFLAGS) $<, $@
.rc.res:
$(BCB)\BIN\$(BRCC32) $(RFLAGS) -fo$@ $<
# ---------------------------------------------------------------------------

View File

@ -0,0 +1,21 @@
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
USERES("Project1.res");
USEFORM("Unit1.cpp", Form1);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Application->Initialize();
Application->CreateForm(__classid(TForm1), &Form1);
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
return 0;
}
//---------------------------------------------------------------------------

View File

@ -0,0 +1,53 @@
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "frxClass"
#pragma link "frxCross"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
int idx1,idx2;
for(idx1 = 1; idx1 < 17; idx1++)
for(idx2 = 1; idx2 < 17; idx2++)
StringGrid1->Cells[idx1 - 1][idx2 - 1] = IntToStr(idx1 * idx2);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::frxReport1BeforePrint(TfrxReportComponent *Sender)
{
TfrxCrossView * Cross = NULL;
int idx1,idx2;
Variant Row,Col,Text;
if(strcmp(Sender->Name.c_str(),"Cross1\0") == 0)
if(Cross = dynamic_cast <TfrxCrossView *> (Sender))
{
for(idx1 = 0; idx1 < StringGrid1->RowCount; idx1++)
for(idx2 = 0; idx2 < StringGrid1->ColCount; idx2++)
{
Row = idx1;
Col = idx2;
Text = StringGrid1->Cells[idx1][idx2];
Cross->AddValue(&Row,1,&Col,1,&Text,1);
}
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
frxReport1->ShowReport(true);
}
//---------------------------------------------------------------------------

View File

@ -0,0 +1,30 @@
//---------------------------------------------------------------------------
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Grids.hpp>
#include "frxClass.hpp"
#include "frxCross.hpp"
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
TButton *Button1;
TStringGrid *StringGrid1;
TfrxReport *frxReport1;
TfrxCrossObject *frxCrossObject1;
void __fastcall FormCreate(TObject *Sender);
void __fastcall frxReport1BeforePrint(TfrxReportComponent *Sender);
void __fastcall Button1Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

View File

@ -0,0 +1,214 @@
# ---------------------------------------------------------------------------
!if !$d(BCB)
BCB = $(MAKEDIR)\..
!endif
# ---------------------------------------------------------------------------
# IDE SECTION
# ---------------------------------------------------------------------------
# The following section of the project makefile is managed by the BCB IDE.
# It is recommended to use the IDE to change any of the values in this
# section.
# ---------------------------------------------------------------------------
VERSION = BCB.04.04
# ---------------------------------------------------------------------------
PROJECT = Project1.exe
OBJFILES = Project1.obj Unit1.obj
RESFILES = Project1.res
RESDEPEN = $(RESFILES) Unit1.dfm
LIBFILES =
IDLGENFILES =
IDLFILES =
LIBRARIES =
SPARELIBS = Vcl40.lib frx4.lib VCLX40.lib VCLJPG40.lib FS4.lib
PACKAGES = Vcl40.bpi Vclx40.bpi vcljpg40.bpi Vclmid40.bpi Vcldb40.bpi bcbsmp40.bpi \
ibsmp40.bpi vcldbx40.bpi Qrpt40.bpi TeeUI40.bpi teedb40.bpi tee40.bpi Dss40.bpi \
NMFast40.bpi Inetdb40.bpi Inet40.bpi dclocx40.bpi frx4.bpi fs4.bpi frxe4.bpi \
frxDB4.bpi fsDB4.bpi
DEFFILE =
# ---------------------------------------------------------------------------
PATHCPP = .;
PATHASM = .;
PATHPAS = .;
PATHRC = .;
DEBUGLIBPATH = $(BCB)\lib\debug
RELEASELIBPATH = $(BCB)\lib\release
USERDEFINES =
SYSDEFINES = _RTLDLL;NO_STRICT;USEPACKAGES
# ---------------------------------------------------------------------------
CFLAG1 = -I..\..\..\Source;$(BCB)\include;$(BCB)\include\vcl;..\..\..\LibBCB4;..\..\..\LibBCB5;..\..\..\LibBCB6 \
-Od -Hc -H=$(BCB)\lib\vcl40.csm -w -Ve -r- -a8 -k -y -v -vi- -c -b- -w-par \
-w-inl -Vx -tW -tWM -D$(SYSDEFINES);$(USERDEFINES)
IDLCFLAGS = -I..\..\..\Source -I$(BCB)\include -I$(BCB)\include\vcl -I..\..\..\LibBCB4 \
-I..\..\..\LibBCB5 -I..\..\..\LibBCB6 -src_suffixcpp
PFLAGS = -U$(BCB)\Projects\Lib;..\..\..\Source;$(BCB)\lib\obj;$(BCB)\lib;..\..\..\LibBCB4;..\..\..\LibBCB5;..\..\..\LibBCB6;$(RELEASELIBPATH) \
-I..\..\..\Source;$(BCB)\include;$(BCB)\include\vcl;..\..\..\LibBCB4;..\..\..\LibBCB5;..\..\..\LibBCB6 \
-$YD -$W -$O- -v -JPHNE -M
RFLAGS = -i..\..\..\Source;$(BCB)\include;$(BCB)\include\vcl;..\..\..\LibBCB4;..\..\..\LibBCB5;..\..\..\LibBCB6
AFLAGS = /i..\..\..\Source /i$(BCB)\include /i$(BCB)\include\vcl /i..\..\..\LibBCB4 \
/i..\..\..\LibBCB5 /i..\..\..\LibBCB6 /mx /w2 /zd
LFLAGS = -L$(BCB)\Projects\Lib;..\..\..\Source;$(BCB)\lib\obj;$(BCB)\lib;..\..\..\LibBCB4;..\..\..\LibBCB5;..\..\..\LibBCB6;$(RELEASELIBPATH) \
-aa -Tpe -x -Gn -v
# ---------------------------------------------------------------------------
ALLOBJ = c0w32.obj Memmgr.Lib $(PACKAGES) sysinit.obj $(OBJFILES)
ALLRES = $(RESFILES)
ALLLIB = $(LIBFILES) $(LIBRARIES) import32.lib cp32mti.lib
# ---------------------------------------------------------------------------
!ifdef IDEOPTIONS
[Version Info]
IncludeVerInfo=0
AutoIncBuild=0
MajorVer=1
MinorVer=0
Release=0
Build=0
Debug=0
PreRelease=0
Special=0
Private=0
DLL=0
Locale=1049
CodePage=1251
[Version Info Keys]
CompanyName=
FileDescription=
FileVersion=1.0.0.0
InternalName=
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=
ProductVersion=1.0.0.0
Comments=
[HistoryLists\hlIncludePath]
Count=4
Item0=..\..\..\Source;$(BCB)\include;$(BCB)\include\vcl;..\..\..\LibBCB4;..\..\..\LibBCB5;..\..\..\LibBCB6
Item1=..\..\..\..\Work\Fast Report\fr4\Demos\BCB Demos\PrintStringList;C:\Work\Fast Report\fr4\Source;$(BCB)\include;$(BCB)\include\vcl;..\..\..\..\Work\Fast Report\fs\Source;..\..\..\Source;C:\Work\Fast Report\fs\Source
Item2=..\..\..\..\Work\Fast Report\fr4\Demos\BCB Demos\PrintStringList;..\..\..\..\Work\Fast Report\fr4\Source;$(BCB)\include;$(BCB)\include\vcl;..\..\..\..\Work\Fast Report\fs\Source;C:\Work\Fast Report\fr4\Source
Item3=..\..\..\..\Work\Fast Report\fr4\Source;$(BCB)\include;$(BCB)\include\vcl;C:\Work\Fast Report\fs\Source
[HistoryLists\hlLibraryPath]
Count=4
Item0=$(BCB)\Projects\Lib;..\..\..\Source;$(BCB)\lib\obj;$(BCB)\lib;..\..\..\LibBCB4;..\..\..\LibBCB5;..\..\..\LibBCB6
Item1=..\..\..\..\Work\Fast Report\fr4\Demos\BCB Demos\PrintStringList;$(BCB)\Projects\Lib;C:\Work\Fast Report\fr4\Source;$(BCB)\lib\obj;$(BCB)\lib;..\..\..\..\Work\Fast Report\fs\Source;C:\Work\Fast Report\fs\Source
Item2=..\..\..\..\Work\Fast Report\fr4\Demos\BCB Demos\PrintStringList;$(BCB)\Projects\Lib;..\..\..\..\Work\Fast Report\fr4\Source;$(BCB)\lib\obj;$(BCB)\lib;..\..\..\..\Work\Fast Report\fs\Source
Item3=$(BCB)\Projects\Lib;..\..\..\..\Work\Fast Report\fr4\Source;$(BCB)\lib\obj;$(BCB)\lib;C:\Work\Fast Report\fs\Source
[HistoryLists\hlDebugSourcePath]
Count=1
Item0=$(BCB)\source\vcl
[Debugging]
DebugSourceDirs=$(BCB)\source\vcl
[Parameters]
RunParams=
HostApplication=
RemoteHost=
RemotePath=
RemoteDebug=0
[Compiler]
InMemoryExe=0
ShowInfoMsgs=0
[CORBA]
AddServerUnit=1
AddClientUnit=1
PrecompiledHeaders=1
!endif
# ---------------------------------------------------------------------------
# MAKE SECTION
# ---------------------------------------------------------------------------
# This section of the project file is not used by the BCB IDE. It is for
# the benefit of building from the command-line using the MAKE utility.
# ---------------------------------------------------------------------------
.autodepend
# ---------------------------------------------------------------------------
!if !$d(BCC32)
BCC32 = bcc32
!endif
!if !$d(CPP32)
CPP32 = cpp32
!endif
!if !$d(DCC32)
DCC32 = dcc32
!endif
!if !$d(TASM32)
TASM32 = tasm32
!endif
!if !$d(LINKER)
LINKER = ilink32
!endif
!if !$d(BRCC32)
BRCC32 = brcc32
!endif
!if !$d(IDL2CPP)
IDL2CPP = idl2cpp
!endif
# ---------------------------------------------------------------------------
!if $d(PATHCPP)
.PATH.CPP = $(PATHCPP)
.PATH.C = $(PATHCPP)
!endif
!if $d(PATHPAS)
.PATH.PAS = $(PATHPAS)
!endif
!if $d(PATHASM)
.PATH.ASM = $(PATHASM)
!endif
!if $d(PATHRC)
.PATH.RC = $(PATHRC)
!endif
# ---------------------------------------------------------------------------
$(PROJECT): $(IDLGENFILES) $(OBJFILES) $(RESDEPEN) $(DEFFILE)
$(BCB)\BIN\$(LINKER) @&&!
$(LFLAGS) +
$(ALLOBJ), +
$(PROJECT),, +
$(ALLLIB), +
$(DEFFILE), +
$(ALLRES)
!
# ---------------------------------------------------------------------------
.pas.hpp:
$(BCB)\BIN\$(DCC32) $(PFLAGS) {$< }
.pas.obj:
$(BCB)\BIN\$(DCC32) $(PFLAGS) {$< }
.cpp.obj:
$(BCB)\BIN\$(BCC32) $(CFLAG1) -n$(@D) {$< }
.c.obj:
$(BCB)\BIN\$(BCC32) $(CFLAG1) -n$(@D) {$< }
.c.i:
$(BCB)\BIN\$(CPP32) $(CFLAG1) -n. {$< }
.cpp.i:
$(BCB)\BIN\$(CPP32) $(CFLAG1) -n. {$< }
.asm.obj:
$(BCB)\BIN\$(TASM32) $(AFLAGS) $<, $@
.rc.res:
$(BCB)\BIN\$(BRCC32) $(RFLAGS) -fo$@ $<
# ---------------------------------------------------------------------------

View File

@ -0,0 +1,21 @@
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
USERES("Project1.res");
USEFORM("Unit1.cpp", Form1);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Application->Initialize();
Application->CreateForm(__classid(TForm1), &Form1);
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
return 0;
}
//---------------------------------------------------------------------------

View File

@ -0,0 +1,38 @@
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "frxClass"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
sl = new TStringList;
for(int idx = 0; idx < 10; idx++, sl->Add(IntToStr(idx)));
}
//---------------------------------------------------------------------------
__fastcall TForm1::~TForm1()
{
delete sl;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
StringDS->RangeEnd = reCount;
StringDS->RangeEndCount = sl->Count;
frxReport1->ShowReport(true);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::frxReport1GetValue(const AnsiString VarName,
Variant &Value)
{
if(CompareText(VarName, "element") == 0)
Value = sl->Strings[StringDS->RecNo];
}
//---------------------------------------------------------------------------

View File

@ -0,0 +1,29 @@
//---------------------------------------------------------------------------
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include "frxClass.hpp"
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
TfrxReport *frxReport1;
TfrxUserDataSet *StringDS;
TButton *Button1;
void __fastcall Button1Click(TObject *Sender);
void __fastcall frxReport1GetValue(const AnsiString VarName,
Variant &Value);
private: // User declarations
TStringList * sl;
public: // User declarations
__fastcall TForm1(TComponent* Owner);
__fastcall ~TForm1();
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

View File

@ -0,0 +1,210 @@
# ---------------------------------------------------------------------------
!if !$d(BCB)
BCB = $(MAKEDIR)\..
!endif
# ---------------------------------------------------------------------------
# IDE SECTION
# ---------------------------------------------------------------------------
# The following section of the project makefile is managed by the BCB IDE.
# It is recommended to use the IDE to change any of the values in this
# section.
# ---------------------------------------------------------------------------
VERSION = BCB.04.04
# ---------------------------------------------------------------------------
PROJECT = Project1.exe
OBJFILES = Project1.obj Unit1.obj
RESFILES = Project1.res
RESDEPEN = $(RESFILES) Unit1.dfm
LIBFILES =
IDLGENFILES =
IDLFILES =
LIBRARIES =
SPARELIBS = Vcl40.lib Vcldb40.lib frx4.lib VCLX40.lib VCLJPG40.lib FS4.lib
PACKAGES = Vcl40.bpi Vclx40.bpi vcljpg40.bpi Vclmid40.bpi Vcldb40.bpi bcbsmp40.bpi \
ibsmp40.bpi vcldbx40.bpi Qrpt40.bpi TeeUI40.bpi teedb40.bpi tee40.bpi Dss40.bpi \
NMFast40.bpi Inetdb40.bpi Inet40.bpi dclocx40.bpi frx4.bpi fs4.bpi frxe4.bpi \
frxDB4.bpi fsDB4.bpi
DEFFILE =
# ---------------------------------------------------------------------------
PATHCPP = .;
PATHASM = .;
PATHPAS = .;
PATHRC = .;
DEBUGLIBPATH = $(BCB)\lib\debug
RELEASELIBPATH = $(BCB)\lib\release
USERDEFINES =
SYSDEFINES = _RTLDLL;NO_STRICT;USEPACKAGES
# ---------------------------------------------------------------------------
CFLAG1 = -I..\..\..\Source;$(BCB)\include;$(BCB)\include\vcl;..\..\..\LibBCB4;..\..\..\LibBCB5;..\..\..\LibBCB6 \
-Od -Hc -H=$(BCB)\lib\vcl40.csm -w -Ve -r- -a8 -k -y -v -vi- -c -b- -w-par \
-w-inl -Vx -tW -tWM -D$(SYSDEFINES);$(USERDEFINES)
IDLCFLAGS = -I..\..\..\Source -I$(BCB)\include -I$(BCB)\include\vcl -I..\..\..\LibBCB4 \
-I..\..\..\LibBCB5 -I..\..\..\LibBCB6 -src_suffixcpp
PFLAGS = -U$(BCB)\Projects\Lib;$(BCB)\lib\obj;$(BCB)\lib;..\..\..\Source;..\..\..\LibBCB4;..\..\..\LibBCB5;..\..\..\LibBCB6;$(RELEASELIBPATH) \
-I..\..\..\Source;$(BCB)\include;$(BCB)\include\vcl;..\..\..\LibBCB4;..\..\..\LibBCB5;..\..\..\LibBCB6 \
-$YD -$W -$O- -v -JPHNE -M
RFLAGS = -i..\..\..\Source;$(BCB)\include;$(BCB)\include\vcl;..\..\..\LibBCB4;..\..\..\LibBCB5;..\..\..\LibBCB6
AFLAGS = /i..\..\..\Source /i$(BCB)\include /i$(BCB)\include\vcl /i..\..\..\LibBCB4 \
/i..\..\..\LibBCB5 /i..\..\..\LibBCB6 /mx /w2 /zd
LFLAGS = -L$(BCB)\Projects\Lib;$(BCB)\lib\obj;$(BCB)\lib;..\..\..\Source;..\..\..\LibBCB4;..\..\..\LibBCB5;..\..\..\LibBCB6;$(RELEASELIBPATH) \
-aa -Tpe -x -Gn -v
# ---------------------------------------------------------------------------
ALLOBJ = c0w32.obj Memmgr.Lib $(PACKAGES) sysinit.obj $(OBJFILES)
ALLRES = $(RESFILES)
ALLLIB = $(LIBFILES) $(LIBRARIES) import32.lib cp32mti.lib
# ---------------------------------------------------------------------------
!ifdef IDEOPTIONS
[Version Info]
IncludeVerInfo=0
AutoIncBuild=0
MajorVer=1
MinorVer=0
Release=0
Build=0
Debug=0
PreRelease=0
Special=0
Private=0
DLL=0
Locale=1049
CodePage=1251
[Version Info Keys]
CompanyName=
FileDescription=
FileVersion=1.0.0.0
InternalName=
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=
ProductVersion=1.0.0.0
Comments=
[HistoryLists\hlIncludePath]
Count=2
Item0=..\..\..\Source;$(BCB)\include;$(BCB)\include\vcl;..\..\..\LibBCB4;..\..\..\LibBCB5;..\..\..\LibBCB6
Item1=..\..\..\..\Work\Fast Report\fr4\Demos\BCB Demos\PrintTable;C:\Work\Fast Report\fr4\Source;$(BCB)\include;$(BCB)\include\vcl;C:\Work\Fast Report\fs\Source
[HistoryLists\hlLibraryPath]
Count=2
Item0=$(BCB)\Projects\Lib;$(BCB)\lib\obj;$(BCB)\lib;..\..\..\Source;..\..\..\LibBCB4;..\..\..\LibBCB5;..\..\..\LibBCB6
Item1=..\..\..\..\Work\Fast Report\fr4\Demos\BCB Demos\PrintTable;$(BCB)\Projects\Lib;..\..\..\..\Work\Fast Report\fr4\Source;$(BCB)\lib\obj;$(BCB)\lib;C:\Work\Fast Report\fr4\Source;C:\Work\Fast Report\fs\Source
[HistoryLists\hlDebugSourcePath]
Count=1
Item0=$(BCB)\source\vcl
[Debugging]
DebugSourceDirs=$(BCB)\source\vcl
[Parameters]
RunParams=
HostApplication=
RemoteHost=
RemotePath=
RemoteDebug=0
[Compiler]
InMemoryExe=0
ShowInfoMsgs=0
[CORBA]
AddServerUnit=1
AddClientUnit=1
PrecompiledHeaders=1
!endif
# ---------------------------------------------------------------------------
# MAKE SECTION
# ---------------------------------------------------------------------------
# This section of the project file is not used by the BCB IDE. It is for
# the benefit of building from the command-line using the MAKE utility.
# ---------------------------------------------------------------------------
.autodepend
# ---------------------------------------------------------------------------
!if !$d(BCC32)
BCC32 = bcc32
!endif
!if !$d(CPP32)
CPP32 = cpp32
!endif
!if !$d(DCC32)
DCC32 = dcc32
!endif
!if !$d(TASM32)
TASM32 = tasm32
!endif
!if !$d(LINKER)
LINKER = ilink32
!endif
!if !$d(BRCC32)
BRCC32 = brcc32
!endif
!if !$d(IDL2CPP)
IDL2CPP = idl2cpp
!endif
# ---------------------------------------------------------------------------
!if $d(PATHCPP)
.PATH.CPP = $(PATHCPP)
.PATH.C = $(PATHCPP)
!endif
!if $d(PATHPAS)
.PATH.PAS = $(PATHPAS)
!endif
!if $d(PATHASM)
.PATH.ASM = $(PATHASM)
!endif
!if $d(PATHRC)
.PATH.RC = $(PATHRC)
!endif
# ---------------------------------------------------------------------------
$(PROJECT): $(IDLGENFILES) $(OBJFILES) $(RESDEPEN) $(DEFFILE)
$(BCB)\BIN\$(LINKER) @&&!
$(LFLAGS) +
$(ALLOBJ), +
$(PROJECT),, +
$(ALLLIB), +
$(DEFFILE), +
$(ALLRES)
!
# ---------------------------------------------------------------------------
.pas.hpp:
$(BCB)\BIN\$(DCC32) $(PFLAGS) {$< }
.pas.obj:
$(BCB)\BIN\$(DCC32) $(PFLAGS) {$< }
.cpp.obj:
$(BCB)\BIN\$(BCC32) $(CFLAG1) -n$(@D) {$< }
.c.obj:
$(BCB)\BIN\$(BCC32) $(CFLAG1) -n$(@D) {$< }
.c.i:
$(BCB)\BIN\$(CPP32) $(CFLAG1) -n. {$< }
.cpp.i:
$(BCB)\BIN\$(CPP32) $(CFLAG1) -n. {$< }
.asm.obj:
$(BCB)\BIN\$(TASM32) $(AFLAGS) $<, $@
.rc.res:
$(BCB)\BIN\$(BRCC32) $(RFLAGS) -fo$@ $<
# ---------------------------------------------------------------------------

View File

@ -0,0 +1,21 @@
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
USERES("Project1.res");
USEFORM("Unit1.cpp", Form1);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Application->Initialize();
Application->CreateForm(__classid(TForm1), &Form1);
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
return 0;
}
//---------------------------------------------------------------------------

View File

@ -0,0 +1,53 @@
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "frxClass"
#pragma link "frxCross"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
frxReport1->ShowReport(true);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::frxReport1BeforePrint(TfrxReportComponent *Sender)
{
TfrxCrossView * Cross;
int i, j;
Variant Row,Col,Text;
Cross = dynamic_cast <TfrxCrossView *> (Sender);
if(Cross != NULL)
{
Table1->First();
i = 0;
while (!Table1->Eof)
{
for(j = 0; j < Table1->Fields->Count; j++)
{
Row = i;
Col = Table1->Fields->Fields[j]->DisplayLabel;
Text = Table1->Fields->Fields[j]->AsString;
Cross->AddValue(&Row, 1, &Col, 1, &Text, 1);
}
Table1->Next();
i++;
}
}
}
//---------------------------------------------------------------------------

Binary file not shown.

View File

@ -0,0 +1,30 @@
//---------------------------------------------------------------------------
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include "frxClass.hpp"
#include "frxCross.hpp"
#include <Db.hpp>
#include <DBTables.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
TButton *Button1;
TfrxReport *frxReport1;
TfrxCrossObject *frxCrossObject1;
TTable *Table1;
void __fastcall Button1Click(TObject *Sender);
void __fastcall frxReport1BeforePrint(TfrxReportComponent *Sender);
private: // User declarations
public: // User declarations
__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

View File

@ -0,0 +1,71 @@
{******************************************}
{ }
{ FastReport v4.0 }
{ FastReport CGI wrapper demo }
{ Copyright (c) 1998-2006 }
{ by Alexander Fediachov, }
{ Fast Reports Inc. }
{ }
{******************************************}
program fastreport;
{$APPTYPE CONSOLE}
uses
Windows, SysUtils, Classes, frxCGIClient, IniFiles, frxServerUtils;
const
CONFIG_FILENAME = 'fastreport.ini';
DEFAULT_CONFIG_PATH = '';
DEFAULT_PORT = 8097;
DEFAULT_HOST = '127.0.0.1';
var
FHost: String;
FPort: Integer;
FIni: TIniFile;
c: TfrxCGIClient;
s: String;
PostData: String;
PostLength: Integer;
i: Integer;
begin
if DEFAULT_CONFIG_PATH = '' then
s := ExtractFilePath(ParamStr(0)) + CONFIG_FILENAME
else
s := DEFAULT_CONFIG_PATH + CONFIG_FILENAME;
if FileExists(s) then
begin
FIni := TIniFile.Create(s);
FHost := FIni.ReadString('REPORTSERVER', 'Host', DEFAULT_HOST);
FPort := FIni.ReadInteger('REPORTSERVER', 'Port', DEFAULT_PORT);
FIni.Free;
end
else begin
FHost := DEFAULT_HOST;
FPort := DEFAULT_PORT;
end;
if (GetEnvVar('REQUEST_METHOD') = 'POST') then
begin
Postlength := StrToInt(GetEnvVar('CONTENT_LENGTH'));
if Postlength > 0 then
begin
SetLength(PostData, PostLength);
for i := 1 to PostLength do
read(PostData[i]);
end;
end;
c := TfrxCGIClient.Create;
c.PostData := PostData;
c.Host := FHost;
c.Port := FPort;
try
c.Open;
finally
c.Free;
end;
end.

View File

@ -0,0 +1,3 @@
[REPORTSERVER]
Host=127.0.0.1
Port=8097

View File

@ -0,0 +1,6 @@
<html>
<body>
1. <a href="/cgi-bin/fastreport.exe">Connect to the FastReport Server through the Apache Web Server</a><br>
2. <a href="http://127.0.0.1:8097/">Direct connect to the FastReport Server</a>
</body>
</html>

View File

@ -0,0 +1,14 @@
program FRClient;
uses
Forms,
main in 'main.pas' {main};
{$R *.res}
begin
Application.Initialize;
Application.Title := 'FastReport Client Demo';
Application.CreateForm(TMainForm, MainForm);
Application.Run;
end.

View File

@ -0,0 +1,463 @@
{******************************************}
{ }
{ FastReport v4.0 }
{ FastReport client demo }
{ Copyright (c) 1998-2007 }
{ by Alexander Fediachov, }
{ Fast Reports Inc. }
{ }
{******************************************}
unit main;
{$I frx.inc}
interface
uses
Windows, SysUtils, Classes, Controls, Forms,
Dialogs, StdCtrls, ShellApi, frxClass, frxServerClient,
frxGZip, frxDCtrl, frxChBox, frxCross, frxRich, frxChart,
frxOLE, frxBarcode, ExtCtrls, frxExportPDF, frxExportImage,
frxExportRTF, frxExportXML, frxExportXLS, frxExportHTML,
frxExportTXT, frxGradient, Graphics, ComCtrls, Menus, ImgList
{$IFDEF Delphi6}
, Variants
{$ENDIF}
, frxExportMail, frxExportText, frxExportCSV;
type
TMainForm = class(TForm)
frxServerConnection1: TfrxServerConnection;
TestBtn: TButton;
Log: TMemo;
Rep: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
ShowBtn: TButton;
CloseBtn: TButton;
Label4: TLabel;
Label5: TLabel;
Port: TEdit;
Threads: TEdit;
Label6: TLabel;
frxBarCodeObject1: TfrxBarCodeObject;
frxOLEObject1: TfrxOLEObject;
frxChartObject1: TfrxChartObject;
frxRichObject1: TfrxRichObject;
frxCrossObject1: TfrxCrossObject;
frxCheckBoxObject1: TfrxCheckBoxObject;
frxDialogControls1: TfrxDialogControls;
Label7: TLabel;
Login: TEdit;
Label8: TLabel;
Password: TEdit;
StopBtn: TButton;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Image1: TImage;
frxGradientObject1: TfrxGradientObject;
frxHTMLExport1: TfrxHTMLExport;
frxXLSExport1: TfrxXLSExport;
frxXMLExport1: TfrxXMLExport;
frxRTFExport1: TfrxRTFExport;
frxBMPExport1: TfrxBMPExport;
frxJPEGExport1: TfrxJPEGExport;
frxTIFFExport1: TfrxTIFFExport;
frxPDFExport1: TfrxPDFExport;
ProxyHost: TEdit;
Label12: TLabel;
Label13: TLabel;
ProxyPort: TEdit;
Label14: TLabel;
Label15: TLabel;
Panel2: TPanel;
Panel4: TPanel;
Host: TEdit;
ReportsTree: TTreeView;
Description: TMemo;
Label16: TLabel;
Panel5: TPanel;
ExportBtn: TButton;
Label17: TLabel;
Panel10: TPanel;
ConnectBtn: TButton;
Panel11: TPanel;
Panel9: TPanel;
Panel12: TPanel;
Panel13: TPanel;
Panel14: TPanel;
Label18: TLabel;
PopupMenu1: TPopupMenu;
Clear1: TMenuItem;
frxReportClient1: TfrxReportClient;
ImageList1: TImageList;
frxCSVExport1: TfrxCSVExport;
frxSimpleTextExport1: TfrxSimpleTextExport;
frxMailExport1: TfrxMailExport;
procedure TestBtnClick(Sender: TObject);
procedure CloseBtnClick(Sender: TObject);
procedure ShowBtnClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure StopBtnClick(Sender: TObject);
procedure ListBox1DblClick(Sender: TObject);
procedure ListBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Label11Click(Sender: TObject);
procedure ConnectBtnClick(Sender: TObject);
procedure Clear1Click(Sender: TObject);
procedure ReportsTreeChange(Sender: TObject; Node: TTreeNode);
procedure ReportsTreeCustomDrawItem(Sender: TCustomTreeView;
Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
procedure ExportBtnClick(Sender: TObject);
private
ThreadList: TList;
ReportsList: TStringList;
procedure ClearThreads;
end;
TfrxClientTestThread = class (TThread)
protected
procedure Execute; override;
private
CountRep: Integer;
ErrorsCount: Integer;
Log: TMemo;
ThreadID: Integer;
FConnection: TfrxServerConnection;
FRepName: String;
procedure AppendLog;
procedure FinishLog;
public
Report: TfrxReportClient;
Done: Boolean;
constructor Create(C: TfrxServerConnection; RepName: String;
Id: Integer; Rep: Integer; L: TMemo);
end;
var
MainForm: TMainForm;
implementation
{$IFDEF Delphi7}
uses XPMan;
{$ENDIF}
{$R *.dfm}
procedure TMainForm.TestBtnClick(Sender: TObject);
var
i, j, k: Integer;
Thread: TfrxClientTestThread;
s: String;
begin
frxServerConnection1.Host := Host.Text;
frxServerConnection1.Port := StrToInt(Port.Text);
frxServerConnection1.Login := Login.Text;
frxServerConnection1.Password := Password.Text;
if (Length(ProxyHost.Text) > 0) then
begin
frxServerConnection1.ProxyHost := ProxyHost.Text;
frxServerConnection1.ProxyPort := StrToInt(ProxyPort.Text);
end;
ClearThreads;
j := StrToInt(Threads.Text);
k := StrToInt(Rep.Text);
i := Integer(ReportsTree.Selected.Data);
if i <> -1 then
begin
Log.Lines.Add('Start test');
s := ReportsList[i + 1];
for i := 1 to j do
begin
Thread := TfrxClientTestThread.Create(frxServerConnection1, s, i, k, Log);
ThreadList.Add(Thread);
end;
end;
end;
procedure TMainForm.CloseBtnClick(Sender: TObject);
begin
Close;
end;
procedure TMainForm.ShowBtnClick(Sender: TObject);
var
t: Cardinal;
tf: Double;
i: Integer;
begin
frxServerConnection1.Host := Host.Text;
frxServerConnection1.Port := StrToInt(Port.Text);
frxServerConnection1.Login := Login.Text;
frxServerConnection1.Password := Password.Text;
if (Length(ProxyHost.Text) > 0) then
begin
frxServerConnection1.ProxyHost := ProxyHost.Text;
frxServerConnection1.ProxyPort := StrToInt(ProxyPort.Text);
end;
i := Integer(ReportsTree.Selected.Data);
if i <> -1 then
begin
frxReportClient1.LoadFromFile(ReportsList[i + 1]);
t := GetTickCount;
if frxReportClient1.PrepareReport then
begin
tf := (GetTickCount - t) / 1000;
Log.Lines.Add(frxReportClient1.ReportName +
' Time=' + FloatToStr(tf) + ' Size=' + IntToStr(frxReportClient1.Client.StreamSize));
frxReportClient1.ShowPreparedReport;
end;
Log.Lines.AddStrings(frxReportClient1.Errors);
end;
end;
procedure TMainForm.FormCreate(Sender: TObject);
begin
Label14.Caption := #174;
Label15.Caption := #169 + Label15.Caption;
ThreadList := TList.Create;
ReportsList := TStringList.Create;
end;
procedure TMainForm.ClearThreads;
var
i: Integer;
begin
for i := 0 to ThreadList.Count - 1 do
if Assigned(TfrxClientTestThread(ThreadList[i])) then
begin
TfrxClientTestThread(ThreadList[i]).Terminate;
TfrxClientTestThread(ThreadList[i]).Free;
end;
ThreadList.Clear;
end;
procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ReportsList.Free;
ClearThreads;
ThreadList.Free;
end;
procedure TMainForm.StopBtnClick(Sender: TObject);
begin
ClearThreads;
end;
procedure TMainForm.ListBox1DblClick(Sender: TObject);
begin
ShowBtnClick(Sender);
end;
procedure TMainForm.ListBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = 13 then
ShowBtnClick(Sender);
end;
procedure TMainForm.Label11Click(Sender: TObject);
begin
ShellExecute(GetDesktopWindow, 'open', PChar(Label11.Caption), nil, nil, SW_SHOW);
end;
procedure TMainForm.ConnectBtnClick(Sender: TObject);
var
t: Cardinal;
tf: Double;
s, s1: String;
AccessFlag: Boolean;
i: Integer;
Node: TTreeNode;
TopNode: TTreeNode;
OldName: String;
begin
ReportsTree.Items.Clear;
ReportsList.Clear;
Log.Clear;
frxServerConnection1.Host := Host.Text;
frxServerConnection1.Port := StrToInt(Port.Text);
frxServerConnection1.Login := Login.Text;
frxServerConnection1.Password := Password.Text;
if (Length(ProxyHost.Text) > 0) then
begin
frxServerConnection1.ProxyHost := ProxyHost.Text;
frxServerConnection1.ProxyPort := StrToInt(ProxyPort.Text);
end;
t := GetTickCount;
Log.Lines.Text := Log.Lines.Text +
frxReportClient1.GetServerVariable('SERVER_NAME');
tf := (GetTickCount - t) / 1000;
if frxReportClient1.Errors.Count = 0 then
begin
Log.Lines.Text := Log.Lines.Text +
'Version: ' + frxReportClient1.GetServerVariable('SERVER_SOFTWARE');
Log.Lines.Text := Log.Lines.Text +
'From: ' + frxReportClient1.GetServerVariable('SERVER_LAST_UPDATE');
Log.Lines.Text := Log.Lines.Text +
'Uptime: ' + frxReportClient1.GetServerVariable('SERVER_UPTIME');
Log.Lines.Add('Ping:' + FloatToStr(tf) + 'ms.');
end;
Log.Lines.AddStrings(frxReportClient1.Errors);
AccessFlag := frxReportClient1.Errors.Count = 0;
if AccessFlag then
begin
ReportsList.Text := frxReportClient1.GetServerVariable('SERVER_REPORTS_LIST');
if ReportsList.Count > 0 then
begin
ReportsTree.Items.BeginUpdate;
TopNode := nil;
Oldname := '';
for i := 0 to (ReportsList.Count div 3) - 1 do
begin
s := ReportsList[(i * 3) + 1];
s := StringReplace(StringReplace(s, ExtractFileName(s), '', []), '\', ' ', [rfReplaceAll]);
if s <> OldName then
begin
if s = '' then
s1 := 'Reports'
else
s1 := s;
Node := ReportsTree.Items.AddChild(nil, s1);
Node.Data := Pointer(-1);
Node.ImageIndex := 0;
TopNode := Node;
OldName := s;
end;
Node := ReportsTree.Items.AddChild(TopNode, ReportsList[i * 3]);
Node.Data := Pointer((i * 3));
Node.ImageIndex := 1;
end;
ReportsTree.Items.EndUpdate;
ReportsTree.TopItem := ReportsTree.Items[0];
ReportsTree.Selected := ReportsTree.Items[0];
ReportsTree.SetFocus;
end else
Log.Lines.Add('Nothing reports is available or information restricted.');
end;
end;
procedure TMainForm.Clear1Click(Sender: TObject);
begin
Log.Clear;
end;
procedure TMainForm.ReportsTreeChange(Sender: TObject; Node: TTreeNode);
var
i: Integer;
begin
i := Integer(Node.Data);
if i <> -1 then
Description.Text := ReportsList[i + 2]
else
Description.Text := Node.Text;
ShowBtn.Enabled := i <> -1;
ExportBtn.Enabled := ShowBtn.Enabled;
TestBtn.Enabled := ShowBtn.Enabled;
end;
procedure TMainForm.ReportsTreeCustomDrawItem(Sender: TCustomTreeView;
Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if Node.Count <> 0 then
ReportsTree.Canvas.Font.Style := [fsBold];
end;
procedure TMainForm.ExportBtnClick(Sender: TObject);
var
t: Cardinal;
tf: Double;
i: Integer;
begin
frxServerConnection1.Host := Host.Text;
frxServerConnection1.Port := StrToInt(Port.Text);
frxServerConnection1.Login := Login.Text;
frxServerConnection1.Password := Password.Text;
if (Length(ProxyHost.Text) > 0) then
begin
frxServerConnection1.ProxyHost := ProxyHost.Text;
frxServerConnection1.ProxyPort := StrToInt(ProxyPort.Text);
end;
i := Integer(ReportsTree.Selected.Data);
if i <> -1 then
begin
frxReportClient1.LoadFromFile(ReportsList[i + 1]);
t := GetTickCount;
if frxReportClient1.PrepareReport then
begin
tf := (GetTickCount - t) / 1000;
Log.Lines.Add(frxReportClient1.ReportName +
' Time=' + FloatToStr(tf) + ' Size=' + IntToStr(frxReportClient1.Client.StreamSize));
frxReportClient1.Export(frxPDFExport1);
end;
Log.Lines.AddStrings(frxReportClient1.Errors);
end;
end;
{ TfrxClientTestThread }
constructor TfrxClientTestThread.Create(C: TfrxServerConnection; RepName: String;
Id: Integer; Rep: Integer; L: TMemo);
begin
inherited Create(True);
ErrorsCount := 0;
ThreadId := Id;
CountRep := Rep;
FConnection := C;
FRepName := RepName;
Log := L;
Done := False;
Resume;
end;
procedure TfrxClientTestThread.Execute;
var
i: Integer;
begin
Done := False;
Report := TfrxReportClient.Create(nil);
Report.EngineOptions.EnableThreadSafe := True;
Report.ShowProgress := False;
Report.EngineOptions.SilentMode := True;
Report.Connection := FConnection;
Report.ReportName := FRepName;
i := 0;
while (i < CountRep) and (not Terminated) do
begin
Report.Clear;
Report.PrepareReport;
Synchronize(AppendLog);
ErrorsCount := ErrorsCount + Report.Errors.Count;
Inc(i);
end;
Synchronize(FinishLog);
Report.Free;
Done := True;
end;
procedure TfrxClientTestThread.AppendLog;
begin
if Assigned(Log) and (Report.Errors.Count > 0) then
begin
Log.Lines.Add('Thread#' + IntToStr(ThreadID));
Log.Lines.AddStrings(Report.Errors);
end;
end;
procedure TfrxClientTestThread.FinishLog;
begin
if Assigned(Log) and (not Terminated) then
Log.Lines.Add('Thread#' + IntToStr(ThreadID) + ' finished. Errors:' + IntToStr(ErrorsCount));
end;
end.

View File

@ -0,0 +1,14 @@
program FRClientSimple;
uses
Forms,
main in 'main.pas' {main};
{$R *.res}
begin
Application.Initialize;
Application.Title := 'FastReport Simple Client Demo';
Application.CreateForm(TMainForm, MainForm);
Application.Run;
end.

View File

@ -0,0 +1,124 @@
{******************************************}
{ }
{ FastReport v4.0 }
{ FastReport simple client demo }
{ Copyright (c) 1998-2007 }
{ by Alexander Fediachov, }
{ Fast Reports Inc. }
{ }
{******************************************}
unit main;
{$I frx.inc}
interface
uses
Windows, SysUtils, Classes, Controls, Forms,
Dialogs, StdCtrls, ShellApi, frxClass, frxServerClient,
frxGZip, frxDCtrl, frxChBox, frxCross, frxRich, frxChart,
frxOLE, frxBarcode, ExtCtrls, frxExportPDF, frxExportImage,
frxExportRTF, frxExportXML, frxExportXLS, frxExportHTML,
frxExportTXT, frxGradient, Graphics
{$IFDEF Delphi6}
, Variants
{$ENDIF};
type
TMainForm = class(TForm)
frxServerConnection1: TfrxServerConnection;
frxReportClient1: TfrxReportClient;
Memo1: TMemo;
Label3: TLabel;
ShowBtn: TButton;
CloseBtn: TButton;
Label4: TLabel;
Label5: TLabel;
Port: TEdit;
frxBarCodeObject1: TfrxBarCodeObject;
frxOLEObject1: TfrxOLEObject;
frxChartObject1: TfrxChartObject;
frxRichObject1: TfrxRichObject;
frxCrossObject1: TfrxCrossObject;
frxCheckBoxObject1: TfrxCheckBoxObject;
frxDialogControls1: TfrxDialogControls;
Label7: TLabel;
Login: TEdit;
Label8: TLabel;
Password: TEdit;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Image1: TImage;
Panel1: TPanel;
frxHTMLExport1: TfrxHTMLExport;
frxXLSExport1: TfrxXLSExport;
frxRTFExport1: TfrxRTFExport;
frxPDFExport1: TfrxPDFExport;
Label14: TLabel;
Label15: TLabel;
Panel2: TPanel;
Host: TEdit;
Label1: TLabel;
RepName: TEdit;
Label2: TLabel;
Label6: TLabel;
Param1: TEdit;
Param1Value: TEdit;
Label12: TLabel;
Label13: TLabel;
Param2: TEdit;
Param2Value: TEdit;
procedure CloseBtnClick(Sender: TObject);
procedure ShowBtnClick(Sender: TObject);
procedure Label11Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
end;
var
MainForm: TMainForm;
implementation
{$R *.dfm}
{$IFDEF Delphi7}
uses XPMan;
{$ENDIF}
procedure TMainForm.CloseBtnClick(Sender: TObject);
begin
Close;
end;
procedure TMainForm.ShowBtnClick(Sender: TObject);
begin
frxServerConnection1.Host := Host.Text;
frxServerConnection1.Port := StrToInt(Port.Text);
frxServerConnection1.Login := Login.Text;
frxServerConnection1.Password := Password.Text;
frxReportClient1.LoadFromFile(RepName.Text);
frxReportClient1.Variables.Clear;
if Length(Param1Value.Text) > 0 then
frxReportClient1.Variables[Param1.Text] := Param1Value.Text;
if Length(Param2Value.Text) > 0 then
frxReportClient1.Variables[Param2.Text] := Param2Value.Text;
if frxReportClient1.PrepareReport then
frxReportClient1.ShowPreparedReport;
Memo1.Lines.AddStrings(frxReportClient1.Errors);
end;
procedure TMainForm.Label11Click(Sender: TObject);
begin
ShellExecute(GetDesktopWindow, 'open', PChar(Label11.Caption), nil, nil, SW_SHOW);
end;
procedure TMainForm.FormCreate(Sender: TObject);
begin
Label14.Caption := #174;
Label15.Caption := #169 + label15.Caption;
end;
end.

View File

@ -0,0 +1,17 @@
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title>
Test of POST form
</title>
</head>
<body>
<form action="http://127.0.0.1/result" method="post">
<input type="hidden" name="report" value="1.Basic reports\01.Simple list.fr3">
<input type="hidden" name="mulipage" value="0">
Enter the value of "param1" <input type="text" name="param1"><br>
Enter the value of "param2" <input type="text" name="param2"><br>
<input type="submit" value="Get report">
</form>
</body>
</html>

View File

@ -0,0 +1,24 @@
{******************************************}
{ }
{ FastReport v4.0 }
{ ISAPI extension library }
{ Copyright (c) 2006-2007 }
{ by Alexander Fediachov, }
{ Fast Reports Inc. }
{ }
{******************************************}
library fastreport;
uses
frxISAPI;
exports
GetExtensionVersion,
HttpExtensionProc,
TerminateExtension;
begin
end.

View File

@ -0,0 +1,15 @@
program FRServer;
uses
Windows,
Forms,
Main in 'Main.pas' {main};
{$R *.RES}
begin
Application.Initialize;
Application.Title := 'FastReport Server Demo';
Application.CreateForm(TMainForm, MainForm);
Application.Run;
end.

Binary file not shown.

Binary file not shown.

View File

@ -0,0 +1,288 @@
{******************************************}
{ }
{ FastReport v4.0 }
{ FastReport Server demo }
{ Copyright (c) 1998-2007 }
{ by Alexander Fediachov, }
{ Fast Reports Inc. }
{ }
{******************************************}
unit Main;
{$I frx.inc}
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
StdCtrls, Db, DBTables, frxDesgn, frxClass, frxDCtrl,
frxChart, frxRich, frxBarcode, ImgList, ComCtrls, ExtCtrls, frxOLE,
frxCross, frxServer, frxGradient, frxChBox, Menus, ShellApi,
frxADOComponents, ADODB, frxGZip, Dialogs, frxMD5, frxServerUtils, IniFiles,
frxServerStat, frxServerConfig, frxVariables;
type
TMainForm = class(TForm)
frBarCodeObject1: TfrxBarCodeObject;
frRichObject1: TfrxRichObject;
frChartObject1: TfrxChartObject;
frDialogControls1: TfrxDialogControls;
ImageList1: TImageList;
Image1: TImage;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
frOLEObject1: TfrxOLEObject;
frCrossObject1: TfrxCrossObject;
frxCheckBoxObject1: TfrxCheckBoxObject;
PopupMenu1: TPopupMenu;
Close1: TMenuItem;
ShowWin: TMenuItem;
N1: TMenuItem;
MinimizeBtn: TButton;
CloseBtn: TButton;
GroupBox1: TGroupBox;
Label4: TLabel;
LBActive: TLabel;
LBInactive: TLabel;
GroupBox2: TGroupBox;
Label5: TLabel;
ETotalSessions: TEdit;
Label6: TLabel;
ETotalReports: TEdit;
Timer1: TTimer;
Label7: TLabel;
Label8: TLabel;
EMaxReports: TEdit;
EMaxSessions: TEdit;
Label9: TLabel;
Label10: TLabel;
ECurrentReports: TEdit;
ECurrentSessions: TEdit;
Label11: TLabel;
EErrors: TEdit;
N2: TMenuItem;
Start1: TMenuItem;
Stop1: TMenuItem;
StartBtn: TButton;
StopBtn: TButton;
DesignBtn: TButton;
frxDesigner1: TfrxDesigner;
OpenDialog1: TOpenDialog;
Label12: TLabel;
Uptime: TLabel;
frxADOComponents1: TfrxADOComponents;
Serv: TfrxReportServer;
Label13: TLabel;
DemoDatabase: TADOConnection;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure MinimizeBtnClick(Sender: TObject);
procedure ShutBtnClick(Sender: TObject);
procedure ShowWinClick(Sender: TObject);
procedure StartBtnClick(Sender: TObject);
procedure StopBtnClick(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure DesignBtnClick(Sender: TObject);
procedure Label3Click(Sender: TObject);
procedure ServGetVariables(const ReportName: String;
Variables: TfrxVariables; User: String);
protected
procedure ControlWindow(var Msg:TMessage); message WM_SYSCOMMAND;
procedure IconMouse(var Msg : TMessage); message WM_USER + 1;
private
Icon: TIcon;
frReport1: TfrxReport;
procedure TrayIcon(n: Integer; Icon: TIcon);
end;
var
MainForm: TMainForm;
dbMd: String;
implementation
{$R *.DFM}
{$IFDEF Delphi7}
uses XPMan;
{$ENDIF}
var
DATABASE_FILE: String;
DBConnStr: String = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=';
procedure TMainForm.TrayIcon(n:Integer;Icon:TIcon);
var
Nim: TNotifyIconData;
begin
with Nim do
begin
cbSize:=SizeOf(Nim);
Wnd:=Self.Handle;
uID:=1;
uFlags:=NIF_ICON or NIF_MESSAGE or NIF_TIP;
hicon:=Icon.Handle;
uCallbackMessage:=WM_USER + 1;
szTip:='FastReport Server';
end;
case n of
1: Shell_NotifyIcon(Nim_Add,@Nim);
2: Shell_NotifyIcon(Nim_Delete,@Nim);
3: Shell_NotifyIcon(Nim_Modify,@Nim);
end;
end;
procedure TMainForm.ControlWindow(var Msg: TMessage);
begin
if Msg.WParam = SC_MINIMIZE then
begin
TrayIcon(1, Icon);
ShowWindow(Application.Handle, SW_HIDE);
ShowWindow(Handle, SW_HIDE);
end else
inherited;
end;
procedure TMainForm.IconMouse(var Msg: TMessage);
var
p:tpoint;
begin
GetCursorPos(p);
case Msg.LParam of
WM_LBUTTONUP, WM_LBUTTONDBLCLK:
ShowWinClick(nil);
WM_RBUTTONUP:
begin
SetForegroundWindow(Handle);
PopupMenu1.Popup(p.X, p.Y);
PostMessage(Handle,WM_NULL,0,0)
end;
End;
end;
procedure TMainForm.FormCreate(Sender: TObject);
begin
Label13.Caption := #174;
Icon := TIcon.Create;
ImageList1.GetIcon(0, Icon);
DemoDatabase.ConnectionString := DBConnStr + frxGetAbsPath(ServerConfig.GetValue('server.database.pathtodatabase'));
try
DemoDatabase.Open;
except
ShowMessage('Error database connection!');
end;
StartBtnClick(Sender);
MinimizeBtnClick(Sender);
end;
procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if Serv <> nil then
StopBtnClick(Sender);
TrayIcon(2, Icon);
Icon.Free;
if DemoDatabase.Connected then
DemoDatabase.Close;
end;
procedure TMainForm.MinimizeBtnClick(Sender: TObject);
begin
PostMessage(Handle, WM_SYSCOMMAND, SC_MINIMIZE, 0);
end;
procedure TMainForm.ShutBtnClick(Sender: TObject);
begin
Close;
end;
procedure TMainForm.ShowWinClick(Sender: TObject);
begin
ShowWindow(Application.Handle, SW_SHOWNORMAL);
ShowWindow(Handle, SW_SHOWNORMAL);
end;
procedure TMainForm.StartBtnClick(Sender: TObject);
begin
if DemoDatabase.Connected then
begin
Screen.Cursor := crHourGlass;
try
Serv.Open;
if Serv.Active then
begin
StartBtn.Enabled := False;
StopBtn.Enabled := True;
LBActive.Visible := True;
LBInactive.Visible := False;
Timer1.Enabled := True;
ImageList1.GetIcon(0, Icon);
TrayIcon(3, Icon);
Start1.Enabled := False;
Stop1.Enabled := True;
end;
finally
Screen.Cursor := crDefault;
end;
end;
end;
procedure TMainForm.StopBtnClick(Sender: TObject);
begin
Screen.Cursor := crHourGlass;
try
Timer1.Enabled := False;
Serv.Close;
StartBtn.Enabled := True;
StopBtn.Enabled := False;
LBActive.Visible := False;
LBInactive.Visible := True;
ImageList1.GetIcon(1, Icon);
TrayIcon(3, Icon);
Start1.Enabled := True;
Stop1.Enabled := False;
finally
Screen.Cursor := crDefault;
end;
end;
procedure TMainForm.Timer1Timer(Sender: TObject);
begin
ETotalSessions.Text := IntToStr(ServerStatistic.TotalSessionsCount);
ETotalReports.Text := IntToStr(ServerStatistic.TotalReportsCount);
EMaxSessions.Text := IntToStr(ServerStatistic.MaxSessionsCount);
EMaxReports.Text := IntToStr(ServerStatistic.MaxReportsCount);
EErrors.Text := IntToStr(ServerStatistic.TotalErrors);
ECurrentSessions.Text := IntToStr(ServerStatistic.CurrentSessionsCount);
ECurrentReports.Text := IntToStr(ServerStatistic.CurrentReportsCount);
Uptime.Caption := ServerStatistic.FormatUpTime;
Label2.Caption := 'Version: ' + String(Serv.Variables.GetValue('SERVER_SOFTWARE'));
end;
procedure TMainForm.DesignBtnClick(Sender: TObject);
begin
OpenDialog1.InitialDir := Serv.Configuration.ReportPath;
if OpenDialog1.Execute then
begin
frReport1 := TfrxReport.Create(nil);
frReport1.LoadFromFile(OpenDialog1.FileName);
frReport1.Variables['PathToDataBase'] := '''' + DATABASE_FILE + '''';
frReport1.DesignReport;
frReport1.Free;
end;
end;
procedure TMainForm.Label3Click(Sender: TObject);
begin
ShellExecute(GetDesktopWindow, 'open', PChar(Label3.Caption), nil, nil, SW_SHOW);
end;
procedure TMainForm.ServGetVariables(const ReportName: String;
Variables: TfrxVariables; User: String);
begin
Variables['param1'] := QuotedStr('add new variable');
end;
end.

View File

@ -0,0 +1,157 @@
<?xml version="1.0" encoding="utf-8"?>
<servers configversion="2.1.0">
<server desc="FastReport Server configuration">
<set name="Active" value="yes" default="yes" type="bool" desc=""/>
<set name="Name" value="FastReport Server" default="" type="string" desc=""/>
<http desc="HTTP server settings">
<set name="Port" value="80" default="80" type="number" desc="TCP/IP port for HTTP server"/>
<set name="SessionTimeOut" value="600" default="600" type="number" desc="Report session timeout in seconds"/>
<set name="SocketTimeOut" value="600" default="300" type="number" desc="Client connection timeout in seconds"/>
<set name="NoCacheHeader" value="yes" default="yes" type="bool" desc="Disable of the caching document by the web browser"/>
<set name="Compression" value="yes" default="yes" type="bool" desc="Allow GZIP compression"/>
<set name="MIC" value="yes" default="yes" type="bool" desc="Allow MD5 message integrity check"/>
<set name="RootPath" value=".\htdocs\" default=".\htdocs\" type="folder" desc="Public document folder for documents and results"/>
<set name="IndexFile" value="index.html" default="index.html" type="string" desc="Index page filename"/>
<set name="TemplatesPath" value=".\templates\" default=".\templates\" type="folder" desc="Path to folder with templates"/>
<set name="AllowPrint" value="no" default="no" type="bool" desc="Allow print to attached network printers"/>
</http>
<reports desc="Reporting engine settings">
<set name="Path" value=".\reports\" default=".\reports\" type="folder" desc="Path to folder with the reports (*.fr3)"/>
<set name="Temp" value="" default="" type="string" desc="Path to temporary folder"/>
<set name="UseFileCache" value="no" default="no" type="bool" desc=""/>
<set name="MaxMemSize" value="10" default="10" type="number" desc=""/>
</reports>
<exports desc="Output formats settings">
<html desc="HTML format">
<set name="Active" value="yes" default="yes" type="bool" desc=""/>
<set name="FixedWidth" value="yes" default="yes" type="bool" desc=""/>
<set name="Pictures" value="yes" default="yes" type="bool" desc=""/>
<set name="AllInOneFolder" value="yes" default="yes" type="bool" desc=""/>
<set name="Styles" value="yes" default="yes" type="bool" desc=""/>
<set name="Navigator" value="yes" default="yes" type="bool" desc=""/>
<set name="SinglePage" value="no" default="no" type="bool" desc=""/>
<set name="Background" value="no" default="no" type="bool" desc=""/>
<set name="PicsFormat" value="gif" default="jpeg" type="bmp/jpeg/gif" desc=""/>
</html>
<ods desc="Open Document Spreadsheet format">
<set name="Active" value="yes" default="yes" type="bool" desc=""/>
<set name="Continuous" value="no" default="yes" type="bool" desc=""/>
<set name="PageBreaks" value="yes" default="yes" type="bool" desc=""/>
<set name="Wysiwyg" value="yes" default="yes" type="bool" desc=""/>
<set name="Background" value="yes" default="yes" type="bool" desc=""/>
<set name="EmptyLines" value="yes" default="yes" type="bool" desc=""/>
</ods>
<odt desc="Open Document Text format">
<set name="Active" value="yes" default="yes" type="bool" desc=""/>
<set name="Continuous" value="no" default="yes" type="bool" desc=""/>
<set name="PageBreaks" value="yes" default="yes" type="bool" desc=""/>
<set name="Wysiwyg" value="yes" default="yes" type="bool" desc=""/>
<set name="Background" value="yes" default="yes" type="bool" desc=""/>
<set name="EmptyLines" value="yes" default="yes" type="bool" desc=""/>
</odt>
<pdf desc="Adobe Acrobat PDF format">
<set name="Active" value="yes" default="yes" type="bool" desc=""/>
<set name="EmbeddedFonts" value="no" default="no" type="bool" desc=""/>
<set name="PrintOptimized" value="no" default="no" type="bool" desc=""/>
<set name="Outline" value="yes" default="yes" type="bool" desc=""/>
<set name="Background" value="no" default="no" type="bool" desc=""/>
<set name="HTMLTags" value="yes" default="yes" type="bool" desc=""/>
</pdf>
<rtf desc="Rich Text format">
<set name="Active" value="yes" default="yes" type="bool" desc=""/>
<set name="PageBreaks" value="yes" default="yes" type="bool" desc=""/>
<set name="Pictures" value="yes" default="yes" type="bool" desc=""/>
<set name="Wysiwyg" value="yes" default="yes" type="bool" desc=""/>
</rtf>
<xml desc="XML format">
<set name="Active" value="yes" default="yes" type="bool" desc=""/>
<set name="Continuous" value="no" default="yes" type="bool" desc=""/>
<set name="Styles" value="yes" default="yes" type="bool" desc=""/>
<set name="PageBreaks" value="yes" default="yes" type="bool" desc=""/>
<set name="Wysiwyg" value="yes" default="yes" type="bool" desc=""/>
<set name="Background" value="no" default="no" type="bool" desc=""/>
<set name="EmptyLines" value="yes" default="yes" type="bool" desc=""/>
</xml>
<bmp desc="BMP format">
<set name="Active" value="yes" default="yes" type="bool" desc=""/>
<set name="Crop" value="no" default="no" type="bool" desc=""/>
<set name="Monochrome" value="no" default="no" type="bool" desc=""/>
<set name="Resolution" value="72" default="72" type="number" desc="Resolution in dpi"/>
<set name="SingleFile" value="no" default="no" type="bool" desc=""/>
</bmp>
<jpg desc="Jpeg format">
<set name="Active" value="yes" default="yes" type="bool" desc=""/>
<set name="Crop" value="no" default="no" type="bool" desc=""/>
<set name="Monochrome" value="no" default="no" type="bool" desc=""/>
<set name="Resolution" value="72" default="72" type="number" desc="Resolution in dpi"/>
<set name="SingleFile" value="no" default="no" type="bool" desc=""/>
<set name="Quality" value="90" default="90" type="number" desc="Jpeg quality"/>
</jpg>
<gif desc="GIF format">
<set name="Active" value="yes" default="yes" type="bool" desc=""/>
<set name="Crop" value="no" default="no" type="bool" desc=""/>
<set name="Resolution" value="72" default="72" type="number" desc="Resolution in dpi"/>
<set name="SingleFile" value="no" default="no" type="bool" desc=""/>
</gif>
<tiff desc="TIFF format">
<set name="Active" value="yes" default="yes" type="bool" desc=""/>
<set name="Crop" value="no" default="no" type="bool" desc=""/>
<set name="Monochrome" value="no" default="no" type="bool" desc=""/>
<set name="Resolution" value="72" default="72" type="number" desc="Resolution in dpi"/>
<set name="SingleFile" value="no" default="no" type="bool" desc=""/>
</tiff>
<csv desc="CSV table text format">
<set name="Active" value="yes" default="yes" type="bool" desc=""/>
<set name="Separator" value=";" default=";" type="string" desc=""/>
<set name="OEMCodepage" value="no" default="no" type="bool" desc=""/>
</csv>
<txt desc="Plain text format">
<set name="Active" value="yes" default="yes" type="bool" desc=""/>
<set name="PageBreaks" value="yes" default="yes" type="bool" desc=""/>
<set name="Frames" value="no" default="no" type="bool" desc=""/>
<set name="EmptyLines" value="no" default="no" type="bool" desc=""/>
<set name="OEMCodepage" value="no" default="no" type="bool" desc=""/>
</txt>
<fp3 desc="FastReport native format">
<set name="Active" value="yes" default="yes" type="bool" desc=""/>
</fp3>
</exports>
<cache desc="Cache settings">
<set name="Active" value="yes" default="yes" type="bool" desc="Enable caching of the reports with same parameters"/>
<set name="Path" value=".\cache\" default=".\cache\" type="folder" desc="Path to the chache folder"/>
<set name="DefaultLatency" value="300" default="300" type="number" desc="Default delay for cache of the report results in seconds"/>
<set name="Target" value="memory" default="memory" type="memory/disk" desc="Target of cache spool placement"/>
<set name="ReportsLatencyFile" value=".\cache.xml" default=".\cache.xml" type="file" desc="Path to file with custom latency of reports"/>
</cache>
<logs desc="Log settings">
<set name="Active" value="yes" default="yes" type="bool" desc="Enable of log writing"/>
<set name="Path" value=".\logs\" default=".\logs\" type="folder" desc="Path to folder with logs"/>
<set name="RotateFiles" value="5" default="5" type="number" desc="Maximum log files in history"/>
<set name="RotateSize" value="1024" default="1024" type="number" desc="Maximum log file size in Kb"/>
<set name="AccessLog" value="access.log" default="access.log" type="string" desc="Access log"/>
<set name="ErrorLog" value="error.log" default="error.log" type="string" desc="Errors log"/>
<set name="AgentLog" value="agent.log" default="agent.log" type="string" desc="Agents log"/>
<set name="RefererLog" value="referer.log" default="referer.log" type="string" desc="Referers log"/>
<set name="ServerLog" value="server.log" default="server.log" type="string" desc="Server log"/>
<set name="AuthLog" value="auth.log" default="auth.log" type="string" desc="Authentifications log"/>
</logs>
<security desc="Security settings">
<set name="Login" value="" default="" type="string" desc="Login"/>
<set name="Password" value="" default="" type="string" desc="Login"/>
<set name="ReportsList" value="yes" default="yes" type="bool" desc="Allow list of the available reports"/>
<set name="AllowFile" value=".\allow.conf" default="allow.conf" type="file" desc="File with list of allowed IP addreses"/>
<set name="DenyFile" value=".\deny.conf" default="deny.conf" type="file" desc="File with list of denied IP addreses"/>
<set name="UserAuth" value="no" default="no" type="bool" desc="Allow user authentification"/>
<!-- /new -->
<set name="WinAuth" value="no" default="no" type="bool" desc="Allow windows authentification"/>
<set name="CGIAuth" value="no" default="no" type="bool" desc="Allow parent CGI authentification"/>
<!-- /new -->
<set name="UsersFile" value=".\users.xml" default=".\users.xml" type="file" desc="Path to file with users permissions"/>
</security>
<database desc="DB connection settings">
<set name="Type" value="ADO" default="ADO" type="ADO" desc=""/>
<set name="Connection" value="FR Demo Base" default="" type="string" desc=""/>
<set name="PathToDataBase" value="..\..\main\demo.mdb" default="" type="string" desc="For backward FastReport Enterprise compatibility"/>
</database>
</server>
</servers>

View File

@ -0,0 +1,35 @@
<!--#include virtual="header.html" --> || Short description
<!--#include virtual="top.html" -->
<font face="Tahoma" size="3"><a href="index.html"><b>Back to main page</b></a><b><br></b></font>
<hr>
<font face="Tahoma" size="4"><b>Short description</b><br>
<p><font face="Tahoma" size="3"><b>1. Introduction</b></font></p>
<p><font face="Tahoma" size="2">
FastReport server provides many features for server side reporting in
internet/intranet networks. FastReport 3 is the kernel of the
reporting engine. Fast and poweful server engine use
Hypertext Transfer Protocol (HTTP, RFC 2068). The FastReport Server
completely autonomous and does not require using other HTTP server (Apache, IIS etc).
Detailed expected features list you will to read <a href="features.html">here</a>.</font></p>
<p><font face="Tahoma" size="3"><b>2. FastReport Server Purpose</b></font></p>
<p><font face="Tahoma" size="2">
<ul>
<li>Internet/intranet reporting
<li>Web-development
<li>End-user solutions providing functionality for business analytics, financials, human capital management, operations, corporate services
<li>Industrial client-server application
</ul>
</font><font face="Tahoma"> </font></p>
<p><font face="Tahoma" size="3"><b>3. Requirements</b></font></p>
<p><font face="Tahoma" size="2">Operation system: Microsoft Windows NT4/2000/2003
Server.<br>
Network: based on TCP/IP protocol.</font><br>
</p>
<p><font face="Tahoma" size="3"><b>4. Feedback</b></font></p>
<p><font face="Tahoma" size="2">All wishes, bug-reports and opinions send to <a href="mailto:fediachov@fast-report.com">e-mail</a>.</font></p>
<hr>
<font face="Tahoma" size="3"><a href="index.html"><b>Back to main page</b></a><b><br>
</b></font>
<!--#include virtual="bottom.html" -->
</body>
</html>

View File

@ -0,0 +1 @@

View File

@ -0,0 +1,32 @@
<!--#include virtual="header.html" --> || Changes
<!--#include virtual="top.html" -->
<b><a href="index.html">Back to the main page</a></b>
<p><font face="Tahoma" size="4"><b>Changes in version 2.1.0</b></p>
<font face="Tahoma" size="3">
<ul>
<li>Added Windows Authentification mode
<li>Improved CGI for IIS/Apache server
<li>Advanced log information on errors
<li>Stability improvements
<li>Speed improvements
<li>Bug fixes
</ul>
</font>
<p><font face="Tahoma" size="4"><b>Changes in version 2.0</b></p>
<font face="Tahoma" size="3">
<ul>
<li>FastReport 4 kernel for reports execution
<li>Additional formats support: ODS, ODT - Open Document Format (OpenOffice, OASIS spec.)
<li>Print on network printers from web interface
<li>Templates for customization in web interface
<li>Reports shedule - cache, e-mail (smtp) sending
<li>Database connection, configuration, users auto-refresh without server restart
<li>Speed improvements
<li>Bug fixes
</ul>
</font>
<br><font face="Tahoma" size="3"><a href="index.html"><b>Back to the main page</b></a><br>
</font>
<!--#include virtual="bottom.html" -->
</body>
</html>

View File

@ -0,0 +1,137 @@
BODY {
font-family: Tahoma; font-size: 9pt; color: #000; margin: 10px; padding: 0px; background-color: #FFF; text-align: left }
TABLE, TR, TD {
font-family: Tahoma; font-size: 8pt; color: #000; padding: 2px;}
.copyright {
font : 8pt Tahoma;
}
.topcopyright {
font : 8pt Tahoma;
COLOR : #ffffff;
}
a {
font : 8pt Tahoma;
COLOR : #89161C;
FONT-WEIGHT : bold;
TEXT-DECORATION : none;
}
a:hover {
font : 8pt Tahoma;
COLOR : #49161C;
FONT-WEIGHT : bold;
TEXT-DECORATION : underline;
}
.nav {
font : 8pt Tahoma;
COLOR : white;
FONT-WEIGHT : bold;
TEXT-DECORATION : none;
}
.nav:hover {
font : 8pt Tahoma;
COLOR : black;
FONT-WEIGHT : bold;
TEXT-DECORATION : underline;
}
.bottomnav {
font : 8pt Tahoma;
COLOR : black;
FONT-WEIGHT : bold;
TEXT-DECORATION : none;
}
.bottomnav:hover {
font : 8pt Tahoma;
COLOR : black;
FONT-WEIGHT : bold;
TEXT-DECORATION : underline;
}
.txtbody
{
font : 8pt Tahoma;
vertical-align: top ;
height:100%;
width :100%;
}
.right {
font : 8pt Tahoma;
COLOR : black;
FONT-WEIGHT : bold;
padding-left : 8px;
padding-right : 6px;
text-align : center;
}
.tit {
font : 10pt Tahoma;
COLOR : black;
FONT-WEIGHT : bold;
padding-left : 8px;
padding-right : 6px;
margin-left : 6px;
margin-right : 4px;
height : 20;
background-color : #e2e2e2;
}
td.title {
font : 8pt Tahoma;
COLOR : white;
FONT-WEIGHT : bold;
TEXT-DECORATION : none;
text-align : center;
height : 18;
background-color : #2b4a7f;
}
td.down{
font : 8pt Tahoma;
}
th.down{
font : 8pt Tahoma;
FONT-WEIGHT : bold;
}
a.copyright {
font : 8pt Tahoma;
COLOR : black;
TEXT-DECORATION : none;
}
a.copyright:hover {
font : 8pt Tahoma;
COLOR : black;
TEXT-DECORATION : underline;
}
PRE{
font : 8pt Curier;
}
.pagetitle {
font : 12pt Verdana;
color : #ffffff;
FONT-WEIGHT : bold;
FONT-style: italic;
}
.pageheader
{
background-color : #2b4a7f;
background-repeat: no-repeat;
background-position:top left
}

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.4 KiB

View File

@ -0,0 +1,33 @@
<!--#include virtual="header.html" --> || Expected features list
<!--#include virtual="top.html" -->
<font face="Tahoma" size="3"><a href="index.html"><b>Back to main page</b></a><b><br></b></font>
<hr><br>
<font face="Tahoma" size="4"><b>Expected features list</b><br>
<p><font face="Tahoma" size="2">
<ul>
<li>Full FastReport 3 compatibility
<li>Hypertext transport protocol (HTTP) compatibility (RFC 2616)
<li>Standalone web-server mode
<li>Advanced security for multiple user groups and access permissions
<li>Gzip compressing support (RFC 1952) for client-server files transfer
<li>Server Side Includes (SSI) allow a webmaster to include dynamic content from the other servers
<li>Multiplatform client module
<li>Access to server from client application (with FastReport client module)
<li>Access to server from any web-browser
<li>PDF, XML, Jpeg, RTF, HTML output format support
<li>Remote administrator access to server control panel
<li>Full access and errors logging
<li>Web-forms support
<li>FastReport forms on the fly converting to web-forms
<li>Multiple database types support
<li>Multiple database connections support
<li>Network printing support (dot-matrix printers supported)
<li>Multiprocessor hardware platform support
</ul>
</font></p>
<hr>
<font face="Tahoma" size="3"><a href="index.html"><b>Back to main page</b></a><b><br>
</b></font>
<!--#include virtual="bottom.html" -->
</body>
</html>

View File

@ -0,0 +1,3 @@
<html>
<link href="default.css" rel=stylesheet type=text/css>
<title><!--#echo var="SERVER_NAME"-->

View File

@ -0,0 +1,63 @@
<!--#include virtual="header.html" --> || Test page
<!--#include virtual="top.html" -->
<p><font face="Tahoma" size="4">
<b>List of available reports at the server</b><br></font></p>
<font face="Tahoma" size="2">
<!--#echo var="SERVER_REPORTS_HTML"-->
</font>
<p><font face="Tahoma" size="4">
<b>Parameters testing</b>
</font></p>
<table width="750" border="0" cellspacing="2" cellpadding="2">
<tr><td class=tit>
<b>1.Page navigator</b>
</td></tr>
<tr><td class=txtbody>
<br><a href="result?report=1.Basic reports\01.Simple list.fr3&multipage=0&pagenav=0" target=_blank>01.Simple list on single page without page navigator</a>
<br>&nbsp;
</td></tr>
<tr><td class=tit>
<b>2.Pages view</b>
</td></tr>
<tr><td class=txtbody>
<br><a href="result?report=1.Basic reports\01.Simple list.fr3&multipage=0" target=_blank>01.Simple list on single page</a>
<br><a href="result?report=1.Basic reports\01.Simple list.fr3&multipage=1" target=_blank>02.Simple list on multi page</a>
<br>&nbsp;
</td></tr>
<tr><td class=tit>
<b>3.Page range</b>
</td></tr>
<tr><td class=txtbody>
<br><a href="result?report=1.Basic reports\03.Nested groups.fr3&pagerange=1-2&multipage=0&pagenav=0" target=_blank>01.Nested groups pages 1-2 on single page without pagenavigator</a>
<br>&nbsp;
</td></tr>
<tr><td class=tit>
<b>4.Custom variables</b>
</td></tr>
<tr><td class=txtbody>
<br><a href="result?report=1.Basic reports\01.Simple list.fr3&multipage=0&param1=Test param1&param2=Test param2" target=_blank>01.Simple list with Param1='Test param1' and Param2='Test param2'</a>
<br>&nbsp;
</td></tr>
<tr><td class=tit>
<b>5.Export to any formats</b>
</td></tr>
<tr><td class=txtbody>
<br><a href="result?report=1.Basic reports\01.Simple list.fr3&format=PDF">01.Simple list in PDF</a>
<br><a href="result?report=1.Basic reports\03.Nested groups.fr3&format=PDF">02.Nested groups in PDF</a>
<br><a href="result?report=2.Cross-tabs\05.Two rows, one column.fr3&format=PDF">03.Two rows, one column in PDF</a>
<br><a href="result?report=4.Misc\04.Preview outline.fr3&format=PDF">04.Outline in PDF</a>
<br><a href="result?report=3.Charts\01.Countries.fr3&format=PDF">05.Countries in PDF</a>
<br><a href="result?report=1.Basic reports\01.Simple list.fr3&format=RTF">06.Simple list in RTF</a>
<br><a href="result?report=1.Basic reports\07.Multi-column bands.fr3&format=XML">07.Multi-column bands in XML</a>
<br><a href="result?report=1.Basic reports\07.Multi-column bands.fr3&format=XLS">08.Multi-column bands in XLS</a>
<br><a href="result?report=1.Basic reports\02.Simple group.fr3&format=TXT">09.Simple group in TXT</a>
<br><a href="result?report=1.Basic reports\02.Simple group.fr3&format=FRP">10.Simple group in FP3</a>
<br><a href="result?report=1.Basic reports\02.Simple group.fr3&format=JPG">11.Simple group in JPG</a>
<br><a href="result?report=1.Basic reports\01.Simple list.fr3&format=ODS">12.Simple list in ODS (Open Document Spreadsheet)</a>
<br>&nbsp;
</td></tr>
</table>
<!--#include virtual="bottom.html" -->
</body>
</html>

View File

@ -0,0 +1,19 @@
<!--#include virtual="header.html" --> || Test page
<!--#include virtual="top.html" -->
<font face="Tahoma" size="3">
<font face="Tahoma" size="3">
<h3><b>Test index file for group</b></h3>
</font>
<table width="80%" border="0" cellspacing="2" cellpadding="2">
<tr><td class=tit>
<b>Reports</b>
</td></tr>
<tr><td class=txtbody>
<br><a href="result?report=1.Basic reports\01.Simple list.fr3" target=_blank>01.Simple list</a> - Demonstrates how to create simple list report.
<br>&nbsp;
</td></tr>
</table>
<!--#include virtual="bottom.html" -->
</body>
</html>

Binary file not shown.

After

Width:  |  Height:  |  Size: 3.6 KiB

View File

@ -0,0 +1,19 @@
<!--#include virtual="header.html" --> || Reports
<!--#include virtual="top.html" -->
<font face="Tahoma" size="3"><a href="index.html"><b>Back to main page</b></a><br></font>
<hr>
<font face="Tahoma" size="4">
<b>List of available reports at the server</b><br><br></font>
<font face="Tahoma" size="3">
<!--#echo var="SERVER_REPORTS_HTML"-->
</font>
<hr>
<font face="Tahoma" size="3"><a href="index.html"><b>Back to main page</b></a><br>
</font>
<!--#include virtual="bottom.html" -->
</body>
</html>

Binary file not shown.

After

Width:  |  Height:  |  Size: 3.8 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 3.6 KiB

View File

@ -0,0 +1,18 @@
<!--#include virtual="header.html" --> || Statistic
<!--#include virtual="top.html" -->
<b><a href="index.html">Back to the main page</a></b>
<p><font face="Tahoma" size="4"><b>On-line statistic</b></p>
<font face="Tahoma" size="3">
<table width="500" border="1" cellspacing="2" cellpadding="2">
<tr><td align="right" width="200"><b>Uptime:</b></td><td width="300"><!--#echo var="SERVER_UPTIME"--></td></tr>
<tr><td align="right"><b>Total sessions:</b></td><td><!--#echo var="SERVER_TOTAL_SESSIONS"--></td></tr>
<tr><td align="right"><b>Total reports:</b></td><td><!--#echo var="SERVER_TOTAL_REPORTS"--></td></tr>
<tr><td align="right"><b>Max sessions:</b></td><td><!--#echo var="SERVER_MAX_SESSIONS"--></td></tr>
<tr><td align="right"><b>Max reports:</b></td><td><!--#echo var="SERVER_MAX_REPORTS"--></td></tr>
</table>
</font>
<br><font face="Tahoma" size="3"><a href="index.html"><b>Back to the main page</b></a><br>
</font>
<!--#include virtual="bottom.html" -->
</body>
</html>

View File

@ -0,0 +1,19 @@
</title><body bgcolor="#FFFFFF">
<table width="750" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="120" align="center" valign="middle"><a href="/"><img src="server-bw.gif" onmouseover="this.src='server-colour.gif'" onmouseout="this.src='server-bw.gif'" alt="Reporting must be fast" border="0"></a></td>
<td width="" align="left" valign="middle"> <font face="Tahoma">
<font size="3" color="#89161C"><b><!--#echo var="SERVER_NAME"--></b></font><br>
<font size="2" color="#89161C">Version: <!--#echo var="SERVER_SOFTWARE"--></font><br>
<font size="1" face="Tahoma"><!--#echo var="SERVER_COPYRIGHT"--></font>
</td>
<td width="200" align="left" valign="middle"><b>
<a href="changes.html">Changes in version 2.0</a><br>
<a href="statistic.html">On-line statistic</a><br>
<!-- <a href="documentation/index.html" target="_blank">Documentation</a><br> -->
<a href="mailto:support@fast-report.com">Contact e-mail</a><br>
<a href="http://www.fast-report.com" target="_blank">FastReport home site</a>
</b>
</td>
</tr>
</table>

View File

@ -0,0 +1,4 @@
IMPORTANT:
This demo can be compiled only in the version Delphi/C++Builder 5 and higher.
(ADO components used in database connection).

View File

@ -0,0 +1,31 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Name="" Version="3.21" DotMatrixReport="False" EngineOptions.DoublePass="True" EngineOptions.UseFileCache="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.OutlineWidth="180" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" ReportOptions.Author="FastReport" ReportOptions.ConnectionName="FR Demo Base" ReportOptions.CreateDate="37871,9953986921" ReportOptions.Description.Text="Demonstrates how to create simple list report." ReportOptions.LastChange="38808,9150445833" ScriptLanguage="PascalScript" ScriptText.Text="&#13;&#10;procedure Page1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if (&#60;Param1&#62; = null) and (&#60;Param2&#62; = null) then&#13;&#10; Header1.Visible := False;&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." OnStartReport="frxReport1OnStartReport" PropData="08446174617365747301010C2C00000020446174615365743D22437573746F6D6572732220446174615365744E616D653D22437573746F6D657273220000095661726961626C657301010C0F000000204E616D653D22204D79566172732200010C0E000000204E616D653D22506172616D312200010C0E000000204E616D653D22506172616D322200010C11000000204E616D653D222044617461626173652200010C2C000000204E616D653D2250617468546F4461746142617365222056616C75653D22272E2E5C64656D6F2E6D646227220000055374796C650100">
<TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="5" RightMargin="5" TopMargin="5" BottomMargin="5" Columns="1" ColumnWidth="210" ColumnPositions.Text="0" PrintOnPreviousPage="True" HGuides.Text="" VGuides.Text="" OnBeforePrint="Page1OnBeforePrint">
<TfrxReportTitle Name="Band1" Height="26,45671" Left="0" Top="18,89765" Width="755,906">
<TfrxMemoView Name="Memo1" Align="baWidth" Left="0" Top="3,77953" Width="755,906" Height="22,67718" Color="8421376" Font.Charset="1" Font.Color="16777215" Font.Height="-16" Font.Name="Arial" Font.Style="1" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Customers"/>
</TfrxReportTitle>
<TfrxPageHeader Name="Band2" Height="34,01577" Left="0" Top="68,03154" Width="755,906">
<TfrxMemoView Name="Memo4" Left="204,09462" Top="7,55906" Width="158,74026" Height="18,89765" Color="16777215" Font.Charset="1" Font.Color="128" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="8" ParentFont="False" Text="Address"/>
<TfrxMemoView Name="Memo5" Left="377,953" Top="7,55906" Width="120,94496" Height="18,89765" Color="16777215" Font.Charset="1" Font.Color="128" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="8" ParentFont="False" Text="Contact"/>
<TfrxMemoView Name="Memo6" Left="514,01608" Top="7,55906" Width="83,14966" Height="18,89765" Color="16777215" Font.Charset="1" Font.Color="128" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="8" ParentFont="False" Text="Phone"/>
<TfrxMemoView Name="Memo7" Left="612,28386" Top="7,55906" Width="102,04731" Height="18,89765" Color="16777215" Font.Charset="1" Font.Color="128" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="8" ParentFont="False" Text="Fax"/>
<TfrxMemoView Name="Memo3" Left="7,55906" Top="7,55906" Width="181,41744" Height="18,89765" Color="16777215" Font.Charset="1" Font.Color="128" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="8" ParentFont="False" Text="Company"/>
</TfrxPageHeader>
<TfrxPageFooter Name="Band3" Height="26,45671" Left="0" Top="317,48052" Width="755,906">
<TfrxMemoView Name="Memo2" Left="3,77953" Top="7,55905999999999" Width="710,55164" Height="15,11812" Color="16777215" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" Frame.Typ="4" Frame.Width="2" HAlign="haRight" ParentFont="False" Text="Page [Page] of [TotalPages]"/>
</TfrxPageFooter>
<TfrxMasterData Name="Band4" Height="22,67718" Left="0" Top="234,33086" Width="755,906" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="Customers" DataSetName="Customers" RowCount="0">
<TfrxMemoView Name="Memo13" Left="3,77953" Top="0" Width="714,33117" Height="18,89765" DataSetName="Customers" Highlight.Font.Charset="1" Highlight.Font.Color="-370606080" Highlight.Font.Height="-13" Highlight.Font.Name="Arial" Highlight.Font.Style="0" Highlight.Color="15790320" Highlight.Condition="&#60;Line#&#62; mod 2" WordWrap="False" Text=""/>
<TfrxMemoView Name="Memo9" Left="204,09462" Top="0" Width="173,85838" Height="18,89765" DataField="Addr1" DataSet="Customers" DataSetName="Customers" Text="[Customers.&#34;Addr1&#34;]"/>
<TfrxMemoView Name="Memo10" Left="377,953" Top="0" Width="136,06308" Height="18,89765" DataField="Contact" DataSet="Customers" DataSetName="Customers" Text="[Customers.&#34;Contact&#34;]"/>
<TfrxMemoView Name="Memo11" Left="514,01608" Top="0" Width="98,26778" Height="18,89765" DataField="Phone" DataSet="Customers" DataSetName="Customers" Text="[Customers.&#34;Phone&#34;]"/>
<TfrxMemoView Name="Memo12" Left="612,28386" Top="0" Width="102,04731" Height="18,89765" DataField="FAX" DataSet="Customers" DataSetName="Customers" Text="[Customers.&#34;FAX&#34;]"/>
<TfrxMemoView Name="Memo8" Left="7,55906" Top="0" Width="196,53556" Height="18,89765" TagStr="[Customers.&#34;Cust No&#34;]" DataField="Company" DataSet="Customers" DataSetName="Customers" Text="[Customers.&#34;Company&#34;]"/>
</TfrxMasterData>
<TfrxHeader Name="Header1" Height="49,13389" Left="0" Top="162,51979" Width="755,906">
<TfrxMemoView Name="Memo14" Left="7,55906" Top="3,77952999999999" Width="733,22882" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" ParentFont="False" Text="Param1 = [Param1]"/>
<TfrxMemoView Name="Memo15" Left="7,55906" Top="22,67718" Width="733,22882" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" ParentFont="False" Text="Param2 = [Param2]"/>
</TfrxHeader>
<TfrxADOQuery Name="Customers" UserName="Customers" CloseDataSource="True" FieldAliases.Text="CustNo=Cust No&#13;&#10;Company=Company&#13;&#10;Addr1=Addr1&#13;&#10;Addr2=Addr2&#13;&#10;City=City&#13;&#10;State=State&#13;&#10;Zip=Zip&#13;&#10;Country=Country&#13;&#10;Phone=Phone&#13;&#10;FAX=FAX&#13;&#10;TaxRate=Tax Rate&#13;&#10;Contact=Contact&#13;&#10;LastInvoiceDate=Last Invoice Date" SQL.Text="select * from customer order by company" CommandTimeout="30" PropData="0A506172616D65746572730100"/>
</TfrxReportPage>
</TfrxReport>

View File

@ -0,0 +1,32 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Name="" Version="3.15" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="2047" PreviewOptions.OutlineWidth="180" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" ReportOptions.ConnectionName="FR Demo Base" ReportOptions.CreateDate="37871.9957952199" ReportOptions.Description.Text="Demonstrates how to create simple report with one group. Group breaked each time when first letter of company name changes." ReportOptions.LastChange="38526.017889537" ScriptLanguage="PascalScript" ScriptText.Text="&#13;&#10;begin&#13;&#10;&#13;&#10;end." OnStartReport="frxReport1OnStartReport" PropData="08446174617365747301010C2C00000020446174615365743D22437573746F6D6572732220446174615365744E616D653D22437573746F6D657273220000095661726961626C657301010C11000000204E616D653D222044617461626173652200010C2C000000204E616D653D2250617468546F4461746162617365222056616C75653D22272E2E5C64656D6F2E6D646227220000055374796C650100">
<TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="5" RightMargin="5" TopMargin="5" BottomMargin="5" Columns="1" ColumnWidth="210" ColumnPositions.Text="0" PrintOnPreviousPage="True" HGuides.Text="" VGuides.Text="">
<TfrxReportTitle Name="Band1" Height="26.45671" Left="0" Top="18.89765" Width="755.906">
<TfrxMemoView Name="Memo1" Left="0" Top="0" Width="710.55164" Height="22.67718" Color="8421376" Font.Charset="1" Font.Color="16777215" Font.Height="-16" Font.Name="Arial" Font.Style="1" HAlign="haCenter" Memo.Text="Customers" ParentFont="False" VAlign="vaCenter"/>
</TfrxReportTitle>
<TfrxPageHeader Name="Band2" Height="34.01577" Left="0" Top="68.03154" Width="755.906">
<TfrxMemoView Name="Memo5" Left="0" Top="7.55906" Width="188.9765" Height="18.89765" Font.Charset="1" Font.Color="128" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="8" Memo.Text="Company" ParentFont="False"/>
<TfrxMemoView Name="Memo6" Left="204.09462" Top="7.55906" Width="154.96073" Height="18.89765" Font.Charset="1" Font.Color="128" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="8" Memo.Text="Address" ParentFont="False"/>
<TfrxMemoView Name="Memo7" Left="374.17347" Top="7.55906" Width="120.94496" Height="18.89765" Font.Charset="1" Font.Color="128" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="8" Memo.Text="Contact" ParentFont="False"/>
<TfrxMemoView Name="Memo8" Left="510.23655" Top="7.55906" Width="83.14966" Height="18.89765" Font.Charset="1" Font.Color="128" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="8" Memo.Text="Phone" ParentFont="False"/>
<TfrxMemoView Name="Memo9" Left="608.50433" Top="7.55906" Width="102.04731" Height="18.89765" Font.Charset="1" Font.Color="128" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="8" Memo.Text="Fax" ParentFont="False"/>
</TfrxPageHeader>
<TfrxPageFooter Name="Band3" Height="26.45671" Left="0" Top="336.37817" Width="755.906">
<TfrxMemoView Name="Memo2" Left="0" Top="7.55905999999999" Width="710.55164" Height="15.11812" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" Frame.Typ="4" Frame.Width="2" HAlign="haRight" Memo.Text="[Page] of [TotalPages]" ParentFont="False"/>
</TfrxPageFooter>
<TfrxMasterData Name="Band4" Height="22.67718" Left="0" Top="211.65368" Width="755.906" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="Customers" DataSetName="Customers" RowCount="0">
<TfrxMemoView Name="Memo10" Left="0" Top="0" Width="204.09462" Height="18.89765" DataField="Company" DataSet="Customers" DataSetName="Customers" Memo.Text="[Customers.&#34;Company&#34;]"/>
<TfrxMemoView Name="Memo11" Left="204.09462" Top="0" Width="170.07885" Height="18.89765" DataField="Addr1" DataSet="Customers" DataSetName="Customers" Memo.Text="[Customers.&#34;Addr1&#34;]"/>
<TfrxMemoView Name="Memo12" Left="374.17347" Top="0" Width="136.06308" Height="18.89765" DataField="Contact" DataSet="Customers" DataSetName="Customers" Memo.Text="[Customers.&#34;Contact&#34;]"/>
<TfrxMemoView Name="Memo13" Left="510.23655" Top="0" Width="98.26778" Height="18.89765" DataField="Phone" DataSet="Customers" DataSetName="Customers" Memo.Text="[Customers.&#34;Phone&#34;]"/>
<TfrxMemoView Name="Memo14" Left="608.50433" Top="0" Width="102.04731" Height="18.89765" DataField="FAX" DataSet="Customers" DataSetName="Customers" Memo.Text="[Customers.&#34;FAX&#34;]"/>
</TfrxMasterData>
<TfrxGroupHeader Name="GroupHeader1" Height="26.45671" Left="0" Top="162.51979" Width="755.906" Condition="Copy(&#60;Customers.&#34;Company&#34;&#62;, 1, 1)">
<TfrxMemoView Name="Memo3" Left="0" Top="0" Width="710.55164" Height="22.67718" Color="16053492" Font.Charset="1" Font.Color="8388608" Font.Height="-19" Font.Name="Arial" Font.Style="0" Memo.Text="[Copy(&#60;Customers.&#34;Company&#34;&#62;, 1, 1)]" ParentFont="False" VAlign="vaCenter"/>
</TfrxGroupHeader>
<TfrxGroupFooter Name="GroupFooter1" Height="18.89765" Left="0" Top="257.00804" Width="755.906">
<TfrxMemoView Name="Memo4" Left="0" Top="0" Width="204.09462" Height="18.89765" StretchMode="smMaxHeight" Color="65535" HideZeros="True" Memo.Text="Count: [Count(Band4)]"/>
</TfrxGroupFooter>
<TfrxADOQuery Name="Customers" UserName="Customers" CloseDataSource="True" FieldAliases.Text="CustNo=Cust No&#13;&#10;Company=Company&#13;&#10;Addr1=Addr1&#13;&#10;Addr2=Addr2&#13;&#10;City=City&#13;&#10;State=State&#13;&#10;Zip=Zip&#13;&#10;Country=Country&#13;&#10;Phone=Phone&#13;&#10;FAX=FAX&#13;&#10;TaxRate=Tax Rate&#13;&#10;Contact=Contact&#13;&#10;LastInvoiceDate=Last Invoice Date" SQL.Text="select * from customer order by company" PropData="0A506172616D65746572730100"/>
</TfrxReportPage>
</TfrxReport>

View File

@ -0,0 +1,51 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Name="" Version="3.15" DotMatrixReport="False" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="2047" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" ReportOptions.ConnectionName="FR Demo Base" ReportOptions.CreateDate="37871.9959574884" ReportOptions.Description.Text="This report shows how to use multiple groups." ReportOptions.LastChange="38526.0184434606" ScriptLanguage="PascalScript" ScriptText.Text="&#13;&#10;begin&#13;&#10;&#13;&#10;end." OnStartReport="frxReport1OnStartReport" PropData="08446174617365747301010C2400000020446174615365743D2253616C65732220446174615365744E616D653D2253616C6573220000095661726961626C657301010C11000000204E616D653D222044617461626173652200010C2C000000204E616D653D2250617468546F4461746142617365222056616C75653D22272E2E5C64656D6F2E6D646227220000055374796C650100">
<TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="5" RightMargin="5" TopMargin="5" BottomMargin="5" Columns="1" ColumnWidth="210" ColumnPositions.Text="0" PrintOnPreviousPage="True" HGuides.Text="" VGuides.Text="">
<TfrxPageFooter Name="Band1" Height="22.67718" Left="0" Top="457.32313" Width="755.906">
<TfrxMemoView Name="Memo5" Left="3.77953" Top="3.77953000000002" Width="710.55164" Height="15.11812" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" Frame.Typ="4" Frame.Width="2" HAlign="haRight" Memo.Text="[Page#]" ParentFont="False"/>
</TfrxPageFooter>
<TfrxReportTitle Name="Band2" Height="26.45671" Left="0" Top="18.89765" Width="755.906">
<TfrxMemoView Name="Memo6" Left="3.77953" Top="3.77953" Width="710.55164" Height="18.89765" Color="8421376" Font.Charset="1" Font.Color="16777215" Font.Height="-16" Font.Name="Arial" Font.Style="1" HAlign="haCenter" Memo.Text="Customers" ParentFont="False" VAlign="vaCenter"/>
</TfrxReportTitle>
<TfrxPageHeader Name="Band3" Height="22.67718" Left="0" Top="68.03154" Width="755.906" PrintOnFirstPage="False">
<TfrxMemoView Name="Memo16" Left="3.77953" Top="3.77952999999999" Width="710.55164" Height="15.11812" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="4" Frame.Width="2" Memo.Text="" ParentFont="False"/>
</TfrxPageHeader>
<TfrxGroupHeader Name="Band4" Height="45.35436" Left="0" Top="151.1812" Width="755.906" Condition="Sales.&#34;Cust No&#34;">
<TfrxMemoView Name="Memo17" Left="3.77953" Top="0" Width="272.12616" Height="18.89765" Color="8388608" Font.Charset="1" Font.Color="16777215" Font.Height="-13" Font.Name="Arial" Font.Style="0" Frame.Typ="5" GapX="6" Memo.Text="Company" ParentFont="False" VAlign="vaCenter"/>
<TfrxMemoView Name="Memo19" Left="275.90569" Top="0" Width="177.63791" Height="18.89765" Color="8388608" Font.Charset="1" Font.Color="16777215" Font.Height="-13" Font.Name="Arial" Font.Style="0" Frame.Typ="4" Memo.Text="Phone" ParentFont="False" VAlign="vaCenter"/>
<TfrxMemoView Name="Memo20" Left="453.5436" Top="0" Width="260.78757" Height="18.89765" Color="8388608" Font.Charset="1" Font.Color="16777215" Font.Height="-13" Font.Name="Arial" Font.Style="0" Frame.Typ="6" Memo.Text="Fax" ParentFont="False" VAlign="vaCenter"/>
<TfrxMemoView Name="Memo21" Left="275.90569" Top="18.89765" Width="177.63791" Height="26.45671" Color="8388608" Font.Charset="1" Font.Color="16777215" Font.Height="-19" Font.Name="Arial" Font.Style="2" Memo.Text="[Sales.&#34;Phone&#34;]" ParentFont="False" VAlign="vaCenter"/>
<TfrxMemoView Name="Memo22" Left="453.5436" Top="18.89765" Width="260.78757" Height="26.45671" Color="8388608" Font.Charset="1" Font.Color="16777215" Font.Height="-19" Font.Name="Arial" Font.Style="2" Frame.Typ="2" Memo.Text="[Sales.&#34;FAX&#34;]" ParentFont="False" VAlign="vaCenter"/>
<TfrxMemoView Name="Memo18" Left="3.77953" Top="18.89765" Width="272.12616" Height="26.45671" Color="8388608" Font.Charset="1" Font.Color="16777215" Font.Height="-19" Font.Name="Arial" Font.Style="2" Frame.Typ="1" GapX="6" Memo.Text="[Sales.&#34;Company&#34;]" ParentFont="False" VAlign="vaCenter"/>
</TfrxGroupHeader>
<TfrxGroupHeader Name="Band5" Height="37.7953" Left="0" Top="219.21274" Width="755.906" Condition="Sales.&#34;Order No&#34;">
<TfrxMemoView Name="Memo3" Left="3.77953" Top="18.89765" Width="52.91342" Height="18.89765" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="1" Memo.Text="" ParentFont="False"/>
<TfrxMemoView Name="Memo8" Left="3.77953" Top="0" Width="124.72449" Height="18.89765" Color="12632256" Frame.Typ="1" GapX="4" Memo.Text="Order No [Sales.&#34;Order No&#34;]"/>
<TfrxMemoView Name="Memo9" Left="128.50402" Top="0" Width="585.82715" Height="18.89765" Color="12632256" Frame.Typ="2" Memo.Text="Date [Sales.&#34;Sale Date&#34;]"/>
<TfrxMemoView Name="Memo10" Left="56.69295" Top="18.89765" Width="71.81107" Height="18.89765" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haCenter" Memo.Text="Part" ParentFont="False"/>
<TfrxMemoView Name="Memo11" Left="128.50402" Top="18.89765" Width="279.68522" Height="18.89765" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haCenter" Memo.Text="Description" ParentFont="False"/>
<TfrxMemoView Name="Memo12" Left="408.18924" Top="18.89765" Width="83.14966" Height="18.89765" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haCenter" Memo.Text="Price" ParentFont="False"/>
<TfrxMemoView Name="Memo13" Left="491.3389" Top="18.89765" Width="60.47248" Height="18.89765" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haCenter" Memo.Text="Qty" ParentFont="False"/>
<TfrxMemoView Name="Memo14" Left="551.81138" Top="18.89765" Width="90.70872" Height="18.89765" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haCenter" Memo.Text="Total" ParentFont="False"/>
<TfrxMemoView Name="Memo31" Left="642.5201" Top="18.89765" Width="71.81107" Height="18.89765" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="2" Memo.Text="" ParentFont="False"/>
</TfrxGroupHeader>
<TfrxMasterData Name="Band6" Height="18.89765" Left="0" Top="279.68522" Width="755.906" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="Sales" DataSetName="Sales" RowCount="0">
<TfrxMemoView Name="Memo2" Left="3.77953" Top="0" Width="52.91342" Height="18.89765" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="1" Memo.Text="" ParentFont="False"/>
<TfrxMemoView Name="Memo23" Left="56.69295" Top="0" Width="71.81107" Height="18.89765" DataField="Part No" DataSet="Sales" DataSetName="Sales" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haCenter" Memo.Text="[Sales.&#34;Part No&#34;]" ParentFont="False"/>
<TfrxMemoView Name="Memo24" Left="128.50402" Top="0" Width="279.68522" Height="18.89765" DataField="Description" DataSet="Sales" DataSetName="Sales" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" Memo.Text="[Sales.&#34;Description&#34;]" ParentFont="False"/>
<TfrxMemoView Name="Memo25" Left="408.18924" Top="0" Width="83.14966" Height="18.89765" DataField="List Price" DataSet="Sales" DataSetName="Sales" DisplayFormat.FormatStr="%2.2m" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haRight" Memo.Text="[Sales.&#34;List Price&#34;]" ParentFont="False"/>
<TfrxMemoView Name="Memo26" Left="491.3389" Top="0" Width="60.47248" Height="18.89765" DataField="Qty" DataSet="Sales" DataSetName="Sales" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haCenter" Memo.Text="[Sales.&#34;Qty&#34;]" ParentFont="False"/>
<TfrxMemoView Name="Memo27" Left="551.81138" Top="0" Width="90.70872" Height="18.89765" DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haRight" Memo.Text="[&#60;Sales.&#34;Qty&#34;&#62;*&#60;Sales.&#34;List Price&#34;&#62;]" ParentFont="False"/>
<TfrxMemoView Name="Memo32" Left="642.5201" Top="0" Width="71.81107" Height="18.89765" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="2" Memo.Text="" ParentFont="False"/>
</TfrxMasterData>
<TfrxGroupFooter Name="Band7" Height="30.23624" Left="0" Top="366.61441" Width="755.906">
<TfrxMemoView Name="Memo28" Left="3.77953" Top="0" Width="710.55164" Height="18.89765" Color="12632256" DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Frame.Typ="11" Memo.Text="Total sales this customer: [Sum(&#60;Sales.&#34;Qty&#34;&#62;*&#60;Sales.&#34;List Price&#34;&#62;)]"/>
</TfrxGroupFooter>
<TfrxGroupFooter Name="Band8" Height="22.67718" Left="0" Top="321.26005" Width="755.906">
<TfrxMemoView Name="Memo1" Left="3.77953" Top="0" Width="52.91342" Height="22.67718" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="1" Memo.Text="" ParentFont="False"/>
<TfrxMemoView Name="Memo15" Left="56.69295" Top="0" Width="585.82715" Height="22.67718" DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="128" Font.Height="-13" Font.Name="Arial" Font.Style="0" Frame.Typ="4" HAlign="haRight" Memo.Text="Total this order: [Sum(&#60;Sales.&#34;Qty&#34;&#62;*&#60;Sales.&#34;List Price&#34;&#62;)]" ParentFont="False"/>
<TfrxMemoView Name="Memo33" Left="642.5201" Top="0" Width="71.81107" Height="22.67718" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="2" Memo.Text="" ParentFont="False"/>
</TfrxGroupFooter>
<TfrxADOQuery Name="Sales" UserName="Sales" CloseDataSource="True" FieldAliases.Text="a.CustNo=Cust No&#13;&#10;Company=Company&#13;&#10;Addr1=Addr1&#13;&#10;Addr2=Addr2&#13;&#10;City=City&#13;&#10;State=State&#13;&#10;Zip=Zip&#13;&#10;Country=Country&#13;&#10;Phone=Phone&#13;&#10;FAX=FAX&#13;&#10;a.TaxRate=Tax Rate&#13;&#10;Contact=Contact&#13;&#10;LastInvoiceDate=Last Invoice Date&#13;&#10;b.OrderNo=Order No&#13;&#10;b.CustNo=b.Cust No&#13;&#10;SaleDate=Sale Date&#13;&#10;ShipDate=Ship Date&#13;&#10;EmpNo=Emp No&#13;&#10;ShipToContact=Ship To Contact&#13;&#10;ShipToAddr1=Ship To Addr1&#13;&#10;ShipToAddr2=Ship To Addr2&#13;&#10;ShipToCity=Ship To City&#13;&#10;ShipToState=Ship To State&#13;&#10;ShipToZip=Ship To Zip&#13;&#10;ShipToCountry=Ship To Country&#13;&#10;ShipToPhone=Ship To Phone&#13;&#10;ShipVIA=Ship VIA&#13;&#10;PO=PO&#13;&#10;Terms=Terms&#13;&#10;PaymentMethod=Payment Method&#13;&#10;ItemsTotal=Items Total&#13;&#10;b.TaxRate=b.Tax Rate&#13;&#10;Freight=Freight&#13;&#10;AmountPaid=Amount Paid&#13;&#10;c.OrderNo=c.Order No&#13;&#10;ItemNo=Item No&#13;&#10;c.PartNo=Part No&#13;&#10;Qty=Qty&#13;&#10;Discount=Discount&#13;&#10;d.PartNo=d.Part No&#13;&#10;VendorNo=Vendor No&#13;&#10;Description=Description&#13;&#10;OnHand=On Hand&#13;&#10;OnOrder=On Order&#13;&#10;Cost=Cost&#13;&#10;ListPrice=List Price" SQL.Text="select * from customer a, orders b, items c, parts d&#13;&#10;where a.custno = b.custno&#13;&#10; and b.orderno = c.orderno&#13;&#10; and c.partno = d.partno&#13;&#10;order by a.company, b.orderno" PropData="0A506172616D65746572730100"/>
</TfrxReportPage>
</TfrxReport>

View File

@ -0,0 +1,58 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Name="" Version="3.15" DotMatrixReport="False" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="2047" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" ReportOptions.ConnectionName="FR Demo Base" ReportOptions.CreateDate="37871.9961568403" ReportOptions.Description.Text="Demonstrates how to create Master/Detail/SubDetail report. This report contains three data-bands which are connected to datasets." ReportOptions.LastChange="38526.0204352894" ScriptLanguage="PascalScript" ScriptText.Text="&#13;&#10;begin&#13;&#10;&#13;&#10;end." OnStartReport="frxReport1OnStartReport" PropData="08446174617365747301010C2400000020446174615365743D224974656D732220446174615365744E616D653D224974656D732200010C2C00000020446174615365743D22437573746F6D6572732220446174615365744E616D653D22437573746F6D6572732200010C2600000020446174615365743D224F72646572732220446174615365744E616D653D224F7264657273220000095661726961626C657301010C11000000204E616D653D222044617461626173652200010C2C000000204E616D653D2250617468546F4461746162617365222056616C75653D22272E2E5C64656D6F2E6D646227220000055374796C650100">
<TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="5" RightMargin="5" TopMargin="5" BottomMargin="5" Columns="1" ColumnWidth="210" ColumnPositions.Text="0" PrintOnPreviousPage="True" HGuides.Text="" VGuides.Text="">
<TfrxPageFooter Name="Band1" Height="22.67718" Left="0" Top="472.44125" Width="755.906">
<TfrxMemoView Name="Memo5" Left="3.77953" Top="3.77953000000002" Width="706.77211" Height="15.11812" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" Frame.Typ="4" Frame.Width="2" HAlign="haRight" Memo.Text="[Page#]" ParentFont="False"/>
</TfrxPageFooter>
<TfrxReportTitle Name="Band2" Height="26.45671" Left="0" Top="18.89765" Width="755.906">
<TfrxMemoView Name="Memo6" Left="3.77953" Top="3.77953" Width="706.77211" Height="18.89765" Color="8421376" Font.Charset="1" Font.Color="16777215" Font.Height="-16" Font.Name="Arial" Font.Style="1" HAlign="haCenter" Memo.Text="Customers" ParentFont="False" VAlign="vaBottom"/>
</TfrxReportTitle>
<TfrxPageHeader Name="Band3" Height="22.67718" Left="0" Top="68.03154" Width="755.906">
<TfrxMemoView Name="Memo22" Left="3.77953" Top="3.77952999999999" Width="706.77211" Height="15.11812" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="4" Frame.Width="2" Memo.Text="" ParentFont="False"/>
</TfrxPageHeader>
<TfrxMasterData Name="Band4" Height="45.35436" Left="0" Top="151.1812" Width="755.906" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="Customers" DataSetName="Customers" RowCount="0">
<TfrxMemoView Name="Memo23" Left="11.33859" Top="0" Width="283.46475" Height="18.89765" Color="8388608" Font.Charset="1" Font.Color="16777215" Font.Height="-13" Font.Name="Arial" Font.Style="0" Frame.Typ="4" Memo.Text="Company" ParentFont="False" VAlign="vaCenter"/>
<TfrxMemoView Name="Memo24" Left="11.33859" Top="18.89765" Width="283.46475" Height="26.45671" Color="8388608" DataField="Company" DataSetName="Customers" Font.Charset="1" Font.Color="16777215" Font.Height="-19" Font.Name="Arial" Font.Style="2" Memo.Text="[Customers.&#34;Company&#34;]" ParentFont="False" VAlign="vaCenter"/>
<TfrxMemoView Name="Memo25" Left="294.80334" Top="0" Width="173.85838" Height="18.89765" Color="8388608" Font.Charset="1" Font.Color="16777215" Font.Height="-13" Font.Name="Arial" Font.Style="0" Frame.Typ="4" Memo.Text="Phone" ParentFont="False" VAlign="vaCenter"/>
<TfrxMemoView Name="Memo26" Left="468.66172" Top="0" Width="162.51979" Height="18.89765" Color="8388608" Font.Charset="1" Font.Color="16777215" Font.Height="-13" Font.Name="Arial" Font.Style="0" Frame.Typ="4" Memo.Text="Fax" ParentFont="False" VAlign="vaCenter"/>
<TfrxMemoView Name="Memo27" Left="294.80334" Top="18.89765" Width="173.85838" Height="26.45671" Color="8388608" DataField="Phone" DataSetName="Customers" Font.Charset="1" Font.Color="16777215" Font.Height="-19" Font.Name="Arial" Font.Style="2" Memo.Text="[Customers.&#34;Phone&#34;]" ParentFont="False" VAlign="vaCenter"/>
<TfrxMemoView Name="Memo28" Left="468.66172" Top="18.89765" Width="162.51979" Height="26.45671" Color="8388608" DataField="FAX" DataSetName="Customers" Font.Charset="1" Font.Color="16777215" Font.Height="-19" Font.Name="Arial" Font.Style="2" Memo.Text="[Customers.&#34;FAX&#34;]" ParentFont="False" VAlign="vaCenter"/>
<TfrxMemoView Name="Memo29" Left="631.18151" Top="0" Width="79.37013" Height="45.35436" Color="8388608" Font.Charset="1" Font.Color="16777215" Font.Height="-19" Font.Name="Arial" Font.Style="3" Frame.Typ="6" Memo.Text="" ParentFont="False" VAlign="vaCenter"/>
<TfrxMemoView Name="Memo7" Left="3.77953" Top="0" Width="7.55906" Height="45.35436" Color="8388608" Font.Charset="1" Font.Color="16777215" Font.Height="-19" Font.Name="Arial" Font.Style="3" Frame.Typ="5" Memo.Text="" ParentFont="False" VAlign="vaCenter"/>
</TfrxMasterData>
<TfrxDetailData Name="Band5" Height="18.89765" Left="0" Top="219.21274" Width="755.906" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="Orders" DataSetName="Orders" RowCount="0">
<TfrxMemoView Name="Memo4" Left="3.77953" Top="0" Width="3.77953" Height="18.89765" Color="12632256" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="1" Memo.Text="" ParentFont="False"/>
<TfrxMemoView Name="Memo8" Left="7.55906" Top="0" Width="117.16543" Height="18.89765" Color="12632256" DataSet="Orders" DataSetName="Orders" Memo.Text="Order No [Orders.&#34;OrderNo&#34;]"/>
<TfrxMemoView Name="Memo9" Left="124.72449" Top="0" Width="585.82715" Height="18.89765" Color="12632256" DataSet="Orders" DataSetName="Orders" Frame.Typ="2" Memo.Text="Sale Date [Orders.&#34;SaleDate&#34;]"/>
</TfrxDetailData>
<TfrxFooter Name="Band6" Height="26.45671" Left="0" Top="260.78757" Width="755.906">
<TfrxMemoView Name="Memo10" Left="3.77953" Top="0" Width="706.77211" Height="18.89765" Color="12632256" DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Frame.Typ="11" Memo.Text="Total sales this customer: [Sum(&#60;Items.&#34;Qty&#34;&#62;*&#60;Items.&#34;Price&#34;&#62;, Band8)]"/>
</TfrxFooter>
<TfrxHeader Name="Band7" Height="18.89765" Left="0" Top="309.92146" Width="755.906">
<TfrxMemoView Name="Memo3" Left="3.77953" Top="0" Width="41.57483" Height="18.89765" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="1" Memo.Text="" ParentFont="False"/>
<TfrxMemoView Name="Memo11" Left="45.35436" Top="0" Width="56.69295" Height="15.11812" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haCenter" Memo.Text="Part" ParentFont="False"/>
<TfrxMemoView Name="Memo12" Left="109.60637" Top="0" Width="226.7718" Height="15.11812" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haCenter" Memo.Text="Description" ParentFont="False"/>
<TfrxMemoView Name="Memo13" Left="343.93723" Top="0" Width="79.37013" Height="15.11812" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haCenter" Memo.Text="Price" ParentFont="False"/>
<TfrxMemoView Name="Memo14" Left="430.86642" Top="0" Width="56.69295" Height="15.11812" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haCenter" Memo.Text="Qty" ParentFont="False"/>
<TfrxMemoView Name="Memo15" Left="495.11843" Top="0" Width="79.37013" Height="15.11812" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haCenter" Memo.Text="Total" ParentFont="False"/>
<TfrxMemoView Name="Memo30" Left="574.48856" Top="0" Width="136.06308" Height="18.89765" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="2" Memo.Text="" ParentFont="False"/>
</TfrxHeader>
<TfrxSubdetailData Name="Band8" Height="15.11812" Left="0" Top="351.49629" Width="755.906" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="Items" DataSetName="Items" RowCount="0">
<TfrxMemoView Name="Memo2" Left="3.77953" Top="0" Width="41.57483" Height="15.11812" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="1" Memo.Text="" ParentFont="False"/>
<TfrxMemoView Name="Memo16" Left="45.35436" Top="0" Width="56.69295" Height="15.11812" DataField="Part No" DataSetName="Items" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haCenter" Memo.Text="[Items.&#34;Part No&#34;]" ParentFont="False"/>
<TfrxMemoView Name="Memo17" Left="109.60637" Top="0" Width="226.7718" Height="15.11812" DataField="Part Name" DataSetName="Items" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" Memo.Text="[Items.&#34;Part Name&#34;]" ParentFont="False"/>
<TfrxMemoView Name="Memo18" Left="343.93723" Top="0" Width="79.37013" Height="15.11812" DataField="Price" DataSetName="Items" DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haRight" Memo.Text="[Items.&#34;Price&#34;]" ParentFont="False"/>
<TfrxMemoView Name="Memo19" Left="430.86642" Top="0" Width="56.69295" Height="15.11812" DataField="Qty" DataSetName="Items" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haCenter" Memo.Text="[Items.&#34;Qty&#34;]" ParentFont="False"/>
<TfrxMemoView Name="Memo20" Left="495.11843" Top="0" Width="79.37013" Height="15.11812" DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haRight" Memo.Text="[&#60;Items.&#34;Qty&#34;&#62;*&#60;Items.&#34;Price&#34;&#62;]" ParentFont="False"/>
<TfrxMemoView Name="Memo31" Left="574.48856" Top="0" Width="136.06308" Height="15.11812" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="2" Memo.Text="" ParentFont="False"/>
</TfrxSubdetailData>
<TfrxFooter Name="Band9" Height="22.67718" Left="0" Top="389.29159" Width="755.906">
<TfrxMemoView Name="Memo1" Left="3.77953" Top="0" Width="41.57483" Height="22.67718" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="1" Memo.Text="" ParentFont="False"/>
<TfrxMemoView Name="Memo21" Left="45.35436" Top="0" Width="529.1342" Height="18.89765" DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="128" Font.Height="-13" Font.Name="Arial" Font.Style="0" Frame.Typ="4" HAlign="haRight" Memo.Text="Total this order: [Sum(&#60;Items.&#34;Qty&#34;&#62;*&#60;Items.&#34;Price&#34;&#62;, Band8)]" ParentFont="False"/>
<TfrxMemoView Name="Memo32" Left="574.48856" Top="0" Width="136.06308" Height="22.67718" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="2" Memo.Text="" ParentFont="False"/>
</TfrxFooter>
<TfrxADOQuery Name="Items" UserName="Items" CloseDataSource="True" FieldAliases.Text="OrderNo=OrderNo&#13;&#10;ItemNo=ItemNo&#13;&#10;a.PartNo=Part No&#13;&#10;Qty=Qty&#13;&#10;Discount=Discount&#13;&#10;b.PartNo=b.PartNo&#13;&#10;VendorNo=VendorNo&#13;&#10;Description=Part Name&#13;&#10;OnHand=OnHand&#13;&#10;OnOrder=OnOrder&#13;&#10;Cost=Cost&#13;&#10;ListPrice=Price" Master="Orders" SQL.Text="select * from items a, parts b&#13;&#10;where a.partno=b.partno&#13;&#10;and a.orderno=:orderno&#13;&#10;order by itemno" PropData="0A506172616D657465727301010C24000000204E616D653D226F726465726E6F222044617461547970653D226674496E7465676572220000"/>
<TfrxADOQuery Name="Customers" UserName="Customers" CloseDataSource="True" FieldAliases.Text="CustNo=CustNo&#13;&#10;Company=Company&#13;&#10;Addr1=Addr1&#13;&#10;Addr2=Addr2&#13;&#10;City=City&#13;&#10;State=State&#13;&#10;Zip=Zip&#13;&#10;Country=Country&#13;&#10;Phone=Phone&#13;&#10;FAX=FAX&#13;&#10;TaxRate=TaxRate&#13;&#10;Contact=Contact&#13;&#10;LastInvoiceDate=LastInvoiceDate" SQL.Text="select * from customer order by company" PropData="0A506172616D65746572730100"/>
<TfrxADOQuery Name="Orders" UserName="Orders" CloseDataSource="True" FieldAliases.Text="OrderNo=OrderNo&#13;&#10;CustNo=CustNo&#13;&#10;SaleDate=SaleDate&#13;&#10;ShipDate=ShipDate&#13;&#10;EmpNo=EmpNo&#13;&#10;ShipToContact=ShipToContact&#13;&#10;ShipToAddr1=ShipToAddr1&#13;&#10;ShipToAddr2=ShipToAddr2&#13;&#10;ShipToCity=ShipToCity&#13;&#10;ShipToState=ShipToState&#13;&#10;ShipToZip=ShipToZip&#13;&#10;ShipToCountry=ShipToCountry&#13;&#10;ShipToPhone=ShipToPhone&#13;&#10;ShipVIA=ShipVIA&#13;&#10;PO=PO&#13;&#10;Terms=Terms&#13;&#10;PaymentMethod=PaymentMethod&#13;&#10;ItemsTotal=ItemsTotal&#13;&#10;TaxRate=TaxRate&#13;&#10;Freight=Freight&#13;&#10;AmountPaid=AmountPaid" Master="Customers" SQL.Text="select * from orders&#13;&#10;where custno = :custno&#13;&#10;order by saledate" PropData="0A506172616D657465727301010C23000000204E616D653D22637573746E6F222044617461547970653D226674496E7465676572220000"/>
</TfrxReportPage>
</TfrxReport>

View File

@ -0,0 +1,20 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Name="" DotMatrixReport="False" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="2047" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" ReportOptions.CreateDate="37871,996337662" ReportOptions.Description.Text="Demonstrates how to create Master/Detail/Detail reports. Just put on the page one MasterData band and two DetailData bands and connect each of them to the appropriate dataset. Of course, you can create Master/Master, Master/Detail/Detail/Detail and other reports with the same way." ReportOptions.LastChange="38447,371977338" ScriptLanguage="PascalScript" ScriptText.Text="begin&#13;&#10;&#13;&#10;end." PropData="0844617461736574730100095661726961626C657301010C14000000204E616D653D22204465736372697074696F6E2200010C35010000204E616D653D224465736372697074696F6E222056616C75653D2244656D6F6E7374726174657320686F7720746F20637265617465204D61737465722F44657461696C2F44657461696C207265706F7274732E204A75737420707574206F6E207468652070616765206F6E65204D6173746572446174612062616E6420616E642074776F2044657461696C446174612062616E647320616E6420636F6E6E6563742065616368206F66207468656D20746F2074686520617070726F70726961746520646174617365742E204F6620636F757273652C20796F752063616E20637265617465204D61737465722F4D61737465722C204D61737465722F44657461696C2F44657461696C2F44657461696C20616E64206F74686572207265706F7274732077697468207468652073616D65207761792E220000055374796C650100">
<TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="5" RightMargin="5" TopMargin="5" BottomMargin="5" Columns="1" ColumnWidth="210" ColumnPositions.Text="0" HGuides.Text="" VGuides.Text="">
<TfrxPageHeader Name="Band1" Height="22,67718" Left="0" Top="18,89765" Width="755,906">
<TfrxMemoView Name="Memo1" Left="3,77953" Top="0" Width="710,55164" Height="15,11812" Frame.Typ="8" Frame.Width="2" Memo.Text=""/>
</TfrxPageHeader>
<TfrxMasterData Name="Band2" Height="18,89765" Left="0" Top="102,04731" Width="755,906" Columns="1" ColumnWidth="200" ColumnGap="20" RowCount="20">
<TfrxMemoView Name="Memo2" Left="3,77953" Top="0" Width="710,55164" Height="18,89765" Color="65280" Memo.Text="[LINE#]. master"/>
</TfrxMasterData>
<TfrxPageFooter Name="Band3" Height="18,89765" Left="0" Top="291,02381" Width="755,906">
<TfrxMemoView Name="Memo3" Left="3,77953" Top="0" Width="710,55164" Height="7,55906" Frame.Typ="4" Frame.Width="2" Memo.Text=""/>
</TfrxPageFooter>
<TfrxDetailData Name="Band4" Height="22,67718" Left="0" Top="143,62214" Width="755,906" Columns="1" ColumnWidth="200" ColumnGap="20" RowCount="6">
<TfrxMemoView Name="Memo4" Left="3,77953" Top="0" Width="245,66945" Height="18,89765" Color="65535" Memo.Text="[LINE#]. detail1"/>
</TfrxDetailData>
<TfrxDetailData Name="Band5" Height="41,57483" Left="0" Top="188,9765" Width="755,906" Columns="1" ColumnWidth="200" ColumnGap="20" RowCount="4">
<TfrxMemoView Name="Memo5" Left="3,77953" Top="0" Width="245,66945" Height="37,7953" Color="255" Memo.Text="[LINE#]. detail2"/>
</TfrxDetailData>
</TfrxReportPage>
</TfrxReport>

View File

@ -0,0 +1,25 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Name="" Version="3.15" DotMatrixReport="False" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="2047" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" ReportOptions.ConnectionName="FR Demo Base" ReportOptions.CreateDate="37871.9964986574" ReportOptions.Description.Text="Demonstrates how to create simple report with columns. Just set number of columns in page options." ReportOptions.LastChange="38526.0224663542" ScriptLanguage="PascalScript" ScriptText.Text="begin&#13;&#10;&#13;&#10;end." OnStartReport="frxReport1OnStartReport" PropData="08446174617365747301010C2C00000020446174615365743D22437573746F6D6572732220446174615365744E616D653D22437573746F6D657273220000095661726961626C657301010C11000000204E616D653D222044617461626173652200010C2C000000204E616D653D2250617468546F4461746162617365222056616C75653D22272E2E5C64656D6F2E6D646227220000055374796C650100">
<TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="5.08" RightMargin="5.08" TopMargin="5.08" BottomMargin="5.08" Columns="2" ColumnWidth="100.076" ColumnPositions.Text="0&#13;&#10;100,08" PrintOnPreviousPage="True" HGuides.Text="" VGuides.Text="">
<TfrxReportTitle Name="Band1" Height="26.45671" Left="0" Top="18.89765" Width="755.3012752">
<TfrxMemoView Name="Memo1" Left="0" Top="0" Width="737.00835" Height="22.67718" Color="8421376" Font.Charset="1" Font.Color="16777215" Font.Height="-16" Font.Name="Arial" Font.Style="1" HAlign="haCenter" Memo.Text="Customers" ParentFont="False" VAlign="vaCenter"/>
</TfrxReportTitle>
<TfrxPageFooter Name="Band2" Height="31.77953" Left="0" Top="306.14193" Width="755.3012752">
<TfrxMemoView Name="Memo2" Left="0" Top="8" Width="712" Height="16" Color="16777215" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" Frame.Typ="4" Frame.Width="2" HAlign="haRight" Memo.Text="Page [PAGE#] of [TOTALPAGES#]" ParentFont="False"/>
</TfrxPageFooter>
<TfrxMasterData Name="Band3" Height="139.84261" Left="0" Top="105.82684" Width="755.3012752" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="Customers" DataSetName="Customers" RowCount="0">
<TfrxMemoView Name="Memo3" Left="7.55906" Top="26.45671" Width="124.72449" Height="18.89765" Font.Charset="1" Font.Color="128" Font.Height="-13" Font.Name="Arial" Font.Style="1" Memo.Text="Company" ParentFont="False"/>
<TfrxMemoView Name="Memo4" Left="7.55906" Top="49.13389" Width="124.72449" Height="18.89765" Font.Charset="1" Font.Color="128" Font.Height="-13" Font.Name="Arial" Font.Style="1" Memo.Text="Address" ParentFont="False"/>
<TfrxMemoView Name="Memo5" Left="7.55906" Top="71.81107" Width="124.72449" Height="18.89765" Font.Charset="1" Font.Color="128" Font.Height="-13" Font.Name="Arial" Font.Style="1" Memo.Text="Contact" ParentFont="False"/>
<TfrxMemoView Name="Memo6" Left="7.55906" Top="94.48825" Width="124.72449" Height="18.89765" Font.Charset="1" Font.Color="128" Font.Height="-13" Font.Name="Arial" Font.Style="1" Memo.Text="Phone" ParentFont="False"/>
<TfrxMemoView Name="Memo7" Left="7.55906" Top="117.16543" Width="124.72449" Height="18.89765" Font.Charset="1" Font.Color="128" Font.Height="-13" Font.Name="Arial" Font.Style="1" Memo.Text="Fax" ParentFont="False"/>
<TfrxMemoView Name="Memo8" Left="139.84261" Top="26.45671" Width="196.53556" Height="18.89765" Frame.Typ="15" Memo.Text="[Customers.&#34;Company&#34;]"/>
<TfrxMemoView Name="Memo9" Left="139.84261" Top="49.13389" Width="166.29932" Height="18.89765" Frame.Typ="15" Memo.Text="[Customers.&#34;Addr1&#34;]"/>
<TfrxMemoView Name="Memo10" Left="139.84261" Top="71.81107" Width="136.06308" Height="18.89765" Frame.Typ="15" Memo.Text="[Customers.&#34;Contact&#34;]"/>
<TfrxMemoView Name="Memo11" Left="139.84261" Top="94.48825" Width="105.82684" Height="18.89765" Frame.Typ="15" Memo.Text="[Customers.&#34;Phone&#34;]"/>
<TfrxMemoView Name="Memo12" Left="139.84261" Top="117.16543" Width="105.82684" Height="18.89765" Frame.Typ="15" Memo.Text="[Customers.&#34;FAX&#34;]"/>
<TfrxMemoView Name="Memo13" Left="7.55906" Top="3.77952999999999" Width="328.81911" Height="18.89765" Font.Charset="1" Font.Color="32768" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="8" Frame.Width="2" Memo.Text="[LINE]." ParentFont="False"/>
</TfrxMasterData>
<TfrxADOQuery Name="Customers" UserName="Customers" CloseDataSource="True" FieldAliases.Text="CustNo=CustNo&#13;&#10;Company=Company&#13;&#10;Addr1=Addr1&#13;&#10;Addr2=Addr2&#13;&#10;City=City&#13;&#10;State=State&#13;&#10;Zip=Zip&#13;&#10;Country=Country&#13;&#10;Phone=Phone&#13;&#10;FAX=FAX&#13;&#10;TaxRate=TaxRate&#13;&#10;Contact=Contact&#13;&#10;LastInvoiceDate=LastInvoiceDate" SQL.Text="select * from customer order by company" PropData="0A506172616D65746572730100"/>
</TfrxReportPage>
</TfrxReport>

View File

@ -0,0 +1,13 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Name="" Version="3.15" DotMatrixReport="False" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="2047" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" ReportOptions.ConnectionName="FR Demo Base" ReportOptions.CreateDate="37871.9966810995" ReportOptions.Description.Text="This example shows how to print multi-column bands. To make data-band multi-column, set its Columns property to 2 or more." ReportOptions.LastChange="38526.023076713" ScriptLanguage="PascalScript" ScriptText.Text="begin&#13;&#10;&#13;&#10;end." OnStartReport="frxReport1OnStartReport" PropData="08446174617365747301010C2C00000020446174615365743D22437573746F6D6572732220446174615365744E616D653D22437573746F6D657273220000095661726961626C657301010C11000000204E616D653D222044617461626173652200010C2C000000204E616D653D2250617468546F4461746162617365222056616C75653D22272E2E5C64656D6F2E6D646227220000055374796C650100">
<TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="5" RightMargin="5" TopMargin="5" BottomMargin="5" Columns="1" ColumnWidth="210" ColumnPositions.Text="0" HGuides.Text="" VGuides.Text="">
<TfrxReportTitle Name="Band1" Height="45.35436" Left="0" Top="18.89765" Width="755.906">
<TfrxMemoView Name="Memo1" Left="3.77953" Top="3.77953" Width="710.55164" Height="22.67718" Color="8421376" Font.Charset="1" Font.Color="16777215" Font.Height="-16" Font.Name="Arial" Font.Style="1" HAlign="haCenter" Memo.Text="Customers" ParentFont="False" VAlign="vaCenter"/>
</TfrxReportTitle>
<TfrxMasterData Name="Band4" Height="26.45671" Left="0" Top="124.72449" Width="755.906" Columns="3" ColumnWidth="200" ColumnGap="10" DataSet="Customers" DataSetName="Customers" RowCount="0">
<TfrxMemoView Name="Memo8" Left="7.55906" Top="0" Width="192.75603" Height="18.89765" DataField="Company" DataSet="Customers" DataSetName="Customers" Memo.Text="[Customers.&#34;Company&#34;]"/>
<TfrxLineView Name="Line1" Left="7.55906" Top="22.67718" Width="211.65368" Height="0" Frame.Color="12632256" Frame.Typ="4"/>
</TfrxMasterData>
<TfrxADOTable Name="Customers" UserName="Customers" CloseDataSource="True" FieldAliases.Text="" TableName="customer"/>
</TfrxReportPage>
</TfrxReport>

View File

@ -0,0 +1,21 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Name="" Version="3.20" DotMatrixReport="False" EngineOptions.UseFileCache="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" ReportOptions.ConnectionName="FR Demo Base" ReportOptions.CreateDate="37871,9968403472" ReportOptions.Description.Text="Demonstrates how to create simple list report with images and memos from DB fields. DB field placed in the memo of objects." ReportOptions.LastChange="38803,7183240625" ScriptLanguage="PascalScript" ScriptText.Text="&#13;&#10;begin&#13;&#10;&#13;&#10;end." OnStartReport="frxReport1OnStartReport" PropData="08446174617365747301010C2000000020446174615365743D2242696F2220446174615365744E616D653D2242696F220000095661726961626C657301010C11000000204E616D653D222044617461626173652200010C2C000000204E616D653D2250617468546F4461746162617365222056616C75653D22272E2E5C64656D6F2E6D646227220000055374796C650100">
<TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="5" RightMargin="5" TopMargin="5" BottomMargin="5" Columns="1" ColumnWidth="210" ColumnPositions.Text="0" HGuides.Text="" VGuides.Text="">
<TfrxReportTitle Name="Band1" Height="26,45671" Left="0" Top="18,89765" Width="755,906">
<TfrxMemoView Name="Memo1" Left="0" Top="3,77953" Width="718,1107" Height="22,67718" Color="8421376" Font.Charset="1" Font.Color="16777215" Font.Height="-16" Font.Name="Arial" Font.Style="1" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Fishes"/>
</TfrxReportTitle>
<TfrxPageHeader Name="Band2" Height="37,7953" Left="0" Top="68,03154" Width="755,906" PrintOnFirstPage="False">
<TfrxMemoView Name="Memo2" Left="0" Top="3,77952999999999" Width="718,1107" Height="15,11812" Color="16777215" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" Frame.Typ="8" Frame.Width="2" HAlign="haRight" ParentFont="False" Text="Fishes"/>
</TfrxPageHeader>
<TfrxMasterData Name="Band3" Height="120,94496" Left="0" Top="166,29932" Width="755,906" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="Bio" DataSetName="Bio" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo5" Left="0" Top="86,92919" Width="445,98454" Height="26,45671" StretchMode="smMaxHeight" Font.Charset="1" Font.Color="128" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haBlock" HideZeros="True" ParentFont="False" Text="[Bio.&#34;Notes&#34;]"/>
<TfrxMemoView Name="Memo3" Left="0" Top="7,55905999999999" Width="445,98454" Height="71,81107" Font.Charset="1" Font.Color="32768" Font.Height="-13" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Number: [Bio.&#34;Species No&#34;]&#13;&#10;Name: [Bio.&#34;Common Name&#34;]&#13;&#10;Spec name: [Bio.&#34;Species Name&#34;]&#13;&#10;Length (cm): [Bio.&#34;Length (cm)&#34;]"/>
<TfrxPictureView Name="Picture1" Left="502,67749" Top="15,11812" Width="128,50402" Height="86,92919" DataField="Graphic" DataSet="Bio" DataSetName="Bio"/>
<TfrxLineView Name="Line1" Left="0" Top="117,16543" Width="718,1107" Height="0" Frame.Typ="4" Frame.Width="1,5"/>
</TfrxMasterData>
<TfrxPageFooter Name="Band4" Height="22,67718" Left="0" Top="347,71676" Width="755,906">
<TfrxMemoView Name="Memo6" Left="0" Top="3,77953000000002" Width="718,1107" Height="15,11812" Color="16777215" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" Frame.Typ="4" Frame.Width="2" HAlign="haRight" ParentFont="False" Text="[Page#]"/>
</TfrxPageFooter>
<TfrxADOQuery Name="Bio" UserName="Bio" CloseDataSource="True" FieldAliases.Text="Species No=Species No&#13;&#10;Category=Category&#13;&#10;Common_Name=Common Name&#13;&#10;Species Name=Species Name&#13;&#10;Length (cm)=Length (cm)&#13;&#10;Length_In=Length In&#13;&#10;Notes=Notes&#13;&#10;Graphic=Graphic" SQL.Text="select * from biolife" CommandTimeout="30" PropData="0A506172616D65746572730100"/>
</TfrxReportPage>
</TfrxReport>

View File

@ -0,0 +1,20 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Name="" Version="3.20" DotMatrixReport="False" EngineOptions.UseFileCache="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" ReportOptions.ConnectionName="FR Demo Base" ReportOptions.CreateDate="37871,9970438889" ReportOptions.Description.Text="Demonstrates how to break long memos. Set &#34;Stretched&#34; and &#34;AllowSplit&#34; options of the MasterData band and &#34;Stretched&#34; option of the object with long memo." ReportOptions.LastChange="38803,7175870023" ScriptLanguage="PascalScript" ScriptText.Text="begin&#13;&#10;&#13;&#10;end." OnStartReport="frxReport1OnStartReport" PropData="08446174617365747301010C2000000020446174615365743D2242696F2220446174615365744E616D653D2242696F220000095661726961626C657301010C11000000204E616D653D222044617461626173652200010C2C000000204E616D653D2250617468546F4461746162617365222056616C75653D22272E2E5C64656D6F2E6D646227220000055374796C650100">
<TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="5" RightMargin="5" TopMargin="5" BottomMargin="5" Columns="2" ColumnWidth="361" ColumnPositions.Text="0&#13;&#10;105" HGuides.Text="" VGuides.Text="748,34694">
<TfrxReportTitle Name="Band1" Height="26,45671" Left="0" Top="18,89765" Width="755,906">
<TfrxMemoView Name="Memo1" Left="0" Top="0" Width="748,34694" Height="22,67718" Color="8421376" Font.Charset="1" Font.Color="16777215" Font.Height="-16" Font.Name="Arial" Font.Style="1" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Fishes"/>
</TfrxReportTitle>
<TfrxPageHeader Name="Band2" Height="37,7953" Left="0" Top="68,03154" Width="755,906" PrintOnFirstPage="False">
<TfrxMemoView Name="Memo2" Left="0" Top="3,77952999999999" Width="748,34694" Height="15,11812" Color="16777215" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" Frame.Typ="8" Frame.Width="2" HAlign="haRight" ParentFont="False" Text="Fishes"/>
</TfrxPageHeader>
<TfrxMasterData Name="Band3" Height="105,82684" Left="0" Top="166,29932" Width="755,906" AllowSplit="True" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="Bio" DataSetName="Bio" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo3" Left="3,77953" Top="7,55905999999999" Width="260,78757" Height="68,03154" Color="16777215" Font.Charset="1" Font.Color="32768" Font.Height="-13" Font.Name="Arial" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="Number: [Bio.&#34;Species No&#34;]&#13;&#10;Name: [Bio.&#34;Common Name&#34;]&#13;&#10;Spec name: [Bio.&#34;Species Name&#34;]&#13;&#10;Length (cm): [Bio.&#34;Length (cm)&#34;]"/>
<TfrxMemoView Name="Memo4" Left="3,77953" Top="79,37013" Width="260,78757" Height="18,89765" StretchMode="smMaxHeight" Color="16777215" DataField="Notes" Font.Charset="1" Font.Color="128" Font.Height="-11" Font.Name="Arial" Font.Style="0" Frame.Typ="15" HideZeros="True" ParentFont="False" Text="[Bio.&#34;Notes&#34;]"/>
<TfrxPictureView Name="Picture1" Left="268,34663" Top="7,55905999999999" Width="83,14966" Height="68,03154" DataField="Graphic" DataSet="Bio" DataSetName="Bio" Frame.Typ="15"/>
</TfrxMasterData>
<TfrxPageFooter Name="Band4" Height="22,67718" Left="0" Top="332,59864" Width="755,906">
<TfrxMemoView Name="Memo5" Left="0" Top="3,77953000000002" Width="748,34694" Height="15,11812" Color="16777215" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" Frame.Typ="4" Frame.Width="2" HAlign="haRight" ParentFont="False" Text="[Page#]"/>
</TfrxPageFooter>
<TfrxADOQuery Name="Bio" UserName="Bio" CloseDataSource="True" FieldAliases.Text="Species No=Species No&#13;&#10;Category=Category&#13;&#10;Common_Name=Common Name&#13;&#10;Species Name=Species Name&#13;&#10;Length (cm)=Length (cm)&#13;&#10;Length_In=Length In&#13;&#10;Notes=Notes&#13;&#10;Graphic=Graphic" SQL.Text="select * from biolife" CommandTimeout="30" PropData="0A506172616D65746572730100"/>
</TfrxReportPage>
</TfrxReport>

View File

@ -0,0 +1,61 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Name="" Version="3.15" DotMatrixReport="False" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="2047" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" ReportOptions.ConnectionName="FR Demo Base" ReportOptions.CreateDate="37871.9972084722" ReportOptions.Description.Text="This example shows how to create nested reports using subreport component." ReportOptions.LastChange="38526.0313366204" ScriptLanguage="C++Script" ScriptText.Text="Extended TotalSales;&#13;&#10;&#13;&#10;void Band4OnBeforePrint(TfrxComponent Sender)&#13;&#10;{&#13;&#10; TotalSales = 0;&#13;&#10;}&#13;&#10;&#13;&#10;void Band7OnBeforePrint(TfrxComponent Sender)&#13;&#10;{&#13;&#10; TotalSales += &#60;Items.&#34;Qty&#34;&#62; * &#60;Items.&#34;Price&#34;&#62;;&#13;&#10;}&#13;&#10;&#13;&#10;// main()&#13;&#10;{}" OnStartReport="frxReport1OnStartReport" PropData="08446174617365747301010C2400000020446174615365743D224974656D732220446174615365744E616D653D224974656D732200010C2C00000020446174615365743D22437573746F6D6572732220446174615365744E616D653D22437573746F6D6572732200010C2600000020446174615365743D224F72646572732220446174615365744E616D653D224F7264657273220000095661726961626C657301010C11000000204E616D653D222044617461626173652200010C2C000000204E616D653D2250617468546F4461746162617365222056616C75653D22272E2E5C64656D6F2E6D646227220000055374796C650100">
<TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="5" RightMargin="5" TopMargin="5" BottomMargin="5" Columns="1" ColumnWidth="210" ColumnPositions.Text="0" PrintOnPreviousPage="True" HGuides.Text="" VGuides.Text="">
<TfrxADOQuery Name="Items" UserName="Items" CloseDataSource="True" FieldAliases.Text="OrderNo=OrderNo&#13;&#10;ItemNo=ItemNo&#13;&#10;a.PartNo=Part No&#13;&#10;Qty=Qty&#13;&#10;Discount=Discount&#13;&#10;b.PartNo=b.PartNo&#13;&#10;VendorNo=VendorNo&#13;&#10;Description=Description&#13;&#10;OnHand=OnHand&#13;&#10;OnOrder=OnOrder&#13;&#10;Cost=Cost&#13;&#10;ListPrice=Price" Master="Orders" SQL.Text="select * from items a, parts b&#13;&#10;where a.partno=b.partno&#13;&#10;and a.orderno=:orderno&#13;&#10;order by itemno" PropData="0A506172616D657465727301010C24000000204E616D653D226F726465726E6F222044617461547970653D226674496E7465676572220000"/>
<TfrxADOQuery Name="Customers" UserName="Customers" CloseDataSource="True" FieldAliases.Text="" SQL.Text="select * from customer&#13;&#10;order by company" PropData="0A506172616D65746572730100"/>
<TfrxADOQuery Name="Orders" UserName="Orders" CloseDataSource="True" FieldAliases.Text="" Master="Customers" SQL.Text="select * from orders&#13;&#10;where custno = :custno&#13;&#10;order by saledate" PropData="0A506172616D657465727301010C23000000204E616D653D22637573746E6F222044617461547970653D226674496E7465676572220000"/>
<TfrxPageFooter Name="Band1" Height="22.67718" Left="0" Top="264.5671" Width="755.906">
<TfrxMemoView Name="Memo1" Left="0" Top="0" Width="710.55164" Height="15.11812" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" Frame.Typ="4" Frame.Width="2" HAlign="haRight" Memo.Text="[Page#]" ParentFont="False"/>
</TfrxPageFooter>
<TfrxReportTitle Name="Band2" Height="26.45671" Left="0" Top="18.89765" Width="755.906">
<TfrxMemoView Name="Memo2" Left="0" Top="0" Width="710.55164" Height="18.89765" Color="8421376" Font.Charset="1" Font.Color="16777215" Font.Height="-16" Font.Name="Arial" Font.Style="1" HAlign="haCenter" Memo.Text="Customers" ParentFont="False" VAlign="vaBottom"/>
</TfrxReportTitle>
<TfrxPageHeader Name="Band3" Height="15.11812" Left="0" Top="68.03154" Width="755.906">
<TfrxMemoView Name="Memo4" Left="0" Top="0" Width="710.55164" Height="15.11812" Color="16777215" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="4" Frame.Width="2" Memo.Text="" ParentFont="False"/>
</TfrxPageHeader>
<TfrxMasterData Name="Band4" Height="60.47248" Left="0" Top="143.62214" Width="755.906" OnBeforePrint="Band4OnBeforePrint" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="Customers" DataSetName="Customers" RowCount="0">
<TfrxMemoView Name="Memo5" Left="0" Top="0" Width="302.3624" Height="18.89765" Color="8388608" Font.Charset="1" Font.Color="16777215" Font.Height="-13" Font.Name="Arial" Font.Style="0" Frame.Typ="5" Memo.Text="Company" ParentFont="False" VAlign="vaCenter"/>
<TfrxMemoView Name="Memo6" Left="0" Top="18.89765" Width="302.3624" Height="22.67718" Color="8388608" DataField="Company" DataSet="Customers" DataSetName="Customers" Font.Charset="1" Font.Color="16777215" Font.Height="-19" Font.Name="Arial" Font.Style="2" Frame.Typ="1" Memo.Text="[Customers.&#34;Company&#34;]" ParentFont="False" VAlign="vaCenter"/>
<TfrxMemoView Name="Memo7" Left="302.3624" Top="0" Width="188.9765" Height="18.89765" Color="8388608" Font.Charset="1" Font.Color="16777215" Font.Height="-13" Font.Name="Arial" Font.Style="0" Frame.Typ="4" Memo.Text="Phone" ParentFont="False" VAlign="vaCenter"/>
<TfrxMemoView Name="Memo8" Left="491.3389" Top="0" Width="219.21274" Height="18.89765" Color="8388608" Font.Charset="1" Font.Color="16777215" Font.Height="-13" Font.Name="Arial" Font.Style="0" Frame.Typ="6" Memo.Text="Fax" ParentFont="False" VAlign="vaCenter"/>
<TfrxMemoView Name="Memo9" Left="302.3624" Top="18.89765" Width="188.9765" Height="22.67718" Color="8388608" DataField="Phone" DataSet="Customers" DataSetName="Customers" Font.Charset="1" Font.Color="16777215" Font.Height="-19" Font.Name="Arial" Font.Style="2" Memo.Text="[Customers.&#34;Phone&#34;]" ParentFont="False" VAlign="vaCenter"/>
<TfrxMemoView Name="Memo10" Left="491.3389" Top="18.89765" Width="219.21274" Height="22.67718" Color="8388608" DataField="FAX" DataSet="Customers" DataSetName="Customers" Font.Charset="1" Font.Color="16777215" Font.Height="-19" Font.Name="Arial" Font.Style="2" Frame.Typ="2" Memo.Text="[Customers.&#34;FAX&#34;]" ParentFont="False" VAlign="vaCenter"/>
<TfrxSubreport Name="Subreport1" Left="0" Top="41.57483" Width="94.48825" Height="18.89765" Page="Page4"/>
</TfrxMasterData>
</TfrxReportPage>
<TfrxReportPage Name="Page4" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
<TfrxMasterData Name="MasterData1" Height="37.7953" Left="0" Top="18.89765" Width="718.1107" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="Orders" DataSetName="Orders" RowCount="0">
<TfrxMemoView Name="Memo12" Left="0" Top="0" Width="120.94496" Height="18.89765" Color="12632256" Frame.Typ="1" Memo.Text="Order No [Orders.&#34;OrderNo&#34;]"/>
<TfrxMemoView Name="Memo13" Left="120.94496" Top="0" Width="589.60668" Height="18.89765" Color="12632256" Frame.Typ="2" Memo.Text="Date [Orders.&#34;SaleDate&#34;]"/>
<TfrxSubreport Name="Subreport2" Left="0" Top="18.89765" Width="94.48825" Height="18.89765" Page="Page2"/>
</TfrxMasterData>
<TfrxFooter Name="Footer1" Height="26.45671" Left="0" Top="79.37013" Width="718.1107">
<TfrxMemoView Name="Memo14" Left="0" Top="0" Width="710.55164" Height="18.89765" Color="12632256" DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Frame.Typ="11" Memo.Text="Total sales this customer: [TotalSales]"/>
</TfrxFooter>
</TfrxReportPage>
<TfrxReportPage Name="Page2" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
<TfrxHeader Name="Header1" Height="18.89765" Left="0" Top="18.89765" Width="718.1107">
<TfrxMemoView Name="Memo15" Left="0" Top="0" Width="45.35436" Height="18.89765" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="1" Memo.Text="" ParentFont="False"/>
<TfrxMemoView Name="Memo16" Left="45.35436" Top="0" Width="60.47248" Height="15.11812" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haCenter" Memo.Text="Part" ParentFont="False"/>
<TfrxMemoView Name="Memo17" Left="113.3859" Top="0" Width="230.55133" Height="15.11812" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haCenter" Memo.Text="Description" ParentFont="False"/>
<TfrxMemoView Name="Memo18" Left="351.49629" Top="0" Width="79.37013" Height="15.11812" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haCenter" Memo.Text="Price" ParentFont="False"/>
<TfrxMemoView Name="Memo19" Left="438.42548" Top="0" Width="60.47248" Height="15.11812" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haCenter" Memo.Text="Qty" ParentFont="False"/>
<TfrxMemoView Name="Memo20" Left="506.45702" Top="0" Width="79.37013" Height="15.11812" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haCenter" Memo.Text="Total" ParentFont="False"/>
<TfrxMemoView Name="Memo11" Left="585.82715" Top="0" Width="124.72449" Height="18.89765" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="2" Memo.Text="" ParentFont="False"/>
</TfrxHeader>
<TfrxMasterData Name="MasterData2" Height="15.11812" Left="0" Top="60.47248" Width="718.1107" OnBeforePrint="Band7OnBeforePrint" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="Items" DataSetName="Items" RowCount="0">
<TfrxMemoView Name="Memo21" Left="0" Top="0" Width="45.35436" Height="15.11812" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="1" Memo.Text="" ParentFont="False"/>
<TfrxMemoView Name="Memo22" Left="45.35436" Top="0" Width="60.47248" Height="15.11812" DataField="Part No" DataSet="Items" DataSetName="Items" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haCenter" Memo.Text="[Items.&#34;Part No&#34;]" ParentFont="False"/>
<TfrxMemoView Name="Memo23" Left="113.3859" Top="0" Width="230.55133" Height="15.11812" DataField="Description" DataSet="Items" DataSetName="Items" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" Memo.Text="[Items.&#34;Description&#34;]" ParentFont="False"/>
<TfrxMemoView Name="Memo24" Left="351.49629" Top="0" Width="79.37013" Height="15.11812" DataField="Price" DataSet="Items" DataSetName="Items" DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haRight" Memo.Text="[Items.&#34;Price&#34;]" ParentFont="False"/>
<TfrxMemoView Name="Memo25" Left="438.42548" Top="0" Width="60.47248" Height="15.11812" DataField="Qty" DataSet="Items" DataSetName="Items" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haCenter" Memo.Text="[Items.&#34;Qty&#34;]" ParentFont="False"/>
<TfrxMemoView Name="Memo26" Left="506.45702" Top="0" Width="79.37013" Height="15.11812" DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haRight" Memo.Text="[&#60;Items.&#34;Qty&#34;&#62;*&#60;Items.&#34;Price&#34;&#62;]" ParentFont="False"/>
<TfrxMemoView Name="Memo29" Left="585.82715" Top="0" Width="124.72449" Height="15.11812" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="2" Memo.Text="" ParentFont="False"/>
</TfrxMasterData>
<TfrxFooter Name="Footer2" Height="22.67718" Left="0" Top="98.26778" Width="718.1107">
<TfrxMemoView Name="Memo27" Left="0" Top="0" Width="45.35436" Height="22.67718" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="1" Memo.Text="" ParentFont="False"/>
<TfrxMemoView Name="Memo28" Left="45.35436" Top="0" Width="544.25232" Height="18.89765" DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="128" Font.Height="-13" Font.Name="Arial" Font.Style="0" Frame.Typ="4" HAlign="haRight" Memo.Text="Total this order: [Sum(&#60;Items.&#34;Qty&#34;&#62;*&#60;Items.&#34;Price&#34;&#62;)]" ParentFont="False"/>
<TfrxMemoView Name="Memo30" Left="589.60668" Top="0" Width="120.94496" Height="22.67718" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="2" Memo.Text="" ParentFont="False"/>
</TfrxFooter>
</TfrxReportPage>
</TfrxReport>

View File

@ -0,0 +1,26 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Name="" DotMatrixReport="False" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="2047" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" ReportOptions.CreateDate="37871,9973703935" ReportOptions.Description.Text="Demonstrates how to create side-by-side subreports. Each subreport can have different number of records." ReportOptions.LastChange="38447,5109081366" ScriptLanguage="PascalScript" ScriptText.Text="begin&#13;&#10;&#13;&#10;end." OnStartReport="frxReport1OnStartReport" PropData="0844617461736574730100095661726961626C657301010C14000000204E616D653D22204465736372697074696F6E2200010C84000000204E616D653D224465736372697074696F6E222056616C75653D2244656D6F6E7374726174657320686F7720746F2063726561746520736964652D62792D73696465207375627265706F7274732E2045616368207375627265706F72742063616E206861766520646966666572656E74206E756D626572206F66207265636F7264732E220000055374796C650100">
<TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="5" RightMargin="5" TopMargin="5" BottomMargin="5" Columns="1" ColumnWidth="210" ColumnPositions.Text="0" HGuides.Text="" VGuides.Text="">
<TfrxPageHeader Name="Band1" Height="22,67718" Left="0" Top="18,89765" Width="755,906">
<TfrxMemoView Name="Memo1" Left="0" Top="0" Width="714,33117" Height="15,11812" Frame.Typ="8" Frame.Width="2" Memo.Text=""/>
</TfrxPageHeader>
<TfrxMasterData Name="Band2" Height="41,57483" Left="0" Top="102,04731" Width="755,906" Columns="1" ColumnWidth="200" ColumnGap="20" RowCount="20">
<TfrxMemoView Name="Memo2" Left="0" Top="0" Width="714,33117" Height="18,89765" Color="12632256" Memo.Text="[LINE]"/>
<TfrxSubreport Name="Subreport1" Left="0" Top="22,67718" Width="94,48825" Height="18,89765" Page="Page4"/>
<TfrxSubreport Name="Subreport2" Left="249,44898" Top="22,67718" Width="94,48825" Height="18,89765" Page="Page5"/>
</TfrxMasterData>
<TfrxPageFooter Name="Band3" Height="15,11812" Left="0" Top="204,09462" Width="755,906">
<TfrxMemoView Name="Memo3" Left="0" Top="0" Width="714,33117" Height="7,55906" Frame.Typ="4" Frame.Width="2" Memo.Text=""/>
</TfrxPageFooter>
</TfrxReportPage>
<TfrxReportPage Name="Page4" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
<TfrxMasterData Name="MasterData1" Height="22,67718" Left="0" Top="18,89765" Width="718,1107" Columns="1" ColumnWidth="200" ColumnGap="20" RowCount="6">
<TfrxMemoView Name="Memo4" Left="0" Top="0" Width="245,66945" Height="18,89765" Color="65535" Memo.Text="[LINE]"/>
</TfrxMasterData>
</TfrxReportPage>
<TfrxReportPage Name="Page5" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
<TfrxMasterData Name="MasterData2" Height="41,57483" Left="0" Top="18,89765" Width="718,1107" Columns="1" ColumnWidth="200" ColumnGap="20" RowCount="4">
<TfrxMemoView Name="Memo5" Left="0" Top="0" Width="245,66945" Height="37,7953" Color="65280" Memo.Text="[LINE]"/>
</TfrxMasterData>
</TfrxReportPage>
</TfrxReport>

View File

@ -0,0 +1,30 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Name="" Version="3.20" DotMatrixReport="False" EngineOptions.UseFileCache="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" ReportOptions.ConnectionName="FR Demo Base" ReportOptions.CreateDate="37871,9975287269" ReportOptions.Description.Text="This report contains two pages (title and list). You can have several pages in your report. Each page can contains one report and can have own paper settings (size, margins, orientation and etc)." ReportOptions.LastChange="38803,7214976042" ScriptLanguage="PascalScript" ScriptText.Text="begin&#13;&#10;&#13;&#10;end." OnStartReport="frxReport1OnStartReport" PropData="08446174617365747301010C2C00000020446174615365743D22437573746F6D6572732220446174615365744E616D653D22437573746F6D657273220000095661726961626C657301010C11000000204E616D653D222044617461626173652200010C2C000000204E616D653D2250617468546F4461746162617365222056616C75653D22272E2E5C64656D6F2E6D646227220000055374796C650100">
<TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="5" RightMargin="5" TopMargin="5" BottomMargin="5" Columns="1" ColumnWidth="210" ColumnPositions.Text="0" PrintOnPreviousPage="True" HGuides.Text="" VGuides.Text="">
<TfrxMemoView Name="Memo1" Align="baWidth" Left="0" Top="136,06308" Width="755,906" Height="52,91342" Font.Charset="1" Font.Color="0" Font.Height="-35" Font.Name="Tahoma" Font.Style="1" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Our customers"/>
<TfrxMemoView Name="Memo14" Align="baWidth" Left="0" Top="192,75603" Width="755,906" Height="18,89765" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Arial" Font.Style="0" HAlign="haCenter" ParentFont="False" Text="Date: [Date]"/>
</TfrxReportPage>
<TfrxReportPage Name="Page2" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="5" RightMargin="5" TopMargin="5" BottomMargin="5" Columns="1" ColumnWidth="210" ColumnPositions.Text="0" HGuides.Text="" VGuides.Text="">
<TfrxADOQuery Name="Customers" UserName="Customers" CloseDataSource="True" FieldAliases.Text="CustNo=Cust No&#13;&#10;Company=Company&#13;&#10;Addr1=Addr1&#13;&#10;Addr2=Addr2&#13;&#10;City=City&#13;&#10;State=State&#13;&#10;Zip=Zip&#13;&#10;Country=Country&#13;&#10;Phone=Phone&#13;&#10;FAX=FAX&#13;&#10;TaxRate=Tax Rate&#13;&#10;Contact=Contact&#13;&#10;LastInvoiceDate=Last Invoice Date" SQL.Text="select * from customer order by company" CommandTimeout="30" PropData="0A506172616D65746572730100"/>
<TfrxReportTitle Name="Band1" Height="26,45671" Left="0" Top="16" Width="755,906">
<TfrxMemoView Name="Memo2" Left="0" Top="3,77953" Width="718,1107" Height="18,89765" Color="8421376" Font.Charset="1" Font.Color="16777215" Font.Height="-16" Font.Name="Arial" Font.Style="1" HAlign="haCenter" ParentFont="False" Text="Customers"/>
</TfrxReportTitle>
<TfrxPageHeader Name="Band2" Height="30,23624" Left="0" Top="64" Width="755,906">
<TfrxMemoView Name="Memo4" Left="3,77953" Top="7,55906" Width="196,53556" Height="18,89765" Color="16777215" Font.Charset="1" Font.Color="128" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="8" ParentFont="False" Text="Company"/>
<TfrxMemoView Name="Memo5" Left="204,09462" Top="7,55906" Width="166,29932" Height="18,89765" Color="16777215" Font.Charset="1" Font.Color="128" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="8" ParentFont="False" Text="Address"/>
<TfrxMemoView Name="Memo6" Left="377,953" Top="7,55906" Width="128,50402" Height="18,89765" Color="16777215" Font.Charset="1" Font.Color="128" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="8" ParentFont="False" Text="Contact"/>
<TfrxMemoView Name="Memo7" Left="514,01608" Top="7,55906" Width="90,70872" Height="18,89765" Color="16777215" Font.Charset="1" Font.Color="128" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="8" ParentFont="False" Text="Phone"/>
<TfrxMemoView Name="Memo8" Left="612,28386" Top="7,55906" Width="102,04731" Height="18,89765" Color="16777215" Font.Charset="1" Font.Color="128" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="8" ParentFont="False" Text="Fax"/>
</TfrxPageHeader>
<TfrxPageFooter Name="Band3" Height="26,45671" Left="0" Top="160" Width="755,906">
<TfrxMemoView Name="Memo3" Left="3,77953" Top="7,55905999999999" Width="710,55164" Height="15,11812" Color="16777215" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" Frame.Typ="4" Frame.Width="2" HAlign="haRight" ParentFont="False" Text="Page [Page#] of [TotalPages#]"/>
</TfrxPageFooter>
<TfrxMasterData Name="Band4" Height="22,67718" Left="0" Top="116" Width="755,906" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="Customers" DataSetName="Customers" RowCount="0">
<TfrxMemoView Name="Memo9" Left="3,77953" Top="0" Width="196,53556" Height="18,89765" DataField="Company" DataSet="Customers" DataSetName="Customers" Text="[Customers.&#34;Company&#34;]"/>
<TfrxMemoView Name="Memo10" Left="204,09462" Top="0" Width="166,29932" Height="18,89765" DataField="Addr1" DataSet="Customers" DataSetName="Customers" Text="[Customers.&#34;Addr1&#34;]"/>
<TfrxMemoView Name="Memo11" Left="377,953" Top="0" Width="128,50402" Height="18,89765" DataField="Contact" DataSet="Customers" DataSetName="Customers" Text="[Customers.&#34;Contact&#34;]"/>
<TfrxMemoView Name="Memo12" Left="514,01608" Top="0" Width="90,70872" Height="18,89765" DataField="Phone" DataSet="Customers" DataSetName="Customers" Text="[Customers.&#34;Phone&#34;]"/>
<TfrxMemoView Name="Memo13" Left="612,28386" Top="0" Width="102,04731" Height="18,89765" DataField="FAX" DataSet="Customers" DataSetName="Customers" Text="[Customers.&#34;FAX&#34;]"/>
</TfrxMasterData>
</TfrxReportPage>
</TfrxReport>

View File

@ -0,0 +1,64 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Name="" Version="3.15a" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="2047" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" ReportOptions.ConnectionName="FR Demo Base" ReportOptions.CreateDate="37871.9959574884" ReportOptions.Description.Text="This report demonstrates how to use URLs and anchors.&#13;&#10;&#13;&#10;To assign an URL to an object, just fill in its URL property. If first symbol of this property is '#', this is an anchor (it should be added in the script by Engine.AddAnchor method). First '@' symbol means a page number. Otherwise it is treated as an URL (for example, http://www.someurl.com)." ReportOptions.LastChange="38533.1618576389" ScriptLanguage="PascalScript" ScriptText.Text="procedure Band4OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; Engine.AddAnchor(&#60;Sales.&#34;Company&#34;&#62;);&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." OnStartReport="frxReport1OnStartReport" PropData="08446174617365747301010C2400000020446174615365743D2253616C65732220446174615365744E616D653D2253616C6573220000095661726961626C657301010C11000000204E616D653D222044617461626173652200010C2C000000204E616D653D2250617468546F4461746162617365222056616C75653D22272E2E5C64656D6F2E6D646227220000055374796C650100">
<TfrxReportPage Name="Page2" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
<TfrxADOQuery Name="Sales" UserName="Sales" CloseDataSource="True" FieldAliases.Text="a.CustNo=a.CustNo&#13;&#10;Company=Company&#13;&#10;Addr1=Addr1&#13;&#10;Addr2=Addr2&#13;&#10;City=City&#13;&#10;State=State&#13;&#10;Zip=Zip&#13;&#10;Country=Country&#13;&#10;Phone=Phone&#13;&#10;FAX=FAX&#13;&#10;a.TaxRate=TaxRate&#13;&#10;Contact=Contact&#13;&#10;LastInvoiceDate=LastInvoiceDate&#13;&#10;b.OrderNo=Order No&#13;&#10;b.CustNo=Cust No&#13;&#10;SaleDate=Sale Date&#13;&#10;ShipDate=ShipDate&#13;&#10;EmpNo=EmpNo&#13;&#10;ShipToContact=ShipToContact&#13;&#10;ShipToAddr1=ShipToAddr1&#13;&#10;ShipToAddr2=ShipToAddr2&#13;&#10;ShipToCity=ShipToCity&#13;&#10;ShipToState=ShipToState&#13;&#10;ShipToZip=ShipToZip&#13;&#10;ShipToCountry=ShipToCountry&#13;&#10;ShipToPhone=ShipToPhone&#13;&#10;ShipVIA=ShipVIA&#13;&#10;PO=PO&#13;&#10;Terms=Terms&#13;&#10;PaymentMethod=PaymentMethod&#13;&#10;ItemsTotal=ItemsTotal&#13;&#10;b.TaxRate=b.TaxRate&#13;&#10;Freight=Freight&#13;&#10;AmountPaid=AmountPaid&#13;&#10;c.OrderNo=c.OrderNo&#13;&#10;ItemNo=ItemNo&#13;&#10;c.PartNo=PartNo&#13;&#10;Qty=Qty&#13;&#10;Discount=Discount&#13;&#10;d.PartNo=d.PartNo&#13;&#10;VendorNo=VendorNo&#13;&#10;Description=Description&#13;&#10;OnHand=OnHand&#13;&#10;OnOrder=OnOrder&#13;&#10;Cost=Cost&#13;&#10;ListPrice=List Price" SQL.Text="select * from customer a, orders b, items c, parts d&#13;&#10;where a.custno = b.custno&#13;&#10; and b.orderno = c.orderno&#13;&#10; and c.partno = d.partno&#13;&#10;order by a.company, b.orderno" PropData="0A506172616D65746572730100"/>
<TfrxGroupHeader Name="GroupHeader1" Height="22.67718" Left="0" Top="151.1812" Width="718.1107" Condition="Sales.&#34;Cust No&#34;">
<TfrxMemoView Name="Memo29" URL="#[Sales.&#34;Company&#34;]" Left="0" Top="0" Width="238.11039" Height="18.89765" DataSetName="Sales" Font.Charset="1" Font.Color="16711680" Font.Height="-13" Font.Name="Arial" Font.Style="5" Memo.Text="[Sales.&#34;Company&#34;]" ParentFont="False"/>
<TfrxMemoView Name="Memo31" Left="536.69326" Top="0" Width="162.51979" Height="18.89765" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" HAlign="haRight" Memo.Text="[Engine.GetAnchorPage(&#60;Sales.&#34;Company&#34;&#62;)]" ParentFont="False"/>
</TfrxGroupHeader>
<TfrxMasterData Name="MasterData1" Height="0" Left="0" Top="196.53556" Width="718.1107" ColumnWidth="0" ColumnGap="0" DataSet="Sales" DataSetName="Sales" RowCount="0"/>
<TfrxReportTitle Name="ReportTitle1" Height="71.81107" Left="0" Top="18.89765" Width="718.1107">
<TfrxMemoView Name="Memo30" Left="0" Top="37.7953" Width="699.21305" Height="26.45671" Font.Charset="1" Font.Color="0" Font.Height="-19" Font.Name="Arial" Font.Style="1" HAlign="haCenter" Memo.Text="Table of contents" ParentFont="False"/>
<TfrxMemoView Name="Memo32" Left="453.5436" Top="0" Width="245.66945" Height="18.89765" HAlign="haRight" Memo.Text="This report is created in the FastReport"/>
<TfrxMemoView Name="Memo33" URL="http://www.fast-report.com" Left="453.5436" Top="18.89765" Width="245.66945" Height="18.89765" Font.Charset="1" Font.Color="16711680" Font.Height="-13" Font.Name="Arial" Font.Style="4" HAlign="haRight" Memo.Text="http://www.fast-report.com" ParentFont="False"/>
</TfrxReportTitle>
</TfrxReportPage>
<TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="5" RightMargin="5" TopMargin="5" BottomMargin="5" Columns="1" ColumnWidth="210" ColumnPositions.Text="0" HGuides.Text="" VGuides.Text="">
<TfrxPageFooter Name="Band1" Height="22.67718" Left="0" Top="360" Width="755.906">
<TfrxMemoView Name="Memo5" Left="109.60637" Top="3.77953000000002" Width="604.7248" Height="15.11812" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" Frame.Typ="4" Frame.Width="2" HAlign="haRight" Memo.Text="[Page#]" ParentFont="False"/>
<TfrxMemoView Name="Memo34" URL="@1" Left="0" Top="3.77953000000002" Width="109.60637" Height="15.11812" Font.Charset="1" Font.Color="16711680" Font.Height="-11" Font.Name="Arial" Font.Style="4" Frame.Typ="4" Frame.Width="2" Memo.Text="&#60;&#60; back to first page" ParentFont="False"/>
</TfrxPageFooter>
<TfrxReportTitle Name="Band2" Height="26.45671" Left="0" Top="16" Width="755.906">
<TfrxMemoView Name="Memo6" Left="0" Top="3.77953" Width="714.33117" Height="18.89765" Color="8421376" Font.Charset="1" Font.Color="16777215" Font.Height="-16" Font.Name="Arial" Font.Style="1" HAlign="haCenter" Memo.Text="Customers" ParentFont="False" VAlign="vaCenter"/>
</TfrxReportTitle>
<TfrxPageHeader Name="Band3" Height="22.67718" Left="0" Top="64" Width="755.906" PrintOnFirstPage="False">
<TfrxMemoView Name="Memo16" Left="0" Top="3.77952999999999" Width="714.33117" Height="15.11812" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="4" Frame.Width="2" Memo.Text="" ParentFont="False"/>
</TfrxPageHeader>
<TfrxGroupHeader Name="Band4" Height="45.35436" Left="0" Top="108" Width="755.906" OnBeforePrint="Band4OnBeforePrint" Condition="Sales.&#34;Cust No&#34;">
<TfrxMemoView Name="Memo17" Left="0" Top="0" Width="302.3624" Height="18.89765" Color="8388608" Font.Charset="1" Font.Color="16777215" Font.Height="-13" Font.Name="Arial" Font.Style="0" Frame.Typ="4" Memo.Text="Company" ParentFont="False" VAlign="vaCenter"/>
<TfrxMemoView Name="Memo18" Left="0" Top="18.89765" Width="306.14193" Height="26.45671" Color="8388608" Font.Charset="1" Font.Color="16777215" Font.Height="-19" Font.Name="Arial" Font.Style="2" Memo.Text="[Sales.&#34;Company&#34;]" ParentFont="False" VAlign="vaCenter"/>
<TfrxMemoView Name="Memo19" Left="302.3624" Top="0" Width="162.51979" Height="18.89765" Color="8388608" Font.Charset="1" Font.Color="16777215" Font.Height="-13" Font.Name="Arial" Font.Style="0" Frame.Typ="4" Memo.Text="Phone" ParentFont="False" VAlign="vaCenter"/>
<TfrxMemoView Name="Memo20" Left="464.88219" Top="0" Width="249.44898" Height="18.89765" Color="8388608" Font.Charset="1" Font.Color="16777215" Font.Height="-13" Font.Name="Arial" Font.Style="0" Frame.Typ="6" Memo.Text="Fax" ParentFont="False" VAlign="vaCenter"/>
<TfrxMemoView Name="Memo21" Left="302.3624" Top="18.89765" Width="162.51979" Height="26.45671" Color="8388608" Font.Charset="1" Font.Color="16777215" Font.Height="-19" Font.Name="Arial" Font.Style="2" Memo.Text="[Sales.&#34;Phone&#34;]" ParentFont="False" VAlign="vaCenter"/>
<TfrxMemoView Name="Memo22" Left="464.88219" Top="18.89765" Width="249.44898" Height="26.45671" Color="8388608" Font.Charset="1" Font.Color="16777215" Font.Height="-19" Font.Name="Arial" Font.Style="2" Frame.Typ="2" Memo.Text="[Sales.&#34;FAX&#34;]" ParentFont="False" VAlign="vaCenter"/>
</TfrxGroupHeader>
<TfrxGroupHeader Name="Band5" Height="37.7953" Left="0" Top="172" Width="755.906" Condition="Sales.&#34;Order No&#34;">
<TfrxMemoView Name="Memo3" Left="0" Top="18.89765" Width="45.35436" Height="18.89765" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="1" Memo.Text="" ParentFont="False"/>
<TfrxMemoView Name="Memo8" Left="0" Top="0" Width="124.72449" Height="18.89765" Color="12632256" Frame.Typ="1" Memo.Text="Order No [Sales.&#34;Order No&#34;]"/>
<TfrxMemoView Name="Memo9" Left="124.72449" Top="0" Width="589.60668" Height="18.89765" Color="12632256" Frame.Typ="2" Memo.Text="Date [Sales.&#34;Sale Date&#34;]"/>
<TfrxMemoView Name="Memo10" Left="45.35436" Top="18.89765" Width="60.47248" Height="15.11812" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haCenter" Memo.Text="Part" ParentFont="False"/>
<TfrxMemoView Name="Memo11" Left="113.3859" Top="18.89765" Width="230.55133" Height="15.11812" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haCenter" Memo.Text="Description" ParentFont="False"/>
<TfrxMemoView Name="Memo12" Left="355.27582" Top="18.89765" Width="79.37013" Height="15.11812" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haCenter" Memo.Text="Price" ParentFont="False"/>
<TfrxMemoView Name="Memo13" Left="442.20501" Top="18.89765" Width="60.47248" Height="15.11812" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haCenter" Memo.Text="Qty" ParentFont="False"/>
<TfrxMemoView Name="Memo14" Left="510.23655" Top="18.89765" Width="79.37013" Height="15.11812" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haCenter" Memo.Text="Total" ParentFont="False"/>
<TfrxMemoView Name="Memo4" Left="589.60668" Top="18.89765" Width="124.72449" Height="18.89765" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="2" Memo.Text="" ParentFont="False"/>
</TfrxGroupHeader>
<TfrxMasterData Name="Band6" Height="15.11812" Left="0" Top="228" Width="755.906" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="Sales" DataSetName="Sales" RowCount="0">
<TfrxMemoView Name="Memo2" Left="0" Top="0" Width="45.35436" Height="15.11812" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="1" Memo.Text="" ParentFont="False"/>
<TfrxMemoView Name="Memo23" Left="45.35436" Top="0" Width="60.47248" Height="15.11812" DataField="PartNo" DataSet="Sales" DataSetName="Sales" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haCenter" Memo.Text="[Sales.&#34;PartNo&#34;]" ParentFont="False"/>
<TfrxMemoView Name="Memo24" Left="113.3859" Top="0" Width="230.55133" Height="15.11812" DataField="Description" DataSet="Sales" DataSetName="Sales" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" Memo.Text="[Sales.&#34;Description&#34;]" ParentFont="False"/>
<TfrxMemoView Name="Memo25" Left="355.27582" Top="0" Width="79.37013" Height="15.11812" DataField="List Price" DataSet="Sales" DataSetName="Sales" DisplayFormat.FormatStr="%2.2m" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haRight" Memo.Text="[Sales.&#34;List Price&#34;]" ParentFont="False"/>
<TfrxMemoView Name="Memo26" Left="442.20501" Top="0" Width="60.47248" Height="15.11812" DataField="Qty" DataSet="Sales" DataSetName="Sales" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haCenter" Memo.Text="[Sales.&#34;Qty&#34;]" ParentFont="False"/>
<TfrxMemoView Name="Memo27" Left="510.23655" Top="0" Width="79.37013" Height="15.11812" DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haRight" Memo.Text="[&#60;Sales.&#34;Qty&#34;&#62;*&#60;Sales.&#34;List Price&#34;&#62;]" ParentFont="False"/>
<TfrxMemoView Name="Memo7" Left="589.60668" Top="0" Width="124.72449" Height="15.11812" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="2" Memo.Text="" ParentFont="False"/>
</TfrxMasterData>
<TfrxGroupFooter Name="Band7" Height="30.23624" Left="0" Top="308" Width="755.906">
<TfrxMemoView Name="Memo28" Left="0" Top="0" Width="714.33117" Height="18.89765" Color="12632256" DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Frame.Typ="11" Memo.Text="Total sales this customer: [Sum(&#60;Sales.&#34;Qty&#34;&#62;*&#60;Sales.&#34;List Price&#34;&#62;)]"/>
</TfrxGroupFooter>
<TfrxGroupFooter Name="Band8" Height="22.67718" Left="0" Top="264" Width="755.906">
<TfrxMemoView Name="Memo1" Left="0" Top="0" Width="45.35436" Height="22.67718" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="1" Memo.Text="" ParentFont="False"/>
<TfrxMemoView Name="Memo15" Left="45.35436" Top="0" Width="544.25232" Height="18.89765" DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="128" Font.Height="-13" Font.Name="Arial" Font.Style="0" Frame.Typ="4" HAlign="haRight" Memo.Text="Total this order: [Sum(&#60;Sales.&#34;Qty&#34;&#62;*&#60;Sales.&#34;List Price&#34;&#62;)]" ParentFont="False"/>
<TfrxMemoView Name="Memo35" Left="589.60668" Top="0" Width="124.72449" Height="22.67718" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="2" Memo.Text="" ParentFont="False"/>
</TfrxGroupFooter>
</TfrxReportPage>
</TfrxReport>

View File

@ -0,0 +1,51 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Name="" Version="3.15a" DotMatrixReport="False" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="2047" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" ReportOptions.ConnectionName="FR Demo Base" ReportOptions.CreateDate="37871.9959574884" ReportOptions.Description.Text="This report shows how to keep all group records together on the page." ReportOptions.LastChange="38533.1594184028" ScriptLanguage="PascalScript" ScriptText.Text="begin&#13;&#10;&#13;&#10;end." OnStartReport="frxReport1OnStartReport" PropData="08446174617365747301010C2400000020446174615365743D2253616C65732220446174615365744E616D653D2253616C6573220000095661726961626C657301010C11000000204E616D653D222044617461626173652200010C2C000000204E616D653D2250617468546F4461746162617365222056616C75653D22272E2E5C64656D6F2E6D646227220000055374796C650100">
<TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="5" RightMargin="5" TopMargin="5" BottomMargin="5" Columns="1" ColumnWidth="210" ColumnPositions.Text="0" PrintOnPreviousPage="True" HGuides.Text="" VGuides.Text="">
<TfrxADOQuery Name="Sales" UserName="Sales" CloseDataSource="True" FieldAliases.Text="a.CustNo=a.CustNo&#13;&#10;Company=Company&#13;&#10;Addr1=Addr1&#13;&#10;Addr2=Addr2&#13;&#10;City=City&#13;&#10;State=State&#13;&#10;Zip=Zip&#13;&#10;Country=Country&#13;&#10;Phone=Phone&#13;&#10;FAX=FAX&#13;&#10;a.TaxRate=TaxRate&#13;&#10;Contact=Contact&#13;&#10;LastInvoiceDate=LastInvoiceDate&#13;&#10;b.OrderNo=OrderNo&#13;&#10;b.CustNo=CustNo&#13;&#10;SaleDate=SaleDate&#13;&#10;ShipDate=ShipDate&#13;&#10;EmpNo=EmpNo&#13;&#10;ShipToContact=ShipToContact&#13;&#10;ShipToAddr1=ShipToAddr1&#13;&#10;ShipToAddr2=ShipToAddr2&#13;&#10;ShipToCity=ShipToCity&#13;&#10;ShipToState=ShipToState&#13;&#10;ShipToZip=ShipToZip&#13;&#10;ShipToCountry=ShipToCountry&#13;&#10;ShipToPhone=ShipToPhone&#13;&#10;ShipVIA=ShipVIA&#13;&#10;PO=PO&#13;&#10;Terms=Terms&#13;&#10;PaymentMethod=PaymentMethod&#13;&#10;ItemsTotal=ItemsTotal&#13;&#10;b.TaxRate=b.TaxRate&#13;&#10;Freight=Freight&#13;&#10;AmountPaid=AmountPaid&#13;&#10;c.OrderNo=c.OrderNo&#13;&#10;ItemNo=ItemNo&#13;&#10;c.PartNo=PartNo&#13;&#10;Qty=Qty&#13;&#10;Discount=Discount&#13;&#10;d.PartNo=d.PartNo&#13;&#10;VendorNo=VendorNo&#13;&#10;Description=Description&#13;&#10;OnHand=OnHand&#13;&#10;OnOrder=OnOrder&#13;&#10;Cost=Cost&#13;&#10;ListPrice=ListPrice" SQL.Text="select * from customer a, orders b, items c, parts d&#13;&#10;where a.custno = b.custno&#13;&#10; and b.orderno = c.orderno&#13;&#10; and c.partno = d.partno&#13;&#10;order by a.company, b.orderno" PropData="0A506172616D65746572730100"/>
<TfrxPageFooter Name="Band1" Height="26.45671" Left="0" Top="453.5436" Width="755.906">
<TfrxMemoView Name="Memo5" Left="3.77953" Top="3.77953000000002" Width="710.55164" Height="15.11812" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" Frame.Typ="4" Frame.Width="2" HAlign="haRight" Memo.Text="[Page#]" ParentFont="False"/>
</TfrxPageFooter>
<TfrxReportTitle Name="Band2" Height="26.45671" Left="0" Top="18.89765" Width="755.906">
<TfrxMemoView Name="Memo6" Left="3.77953" Top="0" Width="710.55164" Height="22.67718" Color="8421376" Font.Charset="1" Font.Color="16777215" Font.Height="-16" Font.Name="Arial" Font.Style="1" HAlign="haCenter" Memo.Text="Customers" ParentFont="False" VAlign="vaCenter"/>
</TfrxReportTitle>
<TfrxPageHeader Name="Band3" Height="22.67718" Left="0" Top="68.03154" Width="755.906" PrintOnFirstPage="False">
<TfrxMemoView Name="Memo16" Left="3.77953" Top="3.77952999999999" Width="710.55164" Height="15.11812" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="4" Frame.Width="2" Memo.Text="" ParentFont="False"/>
</TfrxPageHeader>
<TfrxGroupHeader Name="Band4" Height="45.35436" Left="0" Top="151.1812" Width="755.906" Condition="Sales.&#34;CustNo&#34;" KeepTogether="True">
<TfrxMemoView Name="Memo17" Left="3.77953" Top="0" Width="298.58287" Height="18.89765" Color="8388608" Font.Charset="1" Font.Color="16777215" Font.Height="-13" Font.Name="Arial" Font.Style="0" Frame.Typ="5" Memo.Text="Company" ParentFont="False" VAlign="vaCenter"/>
<TfrxMemoView Name="Memo18" Left="3.77953" Top="18.89765" Width="298.58287" Height="26.45671" Color="8388608" Font.Charset="1" Font.Color="16777215" Font.Height="-19" Font.Name="Arial" Font.Style="2" Frame.Typ="1" Memo.Text="[Sales.&#34;Company&#34;]" ParentFont="False" VAlign="vaCenter"/>
<TfrxMemoView Name="Memo19" Left="302.3624" Top="0" Width="162.51979" Height="18.89765" Color="8388608" Font.Charset="1" Font.Color="16777215" Font.Height="-13" Font.Name="Arial" Font.Style="0" Frame.Typ="4" Memo.Text="Phone" ParentFont="False" VAlign="vaCenter"/>
<TfrxMemoView Name="Memo20" Left="464.88219" Top="0" Width="249.44898" Height="18.89765" Color="8388608" Font.Charset="1" Font.Color="16777215" Font.Height="-13" Font.Name="Arial" Font.Style="0" Frame.Typ="6" Memo.Text="Fax" ParentFont="False" VAlign="vaCenter"/>
<TfrxMemoView Name="Memo21" Left="302.3624" Top="18.89765" Width="162.51979" Height="26.45671" Color="8388608" Font.Charset="1" Font.Color="16777215" Font.Height="-19" Font.Name="Arial" Font.Style="2" Memo.Text="[Sales.&#34;Phone&#34;]" ParentFont="False" VAlign="vaCenter"/>
<TfrxMemoView Name="Memo22" Left="464.88219" Top="18.89765" Width="249.44898" Height="26.45671" Color="8388608" Font.Charset="1" Font.Color="16777215" Font.Height="-19" Font.Name="Arial" Font.Style="2" Frame.Typ="2" Memo.Text="[Sales.&#34;FAX&#34;]" ParentFont="False" VAlign="vaCenter"/>
</TfrxGroupHeader>
<TfrxGroupHeader Name="Band5" Height="37.7953" Left="0" Top="219.21274" Width="755.906" Condition="Sales.&#34;OrderNo&#34;">
<TfrxMemoView Name="Memo3" Left="3.77953" Top="18.89765" Width="41.57483" Height="18.89765" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="1" Memo.Text="" ParentFont="False"/>
<TfrxMemoView Name="Memo8" Left="3.77953" Top="0" Width="124.72449" Height="18.89765" Color="12632256" Frame.Typ="1" Memo.Text="Order No [Sales.&#34;OrderNo&#34;]"/>
<TfrxMemoView Name="Memo9" Left="124.72449" Top="0" Width="589.60668" Height="18.89765" Color="12632256" Frame.Typ="2" Memo.Text="Date [Sales.&#34;SaleDate&#34;]"/>
<TfrxMemoView Name="Memo10" Left="45.35436" Top="18.89765" Width="52.91342" Height="15.11812" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haCenter" Memo.Text="Part" ParentFont="False"/>
<TfrxMemoView Name="Memo11" Left="109.60637" Top="18.89765" Width="226.7718" Height="15.11812" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haCenter" Memo.Text="Description" ParentFont="False"/>
<TfrxMemoView Name="Memo12" Left="355.27582" Top="18.89765" Width="86.92919" Height="15.11812" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haCenter" Memo.Text="Price" ParentFont="False"/>
<TfrxMemoView Name="Memo13" Left="442.20501" Top="18.89765" Width="68.03154" Height="15.11812" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haCenter" Memo.Text="Qty" ParentFont="False"/>
<TfrxMemoView Name="Memo14" Left="510.23655" Top="18.89765" Width="79.37013" Height="15.11812" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haCenter" Memo.Text="Total" ParentFont="False"/>
<TfrxMemoView Name="Memo4" Left="589.60668" Top="18.89765" Width="124.72449" Height="18.89765" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="2" Memo.Text="" ParentFont="False"/>
</TfrxGroupHeader>
<TfrxMasterData Name="Band6" Height="15.11812" Left="0" Top="279.68522" Width="755.906" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="Sales" DataSetName="Sales" RowCount="0">
<TfrxMemoView Name="Memo2" Left="3.77953" Top="0" Width="41.57483" Height="15.11812" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="1" Memo.Text="" ParentFont="False"/>
<TfrxMemoView Name="Memo23" Left="45.35436" Top="0" Width="52.91342" Height="15.11812" DataField="PartNo" DataSet="Sales" DataSetName="Sales" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haCenter" Memo.Text="[Sales.&#34;PartNo&#34;]" ParentFont="False"/>
<TfrxMemoView Name="Memo24" Left="109.60637" Top="0" Width="226.7718" Height="15.11812" DataField="Description" DataSet="Sales" DataSetName="Sales" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" Memo.Text="[Sales.&#34;Description&#34;]" ParentFont="False"/>
<TfrxMemoView Name="Memo25" Left="355.27582" Top="0" Width="86.92919" Height="15.11812" DataField="ListPrice" DataSet="Sales" DataSetName="Sales" DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haRight" Memo.Text="[Sales.&#34;ListPrice&#34;]" ParentFont="False"/>
<TfrxMemoView Name="Memo26" Left="442.20501" Top="0" Width="68.03154" Height="15.11812" DataField="Qty" DataSetName="Sales" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haCenter" Memo.Text="3" ParentFont="False"/>
<TfrxMemoView Name="Memo27" Left="510.23655" Top="0" Width="79.37013" Height="15.11812" DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haRight" Memo.Text="[&#60;Sales.&#34;Qty&#34;&#62;*&#60;Sales.&#34;ListPrice&#34;&#62;]" ParentFont="False"/>
<TfrxMemoView Name="Memo7" Left="589.60668" Top="0" Width="124.72449" Height="15.11812" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="2" Memo.Text="" ParentFont="False"/>
</TfrxMasterData>
<TfrxGroupFooter Name="Band7" Height="30.23624" Left="0" Top="362.83488" Width="755.906">
<TfrxMemoView Name="Memo28" Left="3.77953" Top="0" Width="710.55164" Height="18.89765" Color="12632256" DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Frame.Typ="11" Memo.Text="Total sales this customer: [Sum(&#60;Sales.&#34;Qty&#34;&#62;*&#60;Sales.&#34;ListPrice&#34;&#62;)]"/>
</TfrxGroupFooter>
<TfrxGroupFooter Name="Band8" Height="22.67718" Left="0" Top="317.48052" Width="755.906">
<TfrxMemoView Name="Memo1" Left="3.77953" Top="0" Width="41.57483" Height="22.67718" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="1" Memo.Text="" ParentFont="False"/>
<TfrxMemoView Name="Memo15" Left="45.35436" Top="0" Width="544.25232" Height="18.89765" DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="128" Font.Height="-13" Font.Name="Arial" Font.Style="0" Frame.Typ="4" HAlign="haRight" Memo.Text="Total this order: [Sum(&#60;Sales.&#34;Qty&#34;&#62;*&#60;Sales.&#34;ListPrice&#34;&#62;)]" ParentFont="False"/>
<TfrxMemoView Name="Memo29" Left="589.60668" Top="0" Width="124.72449" Height="22.67718" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="2" Memo.Text="" ParentFont="False"/>
</TfrxGroupFooter>
</TfrxReportPage>
</TfrxReport>

View File

@ -0,0 +1,52 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Name="" Version="3.15a" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="2047" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" ReportOptions.ConnectionName="FR Demo Base" ReportOptions.CreateDate="37871.9959574884" ReportOptions.Description.Text="This report demonstrates how to show group total in the group header. The report is two-pass report. On first pass the group totals are accumulated in the variables, on final pass they are printed in the group header." ReportOptions.LastChange="38533.1640945023" ScriptLanguage="PascalScript" ScriptText.Text="procedure Band7OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; Set(&#60;Sales.&#34;Company&#34;&#62;, Sum(&#60;Sales.&#34;Qty&#34;&#62;*&#60;Sales.&#34;List Price&#34;&#62;));&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo4OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; Memo4.Text := 'Sum: ' + VarToStr(Get(&#60;Sales.&#34;Company&#34;&#62;));&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." OnStartReport="frxReport1OnStartReport" PropData="08446174617365747301010C2400000020446174615365743D2253616C65732220446174615365744E616D653D2253616C6573220000095661726961626C657301010C11000000204E616D653D222044617461626173652200010C2C000000204E616D653D2250617468546F4461746162617365222056616C75653D22272E2E5C64656D6F2E6D646227220000055374796C650100">
<TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="5" RightMargin="5" TopMargin="5" BottomMargin="5" Columns="1" ColumnWidth="210" ColumnPositions.Text="0" PrintOnPreviousPage="True" HGuides.Text="" VGuides.Text="">
<TfrxADOQuery Name="Sales" UserName="Sales" CloseDataSource="True" FieldAliases.Text="a.CustNo=Cust No&#13;&#10;Company=Company&#13;&#10;Addr1=Addr1&#13;&#10;Addr2=Addr2&#13;&#10;City=City&#13;&#10;State=State&#13;&#10;Zip=Zip&#13;&#10;Country=Country&#13;&#10;Phone=Phone&#13;&#10;FAX=FAX&#13;&#10;a.TaxRate=a.TaxRate&#13;&#10;Contact=Contact&#13;&#10;LastInvoiceDate=LastInvoiceDate&#13;&#10;b.OrderNo=Order No&#13;&#10;b.CustNo=b.CustNo&#13;&#10;SaleDate=Sale Date&#13;&#10;ShipDate=ShipDate&#13;&#10;EmpNo=EmpNo&#13;&#10;ShipToContact=ShipToContact&#13;&#10;ShipToAddr1=ShipToAddr1&#13;&#10;ShipToAddr2=ShipToAddr2&#13;&#10;ShipToCity=ShipToCity&#13;&#10;ShipToState=ShipToState&#13;&#10;ShipToZip=ShipToZip&#13;&#10;ShipToCountry=ShipToCountry&#13;&#10;ShipToPhone=ShipToPhone&#13;&#10;ShipVIA=ShipVIA&#13;&#10;PO=PO&#13;&#10;Terms=Terms&#13;&#10;PaymentMethod=PaymentMethod&#13;&#10;ItemsTotal=ItemsTotal&#13;&#10;b.TaxRate=b.TaxRate&#13;&#10;Freight=Freight&#13;&#10;AmountPaid=AmountPaid&#13;&#10;c.OrderNo=c.OrderNo&#13;&#10;ItemNo=Item No&#13;&#10;c.PartNo=Part No&#13;&#10;Qty=Qty&#13;&#10;Discount=Discount&#13;&#10;d.PartNo=d.PartNo&#13;&#10;VendorNo=VendorNo&#13;&#10;Description=Description&#13;&#10;OnHand=OnHand&#13;&#10;OnOrder=OnOrder&#13;&#10;Cost=Cost&#13;&#10;ListPrice=List Price" SQL.Text="select * from customer a, orders b, items c, parts d&#13;&#10;where a.custno = b.custno&#13;&#10; and b.orderno = c.orderno&#13;&#10; and c.partno = d.partno&#13;&#10;order by a.company, b.orderno" PropData="0A506172616D65746572730100"/>
<TfrxPageFooter Name="Band1" Height="22.67718" Left="0" Top="364" Width="755.906">
<TfrxMemoView Name="Memo5" Left="3.77953" Top="3.77953000000002" Width="710.55164" Height="15.11812" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" Frame.Typ="4" Frame.Width="2" HAlign="haRight" Memo.Text="[Page#]" ParentFont="False"/>
</TfrxPageFooter>
<TfrxReportTitle Name="Band2" Height="26.45671" Left="0" Top="16" Width="755.906">
<TfrxMemoView Name="Memo6" Left="3.77953" Top="3.77953" Width="710.55164" Height="18.89765" Color="8421376" Font.Charset="1" Font.Color="16777215" Font.Height="-16" Font.Name="Arial" Font.Style="1" HAlign="haCenter" Memo.Text="Customers" ParentFont="False" VAlign="vaCenter"/>
</TfrxReportTitle>
<TfrxPageHeader Name="Band3" Height="22.67718" Left="0" Top="64" Width="755.906" PrintOnFirstPage="False">
<TfrxMemoView Name="Memo16" Left="3.77953" Top="3.77952999999999" Width="710.55164" Height="15.11812" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="4" Frame.Width="2" Memo.Text="" ParentFont="False"/>
</TfrxPageHeader>
<TfrxGroupHeader Name="Band4" Height="45.35436" Left="0" Top="108" Width="755.906" Condition="Sales.&#34;Cust No&#34;">
<TfrxMemoView Name="Memo17" Left="3.77953" Top="0" Width="272.12616" Height="18.89765" Color="8388608" Font.Charset="1" Font.Color="16777215" Font.Height="-13" Font.Name="Arial" Font.Style="0" Frame.Typ="5" GapX="6" Memo.Text="Company" ParentFont="False" VAlign="vaCenter"/>
<TfrxMemoView Name="Memo19" Left="275.90569" Top="0" Width="177.63791" Height="18.89765" Color="8388608" Font.Charset="1" Font.Color="16777215" Font.Height="-13" Font.Name="Arial" Font.Style="0" Frame.Typ="4" Memo.Text="Phone" ParentFont="False" VAlign="vaCenter"/>
<TfrxMemoView Name="Memo20" Left="453.5436" Top="0" Width="260.78757" Height="18.89765" Color="8388608" Font.Charset="1" Font.Color="16777215" Font.Height="-13" Font.Name="Arial" Font.Style="0" Frame.Typ="6" Memo.Text="Fax" ParentFont="False" VAlign="vaCenter"/>
<TfrxMemoView Name="Memo21" Left="275.90569" Top="18.89765" Width="177.63791" Height="26.45671" Color="8388608" Font.Charset="1" Font.Color="16777215" Font.Height="-19" Font.Name="Arial" Font.Style="2" Memo.Text="[Sales.&#34;Phone&#34;]" ParentFont="False" VAlign="vaCenter"/>
<TfrxMemoView Name="Memo22" Left="453.5436" Top="18.89765" Width="260.78757" Height="26.45671" Color="8388608" Font.Charset="1" Font.Color="16777215" Font.Height="-19" Font.Name="Arial" Font.Style="2" Frame.Typ="2" Memo.Text="[Sales.&#34;FAX&#34;]" ParentFont="False" VAlign="vaCenter"/>
<TfrxMemoView Name="Memo18" Left="3.77953" Top="18.89765" Width="272.12616" Height="26.45671" Color="8388608" Font.Charset="1" Font.Color="16777215" Font.Height="-19" Font.Name="Arial" Font.Style="2" Frame.Typ="1" GapX="6" Memo.Text="[Sales.&#34;Company&#34;]" ParentFont="False" VAlign="vaCenter"/>
<TfrxMemoView Name="Memo4" Left="593.38621" Top="0" Width="120.94496" Height="18.89765" OnBeforePrint="Memo4OnBeforePrint" DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16777215" Font.Height="-13" Font.Name="Arial" Font.Style="0" Memo.Text="Sum:" ParentFont="False" VAlign="vaCenter"/>
</TfrxGroupHeader>
<TfrxGroupHeader Name="Band5" Height="37.7953" Left="0" Top="172" Width="755.906" Condition="Sales.&#34;Order No&#34;">
<TfrxMemoView Name="Memo3" Left="3.77953" Top="18.89765" Width="52.91342" Height="18.89765" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="1" Memo.Text="" ParentFont="False"/>
<TfrxMemoView Name="Memo8" Left="3.77953" Top="0" Width="124.72449" Height="18.89765" Color="12632256" Frame.Typ="1" GapX="4" Memo.Text="Order No [Sales.&#34;Order No&#34;]"/>
<TfrxMemoView Name="Memo9" Left="128.50402" Top="0" Width="585.82715" Height="18.89765" Color="12632256" Frame.Typ="2" Memo.Text="Date [Sales.&#34;Sale Date&#34;]"/>
<TfrxMemoView Name="Memo10" Left="56.69295" Top="18.89765" Width="71.81107" Height="18.89765" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haCenter" Memo.Text="Part" ParentFont="False"/>
<TfrxMemoView Name="Memo11" Left="128.50402" Top="18.89765" Width="279.68522" Height="18.89765" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haCenter" Memo.Text="Description" ParentFont="False"/>
<TfrxMemoView Name="Memo12" Left="408.18924" Top="18.89765" Width="83.14966" Height="18.89765" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haCenter" Memo.Text="Price" ParentFont="False"/>
<TfrxMemoView Name="Memo13" Left="491.3389" Top="18.89765" Width="60.47248" Height="18.89765" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haCenter" Memo.Text="Qty" ParentFont="False"/>
<TfrxMemoView Name="Memo14" Left="551.81138" Top="18.89765" Width="90.70872" Height="18.89765" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haCenter" Memo.Text="Total" ParentFont="False"/>
<TfrxMemoView Name="Memo31" Left="642.5201" Top="18.89765" Width="71.81107" Height="18.89765" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="2" Memo.Text="" ParentFont="False"/>
</TfrxGroupHeader>
<TfrxMasterData Name="Band6" Height="18.89765" Left="0" Top="228" Width="755.906" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="Sales" DataSetName="Sales" RowCount="0">
<TfrxMemoView Name="Memo2" Left="3.77953" Top="0" Width="52.91342" Height="18.89765" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="1" Memo.Text="" ParentFont="False"/>
<TfrxMemoView Name="Memo23" Left="56.69295" Top="0" Width="71.81107" Height="18.89765" DataField="Part No" DataSetName="Sales" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haCenter" Memo.Text="[Sales.&#34;Part No&#34;]" ParentFont="False"/>
<TfrxMemoView Name="Memo24" Left="128.50402" Top="0" Width="279.68522" Height="18.89765" DataField="Description" DataSetName="Sales" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" Memo.Text="[Sales.&#34;Description&#34;]" ParentFont="False"/>
<TfrxMemoView Name="Memo25" Left="408.18924" Top="0" Width="83.14966" Height="18.89765" DataField="List Price" DataSetName="Sales" DisplayFormat.FormatStr="%2.2m" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haRight" Memo.Text="[Sales.&#34;List Price&#34;]" ParentFont="False"/>
<TfrxMemoView Name="Memo26" Left="491.3389" Top="0" Width="60.47248" Height="18.89765" DataField="Qty" DataSetName="Sales" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haCenter" Memo.Text="[Sales.&#34;Qty&#34;]" ParentFont="False"/>
<TfrxMemoView Name="Memo27" Left="551.81138" Top="0" Width="90.70872" Height="18.89765" DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haRight" Memo.Text="[&#60;Sales.&#34;Qty&#34;&#62;*&#60;Sales.&#34;List Price&#34;&#62;]" ParentFont="False"/>
<TfrxMemoView Name="Memo32" Left="642.5201" Top="0" Width="71.81107" Height="18.89765" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="2" Memo.Text="" ParentFont="False"/>
</TfrxMasterData>
<TfrxGroupFooter Name="Band7" Height="30.23624" Left="0" Top="312" Width="755.906" OnBeforePrint="Band7OnBeforePrint">
<TfrxMemoView Name="Memo28" Left="3.77953" Top="0" Width="710.55164" Height="18.89765" Color="12632256" DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Frame.Typ="11" Memo.Text="Total sales this customer: [Sum(&#60;Sales.&#34;Qty&#34;&#62;*&#60;Sales.&#34;List Price&#34;&#62;)]"/>
</TfrxGroupFooter>
<TfrxGroupFooter Name="Band8" Height="22.67718" Left="0" Top="268" Width="755.906">
<TfrxMemoView Name="Memo1" Left="3.77953" Top="0" Width="52.91342" Height="22.67718" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="1" Memo.Text="" ParentFont="False"/>
<TfrxMemoView Name="Memo15" Left="56.69295" Top="0" Width="585.82715" Height="22.67718" DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="128" Font.Height="-13" Font.Name="Arial" Font.Style="0" Frame.Typ="4" HAlign="haRight" Memo.Text="Total this order: [Sum(&#60;Sales.&#34;Qty&#34;&#62;*&#60;Sales.&#34;List Price&#34;&#62;)]" ParentFont="False"/>
<TfrxMemoView Name="Memo33" Left="642.5201" Top="0" Width="71.81107" Height="22.67718" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="2" Memo.Text="" ParentFont="False"/>
</TfrxGroupFooter>
</TfrxReportPage>
</TfrxReport>

View File

@ -0,0 +1,10 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Name="" Version="3.15a" DotMatrixReport="False" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="2047" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" ReportOptions.ConnectionName="FR Demo Base" ReportOptions.CreateDate="37907.6514537153" ReportOptions.Description.Text="Demonstrates how to print cross-tab reports with TfrxCrossView object. To use this object, include TfrxCrossObject component from FR component palette into your project.&#13;&#10;To configure cross-tab, double-click it." ReportOptions.LastChange="38533.1500828241" ScriptLanguage="PascalScript" ScriptText.Text="begin&#13;&#10;&#13;&#10;end." OnStartReport="frxReport1OnStartReport" PropData="08446174617365747301010C2400000020446174615365743D2243726F73732220446174615365744E616D653D2243726F7373220000095661726961626C657301010C11000000204E616D653D222044617461626173652200010C2C000000204E616D653D2250617468546F4461746162617365222056616C75653D22272E2E5C64656D6F2E6D646227220000055374796C650100">
<TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
<TfrxADOTable Name="Cross" UserName="Cross" CloseDataSource="True" FieldAliases.Text="" TableName="crosstest"/>
<TfrxReportTitle Name="ReportTitle1" Height="18.89765" Left="0" Top="18.89765" Width="718.1107">
<TfrxMemoView Name="Memo1" Left="0" Top="0" Width="309.92146" Height="18.89765" Memo.Text="Employee's salary"/>
</TfrxReportTitle>
<TfrxDBCrossView Name="Cross1" Left="0" Top="56.69295" Width="94.48825" Height="18.89765" DownThenAcross="False" RowLevels="0" CellFields.Text="Salary" ColumnFields.Text="Name" DataSet="Cross" DataSetName="Cross" RowFields.Text="" PropData="054D656D6F730A6A0400003C3F786D6C2076657273696F6E3D22312E302220656E636F64696E673D227574662D38223F3E3C63726F73733E3C63656C6C6D656D6F733E3C546672784D656D6F56696577204E616D653D2222204C6566743D2231302220546F703D223332222057696474683D22343322204865696768743D2232322220466F6E742E436861727365743D22312220466F6E742E436F6C6F723D222D323134373438333634302220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D22417269616C2220466F6E742E5374796C653D223022204672616D652E5479703D2231322220476170583D22332220476170593D2233222048416C69676E3D226861526967687422204D656D6F2E546578743D22302220506172656E74466F6E743D2246616C736522205374796C653D2263656C6C222F3E3C2F63656C6C6D656D6F733E3C636F6C756D6E6D656D6F733E3C546672784D656D6F56696577204E616D653D2222205461673D2231303022204C6566743D2231302220546F703D223130222057696474683D22343322204865696768743D2232322220436F6C6F723D2231333433343837392220466F6E742E436861727365743D22312220466F6E742E436F6C6F723D222D323134373438333634302220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D22417269616C2220466F6E742E5374796C653D223022204672616D652E436F6C6F723D22313637373732313522204672616D652E5479703D2231352220476170583D22332220476170593D2233222048416C69676E3D22686143656E74657222204D656D6F2E546578743D222220506172656E74466F6E743D2246616C736522205374796C653D22636F6C756D6E222F3E3C2F636F6C756D6E6D656D6F733E3C636F6C756D6E746F74616C6D656D6F733E3C546672784D656D6F56696577204E616D653D2222205461673D2233303022204C6566743D2235332220546F703D223130222057696474683D22383222204865696768743D2232322220436F6C6F723D2231303032373030372220466F6E742E436861727365743D22312220466F6E742E436F6C6F723D222D323134373438333634302220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D22417269616C2220466F6E742E5374796C653D223122204672616D652E436F6C6F723D22313637373732313522204672616D652E5479703D2231352220476170583D22332220476170593D2233222048416C69676E3D22686143656E74657222204D656D6F2E546578743D224772616E6420546F74616C2220506172656E74466F6E743D2246616C736522205374796C653D22636F6C6772616E64222F3E3C2F636F6C756D6E746F74616C6D656D6F733E3C726F776D656D6F732F3E3C726F77746F74616C6D656D6F732F3E3C63656C6C66756E6374696F6E733E3C6974656D20312F3E3C2F63656C6C66756E6374696F6E733E3C636F6C756D6E736F72743E3C6974656D20302F3E3C2F636F6C756D6E736F72743E3C726F77736F72742F3E3C2F63726F73733E"/>
</TfrxReportPage>
</TfrxReport>

View File

@ -0,0 +1,10 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Name="" Version="3.15a" DotMatrixReport="False" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="2047" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" ReportOptions.ConnectionName="FR Demo Base" ReportOptions.CreateDate="37907.6514537153" ReportOptions.Description.Text="Demonstrates how to print cross-tab reports with TfrxCrossView object. To use this object, include TfrxCrossObject component from FR component palette into your project." ReportOptions.LastChange="38533.150889213" ScriptLanguage="PascalScript" ScriptText.Text="begin&#13;&#10;&#13;&#10;end." OnStartReport="frxReport1OnStartReport" PropData="08446174617365747301010C2400000020446174615365743D2243726F73732220446174615365744E616D653D2243726F7373220000095661726961626C657301010C11000000204E616D653D222044617461626173652200010C2C000000204E616D653D2250617468546F4461746162617365222056616C75653D22272E2E5C64656D6F2E6D646227220000055374796C650100">
<TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
<TfrxADOTable Name="Cross" UserName="Cross" CloseDataSource="True" FieldAliases.Text="" TableName="crosstest"/>
<TfrxReportTitle Name="ReportTitle1" Height="18.89765" Left="0" Top="18.89765" Width="718.1107">
<TfrxMemoView Name="Memo1" Left="0" Top="0" Width="309.92146" Height="18.89765" Memo.Text="Employee's salary"/>
</TfrxReportTitle>
<TfrxDBCrossView Name="Cross1" Left="0" Top="56.69295" Width="94.48825" Height="18.89765" ColumnLevels="0" DownThenAcross="False" CellFields.Text="Salary" ColumnFields.Text="" DataSet="Cross" DataSetName="Cross" RowFields.Text="Name" PropData="054D656D6F730A290400003C3F786D6C2076657273696F6E3D22312E302220656E636F64696E673D227574662D38223F3E3C63726F73733E3C63656C6C6D656D6F733E3C546672784D656D6F56696577204E616D653D2222204C6566743D2239312220546F703D223130222057696474683D22313422204865696768743D2232322220466F6E742E436861727365743D22312220466F6E742E436F6C6F723D222D323134373438333634302220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D22417269616C2220466F6E742E5374796C653D223022204672616D652E5479703D2231322220476170583D22332220476170593D2233222048416C69676E3D226861526967687422204D656D6F2E546578743D22302220506172656E74466F6E743D2246616C736522205374796C653D2263656C6C222F3E3C2F63656C6C6D656D6F733E3C636F6C756D6E6D656D6F732F3E3C636F6C756D6E746F74616C6D656D6F732F3E3C726F776D656D6F733E3C546672784D656D6F56696577204E616D653D2222205461673D2232303022204C6566743D2231302220546F703D223130222057696474683D22383122204865696768743D2232322220436F6C6F723D22383432313530342220466F6E742E436861727365743D22312220466F6E742E436F6C6F723D2231363737373231352220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D22417269616C2220466F6E742E5374796C653D223022204672616D652E5479703D2231352220476170583D22332220476170593D2233222048416C69676E3D22686143656E74657222204D656D6F2E546578743D222220506172656E74466F6E743D2246616C736522205374796C653D22726F77222F3E3C2F726F776D656D6F733E3C726F77746F74616C6D656D6F733E3C546672784D656D6F56696577204E616D653D2222205461673D2234303022204C6566743D2231302220546F703D223332222057696474683D22383122204865696768743D2232322220436F6C6F723D2235323437392220466F6E742E436861727365743D22312220466F6E742E436F6C6F723D222D323134373438333634302220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D22417269616C2220466F6E742E5374796C653D223122204672616D652E5479703D2231352220476170583D22332220476170593D2233222048416C69676E3D22686143656E74657222204D656D6F2E546578743D224772616E6420546F74616C2220506172656E74466F6E743D2246616C736522205374796C653D22726F776772616E64222F3E3C2F726F77746F74616C6D656D6F733E3C63656C6C66756E6374696F6E733E3C6974656D20312F3E3C2F63656C6C66756E6374696F6E733E3C636F6C756D6E736F72742F3E3C726F77736F72743E3C6974656D20302F3E3C2F726F77736F72743E3C2F63726F73733E"/>
</TfrxReportPage>
</TfrxReport>

View File

@ -0,0 +1,10 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Name="" Version="3.15a" DotMatrixReport="False" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="2047" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" ReportOptions.ConnectionName="FR Demo Base" ReportOptions.CreateDate="37907.6514537153" ReportOptions.Description.Text="Demonstrates how to print cross-tab reports with TfrxCrossView object. To use this object, include TfrxCrossObject component from FR component palette into your project." ReportOptions.LastChange="38533.1517737269" ScriptLanguage="PascalScript" ScriptText.Text="begin&#13;&#10;&#13;&#10;end." OnStartReport="frxReport1OnStartReport" PropData="08446174617365747301010C2400000020446174615365743D2243726F73732220446174615365744E616D653D2243726F7373220000095661726961626C657301010C11000000204E616D653D222044617461626173652200010C2C000000204E616D653D2250617468546F4461746162617365222056616C75653D22272E2E5C64656D6F2E6D646227220000055374796C650100">
<TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
<TfrxADOTable Name="Cross" UserName="Cross" CloseDataSource="True" FieldAliases.Text="" TableName="crosstest"/>
<TfrxReportTitle Name="ReportTitle1" Height="18.89765" Left="0" Top="18.89765" Width="718.1107">
<TfrxMemoView Name="Memo1" Left="0" Top="0" Width="309.92146" Height="18.89765" Memo.Text="Employee's salary per year"/>
</TfrxReportTitle>
<TfrxDBCrossView Name="Cross1" Left="0" Top="56.69295" Width="94.48825" Height="18.89765" DownThenAcross="False" CellFields.Text="Salary" ColumnFields.Text="Year" DataSet="Cross" DataSetName="Cross" RowFields.Text="Name" PropData="054D656D6F730A860600003C3F786D6C2076657273696F6E3D22312E302220656E636F64696E673D227574662D38223F3E3C63726F73733E3C63656C6C6D656D6F733E3C546672784D656D6F56696577204E616D653D2222204C6566743D2239322220546F703D223332222057696474683D22333522204865696768743D2232322220466F6E742E436861727365743D22312220466F6E742E436F6C6F723D222D323134373438333634302220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D22417269616C2220466F6E742E5374796C653D223022204672616D652E5479703D2231352220476170583D22332220476170593D2233222048416C69676E3D226861526967687422204D656D6F2E546578743D22302220506172656E74466F6E743D2246616C736522205374796C653D2263656C6C222F3E3C2F63656C6C6D656D6F733E3C636F6C756D6E6D656D6F733E3C546672784D656D6F56696577204E616D653D2222205461673D2231303022204C6566743D2239322220546F703D223130222057696474683D22333522204865696768743D2232322220466F6E742E436861727365743D22312220466F6E742E436F6C6F723D222D323134373438333634302220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D22417269616C2220466F6E742E5374796C653D223022204672616D652E5479703D2231352220476170583D22332220476170593D2233222048416C69676E3D22686143656E74657222204D656D6F2E546578743D222220506172656E74466F6E743D2246616C736522205374796C653D22636F6C756D6E222F3E3C2F636F6C756D6E6D656D6F733E3C636F6C756D6E746F74616C6D656D6F733E3C546672784D656D6F56696577204E616D653D2222205461673D2233303022204C6566743D223132372220546F703D223130222057696474683D22383222204865696768743D2232322220436F6C6F723D2231353030303830342220466F6E742E436861727365743D22312220466F6E742E436F6C6F723D222D323134373438333634302220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D22417269616C2220466F6E742E5374796C653D223122204672616D652E5479703D2231352220476170583D22332220476170593D2233222048416C69676E3D22686143656E74657222204D656D6F2E546578743D224772616E6420546F74616C2220506172656E74466F6E743D2246616C736522205374796C653D22636F6C6772616E64222F3E3C2F636F6C756D6E746F74616C6D656D6F733E3C726F776D656D6F733E3C546672784D656D6F56696577204E616D653D2222205461673D2232303022204C6566743D2231302220546F703D223332222057696474683D22383222204865696768743D2232322220466F6E742E436861727365743D22312220466F6E742E436F6C6F723D222D323134373438333634302220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D22417269616C2220466F6E742E5374796C653D223022204672616D652E5479703D2231352220476170583D22332220476170593D2233222048416C69676E3D22686143656E74657222204D656D6F2E546578743D222220506172656E74466F6E743D2246616C736522205374796C653D22726F77222F3E3C2F726F776D656D6F733E3C726F77746F74616C6D656D6F733E3C546672784D656D6F56696577204E616D653D2222205461673D2234303022204C6566743D2231302220546F703D223534222057696474683D22383222204865696768743D2232322220436F6C6F723D2231353030303830342220466F6E742E436861727365743D22312220466F6E742E436F6C6F723D222D323134373438333634302220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D22417269616C2220466F6E742E5374796C653D223122204672616D652E5479703D2231352220476170583D22332220476170593D2233222048416C69676E3D22686143656E74657222204D656D6F2E546578743D224772616E6420546F74616C2220506172656E74466F6E743D2246616C736522205374796C653D22726F776772616E64222F3E3C2F726F77746F74616C6D656D6F733E3C63656C6C66756E6374696F6E733E3C6974656D20312F3E3C2F63656C6C66756E6374696F6E733E3C636F6C756D6E736F72743E3C6974656D20302F3E3C2F636F6C756D6E736F72743E3C726F77736F72743E3C6974656D20302F3E3C2F726F77736F72743E3C2F63726F73733E"/>
</TfrxReportPage>
</TfrxReport>

View File

@ -0,0 +1,10 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Name="" Version="3.15a" DotMatrixReport="False" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="2047" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" ReportOptions.ConnectionName="FR Demo Base" ReportOptions.CreateDate="37907.6514537153" ReportOptions.Description.Text="Demonstrates how to print cross-tab reports with TfrxCrossView object. To use this object, include TfrxCrossObject component from FR component palette into your project." ReportOptions.LastChange="38533.1522950926" ScriptLanguage="PascalScript" ScriptText.Text="begin&#13;&#10;&#13;&#10;end." OnStartReport="frxReport1OnStartReport" PropData="08446174617365747301010C2400000020446174615365743D2243726F73732220446174615365744E616D653D2243726F7373220000095661726961626C657301010C11000000204E616D653D222044617461626173652200010C2C000000204E616D653D2250617468546F4461746162617365222056616C75653D22272E2E5C64656D6F2E6D646227220000055374796C650100">
<TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
<TfrxADOTable Name="Cross" UserName="Cross" CloseDataSource="True" FieldAliases.Text="" TableName="crosstest"/>
<TfrxReportTitle Name="ReportTitle1" Height="18.89765" Left="0" Top="18.89765" Width="718.1107">
<TfrxMemoView Name="Memo1" Left="0" Top="0" Width="309.92146" Height="18.89765" Memo.Text="Employee's salary per year"/>
</TfrxReportTitle>
<TfrxDBCrossView Name="Cross1" Left="0" Top="71.81107" Width="94.48825" Height="18.89765" ColumnLevels="0" DownThenAcross="False" RowLevels="2" CellFields.Text="Salary" ColumnFields.Text="" DataSet="Cross" DataSetName="Cross" RowFields.Text="Name&#13;&#10;Year" PropData="054D656D6F730A290700003C3F786D6C2076657273696F6E3D22312E302220656E636F64696E673D227574662D38223F3E3C63726F73733E3C63656C6C6D656D6F733E3C546672784D656D6F56696577204E616D653D2222204C6566743D2239322220546F703D223130222057696474683D22313422204865696768743D2232322220466F6E742E436861727365743D22312220466F6E742E436F6C6F723D222D323134373438333634302220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D22417269616C2220466F6E742E5374796C653D223022204672616D652E5479703D2231322220476170583D22332220476170593D2233222048416C69676E3D226861526967687422204D656D6F2E546578743D22302220506172656E74466F6E743D2246616C736522205374796C653D2263656C6C222056416C69676E3D22766143656E746572222F3E3C2F63656C6C6D656D6F733E3C636F6C756D6E6D656D6F732F3E3C636F6C756D6E746F74616C6D656D6F732F3E3C726F776D656D6F733E3C546672784D656D6F56696577204E616D653D2222205461673D2232303022204C6566743D2231302220546F703D223130222057696474683D22343322204865696768743D2234342220436F6C6F723D2231333433343837392220466F6E742E436861727365743D22312220466F6E742E436F6C6F723D222D323134373438333634302220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D22417269616C2220466F6E742E5374796C653D223022204672616D652E436F6C6F723D22313637373732313522204672616D652E5479703D2231352220476170583D22332220476170593D2233222048416C69676E3D22686143656E74657222204D656D6F2E546578743D222220506172656E74466F6E743D2246616C736522205374796C653D22726F77222056416C69676E3D22766143656E746572222F3E3C546672784D656D6F56696577204E616D653D2222205461673D2232303122204C6566743D2235332220546F703D223130222057696474683D22333922204865696768743D2232322220436F6C6F723D2231333433343837392220466F6E742E436861727365743D22312220466F6E742E436F6C6F723D222D323134373438333634302220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D22417269616C2220466F6E742E5374796C653D223022204672616D652E436F6C6F723D22313637373732313522204672616D652E5479703D2231352220476170583D22332220476170593D2233222048416C69676E3D22686143656E74657222204D656D6F2E546578743D222220506172656E74466F6E743D2246616C736522205374796C653D22726F77222056416C69676E3D22766143656E746572222F3E3C2F726F776D656D6F733E3C726F77746F74616C6D656D6F733E3C546672784D656D6F56696577204E616D653D2222205461673D2234303022204C6566743D2231302220546F703D223534222057696474683D22383222204865696768743D2232322220436F6C6F723D2231303032373030372220466F6E742E436861727365743D22312220466F6E742E436F6C6F723D222D323134373438333634302220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D22417269616C2220466F6E742E5374796C653D223122204672616D652E436F6C6F723D22313637373732313522204672616D652E5479703D2231352220476170583D22332220476170593D2233222048416C69676E3D22686143656E74657222204D656D6F2E546578743D224772616E6420546F74616C2220506172656E74466F6E743D2246616C736522205374796C653D22726F776772616E64222056416C69676E3D22766143656E746572222F3E3C546672784D656D6F56696577204E616D653D2222205461673D2234303122204C6566743D2235332220546F703D223332222057696474683D22333922204865696768743D2232322220436F6C6F723D2231303032373030372220466F6E742E436861727365743D22312220466F6E742E436F6C6F723D222D323134373438333634302220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D22417269616C2220466F6E742E5374796C653D223022204672616D652E436F6C6F723D22313637373732313522204672616D652E5479703D2231352220476170583D22332220476170593D2233222048416C69676E3D22686143656E74657222204D656D6F2E546578743D22546F74616C2220506172656E74466F6E743D2246616C736522205374796C653D22726F77746F74616C222056416C69676E3D22766143656E746572222F3E3C2F726F77746F74616C6D656D6F733E3C63656C6C66756E6374696F6E733E3C6974656D20312F3E3C2F63656C6C66756E6374696F6E733E3C636F6C756D6E736F72742F3E3C726F77736F72743E3C6974656D20302F3E3C6974656D20302F3E3C2F726F77736F72743E3C2F63726F73733E"/>
</TfrxReportPage>
</TfrxReport>

File diff suppressed because one or more lines are too long

View File

@ -0,0 +1,10 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Name="" Version="3.15a" DotMatrixReport="False" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="2047" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" ReportOptions.ConnectionName="FR Demo Base" ReportOptions.CreateDate="37907.6514537153" ReportOptions.Description.Text="Demonstrates how to print cross-tab reports with TfrxCrossView object. To use this object, include TfrxCrossObject component from FR component palette into your project." ReportOptions.LastChange="38533.1536668056" ScriptLanguage="PascalScript" ScriptText.Text="begin&#13;&#10;&#13;&#10;end." OnStartReport="frxReport1OnStartReport" PropData="08446174617365747301010C2400000020446174615365743D2243726F73732220446174615365744E616D653D2243726F7373220000095661726961626C657301010C11000000204E616D653D222044617461626173652200010C2C000000204E616D653D2250617468546F4461746162617365222056616C75653D22272E2E5C64656D6F2E6D646227220000055374796C650100">
<TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
<TfrxADOTable Name="Cross" UserName="Cross" CloseDataSource="True" FieldAliases.Text="" TableName="crosstest"/>
<TfrxReportTitle Name="ReportTitle1" Height="18.89765" Left="0" Top="18.89765" Width="718.1107">
<TfrxMemoView Name="Memo1" Left="0" Top="0" Width="309.92146" Height="18.89765" Memo.Text="Employee's salary per month"/>
</TfrxReportTitle>
<TfrxDBCrossView Name="Cross1" Left="0" Top="56.69295" Width="94.48825" Height="18.89765" ColumnLevels="2" DownThenAcross="False" CellFields.Text="Salary" ColumnFields.Text="Year&#13;&#10;Month" DataSet="Cross" DataSetName="Cross" RowFields.Text="Name" PropData="054D656D6F730AE90800003C3F786D6C2076657273696F6E3D22312E302220656E636F64696E673D227574662D38223F3E3C63726F73733E3C63656C6C6D656D6F733E3C546672784D656D6F56696577204E616D653D2222204C6566743D2239322220546F703D223534222057696474683D22343422204865696768743D2232322220466F6E742E436861727365743D22312220466F6E742E436F6C6F723D222D323134373438333634302220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D22417269616C2220466F6E742E5374796C653D223022204672616D652E5479703D2231352220476170583D22332220476170593D2233222048416C69676E3D226861526967687422204D656D6F2E546578743D22302220506172656E74466F6E743D2246616C736522205374796C653D2263656C6C222F3E3C2F63656C6C6D656D6F733E3C636F6C756D6E6D656D6F733E3C546672784D656D6F56696577204E616D653D2222205461673D2231303022204C6566743D2239322220546F703D223130222057696474683D22383322204865696768743D2232322220436F6C6F723D22393933343834372220466F6E742E436861727365743D22312220466F6E742E436F6C6F723D222D323134373438333634302220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D22417269616C2220466F6E742E5374796C653D223022204672616D652E5479703D2231352220476170583D22332220476170593D2233222048416C69676E3D22686143656E74657222204D656D6F2E546578743D222220506172656E74466F6E743D2246616C736522205374796C653D22636F6C756D6E222F3E3C546672784D656D6F56696577204E616D653D2222205461673D2231303122204C6566743D2239322220546F703D223332222057696474683D22343422204865696768743D2232322220436F6C6F723D22393933343834372220466F6E742E436861727365743D22312220466F6E742E436F6C6F723D222D323134373438333634302220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D22417269616C2220466F6E742E5374796C653D223022204672616D652E5479703D2231352220476170583D22332220476170593D2233222048416C69676E3D22686143656E74657222204D656D6F2E546578743D222220506172656E74466F6E743D2246616C736522205374796C653D22636F6C756D6E222F3E3C2F636F6C756D6E6D656D6F733E3C636F6C756D6E746F74616C6D656D6F733E3C546672784D656D6F56696577204E616D653D2222205461673D2233303022204C6566743D223137352220546F703D223130222057696474683D22383222204865696768743D2234342220436F6C6F723D22373433343735312220466F6E742E436861727365743D22312220466F6E742E436F6C6F723D222D323134373438333634302220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D22417269616C2220466F6E742E5374796C653D223122204672616D652E5479703D2231352220476170583D22332220476170593D2233222048416C69676E3D22686143656E74657222204D656D6F2E546578743D224772616E6420546F74616C2220506172656E74466F6E743D2246616C736522205374796C653D22636F6C6772616E64222F3E3C546672784D656D6F56696577204E616D653D2222205461673D2233303122204C6566743D223133362220546F703D223332222057696474683D22333922204865696768743D2232322220436F6C6F723D22373433343735312220466F6E742E436861727365743D22312220466F6E742E436F6C6F723D222D323134373438333634302220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D22417269616C2220466F6E742E5374796C653D223122204672616D652E5479703D2231352220476170583D22332220476170593D2233222048416C69676E3D22686143656E74657222204D656D6F2E546578743D22546F74616C2220506172656E74466F6E743D2246616C736522205374796C653D22636F6C746F74616C222F3E3C2F636F6C756D6E746F74616C6D656D6F733E3C726F776D656D6F733E3C546672784D656D6F56696577204E616D653D2222205461673D2232303022204C6566743D2231302220546F703D223534222057696474683D22383222204865696768743D2232322220436F6C6F723D22393933343834372220466F6E742E436861727365743D22312220466F6E742E436F6C6F723D222D323134373438333634302220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D22417269616C2220466F6E742E5374796C653D223022204672616D652E5479703D2231352220476170583D22332220476170593D2233222048416C69676E3D22686143656E74657222204D656D6F2E546578743D222220506172656E74466F6E743D2246616C736522205374796C653D22726F77222F3E3C2F726F776D656D6F733E3C726F77746F74616C6D656D6F733E3C546672784D656D6F56696577204E616D653D2222205461673D2234303022204C6566743D2231302220546F703D223736222057696474683D22383222204865696768743D2232322220436F6C6F723D22373433343735312220466F6E742E436861727365743D22312220466F6E742E436F6C6F723D222D323134373438333634302220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D22417269616C2220466F6E742E5374796C653D223122204672616D652E5479703D2231352220476170583D22332220476170593D2233222048416C69676E3D22686143656E74657222204D656D6F2E546578743D224772616E6420546F74616C2220506172656E74466F6E743D2246616C736522205374796C653D22726F776772616E64222F3E3C2F726F77746F74616C6D656D6F733E3C63656C6C66756E6374696F6E733E3C6974656D20312F3E3C2F63656C6C66756E6374696F6E733E3C636F6C756D6E736F72743E3C6974656D20302F3E3C6974656D20302F3E3C2F636F6C756D6E736F72743E3C726F77736F72743E3C6974656D20302F3E3C2F726F77736F72743E3C2F63726F73733E"/>
</TfrxReportPage>
</TfrxReport>

Some files were not shown because too many files have changed in this diff Show More