Delphi中DBChart的應用:

1.繫結資料

ADOQuery1.Active:=True;

DBChart1.Series[0].DataSource:=ADOQuery1;

DBChart1.Series[0].XLabelSource:="FiledName";

DBChart1.Series[0].YValues.ValueSource:="FieldName";

2.切換圖表型別

tmpChart:=DBChart1.Series[0];

ChangeSeriesType(tmp,TLineSeries);

tmpChart.Active:=True;

tmpChart.RefreshSeries;

3.設定分頁

DBChart1.ScaleLastPage:=true;

DBChart1.MaxPointsPerPage:=10;

DBChart1.Page:=1;

DBChart1.PreviousPage;

DBChart1.NextPage;

DBChart1.Page:=NumPages;

4.匯出圖表

SaveToBitmapFile(FileName);

5.列印圖表

uses TeePrevi;

ChartPreview(Parent,DBChart1);

TeePreview(Parent,DBChart1);

6.資料來源

ADODataSet1.CreateDataSet;

AdoDataSet1.Insert;

AdoDataSet1.FieldByName("Value").AsFloat:=200000;

AdoDataSet1.FieldByName("Info").AsString:="05-02";

AdoDataSet1.Post;

excel就是一個數據庫...你用ado odbc連線上 sheet1表裡根據欄位 insert into到資料庫表就行啦