請問大大dbgrid的晉階使用法(for迴圈使用) |
尚未結案
|
suzukiyamaru
一般會員 發表:18 回覆:8 積分:5 註冊:2003-06-09 發送簡訊給我 |
請問大大~~當我使用dbgrid連接資料庫時~~我要如何使用for迴圈 判斷他有幾筆資料
這樣才能作相加總的動作
我的程式碼
procedure Torder.Button2Click(Sender: TObject);
var price,amount:integer;
begin
price:=table2.Fields[3].AsInteger;
amount:=table2.Fields[5].AsInteger;
label9.Caption:=inttostr(price*amount) ; 這樣只能做1筆資料的運算
要怎麼樣才能加總所有資料的功能呢 請大大教授一下 謝謝 我的資料庫是使用BDE ACCESS
|
chih
版主 發表:48 回覆:1186 積分:639 註冊:2002-04-02 發送簡訊給我 |
procedure Torder.Button2Click(Sender: TObject);
var price,amount:integer;
begin
price:=0;
amount:=0;
table2.First;
While not table2.Eof do
begin
price:=price table2.Fields[3].AsInteger;
amount:=amount table2.Fields[5].AsInteger;
table2.Next;
end;
label9.Caption:=inttostr(price*amount) ;
TRY TRY SEE..
> 發表人 -
|
stonys
初階會員 發表:64 回覆:111 積分:38 註冊:2002-09-28 發送簡訊給我 |
下SQL會不會比較好一點呢? procedure Torder.Button2Click(Sender: TObject);
var price,amount:integer;
begin
with Query1 do
begin
Close;
SQL.Clear;
SQL.Add('SELECT SUM(欄位名1) AS PRICE,SUM(欄位名2) AS AMT FROM 表格名')
Open;
end;
price:=Query1.Fields[0].Value;
amount:=Query1.Fields[1].Value;
label9.Caption:=inttostr(price*amount) ;
END; 發表人 - stonys 於 2003/10/29 20:53:40
|
stonys
初階會員 發表:64 回覆:111 積分:38 註冊:2002-09-28 發送簡訊給我 |
另外,如果要使用for迴圈 判斷他有幾筆資料
要使用 table2.RecordCount 來取得有幾筆
其他就如chih大大所寫的,參考如下: procedure Torder.Button2Click(Sender: TObject);
var price,amount,count:integer;
begin
price:=0;
amount:=0;
table2.First;
For count:=1 to table2.RecordCount
begin
price:=price table2.Fields[3].AsInteger;
amount:=amount table2.Fields[5].AsInteger;
table2.Next;
end;
label9.Caption:=inttostr(price*amount) ;
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |