printsetup2.pas

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

unit printsetup2;

interface

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

type
  Tprintsetup1 = class(TForm)
    Label1: TLabel;
    MaskEdit1: TMaskEdit;
    MaskEdit2: TMaskEdit;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    DataSource1: TDataSource;
    ADODataSet1: TADODataSet;
    ppBDEPipeline1: TppBDEPipeline;
    ppReport1: TppReport;
    ppBDEPipeline2: TppBDEPipeline;
    DataSource2: TDataSource;
    ADODataSet2: TADODataSet;
    ppHeaderBand1: TppHeaderBand;
    ppDetailBand1: TppDetailBand;
    ppFooterBand1: TppFooterBand;
    ppDBText1: TppDBText;
    ppLabel2: TppLabel;
    ppDBText2: TppDBText;
    ppLabel3: TppLabel;
    ppDBText3: TppDBText;
    ppLabel4: TppLabel;
    ppSubReport1: TppSubReport;
    ppChildReport1: TppChildReport;
    ppTitleBand1: TppTitleBand;
    ppDetailBand2: TppDetailBand;
    ppDBText5: TppDBText;
    ppLabel6: TppLabel;
    ppDBText6: TppDBText;
    ppLabel7: TppLabel;
    ppDBText7: TppDBText;
    ppLabel8: TppLabel;
    ppDBText8: TppDBText;
    ppLabel9: TppLabel;
    ppDBText9: TppDBText;
    ppLabel10: TppLabel;
    ppDBText10: TppDBText;
    ppLabel11: TppLabel;
    ppDBMemo1: TppDBMemo;
    ppLabel12: TppLabel;
    ppDBText11: TppDBText;
    ppLabel13: TppLabel;
    ppDBText12: TppDBText;
    ppLabel14: TppLabel;
    ppShape1: TppShape;
    ppLabel1: TppLabel;
    ppLabel5: TppLabel;
    ppLabel15: TppLabel;
    ppLabel16: TppLabel;
    ppLabel17: TppLabel;
    ppLabel18: TppLabel;
    ppLabel19: TppLabel;
    ppSystemVariable1: TppSystemVariable;
    ppLabel20: TppLabel;
    ppSystemVariable2: TppSystemVariable;
    ppLine1: TppLine;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ppReport1AfterPrint(Sender: TObject);
    procedure ppReport1PreviewFormCreate(Sender: TObject);
    procedure DateTimePicker1CloseUp(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  printsetup1: Tprintsetup1;

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

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

procedure Tprintsetup1.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 emp05010 where plandate between convert(datetime,'''+maskedit1.Text+''') and convert(datetime,'''+maskedit2.Text+''')';
       adodataset1.Open;
       pplabel15.Caption:=maskedit1.text+'~~'+maskedit2.Text;
     end
  else
    begin
      adodataset1.Close;
      adodataset1.CommandText:='select * from emp05010 ';
      adodataset1.Open;
      pplabel15.Caption:=''
    end;
    pplabel1.Caption:=companyname1;
    pplabel18.Caption:=pubworkname;
    ppreport1.DeviceType:='Screen';
    ppreport1.Print;
end;

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

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

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

procedure Tprintsetup1.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 Tprintsetup1.FormCreate(Sender: TObject);
begin
   Datetimepicker1.Date:=now;
   Datetimepicker2.Date:=now;
end;

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

end.