procedure TForm1.BitBtn1Click(Sender: TObject);
begin
 adoquery1.Close;
 adoquery2.Close;
 adoquery1.SQL.Clear;
 adoquery2.SQL.Clear;
begin
 adoquery1.SQL.Add('select posno 款台号,sum(actualsalemoney) 实物流水 from gds_osaleflow where dealdate = '+''''+ datetostr(datetimepicker1.Date)+'''' +'and posno<>100001 group by posno order by posno');
 adoquery1.Open;
end;
begin
 adoquery2.SQL.Add('select posno 款台号,sum(paymoney) 金额流水 from gds_msaleflow where dealdate = '+''''+ datetostr(datetimepicker1.Date)+'''' +' and posno<>100001 group by posno order by posno');
 adoquery2.Open;
 end;
end; 

这两段话如何可以在一个窗口显示，并在最后一行增加合计。请大虾帮忙给解决一下！