(高分求教,急)数据库分类统计报表并各自求和?用QREPORT上的控件如何实现。(100分)

  • 主题发起人 主题发起人 whxxr
  • 开始时间 开始时间
W

whxxr

Unregistered / Unconfirmed
GUEST, unregistred user!
我用QRGROUP自动分类后,不知按分类如何进行各自汇总。请各位大侠写的详细一些吧!
另外如何将数据导成EXCEL格式。小弟非常着急!谢谢!
 
//检查EXCEL是否已安装
try
ExcelApplication1.Connect ;
except
showmessage('EXCEL 没有安装');
exit;
end;
if lbcx.savedialog1.execute then
begin
//开始数据导出过程
ExcelApplication1.Workbooks.Add(EmptyParam,0);
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks[1]);
ExcelWorksheet1.ConnectTo(ExcelWorkbook1.WorkSheets[1] as _Worksheet);
qkts.ADOquery1.First;
ExcelWorksheet1.Cells.Item[1,1]:='发货人';
ExcelWorksheet1.Cells.Item[1,2]:='收入';
ExcelWorksheet1.Cells.Item[1,3]:='支出';
ExcelWorksheet1.Cells.Item[1,4]:='金额';
for i:=2 to qkts.ADOquery1.recordcount+1 do
begin
for j:=1 to qkts.ADOquery1.fields.count do
ExcelWorksheet1.Cells.Item[i,j]:=qkts.ADOquery1.Fields[j-1].asstring;
qkts.ADOquery1.Next;
end;
ExcelWorksheet1.SaveAs(lbcx.savedialog1.filename+'.xls');
showmessage('导出完成');
end;//if
 
诸位帮忙看一下。我主要是想先分类统计并求和
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
1K
DelphiTeacher的专栏
D
S
回复
0
查看
928
SUNSTONE的Delphi笔记
S
后退
顶部