請問大大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) ;
|
發表時間：2003-10-24 16:12:57
IP:218.160.xxx.xxx 未訂閱
系統時間：2024-06-28 19:24:05
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |