chardata.pas

delphi renyuanguanlixinxioxitong

unit CharData;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, TeEngine, Series, StdCtrls, ExtCtrls, TeeProcs, Chart;

type
  TfrmCharData = class(TForm)
    aqrySearch: TADOQuery;
    adoConn: TADOConnection;
    Chart1: TChart;
    Button1: TButton;
    Series1: TPieSeries;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmCharData: TfrmCharData;

implementation

{$R *.dfm}

procedure TfrmCharData.Button1Click(Sender: TObject);
var
 nCount :integer;    //员工岗位人数
 i :integer;         //横坐标
 sPostName :String;  //岗位名称
begin
  i:=0;
  Series1.Clear ;
  if adoConn.Connected then adoConn.Close;
  try
     adoConn.Open ;
  except
     application.MessageBox('连接数据库出错','提示');
     exit;
  end;
  try
    aqrySearch.Open;
    aqrySearch.First ;
    while not aqrySearch.Eof do
    begin
      i :=i+1;
      sPostName := trim(aqrySearch.FieldByName('PostName').AsString) ;
      nCount := aqrySearch.FieldByName('PostCount').Value ;
      Series1.AddXY(i,nCount,sPostName,clTeeColor) ;
      aqrySearch.Next ;
    end;
  except
     application.MessageBox('查询岗位出错','提示');
     aqrySearch.Cancel ;
  end;
end;

end.