decision.pas

关于DEPHI7.0的人力资源信息管理系统源代码

unit Decision;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BubbleCh, Series, TeEngine, DB, DBTables, MXTABLES, ExtCtrls,
  TeeProcs, Chart, MXGRAPH, MXDB, Mxstore, ComCtrls, ToolWin, StdCtrls,
  Buttons, Menus;

type
  TFormDecision = class(TForm)
    DecisionCube1: TDecisionCube;
    DecisionSource1: TDecisionSource;
    DecisionQuery1: TDecisionQuery;
    DecisionGraph1: TDecisionGraph;
    Series1: TPieSeries;
    Series2: THorizBarSeries;
    Series3: TAreaSeries;
    Series7: TBarSeries;
    Series8: TBarSeries;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    BTNSave: TBitBtn;
    BTNArea: TBitBtn;
    BTNClose: TBitBtn;
    BTNHorzbar: TBitBtn;
    BTNBar: TBitBtn;
    BTNPie: TBitBtn;
    BTNPrint: TBitBtn;
    BTNPoint: TBitBtn;
    SaveDialog1: TSaveDialog;
    Series4: TPointSeries;
    ColorBox1: TColorBox;
    PopupMenu1: TPopupMenu;
    PopMenuSavePic: TMenuItem;
    PopMenuAbout: TMenuItem;
    PopMenuCopy: TMenuItem;
    PopMenuClose: TMenuItem;
    procedure BTNCloseClick(Sender: TObject);
    procedure BTNPrintClick(Sender: TObject);
    procedure BTNSaveClick(Sender: TObject);
    procedure BTNPieClick(Sender: TObject);
    procedure BTNBarClick(Sender: TObject);
    procedure BTNHorzbarClick(Sender: TObject);
    procedure BTNAreaClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BTNPointClick(Sender: TObject);
    procedure ColorBox1Change(Sender: TObject);
    procedure PopMenuSavePicClick(Sender: TObject);
    procedure PopMenuCopyClick(Sender: TObject);
    procedure PopMenuCloseClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
    procedure ResetBTN_DecisionGraph(Sender: TObject);
  public
    { Public declarations }
  end;

var
  FormDecision: TFormDecision;

implementation

uses Data, About, Main;
{$R *.dfm}

procedure TFormDecision.BTNSaveClick(Sender: TObject);
var FileName : String;
begin
  SaveDialog1.Title := '保存图片';
  SaveDialog1.Filter := '位图格式(*.BMP)|*.BMP';
  if SaveDialog1.Execute then
    begin
      SaveDialog1.FileName := ChangeFileExt(SaveDialog1.FileName,'.BMP');
      FileName := SaveDialog1.FileName;
      try
        DecisionGraph1.SaveToBitmapFile( FileName );
      except
        Application.MessageBox('很遗憾，图片保存失败！','人力资源管理信息系统',0);
        raise;
      end;
    end;
end;

procedure TFormDecision.ResetBTN_DecisionGraph(Sender : TObject);
begin
 BTNPie.Enabled := True;
 BTNBar.Enabled := True;
 BTNHorzBar.Enabled := True;
 BTNPoint.Enabled := True;
 BTNArea.Enabled := True;
 with DecisionGraph1 do
   begin
    Series1.Active := False;
    Series2.Active := False;
    Series3.Active := False;
    Series4.Active := False;
    Series8.Active:= False;
    LeftAxis.Title.Caption := '员工数量';
    BottomAxis.Title.Caption := '学位水平';
    Title.Text.Clear;
    Title.Text.Add('人力资源管理信息系统——数据分析');
   end;
   Tbutton(sender).Enabled := False;
end;

procedure TFormDecision.BTNPieClick(Sender: TObject);
begin
 ResetBTN_DecisionGraph(Sender);
 with DecisionGraph1 do
   begin
    Series1.Active := True;
   end;
end;

procedure TFormDecision.BTNBarClick(Sender: TObject);
begin
 ResetBTN_DecisionGraph(Sender);
 with DecisionGraph1 do
   begin
    Series8.Active:= True;
   end;
end;

procedure TFormDecision.BTNHorzbarClick(Sender: TObject);
begin
 ResetBTN_DecisionGraph(Sender);
 with DecisionGraph1 do
   begin
    Series2.Active:= True;
    LeftAxis.Title.Caption := '学位水平';
    BottomAxis.Title.Caption := '员工数量';
   end;
end;

procedure TFormDecision.BTNAreaClick(Sender: TObject);
begin
 ResetBTN_DecisionGraph(Sender);
 with DecisionGraph1 do
   begin
    Series3.Active:= True;
   end;
end;

procedure TFormDecision.FormCreate(Sender: TObject);
begin
 with DecisionGraph1 do
   begin
    Series1.Active := True;
    Series2.Active := False;
    Series3.Active := False;
    Series4.Active := False;
    Series8.Active:= False;
    Title.Text.Clear;
    Title.Text.Add('人力资源管理信息系统——数据分析');
   end;
   BTNPie.Enabled := False;
   ColorBox1.ItemIndex := 11;   //clYellow
end;

procedure TFormDecision.BTNPointClick(Sender: TObject);
begin
 ResetBTN_DecisionGraph(Sender);
 with DecisionGraph1 do
   begin
    Series4.Active := True;
   end;
end;

procedure TFormDecision.ColorBox1Change(Sender: TObject);
begin
  DecisionGraph1.BackColor := ColorBox1.Colors[ColorBox1.ItemIndex];
  DecisionGraph1.Gradient.EndColor := ColorBox1.Colors[ColorBox1.ItemIndex];
  DecisionGraph1.Title.Font.Color := ColorBox1.Colors[ColorBox1.ItemIndex];
  DecisionGraph1.Title.Frame.Color := ColorBox1.Colors[ColorBox1.ItemIndex];
  DecisionGraph1.Repaint;
end;

procedure TFormDecision.PopMenuSavePicClick(Sender: TObject);
begin
  BTNSaveClick(Sender);
end;

procedure TFormDecision.PopMenuCopyClick(Sender: TObject);
begin
  DecisionGraph1.CopyToClipboardBitmap;
end;

procedure TFormDecision.BTNCloseClick(Sender: TObject);
begin
  Self.Close;
end;

procedure TFormDecision.BTNPrintClick(Sender: TObject);
begin
  DecisionGraph1.Print;
end;

procedure TFormDecision.PopMenuCloseClick(Sender: TObject);
begin
  BTNCloseClick(Sender);
end;

procedure TFormDecision.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  FormMain.CloseDataSource1;
  DecisionGraph1.FreeOnRelease;
  FormMain.Show;
  Self.Destroy;
end;

end.