home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / TEECHART / Delphi1_And_Delphi2 / EXAMPLES / STANDARD / LINKED.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-10-24  |  1.5 KB  |  56 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.     Panel2: TPanel;
  22.     Table1: TTable;
  23.     Table2: TTable;
  24.     DBNavigator1: TDBNavigator;
  25.     DataSource2: TDataSource;
  26.     DBGrid2: TDBGrid;
  27.     Table2OrderNo: TFloatField;
  28.     Table2CustNo: TFloatField;
  29.     Table2SaleDate: TDateTimeField;
  30.     Table2AmountPaid: TCurrencyField;
  31.     Table1CustNo: TFloatField;
  32.     Table1Company: TStringField;
  33.     Table1City: TStringField;
  34.     Table1State: TStringField;
  35.     Table1Country: TStringField;
  36.     AreaSeries1: TAreaSeries;
  37.     BitBtn1: TBitBtn;
  38.     procedure DataSource1DataChange(Sender: TObject; Field: TField);
  39.   private
  40.     { Private declarations }
  41.   public
  42.     { Public declarations }
  43.   end;
  44.  
  45. implementation
  46.  
  47. {$R *.DFM}
  48.  
  49. procedure TLinkedTablesForm.DataSource1DataChange(Sender: TObject;
  50.   Field: TField);
  51. begin  { force dbchart to refresh ! }
  52.   DBChart1.CheckDataSource(AreaSeries1);
  53. end;
  54.  
  55. end.
  56.