1、创建窗体form=Tform.create(self);
2、procedure Tfmspcgsh.SpeedButton1Click(Sender: TObject);
begin
//在Preview前,设置QuickRep1的DATASET属性,而且DATASET有数据
form.QuickRep1.dataset:=yourdataset;
form.QuickRep1.Preview
end;
3、我给你一点步骤(是在前三点没问题的基础上):
步骤:
1、quickrpt属性:
QuickRep1.Bands.HasColumnHeader:=true;
QuickRep1.Bands.HasDetail:=true;
QuickRep1.Bands.HasSummary:=true;
2、加控件
qrgroup,qrband
属性设置 qrgroup.footerband:=qrband
qrband.bandtype:=rbGroupFooter
qrgroup.expression:=你的分组字段(多字段要建立多个qrgroup)
3、在qrband加:qrlabel1,qrexpr
qrexpr1.expression:=sum(你的小计字段)
qrexpr1.resetAfterPrint:=true;
4、在summaryband加:qrlabel(合计),qrexpr2
qrexpr2.expression:=sum(你的合计字段)
qrexpr2.resetAfterPrint:=false;
注意:以上属性设置大多不要写代码,直接设置就行了