home *** CD-ROM | disk | FTP | other *** search
/ PC Expert 29 / Pce29cd.iso / RUNIMAGE / DELPHI40 / DEMOS / TEECHART / LINKED.PAS < prev    next >
Pascal/Delphi Source File  |  1998-06-16  |  2KB  |  57 lines
  1. {*********************************************}
  2. { TeeChart Delphi Component Library           }
  3. { Linked Tables Chart Demo                    }
  4. { Copyright (c) 1995-1996 by David Berneda    }
  5. { All rights reserved                         }
  6. {*********************************************}
  7. unit Linked;
  8.  
  9. interface
  10.  
  11. uses
  12.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  13.   Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, Grids, DBGrids, DB,
  14.   DBTables, Chart, Series, DbChart, DBCtrls, Teengine, TeeProcs;
  15.  
  16. type
  17.   TLinkedTablesForm = class(TForm)
  18.     DBChart1: TDBChart;
  19.     DataSource1: TDataSource;
  20.     DBGrid1: TDBGrid;
  21.     Panel1: TPanel;
  22.     Panel2: TPanel;
  23.     Table1: TTable;
  24.     Table2: TTable;
  25.     DBNavigator1: TDBNavigator;
  26.     DataSource2: TDataSource;
  27.     DBGrid2: TDBGrid;
  28.     Table2OrderNo: TFloatField;
  29.     Table2CustNo: TFloatField;
  30.     Table2SaleDate: TDateTimeField;
  31.     Table2AmountPaid: TCurrencyField;
  32.     Table1CustNo: TFloatField;
  33.     Table1Company: TStringField;
  34.     Table1City: TStringField;
  35.     Table1State: TStringField;
  36.     Table1Country: TStringField;
  37.     AreaSeries1: TAreaSeries;
  38.     BitBtn1: TBitBtn;
  39.     procedure DataSource1DataChange(Sender: TObject; Field: TField);
  40.   private
  41.     { Private declarations }
  42.   public
  43.     { Public declarations }
  44.   end;
  45.  
  46. implementation
  47.  
  48. {$R *.DFM}
  49.  
  50. procedure TLinkedTablesForm.DataSource1DataChange(Sender: TObject;
  51.   Field: TField);
  52. begin  { force dbchart to refresh ! }
  53.   DBChart1.CheckDataSource(AreaSeries1);
  54. end;
  55.  
  56. end.
  57.