开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
ChartDbF.pas
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：1k
源码类别：

Delphi控件源码

开发平台：

Delphi

ChartDbF.pas：源码内容
  1. unit ChartDbF;
  3. interface
  5. uses
  6.   SysUtils, Windows, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, Grids, DBGrids, DB, DBTables, ExtCtrls, TeEngine, Series,
  8.   TeeProcs, Chart, DBChart, StdCtrls;
  10. type
  11.   TForm1 = class(TForm)
  12.     Table1: TTable;
  13.     DataSource1: TDataSource;
  14.     DBGrid1: TDBGrid;
  15.     DBChart1: TDBChart;
  16.     Series1: TPieSeries;
  17.     Splitter1: TSplitter;
  18.     RadioArea: TRadioButton;
  19.     RadioPopulation: TRadioButton;
  20.     procedure DataSource1StateChange(Sender: TObject);
  21.     procedure RadioPopulationClick(Sender: TObject);
  22.     procedure RadioAreaClick(Sender: TObject);
  23.   private
  24.     { Private declarations }
  25.   public
  26.     { Public declarations }
  27.   end;
  29. var
  30.   Form1: TForm1;
  32. implementation
  34. {$R *.DFM}
  36. procedure TForm1.DataSource1StateChange(Sender: TObject);
  37. var
  38.   Title: string;
  39. begin
  40.   case Table1.State of
  41.     dsBrowse: Title := 'Browse';
  42.     dsEdit: Title := 'Edit';
  43.     dsInsert: Title := 'Insert';
  44.   else
  45.     Title := 'Other state';
  46.   end;
  47.   Caption := 'Grid Demo - ' + Title;
  48. end;
  50. procedure TForm1.RadioPopulationClick(Sender: TObject);
  51. begin
  52.   DBChart1.Title.Text [0] := 'Population of Countries';
  53.   (DBChart1.Series [0] as TPieSeries).
  54.     PieValues.ValueSource := 'Population';
  55. end;
  57. procedure TForm1.RadioAreaClick(Sender: TObject);
  58. begin
  59.   DBChart1.Title.Text [0] := 'Area of Countries';
  60.   (DBChart1.Series [0] as TPieSeries).
  61.     PieValues.ValueSource := 'Area';
  62. end;
  64. end.