使用TDBChart显示InterBase数据库的一行数据

来源：互联网发布：电子病历系统源码编辑：程序博客网时间：2024/05/16 12:12

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

可以看到路径为：

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;

运行后即可看到显示一行数据的效果图：

同数据库比对是一致的，证明的正确。

所有的程序如下：

工程文件下载地址：http://pan.baidu.com/s/1c0gk0Zu

0 0