home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 25: Programming / pc_actual_25.iso / Delphi / TeeChartPro / TeeChart5Delphi5Eval.exe / %MAINDIR% / Examples / Features / DBChart_MasterDetail.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-09-10  |  1.5 KB  |  63 lines
  1. unit DBChart_MasterDetail;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, Grids, DBGrids, DB,
  8.   DBTables, Chart, Series, DbChart, DBCtrls, Teengine, TeeProcs,
  9.   Base_DBChart;
  10.  
  11. type
  12.   TLinkedTablesForm = class(TForm)
  13.     DBChart1: TDBChart;
  14.     DataSource1: TDataSource;
  15.     Panel2: TPanel;
  16.     Table1: TTable;
  17.     Table2: TTable;
  18.     DBNavigator1: TDBNavigator;
  19.     DataSource2: TDataSource;
  20.     Table2OrderNo: TFloatField;
  21.     Table2CustNo: TFloatField;
  22.     Table2SaleDate: TDateTimeField;
  23.     Table2AmountPaid: TCurrencyField;
  24.     Table1CustNo: TFloatField;
  25.     Table1Company: TStringField;
  26.     AreaSeries1: TAreaSeries;
  27.     CheckBox1: TCheckBox;
  28.     Panel1: TPanel;
  29.     DBGrid1: TDBGrid;
  30.     DBGrid2: TDBGrid;
  31.     Splitter1: TSplitter;
  32.     procedure DataSource1DataChange(Sender: TObject; Field: TField);
  33.     procedure CheckBox1Click(Sender: TObject);
  34.   private
  35.     { Private declarations }
  36.   public
  37.     { Public declarations }
  38.   end;
  39.  
  40. implementation
  41.  
  42. {$R *.DFM}
  43.  
  44. procedure TLinkedTablesForm.DataSource1DataChange(Sender: TObject;
  45.   Field: TField);
  46. begin
  47.  { Force DBChart to refresh the detail records
  48.    when the master record changes. }
  49.   DBChart1.CheckDataSource(AreaSeries1);
  50. end;
  51.  
  52. procedure TLinkedTablesForm.CheckBox1Click(Sender: TObject);
  53. begin
  54.   CheckTable(Table1);
  55.   CheckTable(Table2);
  56.   Table1.Active:=CheckBox1.Checked;
  57.   Table2.Active:=CheckBox1.Checked;
  58. end;
  59.  
  60. initialization
  61.   RegisterClass(TLinkedTablesForm);
  62. end.
  63.