userverchart.pas

是个办公系统,可以实现财务上的管理和人员的流动

unit Userverchart;

interface
 uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList, DB, ADODB, Series, TeEngine, ExtCtrls, TeeProcs, Chart,
  DbChart, ComCtrls, StdCtrls, Grids, DBGrids, TeeFunci;

type
  TfrmServerchart = class(TForm)
    DBChart1: TDBChart;
    Series1: TBarSeries;
    GroupBox1: TGroupBox;
    Panel2: TPanel;
    RadioGroup1: TRadioGroup;
    DBGrid1: TDBGrid;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmServerchart: TfrmServerchart;

implementation

uses mydata;

{$R *.dfm}

procedure TfrmServerchart.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action:=caFree;
end;

procedure TfrmServerchart.FormShow(Sender: TObject);
var
  i,sum_wage,cost_wage:integer;
  name:string;
begin
   case radiogroup1.ItemIndex of
  0:
  begin
    dbgrid1.DataSource:=dm.DSChart;
    dm.AQChart.Open;
    dbgrid1.Columns[0].FieldName:='客户评价';
    dbgrid1.Columns[1].FieldName:='客户数量';
    dbgrid1.Columns[0].Width:=75;
    dbgrid1.Columns[1].Width:=75;
    dbgrid1.Columns[0].Title.caption:='客户评价';
    dbgrid1.Columns[1].Title.caption:='客户数量';
     DBChart1.Title.Text.Text:='按客户满意度统计';
    Series1.Clear;
    i:=0;
    dm.AQChart.First;
    while not dm.AQChart.Eof do
      begin
        name:=dm.AQChart.FieldValues['客户评价'];
        sum_wage:=dm.AQChart.FieldValues['客户数量'];
        Series1.AddXY(i,sum_wage,name);
        dm.AQChart.Next;
        i:=i+1;
      end;
  end;
  1:
  begin
    dbgrid1.DataSource:=dm.DSRequire;
    dm.AQRequire.Open;
     dbgrid1.Columns[0].FieldName:='项目名称';
    dbgrid1.Columns[1].FieldName:='维护次数';
    dbgrid1.Columns[0].Width:=75;
    dbgrid1.Columns[1].Width:=75;
    dbgrid1.Columns[1].Title.caption:='维护次数';
    dbgrid1.Columns[0].Title.caption:='项目名称';
    DBChart1.Title.Text.Text:='按项目维护次数统计';
    series1.Clear;
    i:=0;
    dm.AQRequire.First;
    while not dm.AQRequire.Eof do
       begin
         name:=dm.AQRequire.FieldValues['项目名称'];
         cost_wage:=dm.AQCostSal.FieldValues['维护次数'];
         series1.AddXY(i,cost_wage,name);
         dm.AQRequire.Next;
         i:=i+1;
       end;
  end;
  end;
end;

procedure TfrmServerchart.RadioGroup1Click(Sender: TObject);
var
  i,sum_wage,cost_wage:integer;
  name:string;
begin
     case radiogroup1.ItemIndex of
  0:
  begin
    dbgrid1.DataSource:=dm.DSChart;
    dm.AQChart.Open;
    dbgrid1.Columns[0].FieldName:='客户评价';
    dbgrid1.Columns[1].FieldName:='客户数量';
    dbgrid1.Columns[0].Width:=75;
    dbgrid1.Columns[1].Width:=75;
    dbgrid1.Columns[0].Title.caption:='客户评价';
    dbgrid1.Columns[1].Title.caption:='客户数量';
     DBChart1.Title.Text.Text:='按客户满意度统计';
    Series1.Clear;
    i:=0;
    dm.AQChart.First;
    while not dm.AQChart.Eof do
      begin
        name:=dm.AQChart.FieldValues['客户评价'];
        sum_wage:=dm.AQChart.FieldValues['客户数量'];
        Series1.AddXY(i,sum_wage,name);
        dm.AQChart.Next;
        i:=i+1;
      end;
  end;
  1:
  begin
    dbgrid1.DataSource:=dm.DSRequire;
    dm.AQRequire.Open;
     dbgrid1.Columns[0].FieldName:='项目名称';
    dbgrid1.Columns[1].FieldName:='维护次数';
    dbgrid1.Columns[0].Width:=75;
    dbgrid1.Columns[1].Width:=75;
    dbgrid1.Columns[1].Title.caption:='维护次数';
    dbgrid1.Columns[0].Title.caption:='项目名称';
    DBChart1.Title.Text.Text:='按项目维护次数统计';
    series1.Clear;
    i:=0;
    dm.AQRequire.First;
    while not dm.AQRequire.Eof do
       begin
         name:=dm.AQRequire.FieldValues['项目名称'];
         cost_wage:=dm.AQRequire.FieldValues['维护次数'];
         series1.AddXY(i,cost_wage,name);
         dm.AQRequire.Next;
         i:=i+1;
       end;
  end;
  end;
end;

end.