請問如何報表內作合計的功能~ |
答題得分者是:pillar62
|
t0288542
中階會員 發表:216 回覆:254 積分:94 註冊:2004-10-06 發送簡訊給我 |
請問各位~ 第一次使用Delphi的報表設定~所以~利用書本範例作一些改變~
首先畫面有個[預覽]按鈕處理如下~
QuickReport2.ADOQuery1.SQL.Clear;
QuickReport2.ADOQuery1.SQL.Add(SQL1);
QuickReport2.ADOQuery1.Open;
QuickReport2.DataSet := Unit2.QuickReport2.ADOQuery1;
QuickReport2.QRDBText1.DataSet := Unit2.QuickReport2.ADOQuery1;
QuickReport2.QRDBText1.DataField := 'EC002';
QuickReport2.QRLabel1.Caption := '製品名';
......
QuickReport2.Preview;
-----------------------------------------------------------------
在報表處理方面~如下
procedure TQuickReport2.SummaryBand1AfterPrint(Sender: TQRCustomBand;
BandPrinted: Boolean);
begin
total := total ADOQuery1.FieldByName('EC003').AsCurrency;
end; procedure TQuickReport2.SummaryBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
QRLabel8.Caption :='合計' FloatToStr( total );
end; ------------------------------------------------------
請問各位~以上的處理方面似乎無法作到值的加總~
麻煩大家~是否那裡設定有誤~
我該如何去設定~ ^^
|
pillar62
資深會員 發表:9 回覆:324 積分:271 註冊:2002-04-15 發送簡訊給我 |
|
huangeider
高階會員 發表:288 回覆:492 積分:231 註冊:2003-02-26 發送簡訊給我 |
引言: 請問各位~ 第一次使用Delphi的報表設定~所以~利用書本範例作一些改變~ 首先畫面有個[預覽]按鈕處理如下~ QuickReport2.ADOQuery1.SQL.Clear; QuickReport2.ADOQuery1.SQL.Add(SQL1); QuickReport2.ADOQuery1.Open; QuickReport2.DataSet := Unit2.QuickReport2.ADOQuery1; QuickReport2.QRDBText1.DataSet := Unit2.QuickReport2.ADOQuery1; QuickReport2.QRDBText1.DataField := 'EC002'; QuickReport2.QRLabel1.Caption := '製品名'; ...... QuickReport2.Preview; ----------------------------------------------------------------- 在報表處理方面~如下 // 下面SummaryBand1AfterPrint表示印完後才加總total,所以SummaryBand1BeforePrint的值當然也就不會加總囉,改成如下看看: procedure TQuickReport2.SummaryBand1BeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean); begin total := total ADOQuery1.FieldByName('EC003').AsCurrency; QRLabel8.Caption :='合計' FloatToStr( total ); end; procedure TQuickReport2.SummaryBand1AfterPrint(Sender: TQRCustomBand; BandPrinted: Boolean); begin total := total ADOQuery1.FieldByName('EC003').AsCurrency; end; procedure TQuickReport2.SummaryBand1BeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean); begin QRLabel8.Caption :='合計' FloatToStr( total ); end; ------------------------------------------------------ 請問各位~以上的處理方面似乎無法作到值的加總~ 麻煩大家~是否那裡設定有誤~ 我該如何去設定~ ^^堅持從洗馬桶做起 Eric |
t0288542
中階會員 發表:216 回覆:254 積分:94 註冊:2004-10-06 發送簡訊給我 |
|
pillar62
資深會員 發表:9 回覆:324 積分:271 註冊:2002-04-15 發送簡訊給我 |
|
t0288542
中階會員 發表:216 回覆:254 積分:94 註冊:2004-10-06 發送簡訊給我 |
|
pillar62
資深會員 發表:9 回覆:324 積分:271 註冊:2002-04-15 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |