如何實現分類計算結果 |
|
尚未結案
|
|
suntao008
一般會員   發表：70 回覆：38 積分：21 註冊：2003-10-19 發送簡訊給我 |
|
|
channel
尊榮會員  發表：67 回覆：707 積分：854 註冊：2002-05-02 發送簡訊給我 |
引言: Dear all ： 我現有一個數據庫如下： A 2.5 B 3 C 1.2 A 1.0 C 1.3 B 2 如何實現能關A結果在EDIT1中顯示 B結果在EDIT2中顯示 C結果在EDIT3中顯示 請問如何才能實現這個功能，謝謝您有指教！ 不勝感謝！
begin
with Query1 do
begin
Close;
SQL.Clear;
SQL.Add('Select Field1, Sum(Field2) Total From TableA Group By Field1 Order By Field1');
//以上之SQL語法就是依A、B、C分類並加總
Open;
Edit1.Text := FieldByName('Total').AsString;
Next;
Edit2.Text := FieldByName('Total').AsString;
Next;
Edit3.Text := FieldByName('Total').AsString;
//建議您可以將結果用DBGrid顯示，不一定要用Edit，因為若超過三個項目不就還要再加一個Edit…
end;
end;
~小弟淺見，參考看看~
------
~小弟淺見，參考看看~ |
|
suntao008
一般會員 發表：70 回覆：38 積分：21 註冊：2003-10-19 發送簡訊給我 |
Dear channel:
您好！ 經您指教，現我還有點不清楚，請賜教！ 我的數據庫結構如下： serial_number Hour suntao 1230 10
wj 1478 8
suntao 1230 19
wj 1478 6 現用query1,且內容為select * from data(數據庫名）
button1,且內容為：query1.SQL.Clear;
query1.SQL.Add('Select suntao, Sum(wj) Total From data Group By suntao Order By suntao'); DBGrid顯示 請您指教，我錯在哪裡？ 謝謝！
|
|
channel
尊榮會員 發表：67 回覆：707 積分：854 註冊：2002-05-02 發送簡訊給我 |
引言: Dear channel: 您好！ 經您指教，現我還有點不清楚，請賜教！ 我的數據庫結構如下： serial_number Hour suntao 1230 10 wj 1478 8 suntao 1230 19 wj 1478 6 現用query1,且內容為select * from data(數據庫名） button1,且內容為：query1.SQL.Clear; query1.SQL.Add('Select suntao, Sum(wj) Total From data Group By suntao Order By suntao'); DBGrid顯示 請您指教，我錯在哪裡？ 謝謝！suntao及wj是欄位名稱還是欄位的資料? 依您的說明來看，好像是欄位的資料而非欄位名稱…可否說清楚? 如果小弟的推論沒有錯，您改成下列這樣，試試看… query1.SQL.Add('Select serial_number, Sum(Hour) Total From data Group By serial_number, Order By serial_number, '); 而serial_number是一個代碼，是不是要跟其他的Table關連而取出想對應之名稱(如：suntao、wj)? 如果是的話就將兩個Table Join起來即可… ~小弟淺見，參考看看~
------
~小弟淺見，參考看看~ |
|
suntao008
一般會員 發表：70 回覆：38 積分：21 註冊：2003-10-19 發送簡訊給我 |
channel: 您好! 小女子真是笨不可言，請大哥指教？ 資料庫如下： serial_number hour
wj 8
suntao 10
wj 9
suntao 10 ________________________ wj 17 suntao 20 _________________________ 我的目有是在EDIT1中顯示17，在EDIT2中顯示20 我是這樣做的，請大哥幫小妹修正： query1.SQL.Add('Select serial_number, Sum(Hour) Total From data Group By serial_number, Order By serial_number, '); edit1.text:=query1.fieldbyname('total').AsFloat; edit2.text:=query1.fieldbyname('total').AsFloat; 我不知道自己錯在哪裡，請各位大哥幫小妹渡過困難。 謝謝GG、JJ、MM
|
|
channel
尊榮會員 發表：67 回覆：707 積分：854 註冊：2002-05-02 發送簡訊給我 |
引言: channel: 您好! 小女子真是笨不可言，請大哥指教？ 資料庫如下： serial_number hour wj 8 suntao 10 wj 9 suntao 10 ________________________ wj 17 suntao 20 _________________________ 我的目有是在EDIT1中顯示17，在EDIT2中顯示20 我是這樣做的，請大哥幫小妹修正： query1.SQL.Add('Select serial_number, Sum(Hour) Total From data Group By serial_number, Order By serial_number, '); edit1.text:=query1.fieldbyname('total').AsFloat; edit2.text:=query1.fieldbyname('total').AsFloat; 我不知道自己錯在哪裡，請各位大哥幫小妹渡過困難。 謝謝GG、JJ、MM根據您的需求，提供兩個方法： 方法一：使用由大到小排序(加上關鍵字：Desc)
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('Select serial_number, Sum(Hour) Total From data Group By serial_number Order By serial_number Dese');
query1.Open;
query1.First;
edit1.text:=query1.fieldbyname('total').AsFloat;
query1.Next;
edit2.text:=query1.fieldbyname('total').AsFloat;
end;
方法二：使用Locate(不需加上Order By排序)
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('Select serial_number, Sum(Hour) Total From data Group By serial_number');
query1.Open;
if query1.Locate("serial_number", "wj", []) then
edit1.text:=query1.fieldbyname('total').AsFloat
else
edit1.text:=0;
if query1.Locate("serial_number", "suntao", []) then
edit2.text:=query1.fieldbyname('total').AsFloat
else
edit2.text:=0;
end;
註：您在下SQL語法時Group By與Order By不需要加","，且最後也不需加","
query1.SQL.Add('Select serial_number, Sum(Hour) Total From data Group By serial_number, Order By serial_number, ');
將紅色的逗點拿掉，SQL才可執行…
~小弟淺見，參考看看~
------
~小弟淺見，參考看看~ |
|
suntao008
一般會員 發表：70 回覆：38 積分：21 註冊：2003-10-19 發送簡訊給我 |
發表時間：2003-11-30 08:46:54
IP:61.155.xxx.xxx 未訂閱
系統時間：2024-04-25 12:30:19
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |