unit5.pas

pasa人力资源考勤管理系统

unit Unit5;

interface

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

type
  TForm5 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    MaskEdit1: TMaskEdit;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    ppBDEPipeline1: TppBDEPipeline;
    ADOQuery1workno: TStringField;
    ADOQuery1cardno: TStringField;
    ADOQuery1name: TStringField;
    ADOQuery1dept: TStringField;
    ADOQuery1monthy: TStringField;
    ADOQuery1total_money: TBCDField;
    MaskEdit2: TMaskEdit;
    MaskEdit3: TMaskEdit;
    ADOQuery2: TADOQuery;
    DataSource2: TDataSource;
    ppBDEPipeline2: TppBDEPipeline;
    ppReport2: TppReport;
    ADOQuery2workno: TStringField;
    ADOQuery2cardno: TStringField;
    ADOQuery2name: TStringField;
    ADOQuery2dept: TStringField;
    ADOQuery2procno: TStringField;
    ADOQuery2procname: TStringField;
    ADOQuery2setno: TStringField;
    ADOQuery2salno: TStringField;
    ADOQuery2procprice: TBCDField;
    ADOQuery2goodnum: TBCDField;
    ADOQuery2returnrq: TDateTimeField;
    ADOQuery2ngnum: TBCDField;
    ADOQuery2factmoney: TBCDField;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    ppReport1: TppReport;
    ppReport3: TppReport;
    ppHeaderBand1: TppHeaderBand;
    ppLine1: TppLine;
    ppLabel2: TppLabel;
    ppLabel3: TppLabel;
    ppLabel4: TppLabel;
    ppLabel5: TppLabel;
    ppLabel1: TppLabel;
    ppColumnHeaderBand1: TppColumnHeaderBand;
    ppDetailBand1: TppDetailBand;
    ppDBText1: TppDBText;
    ppDBText2: TppDBText;
    ppDBText3: TppDBText;
    ppDBText4: TppDBText;
    ppColumnFooterBand1: TppColumnFooterBand;
    ppFooterBand1: TppFooterBand;
    ppLine2: TppLine;
    ppSystemVariable1: TppSystemVariable;
    ppSystemVariable2: TppSystemVariable;
    ppHeaderBand3: TppHeaderBand;
    ppDetailBand3: TppDetailBand;
    ppFooterBand3: TppFooterBand;
    ppLabel6: TppLabel;
    ppLabel7: TppLabel;
    ppLabel8: TppLabel;
    ppLabel9: TppLabel;
    ppLabel10: TppLabel;
    ppLabel11: TppLabel;
    ppDBText5: TppDBText;
    ppDBText6: TppDBText;
    ppDBText7: TppDBText;
    ppDBText8: TppDBText;
    ppDBText9: TppDBText;
    ppLabel12: TppLabel;
    ppLine3: TppLine;
    ppLine4: TppLine;
    ppSystemVariable3: TppSystemVariable;
    ppSystemVariable4: TppSystemVariable;
    ppLabel13: TppLabel;
    ppLabel14: TppLabel;
    ppLabel15: TppLabel;
    RadioButton3: TRadioButton;
    ADODataSet1: TADODataSet;
    DataSource3: TDataSource;
    ppBDEPipeline3: TppBDEPipeline;
    ppReport4: TppReport;
    ADODataSet1setno: TStringField;
    ADODataSet1goodnum: TBCDField;
    ADODataSet1ngnum: TBCDField;
    ADODataSet1factmoney: TBCDField;
    MaskEdit4: TMaskEdit;
    MaskEdit5: TMaskEdit;
    ppHeaderBand4: TppHeaderBand;
    ppLabel27: TppLabel;
    ppLabel28: TppLabel;
    ppLabel29: TppLabel;
    ppLabel30: TppLabel;
    ppLabel31: TppLabel;
    ppLabel32: TppLabel;
    ppLabel33: TppLabel;
    ppLabel34: TppLabel;
    ppLabel35: TppLabel;
    ppLine5: TppLine;
    ppLine6: TppLine;
    ppDetailBand4: TppDetailBand;
    ppDBText10: TppDBText;
    ppDBText11: TppDBText;
    ppDBText12: TppDBText;
    ppDBText13: TppDBText;
    ppFooterBand4: TppFooterBand;
    ppLabel36: TppLabel;
    ppDBCalc4: TppDBCalc;
    ppDBCalc5: TppDBCalc;
    ppDBCalc6: TppDBCalc;
    ppVariable3: TppVariable;
    ppVariable4: TppVariable;
    raCodeModule2: TraCodeModule;
    ppHeaderBand2: TppHeaderBand;
    ppLine11: TppLine;
    ppLabel86: TppLabel;
    ppLabel87: TppLabel;
    ppLabel88: TppLabel;
    ppLabel91: TppLabel;
    ppLabel93: TppLabel;
    ppLabel94: TppLabel;
    ppDBText78: TppDBText;
    ppLabel95: TppLabel;
    ppLabel96: TppLabel;
    ppLabel97: TppLabel;
    ppLabel98: TppLabel;
    ppLabel99: TppLabel;
    ppLabel100: TppLabel;
    ppSystemVariable12: TppSystemVariable;
    ppLabel23: TppLabel;
    ppLabel24: TppLabel;
    ppLabel25: TppLabel;
    ppLabel26: TppLabel;
    ppDetailBand2: TppDetailBand;
    ppDBText80: TppDBText;
    ppDBText81: TppDBText;
    ppDBText82: TppDBText;
    ppDBText83: TppDBText;
    ppDBText84: TppDBText;
    ppDBText85: TppDBText;
    ppDBText86: TppDBText;
    ppDBText87: TppDBText;
    ppDBText88: TppDBText;
    ppDBText89: TppDBText;
    ppDBText90: TppDBText;
    ppFooterBand2: TppFooterBand;
    ppLine12: TppLine;
    ppSystemVariable11: TppSystemVariable;
    ppLabel16: TppLabel;
    ppLabel17: TppLabel;
    ppLabel18: TppLabel;
    ppDBCalc1: TppDBCalc;
    ppDBCalc2: TppDBCalc;
    ppDBCalc3: TppDBCalc;
    ppVariable1: TppVariable;
    ppVariable2: TppVariable;
    ppLabel19: TppLabel;
    ppLabel20: TppLabel;
    ppLabel21: TppLabel;
    ppLabel22: TppLabel;
    raCodeModule1: TraCodeModule;
    procedure Button1Click(Sender: TObject);
    procedure ppReport1PreviewFormCreate(Sender: TObject);

    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button2Click(Sender: TObject);
    procedure ppReport2PreviewFormCreate(Sender: TObject);
    procedure ppReport1BeforePrint(Sender: TObject);
    procedure ppReport2BeforePrint(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure ppReport4BeforePrint(Sender: TObject);
    procedure ppReport4PreviewFormCreate(Sender: TObject);
    procedure MaskEdit4KeyPress(Sender: TObject; var Key: Char);
    procedure MaskEdit5KeyPress(Sender: TObject; var Key: Char);
    procedure MaskEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure MaskEdit3KeyPress(Sender: TObject; var Key: Char);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;

implementation

{$R *.DFM}

procedure TForm5.Button1Click(Sender: TObject);
var fmat1:string;
begin
  if fmat='/' then
    fmat1:='    /  /  ';
  if fmat='-' then
    fmat1:='    -  -  ';
if radiobutton1.checked then
begin
if (maskedit2.text<>fmat1) and  (maskedit3.text<>fmat1) then
  begin
    adoquery2.close;
    adoquery2.sql.clear;
    adoquery2.sql.text:='select * from pie05010 where returnrq between convert(datetime,'''+maskedit2.text+''') and convert(datetime,'''+maskedit3.text+''') ';
    adoquery2.Open;
    ppreport2.print;
  end
  else
  begin
    adoquery2.Close;
    adoquery2.sql.text:='select * from pie05010 ';
    adoquery2.open;
    ppreport2.print;
  end;
end
else if radiobutton2.Checked then
begin
 if maskedit1.text<>fmat1 then
 begin
   adoquery1.close;
   adoquery1.sql.clear;
   adoquery1.sql.add('select * from pie06010 where monthy='''+maskedit1.text+''' ');
   adoquery1.Open;
    ppreport1.print;
 end else
 begin
   adoquery1.Close;
   adoquery1.sql.Clear;
   adoquery1.sql.add('select * from pie06010');
   adoquery1.Open;
   ppreport1.print;
 end;
  end else if radiobutton3.checked then
  if (maskedit4.text<>fmat1) and (maskedit5.text<>fmat1) then
  begin
  adodataset1.Close;
  adodataset1.commandtext:='select setno, (sum(isnull(goodnum,0))+floor(sum(isnull(ngnum,0))/12)) goodnum,(sum(isnull(ngnum,0))-floor(sum(isnull(ngnum,0))/12)*12) ngnum ,sum(isnull(factmoney,0)) factmoney  from pie05010 where returnrq between convert(datetime,'''+maskedit4.text+''') and convert(datetime,'''+maskedit5.text+''')  group by setno  ' ;
  adodataset1.Open;
  ppreport4.print;
  end else
  begin
  adodataset1.close;
  adodataset1.commandtext:='select setno, (sum(isnull(goodnum,0))+floor(sum(isnull(ngnum,0))/12)) goodnum,(sum(isnull(ngnum,0))-floor(sum(isnull(ngnum,0))/12)*12) ngnum ,sum(isnull(factmoney,0)) factmoney  from pie05010 group by setno ';
  adodataset1.open;
  ppreport4.print;
  end;
end;
 //end;
procedure TForm5.ppReport1PreviewFormCreate(Sender: TObject);
begin
  tppReport(Sender).PreviewForm.WindowState:=wsMaximized;
end;

procedure TForm5.FormCreate(Sender: TObject);
begin
  maskedit2.text:=formatdatetime('yyyy/mm/dd',date);
  maskedit3.text:=formatdatetime('yyyy/mm/dd',date);
  maskedit1.text:=formatdatetime('yyyy/mm',date);
end;

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

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

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

procedure TForm5.ppReport1BeforePrint(Sender: TObject);
begin
  pplabel12.caption:=maskedit1.text;
  pplabel15.caption:=pubworkname;
end;

procedure TForm5.ppReport2BeforePrint(Sender: TObject);
begin
   pplabel18.caption:=pubworkname;
   pplabel23.caption:=maskedit2.text;
   pplabel24.caption:=maskedit3.text;
end;

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

procedure TForm5.ppReport4BeforePrint(Sender: TObject);
begin
   pplabel27.caption:=pubworkname;
   pplabel29.caption:=maskedit4.text;
   pplabel31.caption:=maskedit5.text;
end;

procedure TForm5.ppReport4PreviewFormCreate(Sender: TObject);
begin
 tppreport(sender).previewform.windowstate:=wsmaximized;
end;

procedure TForm5.MaskEdit4KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
 begin
   key:=#0;
   selectnext(activecontrol,true,true);
 end;
end;

procedure TForm5.MaskEdit5KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
 begin
   key:=#0;
   selectnext(activecontrol,true,true);
 end;
end;

procedure TForm5.MaskEdit2KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
 begin
   key:=#0;
   selectnext(activecontrol,true,true);
 end;
end;

procedure TForm5.MaskEdit3KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
 begin
   key:=#0;
   selectnext(activecontrol,true,true);
 end;
end;

procedure TForm5.RadioButton1Click(Sender: TObject);
begin
  maskedit2.Text:='';
  maskedit3.Text:='';
  maskedit2.SetFocus;
end;

procedure TForm5.RadioButton2Click(Sender: TObject);
begin
  maskedit1.Text:='';
  maskedit1.SetFocus;
end;

procedure TForm5.RadioButton3Click(Sender: TObject);
begin
  maskedit4.Text:='';
  maskedit5.Text:='';
  maskedit4.SetFocus;
end;

end.