home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / TEECHART / DELPHI4.EXE / %MAINDIR% / Examples / Database / Teegroup.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-11-17  |  1.9 KB  |  82 lines
  1. {****************************************}
  2. {    TeeChart. TChart Component          }
  3. { Copyright (c) 1995-98 by David Berneda }
  4. {    All Rights Reserved                 }
  5. {****************************************}
  6. unit teegroup;
  7.  
  8. interface
  9.  
  10. uses
  11.   Wintypes,winprocs, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  12.   TeeProcs, TeEngine, Chart, ExtCtrls, DBCtrls, Grids, DBGrids, Db,
  13.   DBTables, Series, StdCtrls, Buttons;
  14.  
  15. type
  16.   TFormGroupBy = class(TForm)
  17.     Query1: TQuery;
  18.     DataSource1: TDataSource;
  19.     Chart1: TChart;
  20.     Series1: TBarSeries;
  21.     Panel1: TPanel;
  22.     DBNavigator1: TDBNavigator;
  23.     RadioGroup1: TRadioGroup;
  24.     Button1: TButton;
  25.     BitBtn1: TBitBtn;
  26.     Panel2: TPanel;
  27.     DBGrid1: TDBGrid;
  28.     procedure RadioGroup1Click(Sender: TObject);
  29.     procedure FormCreate(Sender: TObject);
  30.     procedure Button1Click(Sender: TObject);
  31.     procedure BitBtn1Click(Sender: TObject);
  32.   private
  33.     { Private declarations }
  34.   public
  35.     { Public declarations }
  36.     Dim1,Dim2:String;
  37.   end;
  38.  
  39. implementation
  40.  
  41. {$R *.DFM}
  42.  
  43. { include TeeCross unit }
  44.  
  45. uses TeeCross,EditChar;
  46.  
  47. { refresh the Chart showing the "sum" or the "count"... }
  48. procedure TFormGroupBy.RadioGroup1Click(Sender: TObject);
  49. begin
  50.   Query1.Close;
  51.   Query1.Open;
  52.   Case RadioGroup1.ItemIndex of
  53.     0: FillDataSet(Query1,Series1,Dim1,Dim2,'AmountPaid',gfCount);
  54.     1: FillDataSet(Query1,Series1,Dim1,Dim2,'AmountPaid',gfSum);
  55.   end;
  56. end;
  57.  
  58. procedure TFormGroupBy.FormCreate(Sender: TObject);
  59. begin
  60.   Dim1:='Terms';
  61.   Dim2:='ShipVia';
  62.   RadioGroup1Click(Self);
  63. end;
  64.  
  65. { swap the cross-tab fields and refresh... }
  66. procedure TFormGroupBy.Button1Click(Sender: TObject);
  67. var tmp:String;
  68. begin
  69.   tmp:=Dim1;
  70.   Dim1:=Dim2;
  71.   Dim2:=tmp;
  72.   RadioGroup1Click(Self);
  73. end;
  74.  
  75. { edit the chart as usually... }
  76. procedure TFormGroupBy.BitBtn1Click(Sender: TObject);
  77. begin
  78.   EditChart(Self,Chart1);
  79. end;
  80.  
  81. end.
  82.