小弟的資料庫有一table 如下圖格式. 圖中紀錄了四種product 每天的銷量和銷售額.  現在我想以 SQL 取得某幾天各product 的 price 欄資料. 並以下圖格式顯示. 再輸出到excel file. 請問以TQreport 等控件能做到嗎??? 可否提供些example 作參考?? 謝謝

sklui82您好    我的想法是,用sql語法 SELECT product_no,date,sum(price) as price from table1 group by product_no,date 先調出資料,再以ClientDataSet去做成您輸出格式的資料整理

var
  prod_no,dat:string;
begin
  ClientDataSet1.EmptyDataSet;
  ADOQuery2.First;
  while not ADOQuery2.Eof do
  begin
    ClientDataSet1.Append;
    ClientDataSet1Product_no.Value:=ADOQuery2.FieldByName('product_no').AsString;
    ADOQuery2.Next;
  end;
  ADOQuery2.First;
  while not ADOQuery2.Eof do
  begin
    prod_no:=AdOQuery2.FieldByName('product_no').AsString;
    ADOQuery3.First;
    while not ADOQuery3.Eof do
    begin
      dat:=ADOQuery3.FieldByName('date').AsString;
      ADOQuery1.First;
      while not ADOQuery1.Eof do
      begin
        if (ADOQuery1.FieldByName('product_no').AsString=prod_no) and (adoquery1.FieldByName('date').AsString=dat) then
        begin
          ClientDataSet1.First;
          ClientDataSet1.MoveBy(ADOQuery2.RecNo-1);
          ClientDataSet1.Edit;
          case ADOQuery3.RecNo-1 of
           0:
             ClientDataSet1D1.Value:=ADOQuery1.FieldByName('price').AsInteger;
           1:
             ClientDataSet1D2.Value:=ADOQuery1.FieldByName('price').AsInteger;
           2:
             ClientDataSet1D3.Value:=ADOQuery1.FieldByName('price').AsInteger;
           3:
             ClientDataSet1D4.Value:=ADOQuery1.FieldByName('price').AsInteger;
          end;
          ClientDataSet1.Post;
        end;
        ADoQuery1.Next;
      end;
      ADOQuery3.Next;
    end;
    ADoQuery2.Next;
  end;
end;

再套用天使大大的範例,"將DBGrid資料轉至Excel檔的程式範例" http://delphi.ktop.com.tw/topic.php?TOPIC_ID=19473 輸出到Excel 完整的範例 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=63364

建議你直接將資料轉到Excel,然後用Excel的樞紐分析,就可以快速完成 另外用Delphi控制Excel,做成樞紐分析,請參考範例即可

引言: 建議你直接將資料轉到Excel,然後用Excel的樞紐分析,就可以快速完成 另外用Delphi控制Excel,做成樞紐分析,請參考範例即可

我試過用excel 的vlookup 之類的function 去做. 但因為資料太多(過萬rows) 速度極慢. 所我我希望能先以delphi 完成, 再輸出excel. < >< >

請問Tclientdataset 控件在那兒??/ 我是用delphi 5 的, 找遍整個版面都找不到    < >< >

[Data Access]那一頁

引言: [Data Access]那一頁

找不到..........< >< >大概delphi 5 沒有提供, 我連ADO 也沒有的

請問哪邊有範例可以參考呢???多謝!!!
===================引 用 文 章===================
建議你直接將資料轉到Excel,然後用Excel的樞紐分析,就可以快速完成另外用Delphi控制Excel,做成樞紐分析,請參考範例即可

Delphi5是在Midas頁夾

===================引 用 文 章===================
請問Tclientdataset 控件在那兒??/ 我是用delphi 5 的, 找遍整個版面都找不到

QuickReport 3.05以上的版本有提供轉Excel的元件QRExcelFilter1

===================引 用 文 章===================
請問以TQreport 等控件能做到嗎???

------
~小弟淺見，參考看看~