1.3w+
社区成员
- 全部
- Windows SDK/API
- 基础类
- ActiveX
- 数据库及相关技术
- 网络及通讯开发
- VCL组件使用和开发
- 问答
替朋友提问：如何实现按页统计？
我一个朋友问我一个问题，是关于报表的，他想实现在每页上打印该页所有记录的金额统计，但是似乎没有直接的实现方法。还有，他想实现“共x页”的功能，好像也不好实现。
因为我自己没有做过数据库打印方面的工作，对此一窍不通，所以在这里提问，希望大虾们多多援手。
因为我自己没有做过数据库打印方面的工作，对此一窍不通，所以在这里提问，希望大虾们多多援手。
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
TopCat 2003-07-22
多谢回复，等待更详细的答案。
xu_xinyu 2003-07-22
我觉得要根据每页打多少条记录来确定。
分别计算每页的合计再打印。
抛砖引玉。
分别计算每页的合计再打印。
抛砖引玉。
yydy 2003-07-22
gz
TopCat 2003-07-22
多谢多谢，明日结帖~
houzy123 2003-07-22
若要fastreport的我也有
houzy123 2003-07-22
每页的行数20,多少页算出来了吧
__fastcall TListForm::TListForm(TComponent* Owner)
: TForm(Owner)
{
xx=1;
}
//---------------------------------------------------------------------------
void __fastcall TListForm::DetailBand1AfterPrint(TQRCustomBand *Sender,
bool BandPrinted)
{
if(xx<20)
xx++;
else
{
xx=1;
QuickRep->NewPage();
}
}
//---------------------------------------------------------------------------
__fastcall TListForm::TListForm(TComponent* Owner)
: TForm(Owner)
{
xx=1;
}
//---------------------------------------------------------------------------
void __fastcall TListForm::DetailBand1AfterPrint(TQRCustomBand *Sender,
bool BandPrinted)
{
if(xx<20)
xx++;
else
{
xx=1;
QuickRep->NewPage();
}
}
//---------------------------------------------------------------------------
houzy123 2003-07-22
1.每页合计
原来我解答过此类问题,现再说一遍
1.对各统计项添加变量,例如基本工资jb_sheet,奖金jj_sheet
2.代码
__fastcall TListForm::TListForm(TComponent* Owner)
: TForm(Owner)
{
jb_sheet=0;初始化数据
jj_sheet=0;
}
//-----------------------------
void __fastcall TListForm::QRDBText5Print(TObject *sender,
AnsiString &Value)
{
jb_sheet+=StrToInt(Value);统计基本工资
}
//---------------------------------------------------------------------------
void __fastcall TListForm::QRDBText6Print(TObject *sender,
AnsiString &Value)
{
jj_sheet+=StrToInt(Value);统计奖金
}
//---------------------------------------------------------------------------
void __fastcall TListForm::PageFooterBand1BeforePrint(
TQRCustomBand *Sender, bool &PrintBand)
{
QRLabel8->Caption=IntToStr(jb_sheet);打印基本工资
QRLabel9->Caption=IntToStr(jj_sheet);打印奖金
}
//---------------------------------------------------------------------------
void __fastcall TListForm::PageFooterBand1AfterPrint(TQRCustomBand *Sender,
bool BandPrinted)
{
jb_sheet=0;下一页初始化数据
jj_sheet=0;
}
//-----------------------------------
原来我解答过此类问题,现再说一遍
1.对各统计项添加变量,例如基本工资jb_sheet,奖金jj_sheet
2.代码
__fastcall TListForm::TListForm(TComponent* Owner)
: TForm(Owner)
{
jb_sheet=0;初始化数据
jj_sheet=0;
}
//-----------------------------
void __fastcall TListForm::QRDBText5Print(TObject *sender,
AnsiString &Value)
{
jb_sheet+=StrToInt(Value);统计基本工资
}
//---------------------------------------------------------------------------
void __fastcall TListForm::QRDBText6Print(TObject *sender,
AnsiString &Value)
{
jj_sheet+=StrToInt(Value);统计奖金
}
//---------------------------------------------------------------------------
void __fastcall TListForm::PageFooterBand1BeforePrint(
TQRCustomBand *Sender, bool &PrintBand)
{
QRLabel8->Caption=IntToStr(jb_sheet);打印基本工资
QRLabel9->Caption=IntToStr(jj_sheet);打印奖金
}
//---------------------------------------------------------------------------
void __fastcall TListForm::PageFooterBand1AfterPrint(TQRCustomBand *Sender,
bool BandPrinted)
{
jb_sheet=0;下一页初始化数据
jj_sheet=0;
}
//-----------------------------------
TopCat 2003-07-22
up
