reportforreward.pas

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

unit reportforreward;

interface

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

type
  Trewardorpanish = class(TForm)
    Label1: TLabel;
    RadioGroup1: TRadioGroup;
    DataSource6: TDataSource;
    ADODataSet6: TADODataSet;
    ppDBPipeline6: TppDBPipeline;
    Button1: TButton;
    Button2: TButton;
    MaskEdit1: TMaskEdit;
    MaskEdit2: TMaskEdit;
    ppReport1: TppReport;
    ppHeaderBand1: TppHeaderBand;
    ppDetailBand1: TppDetailBand;
    ppFooterBand1: TppFooterBand;
    ppLabel1: TppLabel;
    ppLabel2: TppLabel;
    ppLine2: TppLine;
    ppLine3: TppLine;
    ppLabel3: TppLabel;
    ppLine4: TppLine;
    ppLine5: TppLine;
    ppLabel5: TppLabel;
    ppLine6: TppLine;
    ppLabel6: TppLabel;
    ppLine7: TppLine;
    ppLine8: TppLine;
    ppLine11: TppLine;
    ppLine12: TppLine;
    ppLine13: TppLine;
    ppLine14: TppLine;
    ppLine15: TppLine;
    ppLine16: TppLine;
    ppDBText1: TppDBText;
    ppDBText3: TppDBText;
    ppDBText4: TppDBText;
    ppGroup1: TppGroup;
    ppGroupHeaderBand1: TppGroupHeaderBand;
    ppGroupFooterBand1: TppGroupFooterBand;
    ppLabel7: TppLabel;
    ppLabel8: TppLabel;
    ppLabel9: TppLabel;
    ppLine17: TppLine;
    ppLine18: TppLine;
    ppLabel10: TppLabel;
    ppDBText5: TppDBText;
    ppLabel4: TppLabel;
    ppDBText2: TppDBText;
    ppReport2: TppReport;
    ppHeaderBand2: TppHeaderBand;
    ppDetailBand2: TppDetailBand;
    ppFooterBand2: TppFooterBand;
    ADODataSet1: TADODataSet;
    ADODataSet1workno: TStringField;
    ADODataSet1name: TStringField;
    ADODataSet1jctime5: TIntegerField;
    ADODataSet1jctime6: TIntegerField;
    ADODataSet1jctime7: TIntegerField;
    ppBDEPipeline1: TppBDEPipeline;
    DataSource1: TDataSource;
    ppDBText6: TppDBText;
    ppDBText7: TppDBText;
    ppDBText8: TppDBText;
    ppDBText9: TppDBText;
    ppDBText10: TppDBText;
    ppLabel11: TppLabel;
    ppLabel12: TppLabel;
    ppLabel13: TppLabel;
    ppLabel14: TppLabel;
    ppLabel15: TppLabel;
    ppLine1: TppLine;
    ppLine9: TppLine;
    ppLine10: TppLine;
    ppLabel16: TppLabel;
    ppLabel17: TppLabel;
    ppLabel18: TppLabel;
    ppLabel19: TppLabel;
    ppSystemVariable1: TppSystemVariable;
    ppLine19: TppLine;
    ppLine20: TppLine;
    ppLine22: TppLine;
    ppLine23: TppLine;
    ppLine21: TppLine;
    ppLine24: TppLine;
    ppLine25: TppLine;
    ppLine26: TppLine;
    ppLine27: TppLine;
    ppLine28: TppLine;
    ppLine29: TppLine;
    ppLine30: TppLine;
    StaticText1: TStaticText;
    procedure Button2Click(Sender: TObject);
    procedure ppReport7PreviewFormCreate(Sender: TObject);
    procedure ppReport7AfterPrint(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure ppReport1BeforePrint(Sender: TObject);
    procedure ppReport1PreviewFormCreate(Sender: TObject);
    procedure ppReport2BeforePrint(Sender: TObject);
    procedure ppReport2PreviewFormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  rewardorpanish: Trewardorpanish;
implementation
uses main,datamol, jiangchen;
{$R *.DFM}

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

procedure Trewardorpanish.ppReport7PreviewFormCreate(Sender: TObject);
begin
  tppReport(Sender).PreviewForm.WindowState:=wsMaximized;
end;

procedure Trewardorpanish.ppReport7AfterPrint(Sender: TObject);
begin
  adodataset6.Close;
end;

procedure Trewardorpanish.Button1Click(Sender: TObject);
begin
  if i =true then
  begin
    case radiogroup1.ItemIndex of
    1:
      begin
        adodataset6.Close;
        adodataset6.CommandText:='select * from per17010 where jcdate between convert(datetime,'''+maskedit1.text+''') and convert(datetime,'''+maskedit2.text+''') and jckind=''0'' order by jckind,workno';
        adodataset6.Open;
      end;
    0:
      begin
        adodataset6.Close;
        adodataset6.CommandText:='select * from per17010 where jckind=''0''';
        adodataset6.Open;
      end;
      end;
      ppReport1.print;
    end
  else
  begin
    Adodataset1.Close;
    Adodataset1.CommandText:='select workno,name,jctime5,jctime6,jctime7 from jccount ';
    Adodataset1.Open;
   ppreport2.print;  
  end;
end;

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

procedure Trewardorpanish.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then    
   begin
     key:=#0;
     postmessage(handle,wm_keydown,vk_tab,0);
   end;
end;

procedure Trewardorpanish.ppReport1BeforePrint(Sender: TObject);
begin
   case radiogroup1.ItemIndex of
  1:
    begin
      pplabel1.Caption :=companyname1;
      pplabel2.Caption :=maskedit1.text+'~~~'+maskedit2.text;
      pplabel9.caption:=pubworkname;
    end;
  0:
    begin
      pplabel1.Caption :=companyname1;
      pplabel2.Caption :='';
      pplabel9.caption:=pubworkname;
    end;
end;
end;

procedure Trewardorpanish.ppReport1PreviewFormCreate(Sender: TObject);
begin
  tppReport(Sender).PreviewForm.WindowState:=wsMaximized;
end;

procedure Trewardorpanish.ppReport2BeforePrint(Sender: TObject);
begin
  pplabel16.Caption:=companyname1;
  pplabel19.caption:=pubworkname;
end;

procedure Trewardorpanish.ppReport2PreviewFormCreate(Sender: TObject);
begin
  tppReport(Sender).PreviewForm.WindowState:=wsMaximized;
end;

end.