formpersonalanalyse.pas

pasa人力资源考勤管理系统

unit formpersonalanalyse;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Mask,ppCtrls, ppBands,ppClass, ppPrnabl, ppProd, ppReport, ppDB, ppComm, ppRelatv, ppCache,
  ppDBPipe, ppViewr,ppTypes, ppVar, ppModule, daDatMod, ppDBBDE, Db, ADODB,
  raCodMod, Series, TeEngine, TeeProcs, Chart, ppChrtDP, ppChrt, ExtCtrls,
  SpeedBar;

type
  TFormrsanalyse = class(TForm)
    DataSource1: TDataSource;
    ADODataSet1: TADODataSet;
    ppDBPipeline1: TppDBPipeline;
    ADOConnection1: TADOConnection;
    DataSource2: TDataSource;
    ADODataSet2: TADODataSet;
    ppDBPipeline2: TppDBPipeline;
    DataSource3: TDataSource;
    ADODataSet3: TADODataSet;
    ppDBPipeline3: TppDBPipeline;
    DataSource4: TDataSource;
    ADODataSet4: TADODataSet;
    ppDBPipeline4: TppDBPipeline;
    DataSource5: TDataSource;
    ADODataSet5: TADODataSet;
    ppDBPipeline5: TppDBPipeline;
    DataSource6: TDataSource;
    ADODataSet6: TADODataSet;
    ppDBPipeline6: TppDBPipeline;
    ppReport2: TppReport;
    ppDetailBand2: TppDetailBand;
    ppLabel1: TppLabel;
    ppShape6: TppShape;
    ppDPTeeChart6: TppDPTeeChart;
    ppDPTeeChartControl6: TppDPTeeChartControl;
    PieSeries2: TPieSeries;
    ppShape7: TppShape;
    ppDPTeeChart7: TppDPTeeChart;
    ppDPTeeChartControl7: TppDPTeeChartControl;
    BarSeries1: TBarSeries;
    ppShape8: TppShape;
    ppDPTeeChart8: TppDPTeeChart;
    ppDPTeeChartControl8: TppDPTeeChartControl;
    BarSeries3: TBarSeries;
    ppShape9: TppShape;
    ppDPTeeChart9: TppDPTeeChart;
    ppDPTeeChartControl9: TppDPTeeChartControl;
    BarSeries4: TBarSeries;
    ppShape10: TppShape;
    ppDPTeeChart10: TppDPTeeChart;
    ppDPTeeChartControl10: TppDPTeeChartControl;
    BarSeries5: TBarSeries;
    ppLabel2: TppLabel;
    ppLabel3: TppLabel;
    ppLabel4: TppLabel;
    ppLabel5: TppLabel;
    ppLabel6: TppLabel;
    ppLabel7: TppLabel;
    ppSystemVariable1: TppSystemVariable;
    ppLabel8: TppLabel;
    ppSystemVariable2: TppSystemVariable;
    raCodeModule1: TraCodeModule;
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure ppReport2PreviewFormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formrsanalyse: TFormrsanalyse;

implementation

{$R *.DFM}

procedure TFormrsanalyse.Button1Click(Sender: TObject);
begin
   ppReport2.DeviceType:='Screen';
   ppReport2.print;
   formanalyse.Close ;
end;

procedure TFormrsanalyse.ppReport2PreviewFormCreate(Sender: TObject);
begin
   tppReport(Sender).PreviewForm.WindowState:=wsMaximized;
   TppViewer(tppReport(Sender).PreviewForm.Viewer).ZoomSetting := zsWholePage;
end;

procedure TFormrsanalyse.Button2Click(Sender: TObject);
begin
  close;
end;

end.