TwwDBGrid 合計功能該如何使用呢？ |
|
答題得分者是：l630521
|
|
jch
中階會員   發表：111 回覆：224 積分：66 註冊：2003-12-01 發送簡訊給我 |
|
|
l630521
資深會員 發表：15 回覆：349 積分：372 註冊：2003-02-17 發送簡訊給我 |
1.將TwwDBGrid.Options內的dgShowFooter設為True
2.在TwwDBGrid.OnUpdateFooter下寫code
InforPower的範例
procedure TBitmapForm.InvoiceGridUpdateFooter(Sender: TObject);
begin
InvoiceGrid.ColumnByName('Balance Due').FooterValue :=
FloatToStrF(SumQuerySumOfBalanceDue.asFloat, ffCurrency, 10, 2);
end;
不知這樣可否讓你明白？ Ian
|
|
jch
中階會員 發表：111 回覆：224 積分：66 註冊：2003-12-01 發送簡訊給我 |
|
|
l630521
資深會員 發表：15 回覆：349 積分：372 註冊：2003-02-17 發送簡訊給我 |
procedure TForm1.wwDBGrid1UpdateFooter(Sender: TObject);
begin
wwDBGrid1.ColumnByName('FieldName').FooterValue :=
'Total:' IntToStr(ADOQuery1.RecordCount);
end;
上面的例子是在Foot秀出TwwDBGrid裡共有幾筆資料。
ColumnByName('FieldName')的意思是你要秀在那一個欄位下面。
FooterValue是String型態，所以你要秀合計要轉成字串。 Ian
|
|
jch
中階會員 發表：111 回覆：224 積分：66 註冊：2003-12-01 發送簡訊給我 |
procedure TForm1.wwDBGrid1UpdateFooter(Sender: TObject);
begin
wwDBGrid1.ColumnByName('FieldName').FooterValue :=
'Total:' IntToStr(ADOQuery1.RecordCount);
end;
上面的例子是在Foot秀出TwwDBGrid裡共有幾筆資料。
ColumnByName('FieldName')的意思是你要秀在那一個欄位下面。
FooterValue是String型態，所以你要秀合計要轉成字串。 若DBGRIG中有3個欄位要計算合計，那該在哪一個事件作處理呢（計算該欄的合計）？ ========================
我是DELPHI5的初學者
|
|
l630521
資深會員 發表：15 回覆：349 積分：372 註冊：2003-02-17 發送簡訊給我 |
我應該會用三個變數來記錄三個欄位的合計值，然後
procedure TForm1.wwDBGrid1UpdateFooter(Sender: TObject);
begin
wwDBGrid1.ColumnByName('Field1').FooterValue :=
IntToStr(var1);
wwDBGrid1.ColumnByName('Field2').FooterValue :=
IntToStr(var2);
wwDBGrid1.ColumnByName('Field2').FooterValue :=
IntToStr(var2);
end;
應該也可以再OnUpdateFooter中再做計算（我沒試過），但我覺得會影響效能。 Ian
|
|
jch
中階會員 發表：111 回覆：224 積分：66 註冊：2003-12-01 發送簡訊給我 |
發表時間：2004-10-06 09:50:34
IP:218.162.xxx.xxx 未訂閱
系統時間：2024-05-19 23:48:40
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |