如何将DBGrid1中查询出的数据打印并求和(50分)

如何将DBGrid1中查询出的数据打印并求和

请您给写个详细的代码。谢谢

DBGridEH！不用代码！

我没用过DBGridEH您能教一教我吗？

看一下DBGridEH的范例程序便知

我是想问问用DBGrid1怎么查

在含有DBGrid1的form1中编写代码
其中form2为放置报表打印控件的窗口，控件使用QReport组中QuickRep、QRBand1.QRSysData等
var
Form2: TForm2;
SqlString:string;
GenSqlTxt:string;
SqlStat,GlobalSql:string;
begin
//form2.QuickRep1.Preview;
form2.QRLabel1.Caption:=formatdatetime('dddddd',date);
form2.query1.close;
form2.query1.SQL.clear;
form2.query1.sql.add(Main.GlobalSql);
if (Main.SqlString<>Main.GenSqlTxt)then
begin
form2.query1.ParamByName('SqlTxt1').asstring:=CJ.SqlTxt1;
if Main.SqlStat='S2'then
form2.query1.parambyname('SqlTxt2').asstring:=CJ.SqlTxt2;
end;
form2.query1.open;
form2.quickrep1.preview;

QRSysData为对记录进行统计无须编程

以下为DBGRID打印源码

procedure TForm_zongji.Button2Click(Sender: TObject);
const
LeftBlank=1; //定义页边距，单位厘米
RightBlank=1;
TopBlank=1;
BottomBlank=1;
var
PointX,PointY:integer;
PointScale,PrintStep:integer;
s:string;
x,y:integer;
i:integer;
begin //获取当前打印机的分辨率
PointX:=Trunc(GetDeviceCaps(Printer.Handle,LOGPIXELSX)/2.54);
PointY:=Trunc(GetDeviceCaps(Printer.Handle,LOGPIXELSY)/2.54);

//根据打印机和屏幕的分辨率计算出从屏幕转换到打印机的比例　

PointScale:=Trunc(GetDeviceCaps(Printer.Handle,LOGPIXELSX)/Screen.PixelsPerInch+0.5); //
//横向打印
printer.Orientation:=poLandscape;

//打印的字体和大小
printer.Canvas.Font.Name:='宋体';
printer.canvas.Font.Size:=12;

//根据字体的大小确定每行的高度
s:='常州';
PrintStep:=printer.canvas.TextHeight(s)+16;

//打印的起点位置
x:=PointX*LeftBlank;
y:=PointY*TopBlank;

//DataSource1是DBGrid1所连接的数据源

if ((DataSource1.DataSet).Active=true) and ((DataSource1.DataSet).RecordCount>0)
then
begin
printer.BeginDoc;
(DataSource1.DataSet).First;
while not (DataSource1.DataSet).Eof do
begin //打印DBGrid中的所有列
for i:=0 to DBGrid1.FieldCount-1 do
begin
//假如所要打印的列超出了打印范围，则忽略该列
if (x+DBGrid1.Columns.Items.Width*PointScale)<=(Printer.PageWidth-PointX*RightBlank) then
begin //画表格线
//每页的第一行打印表头
Printer.Canvas.Rectangle(x,y,x+DBGrid1.Columns.Items.Width*PointScale,y+PrintStep);
if y=PointY*TopBlank then
Printer.Canvas.TextOut(x+8,y+8,DBGrid1.Columns.Title.Caption)
else
Printer.Canvas.TextOut(x+8,y+8,DBGrid1.Fields.asString);
end; //计算下一列的横坐标

x:=x+DBGrid1.Columns.Items.Width*PointScale;
end;

if not (y=PointY*TopBlank) then
(DataSource1.DataSet).next;

x:=PointX*LeftBlank;
y:=y+PrintStep; //换页
if (y+PrintStep)>(Printer.PageHeight-PointY*BottomBlank) then
begin
Printer.NewPage;
y:=PointY*TopBlank;
end;
end;
printer.EndDoc;
(DataSource1.DataSet).First;
Application.MessageBox('打印完成','打印',32);
end;

end;

多人接受答案了。