首先来看一下数据的内容：
可以看到路径为：
G:\All--design\delphi\20131221 1426 chart\SJZACT2315.GDB
下面界面中添加控件如图：
双击DataBase1输入用户名和密码：Interbase默认用户名为SYSDBA，密码：masterkey
DataBase1的databasename设为G:\All--design\delphi\20131221 1426 chart\SJZACT2315.GDB
defaulttransaction设为IBTransaction1
IBQuery1的database设为database1
transaction设为IBTransaction1
双击IBTransaction1设为read-write
IBTransaction1的databasename设为DataBase1
DataSource1的DataSet设为IBQuery1
双击TDBChart，点ADD，选择Bar
之后直接Close即可。
在form加载部分程序添加代码如下：
procedure TForm1.FormCreate(Sender: TObject); var i : integer; var adayhour : array [0..23] of real;//设一个数组，用来放24小时的数据 begin IBquery1.Close; ibquery1.SQL.Clear; ibquery1.SQL.Add('select * from new_table1 where riqi=12.02');//日期=12月2号 ibquery1.Open; //这时值已经放到IBQuery中了 // DBChart1.Series[0].DataSource:=IBquery1; // DBChart1.Series[0].XLabelsSource:='H0'; // DBChart1.Series[0].YValues.ValueSource:='H1'; adayhour[0] := ibquery1.FieldByName('H0').AsFloat ; adayhour[1] := ibquery1.FieldByName('H1').AsFloat ; adayhour[2] := ibquery1.FieldByName('H2').AsFloat ;//按字段名取出数据，分别放到数组中 adayhour[3] := ibquery1.FieldByName('H3').AsFloat ;//因为数据类型不一样，所以要加.asfloat with series1 do begin for i := 0 to 3 do add(adayhour[i]); end; end;
运行后即可看到显示一行数据的效果图：
同数据库比对是一致的，证明的正确。
所有的程序如下：
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IBDatabase, DB, IBCustomDataSet, IBQuery, TeEngine, Series, ExtCtrls, TeeProcs, Chart, DBChart, Grids, DBGrids; type TForm1 = class(TForm) IBQuery1: TIBQuery; IBDatabase1: TIBDatabase; IBTransaction1: TIBTransaction; DBGrid1: TDBGrid; DataSource1: TDataSource; DBChart1: TDBChart; Series1: TBarSeries; procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); var i : integer; var adayhour : array [0..23] of real;//设一个数组，用来放24小时的数据 begin IBquery1.Close; ibquery1.SQL.Clear; ibquery1.SQL.Add('select * from new_table1 where riqi=12.02');//日期=12月2号 ibquery1.Open; //这时值已经放到IBQuery中了 // DBChart1.Series[0].DataSource:=IBquery1; // DBChart1.Series[0].XLabelsSource:='H0'; // DBChart1.Series[0].YValues.ValueSource:='H1'; adayhour[0] := ibquery1.FieldByName('H0').AsFloat ; adayhour[1] := ibquery1.FieldByName('H1').AsFloat ; adayhour[2] := ibquery1.FieldByName('H2').AsFloat ;//按字段名取出数据，分别放到数组中 adayhour[3] := ibquery1.FieldByName('H3').AsFloat ;//因为数据类型不一样，所以要加.asfloat with series1 do begin for i := 0 to 3 do add(adayhour[i]); end; end; end.
工程文件下载地址：百度网盘-链接不存在
