首先来看一下数据的内容:
可以看到路径为:
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.
工程文件下载地址:百度网盘-链接不存在