home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 25: Programming / pc_actual_25.iso / Delphi / TeeChartPro / TeeChart5Delphi5Eval.exe / %MAINDIR% / Examples / Features / DBChart_Summary.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-09-10  |  2.1 KB  |  87 lines
  1. unit DBChart_Summary;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Base_DBChart, StdCtrls, TeeProcs, TeEngine, Chart, DBChart, ExtCtrls, Db,
  8.   DBTables, Series;
  9.  
  10. type
  11.   TDBChartSummary = class(TBaseDBChart)
  12.     Button1: TButton;
  13.     Series1: TBarSeries;
  14.     Table1: TTable;
  15.     Label1: TLabel;
  16.     ComboBox1: TComboBox;
  17.     ComboBox2: TComboBox;
  18.     CheckBox1: TCheckBox;
  19.     procedure Button1Click(Sender: TObject);
  20.     procedure ComboBox1Change(Sender: TObject);
  21.     procedure ComboBox2Change(Sender: TObject);
  22.     procedure CheckBox1Click(Sender: TObject);
  23.     procedure FormShow(Sender: TObject);
  24.   private
  25.     { Private declarations }
  26.   public
  27.     { Public declarations }
  28.   end;
  29.  
  30. implementation
  31.  
  32. {$R *.DFM}
  33. Uses TeeDBSumEdit;
  34.  
  35. procedure TDBChartSummary.Button1Click(Sender: TObject);
  36. begin
  37.   With TDBChartSumEditor.Create(Self) do
  38.   try
  39.     Tag:=Integer(Series1);
  40.     BorderStyle:=bsDialog;
  41.     Caption:='Summary properties';
  42.     ShowModal;
  43.   finally
  44.     Free;
  45.   end;
  46. end;
  47.  
  48. procedure TDBChartSummary.ComboBox1Change(Sender: TObject);
  49. begin
  50.   Case ComboBox1.ItemIndex of
  51.     0: Series1.XLabelsSource:='EmpNo';
  52.     1: Series1.XLabelsSource:='PaymentMethod';
  53.     2: Series1.XLabelsSource:='#Year#SaleDate';
  54.     3: Series1.XLabelsSource:='ShipVia';
  55.     4: Series1.XLabelsSource:='Terms';
  56.   end;
  57.   Series1.SeriesColor:=GetDefaultColor(ComboBox1.ItemIndex);
  58. end;
  59.  
  60. procedure TDBChartSummary.ComboBox2Change(Sender: TObject);
  61. begin
  62.   Case ComboBox2.ItemIndex of
  63.     0: Series1.YValues.ValueSource:='#Sum#AmountPaid';
  64.     1: Series1.YValues.ValueSource:='#Count#AmountPaid';
  65.     2: Series1.YValues.ValueSource:='#High#AmountPaid';
  66.     3: Series1.YValues.ValueSource:='#Low#AmountPaid';
  67.     4: Series1.YValues.ValueSource:='#Avg#AmountPaid';
  68.   end;
  69. end;
  70.  
  71. procedure TDBChartSummary.CheckBox1Click(Sender: TObject);
  72. begin
  73.   CheckTable(Table1);
  74.   Table1.Active:=CheckBox1.Checked;
  75. end;
  76.  
  77. procedure TDBChartSummary.FormShow(Sender: TObject);
  78. begin
  79.   inherited;
  80.   ComboBox1.ItemIndex:=3;
  81.   ComboBox2.ItemIndex:=0;
  82. end;
  83.  
  84. initialization
  85.   RegisterClass(TDBChartSummary);
  86. end.
  87.