实现数据的图表统计

dsetStaticData组件的Data属性中录入以下数据：
41, 5, 1, 'John Smith', 'Canada'
34, 3, 2, 'John Smith', 'Canada'
14, 5, 3, 'John Smith', 'Canada'
14, 4, 4, 'John Smith', 'Canada'
12, 7, 5, 'John Smith', 'Canada'
14, 5, 6, 'John Smith', 'Canada'
15, 5, 7, 'John Smith', 'Canada'
16, 5, 8, 'John Smith', 'Canada'
12, 8, 9, 'John Smith', 'Canada'
14, 3, 10, 'John Smith', 'Canada'
51, 3, 11, 'John Smith', 'Canada'
51, 5, 12, 'John Smith', 'Canada'
35, 6, 1, 'Lisa Green', 'Canada'
55, 5, 2, 'Lisa Green', 'Canada'
75, 6, 3, 'Lisa Green', 'Canada'
55, 8, 4, 'Lisa Green', 'Canada'
55, 5, 5, 'Lisa Green', 'Canada'
21, 7, 9, 'Bob Jones', 'United States'
41, 8, 10, 'Bob Jones', 'United States'
11, 9, 11, 'Bob Jones', 'United States'
11, 0, 12, 'Bob Jones', 'United States'
54, 9, 1, 'Jim Crawford', 'Canada'
54, 3, 2, 'Jim Crawford', 'Canada'
54, 4, 3, 'Jim Crawford', 'Canada'
54, 4, 4, 'Jim Crawford', 'Canada'
16, 4, 9, 'David House', 'United States'
16, 3, 10, 'David House', 'United States'
56, 6, 11, 'David House', 'United States'
56, 3, 12, 'David House', 'United States'
53, 3, 1, 'Fernando Hernandez', 'Mexico'
53, 5, 2, 'Fernando Hernandez', 'Mexico'
33, 6, 3, 'Fernando Hernandez', 'Mexico'

unit IWUnit1;
{PUBDIST}

interface

uses
  IWAppForm, IWApplication, IWTypes, Classes, Controls, IWControl,
  IWCompListbox, IWDBStdCtrls, IWCompDynamicChart,
  IWClientSideDatasetDBLink, IWClientSideDatasetBase, IWClientSideDataset,
  IWCompButton, IWCompLabel, IWCompDynamicChartLegend, DB, DBTables;

type
  TformMain = class(TIWAppForm)     
    IWLabel1: TIWLabel;
    IWLabel2: TIWLabel;
    IWLabel3: TIWLabel;
    IWLabel4: TIWLabel;
    IWButton1: TIWButton;
    cmboHorz: TIWComboBox;
    cmboVert: TIWComboBox;
    cmboData: TIWComboBox;
    IWComboBox1: TIWComboBox;
    DemoChart: TIWDynamicChart;
    IWDynamicChartLegend1: TIWDynamicChartLegend;   
    dsetStaticData: TIWClientSideDataset;
    dsetMaster: TIWClientSideDatasetDBLink;
    DataSource1: TDataSource;
    Table1: TTable;
    procedure IWAppFormCreate(Sender: TObject);
    procedure cmboDataChange(Sender: TObject);
  public
  end;

implementation
{$R *.dfm}

uses
  ServerController;

procedure TformMain.IWAppFormCreate(Sender: TObject);
begin
  cmboDataChange(Sender);
end;

procedure TformMain.cmboDataChange(Sender: TObject);
begin
  case cmboData.ItemIndex of
    0: DemoChart.Data := dsetStaticData;
    1: DemoChart.Data := dsetMaster;
  end;
  DemoChart.Data.GetColumnNames(cmboHorz.Items);
  DemoChart.Data.GetColumnNames(cmboVert.Items);
  cmboHorz.ItemIndex := 0;
  DemoChart.HorzData := cmboHorz.Items[0];
  cmboVert.ItemIndex := 0;
  DemoChart.VertData := cmboVert.Items[0];
end;
end.