請問如何報表內作合計的功能~ |
|
答題得分者是：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 發送簡訊給我 |
發表時間：2005-03-07 15:04:11
IP:61.221.xxx.xxx 未訂閱
系統時間：2024-04-29 14:19:25
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |