实例——实现数据的图表统计.txt

冒泡排序延时请认真阅读您的文件包然后写出其具体功能(至少要20个字)。尽量不要让站长把时间都花费在为您修正说明上。压缩包解压时不能有密码。系统会自动删除debug和release目录

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.