【乌拉喵.教程】使用TDBChart显示InterBase数据库的一行数据

首先来看一下数据的内容：

可以看到路径为：

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.

工程文件下载地址：百度网盘-链接不存在