全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:994
推到 Plurk!
推到 Facebook!

table做平均的問題

答題得分者是:max5020
uf1276
一般會員


發表:2
回覆:5
積分:1
註冊:2009-01-05

發送簡訊給我
#1 引用回覆 回覆 發表時間:2009-05-24 09:42:11 IP:218.173.xxx.xxx 訂閱
各位大大 我有幾個剛學table的問題
數學
85
B
47
56
D
99
15
F
87
以上的表格
請問該如何將全班英文跟數學做總平均呢?
還有要怎麼用combobox將班上成績最好的列出來?

希望各位大大不吝嗇指教
編輯記錄
uf1276 重新編輯於 2009-05-24 11:40:52, 註解 無‧
max5020
資深會員


發表:30
回覆:277
積分:321
註冊:2003-06-04

發送簡訊給我
#2 引用回覆 回覆 發表時間:2009-05-24 11:06:32 IP:122.146.xxx.xxx 訂閱
這又是一個標準的懶得做的作業, 不予回答!!
uf1276
一般會員


發表:2
回覆:5
積分:1
註冊:2009-01-05

發送簡訊給我
#3 引用回覆 回覆 發表時間:2009-05-24 11:38:16 IP:218.173.xxx.xxx 訂閱
因為我只會算個人平均 
不懂怎麼算全班的英文總平均
不會做才發問...這不算是新手問題?

這是我自己算個人平均的程式碼

我是誠心誠意的過來請教各位
如果有缺失望各位指教..


[code delphi]
var i,xEng,xMath:Integer;
xAvg:Double;
begin
tbSTD.First;
for i:= 1 to tbSTD.RecordCount do
begin
tbSTD.edit;
xEng:=tbStd.fieldByName ('Eng').AsInteger;
xMath:=tbStd.fieldByName ('Math').AsInteger;
xAvg:=(xEng xMath)/2;
tbStd.edit;
tbStd.FieldByName ('Avg').AsFloat :=xAvg;
tbStd.next;
Listbox1.Items.add(IntToStr(i));
end;
end;

[/code]
max5020
資深會員


發表:30
回覆:277
積分:321
註冊:2003-06-04

發送簡訊給我
#4 引用回覆 回覆 發表時間:2009-05-24 12:14:05 IP:122.146.xxx.xxx 訂閱

[code delphi]
var i:Integer;
xEng, xMath:Double;
begin
xEng:= 0; xMath:= 0;
tbSTD.First;
while not tbStd.eof do
begin
xEng:= xEng tbStd.fieldByName ('Eng').asFloat;
xMath:= xMath tbStd.fieldByName ('Math').asFloat;
tbStd.next;
end;
ShowMessage('英文平均: ' FormatFloat('##0.00', xEng/tbStd.RecordCount));
ShowMessage('數學平均: ' FormatFloat('##0.00', xMath/tbStd.RecordCount));
end;
[/code]
編輯記錄
max5020 重新編輯於 2009-05-24 12:16:21, 註解 無‧
uf1276
一般會員


發表:2
回覆:5
積分:1
註冊:2009-01-05

發送簡訊給我
#5 引用回覆 回覆 發表時間:2009-05-24 16:36:30 IP:218.164.xxx.xxx 訂閱
感謝max5020大大的解答!
可以再請教大大一個問題嗎?
我把個人平均算出之後
想用Combox的方式搜尋出平均成績最好的
我該如何設定Combox中的條件才能找出呢?
謝謝

max5020
資深會員


發表:30
回覆:277
積分:321
註冊:2003-06-04

發送簡訊給我
#6 引用回覆 回覆 發表時間:2009-05-24 19:58:02 IP:122.146.xxx.xxx 訂閱
想用Combox的方式搜尋出平均成績最好的 ?
是指分數A/B/C等級嗎?

1. ComboBox1.Items設定好A/B/C
2. tbStd.onFiltered, 依ComboBox1.ItemIndex判斷Accept
3. ComboBox1.onChange, 加入tbStd.Refresh

uf1276
一般會員


發表:2
回覆:5
積分:1
註冊:2009-01-05

發送簡訊給我
#7 引用回覆 回覆 發表時間:2009-05-25 22:55:22 IP:218.164.xxx.xxx 訂閱
用ABC分級之後來算...恩
比較有方向了 我再繼續嘗試
謝謝大大!
系統時間:2024-05-16 12:26:57
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!