salaryjia.pas

pasa人力资源考勤管理系统

                                   '-isnull(a.kuanggongdec,0) otherdec, isnull(a.mustgive,0)-isnull(a.factbasepay,0)-isnull(a.otmoney,0)-isnull(a.yearmoney,0)-isnull(a.smoney,0)-isnull(a.noname55,0) otheradd from  sal21010 a  left join per24010 b  on a.workno=b.workno '+
                                   ' where  a.deptname='''+combobox1.text+''' and a.monthy='''+edit1.text+''' and b.leave<>1 and b.mankind<>''计件'' order by a.deptname,a.workno ';
          adodataset4.open;
          ppreport8.Print;
        end
        else if (radiogroup1.itemindex=2)and (radiogroup2.ItemIndex=0) then
        begin
          Adodataset4.commandtext:=' select  a.deptname,a.workno,a.name, a.otjieri,a.yearmoney,a.othours,a.otmoney,a.otjiari,a.smoney,b.prof,a.indate,a.factbasepay,a.factdays,a.facthours,'+
                                   'a.noname55,a.insurance,a.facttech,mustgive,a.mustdec,a.factmoney,a.eightornine,a.latedec,a.kuanggongdec ,isnull(a.mustdec,0)-isnull(a.insurance,0)-isnull(a.facttech,0)-isnull(a.eightornine,0)-isnull(a.latedec,0)'+
                                   '-isnull(a.kuanggongdec,0) otherdec, isnull(a.mustgive,0)-isnull(a.factbasepay,0)-isnull(a.otmoney,0)-isnull(a.yearmoney,0)-isnull(a.smoney,0)-isnull(a.noname55,0) otheradd from sal21010 a  left join per24010 b  on a.workno=b.workno '+
                                   ' where a.workno between '''+edit2.text+''' and '''+edit3.text+''' and a.monthy='''+edit1.text+''' and b.leave<>1 and b.mankind<>''计件'' order by a.deptname,a.workno ';
          adodataset4.open;
          ppreport8.Print;
         end
         else if (radiogroup1.itemindex=0)and (radiogroup2.ItemIndex=1) then
         begin
          Adodataset4.commandtext:=' select  a.deptname,a.workno,a.name, a.otjieri,a.yearmoney,a.othours,a.otmoney,a.otjiari,a.smoney,b.prof,a.indate,a.factbasepay,a.factdays,a.facthours,'+
                                   'a.noname55,a.insurance,a.facttech,mustgive,a.mustdec,a.factmoney,a.eightornine,a.latedec,a.kuanggongdec ,isnull(a.mustdec,0)-isnull(a.insurance,0)-isnull(a.facttech,0)-isnull(a.eightornine,0)-isnull(a.latedec,0)'+
                                   '-isnull(a.kuanggongdec,0) otherdec, isnull(a.mustgive,0)-isnull(a.factbasepay,0)-isnull(a.otmoney,0)-isnull(a.yearmoney,0)-isnull(a.smoney,0)-isnull(a.noname55,0) otheradd from sal21010 a  left join per24010 b  on a.workno=b.workno '+
                                   ' where  a.monthy='''+edit1.text+'''  and b.leave=1  and b.leaveworkmoney=0 and b.mankind<>''计件'' order by a.deptname,a.workno ';
           adodataset4.Open;
           ppreport8.Print;
          end
          else if (radiogroup1.itemindex=1)and (radiogroup2.ItemIndex=1) then
          begin
          Adodataset4.commandtext:=' select  a.deptname,a.workno,a.name, a.otjieri,a.yearmoney,a.othours,a.otmoney,a.otjiari,a.smoney,b.prof,a.indate,a.factbasepay,a.factdays,a.facthours,'+
                                   'a.noname55,a.insurance,a.facttech,mustgive,a.mustdec,a.factmoney,a.eightornine,a.latedec,a.kuanggongdec ,isnull(a.mustdec,0)-isnull(a.insurance,0)-isnull(a.facttech,0)-isnull(a.eightornine,0)-isnull(a.latedec,0)'+
                                   '-isnull(a.kuanggongdec,0) otherdec, isnull(a.mustgive,0)-isnull(a.factbasepay,0)-isnull(a.otmoney,0)-isnull(a.yearmoney,0)-isnull(a.smoney,0)-isnull(a.noname55,0) otheradd from sal21010 a  left join per24010 b  on a.workno=b.workno '+
                                   ' where  a.deptname='''+combobox1.text+''' and a.monthy='''+edit1.text+''' and b.leave=1 and b.leaveworkmoney=0  and b.mankind<>''计件'' order by a.deptname,a.workno';

            adodataset4.open;
            ppreport8.Print;
          end
          else if (radiogroup1.itemindex=2)and (radiogroup2.ItemIndex=1) then
          begin
          Adodataset4.commandtext:=' select  a.deptname,a.workno,a.name, a.otjieri,a.yearmoney,a.othours,a.otmoney,a.otjiari,a.smoney,b.prof,a.indate,a.factbasepay,a.factdays,a.facthours,'+
                                   'a.noname55,a.insurance,a.facttech,mustgive,a.mustdec,a.factmoney,a.eightornine,a.latedec,a.kuanggongdec ,isnull(a.mustdec,0)-isnull(a.insurance,0)-isnull(a.facttech,0)-isnull(a.eightornine,0)-isnull(a.latedec,0)'+
                                   '-isnull(a.kuanggongdec,0) otherdec, isnull(a.mustgive,0)-isnull(a.factbasepay,0)-isnull(a.otmoney,0)-isnull(a.yearmoney,0)-isnull(a.smoney,0)-isnull(a.noname55,0) otheradd from sal21010 a  left join per24010 b  on a.workno=b.workno '+
                                   ' where  a.workno between '''+edit2.text+''' and '''+edit3.text+''' and a.monthy='''+edit1.text+''' and b.leave=1  and b.leaveworkmoney=0  and b.mankind<>''计件'' order by a.deptname,a.workno ';
            adodataset4.open;
            ppreport8.Print;
          end
          ////////////
             else if (radiogroup1.itemindex=0)and (radiogroup2.ItemIndex=2) then
         begin
           Adodataset4.commandtext:=' select  a.deptname,a.workno,a.name, a.otjieri,a.yearmoney,a.othours,a.otmoney,a.otjiari,a.smoney,b.prof,a.indate,a.factbasepay,a.factdays,a.facthours,'+
                                   'a.noname55,a.insurance,a.facttech,mustgive,a.mustdec,a.factmoney,a.eightornine,a.latedec,a.kuanggongdec ,isnull(a.mustdec,0)-isnull(a.insurance,0)-isnull(a.facttech,0)-isnull(a.eightornine,0)-isnull(a.latedec,0)'+
                                   '-isnull(a.kuanggongdec,0) otherdec, isnull(a.mustgive,0)-isnull(a.factbasepay,0)-isnull(a.otmoney,0)-isnull(a.yearmoney,0)-isnull(a.smoney,0)-isnull(a.noname55,0) otheradd from sal21010 a  left join per24010 b  on a.workno=b.workno '+
            ' where a.monthy='''+edit1.text+'''  and b.leave=1  and b.leaveworkmoney=1 and b.mankind<>''计件'' order by a.deptname,a.workno ';
           adodataset4.Open;
           ppreport8.Print;
          end
          else if (radiogroup1.itemindex=1)and (radiogroup2.ItemIndex=2) then
          begin
          Adodataset4.commandtext:=' select  a.deptname,a.workno,a.name, a.otjieri,a.yearmoney,a.othours,a.otmoney,a.otjiari,a.smoney,b.prof,a.indate,a.factbasepay,a.factdays,a.facthours,'+
                                   'a.noname55,a.insurance,a.facttech,mustgive,a.mustdec,a.factmoney,a.eightornine,a.latedec,a.kuanggongdec ,isnull(a.mustdec,0)-isnull(a.insurance,0)-isnull(a.facttech,0)-isnull(a.eightornine,0)-isnull(a.latedec,0)'+
                                   '-isnull(a.kuanggongdec,0) otherdec, isnull(a.mustgive,0)-isnull(a.factbasepay,0)-isnull(a.otmoney,0)-isnull(a.yearmoney,0)-isnull(a.smoney,0)-isnull(a.noname55,0) otheradd from sal21010 a  left join per24010 b  on a.workno=b.workno '+
                                   ' where  a.deptname='''+combobox1.text+''' and a.monthy='''+edit1.text+''' and b.leave=1 and b.leaveworkmoney=1 and b.mankind<>''计件'' order by a.deptname,a.workno ';

            adodataset4.open;
            ppreport8.Print;
          end
          else if (radiogroup1.itemindex=2)and (radiogroup2.ItemIndex=2) then
          begin
          Adodataset4.commandtext:=' select  a.deptname,a.workno,a.name, a.otjieri,a.yearmoney,a.othours,a.otmoney,a.otjiari,a.smoney,b.prof,a.indate,a.factbasepay,a.factdays,a.facthours,'+
                                   'a.noname55,a.insurance,a.facttech,mustgive,a.mustdec,a.factmoney,a.eightornine,a.latedec,a.kuanggongdec ,isnull(a.mustdec,0)-isnull(a.insurance,0)-isnull(a.facttech,0)-isnull(a.eightornine,0)-isnull(a.latedec,0)'+
                                   '-isnull(a.kuanggongdec,0) otherdec, isnull(a.mustgive,0)-isnull(a.factbasepay,0)-isnull(a.otmoney,0)-isnull(a.yearmoney,0)-isnull(a.smoney,0)-isnull(a.noname55,0) otheradd from sal21010 a  left join per24010 b  on a.workno=b.workno '+
                                   ' where  a.workno between '''+edit2.text+''' and '''+edit3.text+''' and a.monthy='''+edit1.text+''' and b.leave=1  and b.leaveworkmoney=1 and b.mankind<>''计件'' order by a.deptname,a.workno  ';
            adodataset4.open;
            ppreport8.Print;
          end;
            datamod.ADOQuery1.Close;
            datamod.ADOQuery1.sql.clear;
            datamod.ADOQuery1.SQL.Add(adodataset4.commandtext);
          end;
 end;
1:
begin
      if (trim(edit1.Text) <>'/')  then
      begin
        adodataset5.Close;
        if (radiogroup1.itemindex=0)and (radiogroup2.ItemIndex=0) then
        begin
          adodataset5.commandtext:=' select  a.deptname,a.workno,a.name, a.otjieri,a.yearmoney,a.othours,a.otmoney,a.otjiari,a.smoney,b.prof,a.indate,a.factbasepay,a.factdays,a.facthours,'+
                                   'a.noname55,a.insurance,a.facttech,mustgive,a.mustdec,a.factmoney,a.eightornine,a.latedec,a.kuanggongdec ,isnull(a.mustdec,0)-isnull(a.insurance,0)-isnull(a.facttech,0)-isnull(a.eightornine,0)-isnull(a.latedec,0)'+
                                   '-isnull(a.kuanggongdec,0) otherdec, isnull(a.mustgive,0)-isnull(a.factbasepay,0)-isnull(a.otmoney,0)-isnull(a.yearmoney,0)-isnull(a.smoney,0)-isnull(a.noname55,0) otheradd from sal21010 a  left join per24010 b  on a.workno=b.workno '+
                                   ' where  a.monthy='''+edit1.text+'''  and b.leave<>1 and b.mankind=''计件'' order by a.deptname,a.workno';
          adodataset5.Open;
          ppreport4.Print;
        end
        else if (radiogroup1.itemindex=1)and (radiogroup2.ItemIndex=0) then
        begin
          adodataset5.commandtext:=' select  a.deptname,a.workno,a.name, a.otjieri,a.yearmoney,a.othours,a.otmoney,a.otjiari,a.smoney,b.prof,a.indate,a.factbasepay,a.factdays,a.facthours,'+
                                   'a.noname55,a.insurance,a.facttech,mustgive,a.mustdec,a.factmoney,a.eightornine,a.latedec,a.kuanggongdec ,isnull(a.mustdec,0)-isnull(a.insurance,0)-isnull(a.facttech,0)-isnull(a.eightornine,0)-isnull(a.latedec,0)'+
                                   '-isnull(a.kuanggongdec,0) otherdec, isnull(a.mustgive,0)-isnull(a.factbasepay,0)-isnull(a.otmoney,0)-isnull(a.yearmoney,0)-isnull(a.smoney,0)-isnull(a.noname55,0) otheradd from sal21010 a  left join per24010 b  on a.workno=b.workno '+
                                   ' where  a.deptname='''+combobox1.text+''' and a.monthy='''+edit1.text+''' and b.leave<>1 and b.mankind=''计件'' order by a.deptname,a.workno';
          adodataset5.open;
          ppreport4.Print;
        end
        else if (radiogroup1.itemindex=2)and (radiogroup2.ItemIndex=0) then
        begin
          adodataset5.commandtext:=' select  a.deptname,a.workno,a.name, a.otjieri,a.yearmoney,a.othours,a.otmoney,a.otjiari,a.smoney,b.prof,a.indate,a.factbasepay,a.factdays,a.facthours,'+
                                   'a.noname55,a.insurance,a.facttech,mustgive,a.mustdec,a.factmoney,a.eightornine,a.latedec,a.kuanggongdec ,isnull(a.mustdec,0)-isnull(a.insurance,0)-isnull(a.facttech,0)-isnull(a.eightornine,0)-isnull(a.latedec,0)'+
                                   '-isnull(a.kuanggongdec,0) otherdec, isnull(a.mustgive,0)-isnull(a.factbasepay,0)-isnull(a.otmoney,0)-isnull(a.yearmoney,0)-isnull(a.smoney,0)-isnull(a.noname55,0) otheradd from sal21010 a  left join per24010 b  on a.workno=b.workno '+
                                   ' where a.workno between '''+edit2.text+''' and '''+edit3.text+''' and a.monthy='''+edit1.text+''' and b.leave<>1 and b.mankind=''计件'' order by a.deptname,a.workno';
          adodataset5.open;
          ppreport4.Print;
         end
         else if (radiogroup1.itemindex=0)and (radiogroup2.ItemIndex=1) then
         begin
          adodataset5.commandtext:=' select  a.deptname,a.workno,a.name, a.otjieri,a.yearmoney,a.othours,a.otmoney,a.otjiari,a.smoney,b.prof,a.indate,a.factbasepay,a.factdays,a.facthours,'+
                                   'a.noname55,a.insurance,a.facttech,mustgive,a.mustdec,a.factmoney,a.eightornine,a.latedec,a.kuanggongdec ,isnull(a.mustdec,0)-isnull(a.insurance,0)-isnull(a.facttech,0)-isnull(a.eightornine,0)-isnull(a.latedec,0)'+
                                   '-isnull(a.kuanggongdec,0) otherdec, isnull(a.mustgive,0)-isnull(a.factbasepay,0)-isnull(a.otmoney,0)-isnull(a.yearmoney,0)-isnull(a.smoney,0)-isnull(a.noname55,0) otheradd from sal21010 a  left join per24010 b  on a.workno=b.workno '+
                                   ' where  a.monthy='''+edit1.text+'''  and b.leave=1  and b.leaveworkmoney=0  and b.mankind=''计件'' order by a.deptname,a.workno';
           adodataset5.Open;
           ppreport4.Print;
          end
          else if (radiogroup1.itemindex=1)and (radiogroup2.ItemIndex=1) then
          begin
          adodataset5.commandtext:=' select  a.deptname,a.workno,a.name, a.otjieri,a.yearmoney,a.othours,a.otmoney,a.otjiari,a.smoney,b.prof,a.indate,a.factbasepay,a.factdays,a.facthours,'+
                                   'a.noname55,a.insurance,a.facttech,mustgive,a.mustdec,a.factmoney,a.eightornine,a.latedec,a.kuanggongdec ,isnull(a.mustdec,0)-isnull(a.insurance,0)-isnull(a.facttech,0)-isnull(a.eightornine,0)-isnull(a.latedec,0)'+
                                   '-isnull(a.kuanggongdec,0) otherdec, isnull(a.mustgive,0)-isnull(a.factbasepay,0)-isnull(a.otmoney,0)-isnull(a.yearmoney,0)-isnull(a.smoney,0)-isnull(a.noname55,0) otheradd from sal21010 a  left join per24010 b  on a.workno=b.workno '+
                                   ' where  a.deptname='''+combobox1.text+''' and a.monthy='''+edit1.text+''' and b.leave=1 and b.leaveworkmoney=0  and b.mankind=''计件'' order by a.deptname,a.workno';

            adodataset5.open;
            ppreport4.Print;
          end
          else if (radiogroup1.itemindex=2)and (radiogroup2.ItemIndex=1) then
          begin
          adodataset5.commandtext:=' select  a.deptname,a.workno,a.name, a.otjieri,a.yearmoney,a.othours,a.otmoney,a.otjiari,a.smoney,b.prof,a.indate,a.factbasepay,a.factdays,a.facthours,'+
                                   'a.noname55,a.insurance,a.facttech,mustgive,a.mustdec,a.factmoney,a.eightornine,a.latedec,a.kuanggongdec ,isnull(a.mustdec,0)-isnull(a.insurance,0)-isnull(a.facttech,0)-isnull(a.eightornine,0)-isnull(a.latedec,0)'+
                                   '-isnull(a.kuanggongdec,0) otherdec, isnull(a.mustgive,0)-isnull(a.factbasepay,0)-isnull(a.otmoney,0)-isnull(a.yearmoney,0)-isnull(a.smoney,0)-isnull(a.noname55,0) otheradd from sal21010 a  left join per24010 b  on a.workno=b.workno '+
                                   ' where  a.workno between '''+edit2.text+''' and '''+edit3.text+''' and a.monthy='''+edit1.text+''' and b.leave=1  and b.leaveworkmoney=0  and b.mankind=''计件'' order by a.deptname,a.workno';
            adodataset5.open;
            ppreport4.Print;
          end
          ////////////
             else if (radiogroup1.itemindex=0)and (radiogroup2.ItemIndex=2) then
         begin
           adodataset5.commandtext:=' select  a.deptname,a.workno,a.name, a.otjieri,a.yearmoney,a.othours,a.otmoney,a.otjiari,a.smoney,b.prof,a.indate,a.factbasepay,a.factdays,a.facthours,'+
                                   'a.noname55,a.insurance,a.facttech,mustgive,a.mustdec,a.factmoney,a.eightornine,a.latedec,a.kuanggongdec ,isnull(a.mustdec,0)-isnull(a.insurance,0)-isnull(a.facttech,0)-isnull(a.eightornine,0)-isnull(a.latedec,0)'+
                                   '-isnull(a.kuanggongdec,0) otherdec, isnull(a.mustgive,0)-isnull(a.factbasepay,0)-isnull(a.otmoney,0)-isnull(a.yearmoney,0)-isnull(a.smoney,0)-isnull(a.noname55,0) otheradd from sal21010 a  left join per24010 b  on a.workno=b.workno '+
            ' where a.monthy='''+edit1.text+'''  and b.leave=1  and b.leaveworkmoney=1  and b.mankind=''计件'' order by a.deptname,a.workno';
           adodataset5.Open;
           ppreport4.Print;
          end
          else if (radiogroup1.itemindex=1)and (radiogroup2.ItemIndex=2) then
          begin
          adodataset5.commandtext:=' select  a.deptname,a.workno,a.name, a.otjieri,a.yearmoney,a.othours,a.otmoney,a.otjiari,a.smoney,b.prof,a.indate,a.factbasepay,a.factdays,a.facthours,'+
                                   'a.noname55,a.insurance,a.facttech,mustgive,a.mustdec,a.factmoney,a.eightornine,a.latedec,a.kuanggongdec ,isnull(a.mustdec,0)-isnull(a.insurance,0)-isnull(a.facttech,0)-isnull(a.eightornine,0)-isnull(a.latedec,0)'+
                                   '-isnull(a.kuanggongdec,0) otherdec, isnull(a.mustgive,0)-isnull(a.factbasepay,0)-isnull(a.otmoney,0)-isnull(a.yearmoney,0)-isnull(a.smoney,0)-isnull(a.noname55,0) otheradd from sal21010 a  left join per24010 b  on a.workno=b.workno '+
                                   ' where  a.deptname='''+combobox1.text+''' and a.monthy='''+edit1.text+''' and b.leave=1 and b.leaveworkmoney=1 and b.mankind=''计件'' order by a.deptname,a.workno ';

            adodataset5.open;
            ppreport4.Print;
          end
          else if (radiogroup1.itemindex=2)and (radiogroup2.ItemIndex=2) then
          begin
          adodataset5.commandtext:=' select  a.deptname,a.workno,a.name, a.otjieri,a.yearmoney,a.othours,a.otmoney,a.otjiari,a.smoney,b.prof,a.indate,a.factbasepay,a.factdays,a.facthours,'+
                                   'a.noname55,a.insurance,a.facttech,mustgive,a.mustdec,a.factmoney,a.eightornine,a.latedec,a.kuanggongdec ,isnull(a.mustdec,0)-isnull(a.insurance,0)-isnull(a.facttech,0)-isnull(a.eightornine,0)-isnull(a.latedec,0)'+
                                   '-isnull(a.kuanggongdec,0) otherdec, isnull(a.mustgive,0)-isnull(a.factbasepay,0)-isnull(a.otmoney,0)-isnull(a.yearmoney,0)-isnull(a.smoney,0)-isnull(a.noname55,0) otheradd from sal21010 a  left join per24010 b  on a.workno=b.workno '+
                                   ' where  a.workno between '''+edit2.text+''' and '''+edit3.text+''' and a.monthy='''+edit1.text+''' and b.leave=1  and b.leaveworkmoney=1 and b.mankind=''计件'' order by a.deptname,a.workno';
            adodataset5.open;
            ppreport4.Print;
          end;
            datamod.ADOQuery1.Close;
            datamod.ADOQuery1.sql.clear;
            datamod.ADOQuery1.SQL.Add(adodataset5.commandtext);
          end;
end;
end;
end;

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

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

procedure Tsalaryjiareport.ppReport4BeforePrint(Sender: TObject);
begin
   pplabel23.caption:=pubworkname;
  pplabel19.Caption:= companyname1;
  pplabel24.Caption:='计薪员工'+ Edit1.Text+'薪资';

end;

procedure Tsalaryjiareport.ppReport4PreviewFormCreate(Sender: TObject);
begin
 tppReport(Sender).PreviewForm.WindowState:=wsMaximized;
end;

procedure Tsalaryjiareport.ppReport8BeforePrint(Sender: TObject);
begin
  pplabel353.caption:=pubworkname;
  pplabel315.Caption:= companyname1;
  pplabel316.Caption:='日/月薪员工'+ Edit1.Text+'月薪资';

end;

procedure Tsalaryjiareport.ppReport8PreviewFormCreate(Sender: TObject);
begin
 tppReport(Sender).PreviewForm.WindowState:=wsMaximized ;
end;

procedure Tsalaryjiareport.Edit2Exit(Sender: TObject);
begin
  edit3.Text:=edit2.Text;
end;

end.