panishreport.pas

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

unit panishreport;

interface

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

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

var
  reportforpanish: Treportforpanish;

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

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

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

procedure Treportforpanish.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then    
   begin
     key:=#0;
     postmessage(handle,wm_keydown,vk_tab,0);
   end;
end;
procedure Treportforpanish.Button1Click(Sender: TObject);
begin
  if j=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=''1'' order by jckind,workno';
          adodataset6.Open;
        end;
      0:
        begin
          adodataset6.Close;
          adodataset6.CommandText:='select * from per17010 where jckind=''1''';
          adodataset6.Open;
        end;
    end;
    ppReport1.print;
  end
  else
  begin
    Adodataset1.Close;
    Adodataset1.CommandText:='select workno,name,jctime1,jctime2,jctime3 from jccount ';
    Adodataset1.Open;
    ppreport2.Print;
  end;
end;

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

procedure Treportforpanish.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 Treportforpanish.ppReport1PreviewFormCreate(Sender: TObject);
begin
  tppReport(Sender).PreviewForm.WindowState:=wsMaximized;
end;
procedure Treportforpanish.ppReport2BeforePrint(Sender: TObject);
begin
  pplabel16.Caption:=companyname1;
  pplabel19.Caption:=pubworkname;
end;

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

end.