最近才開始學DELPHI..結果很快就碰到問題了.. 上面的那個圖 我該怎麼把MONEY的那個欄位的金錢累加 還有那個FIRST要怎麼累計TRUE出現過幾次

您好： 放一個Button寫下以下程式，順手打上,沒有測試,您試看看.

var
 Total,Count:integer;
begin
Total:=0;Count:=0;
Table.First();
while not Table.Eof do 
 begin
  Total:=Total Table.FieldByName('Money').AsInteger;
  if (Table.FieldByName('First').AsBoolean) then Inc(Count);
  Table.Next();
 end;
Label1.Caption:=IntToStr(Total);
Label2.Caption:=IntToStr(Count);
end;

裡面用到的都是很基本的東西,要多看看書... 發表人 - supman 於 2005/06/14 20:53:14

您好﹗    插個花﹗ 也可使用具有SQL敘述支援的資料集元件﹐如您的需要﹐以BDE為例﹐在Form中加一個Query1（如果上游有Database﹐則需設定Query1元件的Database屬性以連接上上游的Database）﹐然后在Form中加一個Button1﹐在其OnClick事件中﹕

Var
  I, J: Integer;
begin
  Query1.Close;
  Query1.SQL.Clear;
  Query1.SQL.Add('Select Sum(MONEY) From 資料表名稱');
  Query1.Open;
  I := Query1.Fields.Fields[0].Value;
  //以上求出Money欄位的合計
  Query1.Close;
  Query1.SQL.Clear;
  Query1.SQL.Add('Select Count(*) From 資料表名稱 Where FIRST = True');
  Query1.Open;
  J := Query1.Fields.Fields[0].Value;
  //以上求出FIRST欄位值為True的筆數
  ShowMessage('MONEY欄位合計值為﹕' + IntToStr(I) + #10#13
    + 'FIRST欄位值為True的共有﹕' + IntToStr(J));
end;

================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

------
忻晟