reportforstoppay.pas

pasa人力资源考勤管理系统

unit reportforstoppay;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ppBands, ppClass, ppCtrls, ppVar, ppPrnabl, ppCache, ppProd,
  ppReport, ppComm, ppRelatv, ppDB, ppDBPipe, Db, ADODB, ExtCtrls;

type
  Treportofstoppay = class(TForm)
    Label1: TLabel;
    RadioGroup1: TRadioGroup;
    DataSource3: TDataSource;
    ppDBPipeline3: TppDBPipeline;
    ppReport4: TppReport;
    ppHeaderBand4: TppHeaderBand;
    ppLabel58: TppLabel;
    ppLabel59: TppLabel;
    ppLabel61: TppLabel;
    ppLabel62: TppLabel;
    ppLabel63: TppLabel;
    ppLabel64: TppLabel;
    ppSystemVariable7: TppSystemVariable;
    ppLabel66: TppLabel;
    ppSystemVariable8: TppSystemVariable;
    ppLabel67: TppLabel;
    ppLabel68: TppLabel;
    ppLabel69: TppLabel;
    ppLabel71: TppLabel;
    ppLabel72: TppLabel;
    ppLabel76: TppLabel;
    ppLabel77: TppLabel;
    ppLabel78: TppLabel;
    ppLabel79: TppLabel;
    ppLabel80: TppLabel;
    ppLine5: TppLine;
    ppDetailBand4: TppDetailBand;
    ppDBText36: TppDBText;
    ppDBText37: TppDBText;
    ppDBText39: TppDBText;
    ppDBText40: TppDBText;
    ppDBText41: TppDBText;
    ppDBText42: TppDBText;
    ppDBText43: TppDBText;
    ppDBText44: TppDBText;
    ppDBText45: TppDBText;
    ppDBText46: TppDBText;
    ppFooterBand4: TppFooterBand;
    ppSummaryBand4: TppSummaryBand;
    ppDBCalc7: TppDBCalc;
    ppLabel83: TppLabel;
    ppGroup3: TppGroup;
    ppGroupHeaderBand3: TppGroupHeaderBand;
    ppDBText38: TppDBText;
    ppLabel81: TppLabel;
    ppGroupFooterBand3: TppGroupFooterBand;
    ppDBCalc6: TppDBCalc;
    ppLabel82: TppLabel;
    Button1: TButton;
    Button2: TButton;
    Adodataset3: TADODataSet;
    Adodataset3id: TStringField;
    Adodataset3workno: TStringField;
    Adodataset3cardno: TStringField;
    Adodataset3name: TStringField;
    Adodataset3deptno: TStringField;
    Adodataset3prof: TStringField;
    Adodataset3sdate: TDateTimeField;
    Adodataset3edate: TDateTimeField;
    Adodataset3why: TStringField;
    Adodataset3checkman: TStringField;
    Adodataset3checkdate: TDateTimeField;
    Adodataset3memo: TStringField;
    Adodataset3state: TStringField;
    Adodataset3operator: TStringField;
    Adodataset3cdate: TDateTimeField;
    procedure ppReport4AfterPrint(Sender: TObject);
    procedure ppReport4BeforePrint(Sender: TObject);
    procedure ppReport4PreviewFormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  reportofstoppay: Treportofstoppay;

implementation
uses main,datamol;
{$R *.DFM}

procedure Treportofstoppay.ppReport4AfterPrint(Sender: TObject);
begin
  adodataset3.Close;
end;

procedure Treportofstoppay.ppReport4BeforePrint(Sender: TObject);
begin
  case radiogroup1.ItemIndex of
    0:
      begin
        pplabel58.Caption :=companyname1;
        pplabel63.caption:=pubworkname;
        pplabel61.Caption:='formstoppayreport';
      end;
    1:
      begin
        pplabel58.Caption :=companyname1;
        pplabel63.caption:=pubworkname;
        pplabel61.Caption:='formstoppayreport1';
      end;
    2:
      begin
        pplabel58.Caption :=companyname1;
        pplabel63.caption:=pubworkname;
        pplabel61.Caption:='formstoppayreport2';
      end;
  end;
end;

procedure Treportofstoppay.ppReport4PreviewFormCreate(Sender: TObject);
begin
  tppReport(Sender).PreviewForm.WindowState:=wsMaximized;
end;

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

procedure Treportofstoppay.Button1Click(Sender: TObject);
begin
  case radiogroup1.ItemIndex of
    0:
      begin
        adodataset3.Close;
        adodataset3.CommandText:='select * from per28010 where state=''0'' ';
        adodataset3.Open;
      end;
    1:
      begin
        adodataset3.Close;
        adodataset3.CommandText:='select * from per28010 where state=''1'' ';
        adodataset3.Open;
      end;
    2:
      begin
        adodataset3.Close;
        adodataset3.CommandText:='select * from per28010 where state=''2'' ';
        adodataset3.Open;
      end;
  end;
  ppReport4.DeviceType:='Screen';
  ppReport4.print;
end;

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

end.