formpersonalanalyse.pas

来自「pasa人力资源考勤管理系统」· PAS 代码 · 共 104 行

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.