reportofleave.pas

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

unit reportofleave;

interface

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

type
  Treportleave = class(TForm)
    Label1: TLabel;
    DataSource2: TDataSource;
    ppDBPipeline2: TppDBPipeline;
    ppReport3: TppReport;
    ppHeaderBand3: TppHeaderBand;
    ppLabel37: TppLabel;
    ppLabel38: TppLabel;
    ppLabel40: TppLabel;
    ppLabel41: TppLabel;
    ppLabel42: TppLabel;
    ppSystemVariable5: TppSystemVariable;
    ppLabel43: TppLabel;
    ppSystemVariable6: TppSystemVariable;
    ppLabel44: TppLabel;
    ppLabel48: TppLabel;
    ppLabel50: TppLabel;
    ppLabel51: TppLabel;
    ppLabel52: TppLabel;
    ppLabel55: TppLabel;
    ppLabel57: TppLabel;
    ppLine4: TppLine;
    ppDetailBand3: TppDetailBand;
    ppDBText25: TppDBText;
    ppDBText27: TppDBText;
    ppDBText29: TppDBText;
    ppDBText34: TppDBText;
    ppDBText31: TppDBText;
    ppDBText35: TppDBText;
    ppFooterBand3: TppFooterBand;
    RadioGroup1: TRadioGroup;
    Button1: TButton;
    Button2: TButton;
    MaskEdit1: TMaskEdit;
    MaskEdit2: TMaskEdit;
    Edit1: TEdit;
    Adodataset2: TADODataSet;
    Adodataset2workno: TStringField;
    Adodataset2cardno: TStringField;
    Adodataset2name: TStringField;
    Adodataset2dept: TStringField;
    Adodataset2prof: TStringField;
    Adodataset2reason: TStringField;
    Adodataset2leavekind: TStringField;
    Adodataset2operator: TStringField;
    Adodataset2cdate: TDateTimeField;
    Adodataset2leavedate: TDateTimeField;
    Adodataset2homeadd: TStringField;
    Adodataset2marry: TBooleanField;
    ppLine1: TppLine;
    ppLine2: TppLine;
    ppLine3: TppLine;
    ppLine5: TppLine;
    ppLine6: TppLine;
    ppLine7: TppLine;
    ppLine8: TppLine;
    ppLine9: TppLine;
    ppLine12: TppLine;
    ppLine13: TppLine;
    ppLine14: TppLine;
    ppLine15: TppLine;
    ppLine10: TppLine;
    ppLine11: TppLine;
    ppLabel1: TppLabel;
    ppDBText1: TppDBText;
    ppLine20: TppLine;
    ppLine21: TppLine;
    ppLine22: TppLine;
    ppLine23: TppLine;
    ppLabel2: TppLabel;
    ppLine18: TppLine;
    ppLine19: TppLine;
    ppDBText2: TppDBText;
    ppLine24: TppLine;
    ppLine25: TppLine;
    ppLabel3: TppLabel;
    ppLine26: TppLine;
    ppLine27: TppLine;
    ppLabel4: TppLabel;
    ppLabel5: TppLabel;
    ppLabel6: TppLabel;
    procedure Button2Click(Sender: TObject);
    procedure ppDBText28GetText(Sender: TObject; var Text: String);
    procedure RadioGroup1Click(Sender: TObject);
    procedure ppReport3BeforePrint(Sender: TObject);
    procedure ppReport3AfterPrint(Sender: TObject);
    procedure ppReport3PreviewFormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  reportleave: Treportleave;

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

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

procedure Treportleave.ppDBText28GetText(Sender: TObject;
  var Text: String);
begin
  if text='0' then
     text:='未婚'
  else
     text:='已婚';
end;

procedure Treportleave.RadioGroup1Click(Sender: TObject);
begin
  case radiogroup1.ItemIndex of
    0:
      begin
        maskedit1.Text:='';
        maskedit2.Text:='';
      end;
  end;
end;

procedure Treportleave.ppReport3BeforePrint(Sender: TObject);
begin
  case radiogroup1.ItemIndex of
    1:
      begin
        pplabel37.Caption :=companyname1;
        pplabel44.Caption :=maskedit1.text+'~~~'+maskedit2.text;
        pplabel41.caption:=pubworkname;
      end;
    0:
      begin
        pplabel37.Caption :=companyname1;
        pplabel44.Caption :='';
        pplabel41.caption:=pubworkname;
      end;
  end;
end;

procedure Treportleave.ppReport3AfterPrint(Sender: TObject);
begin
  adodataset2.Close;
end;

procedure Treportleave.ppReport3PreviewFormCreate(Sender: TObject);
begin
  tppReport(Sender).PreviewForm.WindowState:=wsMaximized;
end;

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

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

procedure Treportleave.Button1Click(Sender: TObject);
begin
  case radiogroup1.ItemIndex of
    1:
      begin
        adodataset2.Close;
        adodataset2.CommandText:='select * from per16010 where leavedate between convert(datetime,'''+maskedit1.text+''') and convert(datetime,'''+maskedit2.text+''') ';
        adodataset2.Open;
      end;
    0:
      begin
        adodataset2.Close;
        adodataset2.CommandText:='select * from per16010 ';
        adodataset2.Open;
      end;
  end;
  ppReport3.print;
end;

end.