repprintsetup.pas

pasa人力资源考勤管理系统

unit repprintsetup;

interface

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

type
  Tprintsetup = class(TForm)
    Label1: TLabel;
    MaskEdit1: TMaskEdit;
    MaskEdit2: TMaskEdit;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    ppBDEPipeline1: TppBDEPipeline;
    ppReport1: TppReport;
    DataSource2: TDataSource;
    ADODataSet2: TADODataSet;
    ppBDEPipeline2: TppBDEPipeline;
    ppHeaderBand1: TppHeaderBand;
    ppDetailBand1: TppDetailBand;
    ppFooterBand1: TppFooterBand;
    ppDBText1: TppDBText;
    ADODataSet2rno: TStringField;
    ADODataSet2Rcourse: TStringField;
    ADODataSet2Rdegree: TStringField;
    ADODataSet2boys: TBCDField;
    ADODataSet2girls: TBCDField;
    ADODataSet2Rexp: TMemoField;
    ADODataSet2Rprof: TStringField;
    ADODataSet2hopedate: TDateTimeField;
    ADODataSet2Rage: TStringField;
    ADODataSet2Rmarry: TStringField;
    ADODataSet2Rprov: TStringField;
    ADODataSet2why: TStringField;
    ADODataSet2memo: TStringField;
    ADODataSet2state1: TBooleanField;
    ADODataSet2state2: TBooleanField;
    ADODataSet2operator: TStringField;
    ADODataSet2cdate: TDateTimeField;
    DataSource1: TDataSource;
    ADODataSet1: TADODataSet;
    ADODataSet1rno: TStringField;
    ADODataSet1Rdept: TStringField;
    ADODataSet1Rman: TStringField;
    ADODataSet1Rdate: TDateTimeField;
    ADODataSet1sumperson: TBCDField;
    ADODataSet1nowperson: TBCDField;
    ADODataSet1operator: TStringField;
    ADODataSet1Cdate: TDateTimeField;
    ADODataSet1state1: TBooleanField;
    ADODataSet1state2: TBooleanField;
    ppDBText2: TppDBText;
    ppDBText3: TppDBText;
    ppDBText4: TppDBText;
    ppDBText5: TppDBText;
    ppDBText6: TppDBText;
    ADODataSet3: TADODataSet;
    ADODataSet1deptname: TStringField;
    ppDBText7: TppDBText;
    ppLabel1: TppLabel;
    ppLabel2: TppLabel;
    ppLabel3: TppLabel;
    ppLabel4: TppLabel;
    ppLabel5: TppLabel;
    ppLabel6: TppLabel;
    ppLabel7: TppLabel;
    ppSubReport1: TppSubReport;
    ppChildReport1: TppChildReport;
    ppDetailBand2: TppDetailBand;
    ppDBText8: TppDBText;
    ppDBText9: TppDBText;
    ppDBText10: TppDBText;
    ppDBText11: TppDBText;
    ppDBText12: TppDBText;
    ppDBText13: TppDBText;
    ppDBText14: TppDBText;
    ppDBText15: TppDBText;
    ppDBText16: TppDBText;
    ppDBText17: TppDBText;
    ppDBText18: TppDBText;
    ppDBText19: TppDBText;
    ppLabel8: TppLabel;
    ppLabel9: TppLabel;
    ppLabel10: TppLabel;
    ppLabel11: TppLabel;
    ppTitleBand1: TppTitleBand;
    ppLabel12: TppLabel;
    ppLabel13: TppLabel;
    ppLabel14: TppLabel;
    ppLabel15: TppLabel;
    ppLabel16: TppLabel;
    ppLabel17: TppLabel;
    ppLabel18: TppLabel;
    ppLabel19: TppLabel;
    ppLine1: TppLine;
    ppLabel20: TppLabel;
    ppLabel21: TppLabel;
    ppLabel22: TppLabel;
    ppLabel23: TppLabel;
    ppLabel24: TppLabel;
    ppLabel25: TppLabel;
    ppLabel26: TppLabel;
    ppSystemVariable1: TppSystemVariable;
    ppLabel27: TppLabel;
    ppSystemVariable2: TppSystemVariable;
    ppShape1: TppShape;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    procedure ppReport1AfterPrint(Sender: TObject);
    procedure ppReport1PreviewFormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure DateTimePicker1CloseUp(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  printsetup: Tprintsetup;

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

procedure Tprintsetup.ppReport1AfterPrint(Sender: TObject);
begin
  adodataset1.Close;
  adodataset2.Close;
end;

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

procedure Tprintsetup.Button1Click(Sender: TObject);
var fmat1:string;
begin
  if fmat='/' then
    fmat1:='    /  /  ';
  if fmat='-' then
    fmat1:='    -  -  ';
  if (maskedit1.Text<>fmat1) and (maskedit2.Text<>fmat1) then
    begin
      adodataset1.Close;
      adodataset1.CommandText:='select * from emp06010 where rdate between convert(datetime,'''+maskedit1.Text+''') and convert(datetime,'''+maskedit2.text+''')';
      adodataset1.Open;
      pplabel22.Caption:=maskedit1.Text+'~~'+maskedit2.text;
    end
  else
    begin
      adodataset1.Close;
      adodataset1.CommandText:='select * from emp06010 ';
      adodataset1.Open;
      pplabel22.Caption:='';
    end;
  pplabel20.Caption:=companyname1;
  pplabel25.Caption:=pubworkname;
  ppreport1.DeviceType:='Screen';
  ppreport1.Print;
end;

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

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

procedure Tprintsetup.FormKeyPress(Sender: TObject; var Key: Char);
begin
   if key=#13 then
   begin
      key:=#0;
      Selectnext(activecontrol,true,true);
   end;
end;

procedure Tprintsetup.DateTimePicker1CloseUp(Sender: TObject);
begin
  case (sender as TDatetimepicker).Tag of
    1: maskedit1.text:=formatdatetime('yyyy/mm/dd',(Sender as tdatetimepicker).Date);
    2: maskedit2.text:=formatdatetime('yyyy/mm/dd',(Sender as tdatetimepicker).Date);
  end;
end;

procedure Tprintsetup.FormCreate(Sender: TObject);
begin
   Datetimepicker1.Date:=now;
   Datetimepicker2.Date:=now;
end;

end.