utotal.pas

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

unit utotal;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TeeProcs, TeEngine, Chart, DbChart, Grids, DBGrids, StdCtrls,
  ExtCtrls, Series;

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

var
  frmTotal: TfrmTotal;

implementation

uses MyData;

{$R *.dfm}

procedure TfrmTotal.FormShow(Sender: TObject);
var
  i,sum_wage,cost_wage:integer;
  name:string;
begin
  case radiogroup1.ItemIndex of
  0:
  begin
    dbgrid1.DataSource:=dm.DSsal;
    dm.AQsal.Open;
    dbgrid1.Columns[0].FieldName:='department';
    dbgrid1.Columns[1].FieldName:='sumsal';
    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.AQsal.First;
    while not dm.AQsal.Eof do
      begin
        name:=dm.AQsal.FieldValues['department'];
        sum_wage:=dm.AQsal.FieldValues['sumsal'];
        Series1.AddXY(i,sum_wage,name);
        dm.AQsal.Next;
        i:=i+1;
      end;
  end;
  1:
  begin
    dbgrid1.DataSource:=dm.DSCostSal;
    dm.AQCostSal.Open;
     dbgrid1.Columns[0].FieldName:='DCObject';
    dbgrid1.Columns[1].FieldName:='costsal';
    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.AQCostSal.First;
    while not dm.AQCostSal.Eof do
       begin
         name:=dm.AQCostSal.FieldValues['DCObject'];
         cost_wage:=dm.AQCostSal.FieldValues['costsal'];
         series1.AddXY(i,cost_wage,name);
         dm.AQCostSal.Next;
         i:=i+1;
       end;
  end;
  end;

end;

procedure TfrmTotal.RadioGroup1Click(Sender: TObject);
 var
  i,sum_wage,cost_wage:integer;
  name:string;
begin
  case radiogroup1.ItemIndex of
  0:
  begin
    dbgrid1.DataSource:=dm.DSsal;
    dm.AQsal.Open;
    dbgrid1.Columns[0].FieldName:='department';
    dbgrid1.Columns[1].FieldName:='sumsal';
    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.AQsal.First;
    while not dm.AQsal.Eof do
      begin
        name:=dm.AQsal.FieldValues['department'];
        sum_wage:=dm.AQsal.FieldValues['sumsal'];
        Series1.AddXY(i,sum_wage,name);
        dm.AQsal.Next;
        i:=i+1;
      end;
  end;
  1:
  begin
    dbgrid1.DataSource:=dm.DSCostSal;
    dm.AQCostSal.Open;
     dbgrid1.Columns[0].FieldName:='DCObject';
    dbgrid1.Columns[1].FieldName:='costsal';
    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.AQCostSal.First;
    while not dm.AQCostSal.Eof do
       begin
         name:=dm.AQCostSal.FieldValues['DCObject'];
         cost_wage:=dm.AQCostSal.FieldValues['costsal'];
         series1.AddXY(i,cost_wage,name);
         dm.AQCostSal.Next;
         i:=i+1;
       end;
  end;
  end;

end;

procedure TfrmTotal.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  action:=cafree;
end;

end.