我想实现的功能是把明细求出来以后
再统计求和 维修费这个字段 但下面代码只能统计,不能把明细求出来 请问如何写
with form8.query1 do
begin
close;
sql.Clear;
sql.Add('select 姓名,车型,日期,sum(维修费) from wx where 姓名=:p0 or 车型=:p1 or (日期>=:p2 and 日期<=:p5)');
parambyname('p0').Value:=trim(edit1.Text);
parambyname('p1').Value:=trim(combobox1.Text);
parambyname('p2').AsDate:=datetimepicker1.Date;
parambyname('p5').AsDate:=datetimepicker2.Date;
open;
if recordcount>0 then
begin
form8.QuickRep1.DataSet:=form8.Query1;
form8.QRDBText1.DataSet:=form8.query1;
form8.QRDBText1.DataField:='姓名';
form8.QRDBText2.DataSet:=form8.query1;
form8.QRDBText2.DataField:='车型';
form8.QRDBText3.DataSet:=form8.query1;
form8.QRDBText3.DataField:='日期';
form8.QRDBText4.DataSet:=form8.query1;
form8.QRDBText4.DataField:='维修费'; form8.QRLabel8.Caption:=floattostr(fields[3].value);//求统计
form8.QuickRep1.Preview;
end
else
application.MessageBox('没有记录','信息',mb_iconinformation);
end;
form8.ShowModal;
再统计求和 维修费这个字段 但下面代码只能统计,不能把明细求出来 请问如何写
with form8.query1 do
begin
close;
sql.Clear;
sql.Add('select 姓名,车型,日期,sum(维修费) from wx where 姓名=:p0 or 车型=:p1 or (日期>=:p2 and 日期<=:p5)');
parambyname('p0').Value:=trim(edit1.Text);
parambyname('p1').Value:=trim(combobox1.Text);
parambyname('p2').AsDate:=datetimepicker1.Date;
parambyname('p5').AsDate:=datetimepicker2.Date;
open;
if recordcount>0 then
begin
form8.QuickRep1.DataSet:=form8.Query1;
form8.QRDBText1.DataSet:=form8.query1;
form8.QRDBText1.DataField:='姓名';
form8.QRDBText2.DataSet:=form8.query1;
form8.QRDBText2.DataField:='车型';
form8.QRDBText3.DataSet:=form8.query1;
form8.QRDBText3.DataField:='日期';
form8.QRDBText4.DataSet:=form8.query1;
form8.QRDBText4.DataField:='维修费'; form8.QRLabel8.Caption:=floattostr(fields[3].value);//求统计
form8.QuickRep1.Preview;
end
else
application.MessageBox('没有记录','信息',mb_iconinformation);
end;
form8.ShowModal;
解决方案 »
- 在Delphi 中是否可以控制excel的有效性检验(Validation)
- 关于ActiveXForm郁闷中...
- ClientDataset 一个问题
- 屏幕保护程序的“设置”按钮调用的是什么函数?
- 函数FormatBuf怎么使用啊,我怎么老是通不过呢?
- 设置录音源的问题(Microphone or Wave)??
- ====请问如何做出象Excel中的单元格计算公式一样的效果。====在线等
- 如何对access数据库进行备份与恢复~~
- Delphi如何取到MS Analysis Servers共享维度的数据(同游览维度数据)
- 这个语句要怎么写呢
- 求助各位大虾:急急急急急急急急急急急急急急!!!
- 如何根据某一标志程序动态地使控件(如菜单,工具条上的按钮)处于活动状态或非活动状态?不用TTimer,来点具体代码行吗?谢
'select 姓名,车型,日期,sum(维修费) from wx where 姓名=:p0 or 车型=:p1 or (日期>=:p2 and 日期<=:p5) group by 姓名,车型,日期'
吗?
这句我写了,它会报错group by什么的错
form8.QRLabel8.Caption:=floattostr(fields[3].value);//求统计
如果只写一个select sum(维修费)只能显示一个统计,没有明细