salsum.pas

pasa人力资源考勤管理系统

            ' where a.monthy='''+edit1.text+'''  and b.leave=1  and b.leaveworkmoney=1 and b.mankind<>''计件'' group by a.deptname ';
           adodataset4.Open;
           ppreport8.Print;
          end
          else if (radiogroup1.itemindex=1)and (radiogroup2.ItemIndex=2) then
          begin
          Adodataset4.commandtext:='select  a.deptname, sum(isnull(a.yearmoney,0)) yearmoney, sum(isnull(a.gongsa,0)) gongsa,sum(isnull(a.yiliao,0)) yiliao,sum(isnull(a.yangrao,0)) yangrao, '+
' sum(isnull(a.tax,0)) tax,sum(isnull(a.otmoney,0)) otmoney,sum(isnull(a.smoney,0)) smoney,sum(isnull(a.factbasepay,0)) factbasepay,sum(isnull(a.meatmoneybu,0)) meatmoneybu,sum(isnull(a.txmoney,0))'+
' txmoney,sum(isnull(a.rat,0)) rat ,sum(isnull(a.money1,0)) money1,sum(isnull(a.eightornine,0)) eightornine,sum(isnull(a.medmoney,0)) medmoney,sum(isnull(a.latedec,0)) latedec,sum(isnull(a.kuanggongdec,0)) kuanggongdec,'+
' sum(isnull(a.present,0)) present, sum(isnull(a.insurance,0)) insurance,sum(isnull(a.rewardmoney,0)) rewardmoney,sum(isnull(a.pubtax,0)) pubtax,sum(isnull(a.factprof,0)) factprof,sum(isnull(a.facttech,0)) '+
'facttech,sum(isnull(mustgive,0)) mustgive,sum(isnull(factdept,0)) factdept,sum(isnull(a.clearpay,0)) clearpay,sum(isnull(a.resultmoney,0)) resultmoney,sum(case when isnull(a.mustdec,0)-isnull(a.facttech,0)-isnull(a.eightornine,0)-'+
'isnull(a.resultmoney,0)-isnull(a.insurance,0)-isnull(a.medmoney,0)-isnull(a.latedec,0)-isnull(a.kuanggongdec,0)<0 then 0 else isnull(a.mustdec,0)-isnull(a.facttech,0)-isnull(a.eightornine,0)-'+
'isnull(a.resultmoney,0)-isnull(a.insurance,0)-isnull(a.medmoney,0)-isnull(a.latedec,0)-isnull(a.kuanggongdec,0) end) otherdec, sum(case when isnull(a.mustgive,0)-isnull(a.factbasepay,0)-'+
'isnull(a.otmoney,0)-isnull(a.pubtax,0)-isnull(a.meatmoneybu,0)-isnull(a.present,0)-isnull(a.txmoney,0)-isnull(a.yangrao,0)-isnull(a.rat,0)-isnull(a.money1,0)-isnull(a.yiliao,0)<0 then 0 else isnull(a.mustgive,0)-isnull(a.factbasepay,0)-'+
'isnull(a.otmoney,0)-isnull(a.pubtax,0)-isnull(a.meatmoneybu,0)-isnull(a.present,0)-isnull(a.txmoney,0)-isnull(a.yangrao,0)-isnull(a.rat,0)-isnull(a.money1,0)-isnull(a.yiliao,0) end) otheradd , '+
' sum(isnull(a.pie2,0)) pie2,sum(isnull(a.panishmoney,0)) panishmoney,sum(isnull(a.mustdec,0)) mustdec,sum(isnull(a.factmoney,0)) factmoney 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<>''计件'' group by a.deptname ';

            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, sum(isnull(a.yearmoney,0)) yearmoney, sum(isnull(a.gongsa,0)) gongsa,sum(isnull(a.yiliao,0)) yiliao,sum(isnull(a.yangrao,0)) yangrao, '+
' sum(isnull(a.tax,0)) tax,sum(isnull(a.otmoney,0)) otmoney,sum(isnull(a.smoney,0)) smoney,sum(isnull(a.factbasepay,0)) factbasepay,sum(isnull(a.meatmoneybu,0)) meatmoneybu,sum(isnull(a.txmoney,0))'+
' txmoney,sum(isnull(a.rat,0)) rat ,sum(isnull(a.money1,0)) money1,sum(isnull(a.eightornine,0)) eightornine,sum(isnull(a.medmoney,0)) medmoney,sum(isnull(a.latedec,0)) latedec,sum(isnull(a.kuanggongdec,0)) kuanggongdec,sum(isnull(a.decrease2,0)) decrease2,'+
' sum(isnull(a.present,0)) present, sum(isnull(a.insurance,0)) insurance,sum(isnull(a.rewardmoney,0)) rewardmoney,sum(isnull(a.pubtax,0)) pubtax,sum(isnull(a.factprof,0)) factprof,sum(isnull(a.facttech,0)) '+
'facttech,sum(isnull(mustgive,0)) mustgive,sum(isnull(factdept,0)) factdept,sum(isnull(a.clearpay,0)) clearpay,sum(isnull(a.resultmoney,0)) resultmoney,sum(case when isnull(a.mustdec,0)-isnull(a.facttech,0)-isnull(a.eightornine,0)-'+
'isnull(a.resultmoney,0)-isnull(a.insurance,0)-isnull(a.medmoney,0)-isnull(a.latedec,0)-isnull(a.kuanggongdec,0)-isnull(a.decrease2,0)<0 then 0 else isnull(a.mustdec,0)-isnull(a.facttech,0)-isnull(a.eightornine,0)-'+
'isnull(a.resultmoney,0)-isnull(a.insurance,0)-isnull(a.medmoney,0)-isnull(a.latedec,0)-isnull(a.kuanggongdec,0)-isnull(a.decrease2,0) end) otherdec, sum(case when isnull(a.mustgive,0)-isnull(a.factbasepay,0)-'+
'isnull(a.otmoney,0)-isnull(a.pubtax,0)-isnull(a.meatmoneybu,0)-isnull(a.present,0)-isnull(a.txmoney,0)-isnull(a.yangrao,0)-isnull(a.rat,0)-isnull(a.money1,0)-isnull(a.yiliao,0)<0 then 0 else isnull(a.mustgive,0)-isnull(a.factbasepay,0)-'+
'isnull(a.otmoney,0)-isnull(a.pubtax,0)-isnull(a.meatmoneybu,0)-isnull(a.present,0)-isnull(a.txmoney,0)-isnull(a.yangrao,0)-isnull(a.rat,0)-isnull(a.money1,0)-isnull(a.yiliao,0) end) otheradd , '+
' sum(isnull(a.pie2,0)) pie2,sum(isnull(a.panishmoney,0)) panishmoney,sum(isnull(a.mustdec,0)) mustdec,sum(isnull(a.factmoney,0)) factmoney from sal21010 a  left join per24010 b  on a.workno=b.workno '+
                                   ' where  a.monthy='''+edit1.text+'''  and b.leave<>1 and b.mankind=''计件'' group by a.deptname';
          adodataset5.Open;
          ppreport4.Print;
        end
        else if (radiogroup1.itemindex=1)and (radiogroup2.ItemIndex=0) then
        begin
          adodataset5.commandtext:='select  a.deptname, sum(isnull(a.yearmoney,0)) yearmoney, sum(isnull(a.gongsa,0)) gongsa,sum(isnull(a.yiliao,0)) yiliao,sum(isnull(a.yangrao,0)) yangrao, '+
' sum(isnull(a.tax,0)) tax,sum(isnull(a.otmoney,0)) otmoney,sum(isnull(a.smoney,0)) smoney,sum(isnull(a.factbasepay,0)) factbasepay,sum(isnull(a.meatmoneybu,0)) meatmoneybu,sum(isnull(a.txmoney,0))'+
' txmoney,sum(isnull(a.rat,0)) rat ,sum(isnull(a.money1,0)) money1,sum(isnull(a.eightornine,0)) eightornine,sum(isnull(a.medmoney,0)) medmoney,sum(isnull(a.latedec,0)) latedec,sum(isnull(a.kuanggongdec,0)) kuanggongdec,sum(isnull(a.decrease2,0)) decrease2,'+
' sum(isnull(a.present,0)) present, sum(isnull(a.insurance,0)) insurance,sum(isnull(a.rewardmoney,0)) rewardmoney,sum(isnull(a.pubtax,0)) pubtax,sum(isnull(a.factprof,0)) factprof,sum(isnull(a.facttech,0)) '+
'facttech,sum(isnull(mustgive,0)) mustgive,sum(isnull(factdept,0)) factdept,sum(isnull(a.clearpay,0)) clearpay,sum(isnull(a.resultmoney,0)) resultmoney,sum(case when isnull(a.mustdec,0)-isnull(a.facttech,0)-isnull(a.eightornine,0)-'+
'isnull(a.resultmoney,0)-isnull(a.insurance,0)-isnull(a.medmoney,0)-isnull(a.latedec,0)-isnull(a.kuanggongdec,0)-isnull(a.decrease2,0)<0 then 0 else isnull(a.mustdec,0)-isnull(a.facttech,0)-isnull(a.eightornine,0)-'+
'isnull(a.resultmoney,0)-isnull(a.insurance,0)-isnull(a.medmoney,0)-isnull(a.latedec,0)-isnull(a.kuanggongdec,0)-isnull(a.decrease2,0) end) otherdec, sum(case when isnull(a.mustgive,0)-isnull(a.factbasepay,0)-'+
'isnull(a.otmoney,0)-isnull(a.pubtax,0)-isnull(a.meatmoneybu,0)-isnull(a.present,0)-isnull(a.txmoney,0)-isnull(a.yangrao,0)-isnull(a.rat,0)-isnull(a.money1,0)-isnull(a.yiliao,0)<0 then 0 else isnull(a.mustgive,0)-isnull(a.factbasepay,0)-'+
'isnull(a.otmoney,0)-isnull(a.pubtax,0)-isnull(a.meatmoneybu,0)-isnull(a.present,0)-isnull(a.txmoney,0)-isnull(a.yangrao,0)-isnull(a.rat,0)-isnull(a.money1,0)-isnull(a.yiliao,0) end) otheradd , '+
' sum(isnull(a.pie2,0)) pie2,sum(isnull(a.panishmoney,0)) panishmoney,sum(isnull(a.mustdec,0)) mustdec,sum(isnull(a.factmoney,0)) factmoney 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=''计件'' group by a.deptname';
          adodataset5.open;
          ppreport4.Print;
        end
         else if (radiogroup1.itemindex=0)and (radiogroup2.ItemIndex=1) then
         begin
          adodataset5.commandtext:='select  a.deptname, sum(isnull(a.yearmoney,0)) yearmoney, sum(isnull(a.gongsa,0)) gongsa,sum(isnull(a.yiliao,0)) yiliao,sum(isnull(a.yangrao,0)) yangrao, '+
' sum(isnull(a.tax,0)) tax,sum(isnull(a.otmoney,0)) otmoney,sum(isnull(a.smoney,0)) smoney,sum(isnull(a.factbasepay,0)) factbasepay,sum(isnull(a.meatmoneybu,0)) meatmoneybu,sum(isnull(a.txmoney,0))'+
' txmoney,sum(isnull(a.rat,0)) rat ,sum(isnull(a.money1,0)) money1,sum(isnull(a.eightornine,0)) eightornine,sum(isnull(a.medmoney,0)) medmoney,sum(isnull(a.latedec,0)) latedec,sum(isnull(a.kuanggongdec,0)) kuanggongdec,sum(isnull(a.decrease2,0)) decrease2,'+
' sum(isnull(a.present,0)) present, sum(isnull(a.insurance,0)) insurance,sum(isnull(a.rewardmoney,0)) rewardmoney,sum(isnull(a.pubtax,0)) pubtax,sum(isnull(a.factprof,0)) factprof,sum(isnull(a.facttech,0)) '+
'facttech,sum(isnull(mustgive,0)) mustgive,sum(isnull(factdept,0)) factdept,sum(isnull(a.clearpay,0)) clearpay,sum(isnull(a.resultmoney,0)) resultmoney,sum(case when isnull(a.mustdec,0)-isnull(a.facttech,0)-isnull(a.eightornine,0)-'+
'isnull(a.resultmoney,0)-isnull(a.insurance,0)-isnull(a.medmoney,0)-isnull(a.latedec,0)-isnull(a.kuanggongdec,0)-isnull(a.decrease2,0)<0 then 0 else isnull(a.mustdec,0)-isnull(a.facttech,0)-isnull(a.eightornine,0)-'+
'isnull(a.resultmoney,0)-isnull(a.insurance,0)-isnull(a.medmoney,0)-isnull(a.latedec,0)-isnull(a.kuanggongdec,0)-isnull(a.decrease2,0) end) otherdec, sum(case when isnull(a.mustgive,0)-isnull(a.factbasepay,0)-'+
'isnull(a.otmoney,0)-isnull(a.pubtax,0)-isnull(a.meatmoneybu,0)-isnull(a.present,0)-isnull(a.txmoney,0)-isnull(a.yangrao,0)-isnull(a.rat,0)-isnull(a.money1,0)-isnull(a.yiliao,0)<0 then 0 else isnull(a.mustgive,0)-isnull(a.factbasepay,0)-'+
'isnull(a.otmoney,0)-isnull(a.pubtax,0)-isnull(a.meatmoneybu,0)-isnull(a.present,0)-isnull(a.txmoney,0)-isnull(a.yangrao,0)-isnull(a.rat,0)-isnull(a.money1,0)-isnull(a.yiliao,0) end) otheradd , '+
' sum(isnull(a.pie2,0)) pie2,sum(isnull(a.panishmoney,0)) panishmoney,sum(isnull(a.mustdec,0)) mustdec,sum(isnull(a.factmoney,0)) factmoney 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=''计件'' group by a.deptname';
           adodataset5.Open;
           ppreport4.Print;
          end
          else if (radiogroup1.itemindex=1)and (radiogroup2.ItemIndex=1) then
          begin
          adodataset5.commandtext:='select  a.deptname, sum(isnull(a.yearmoney,0)) yearmoney, sum(isnull(a.gongsa,0)) gongsa,sum(isnull(a.yiliao,0)) yiliao,sum(isnull(a.yangrao,0)) yangrao, '+
' sum(isnull(a.tax,0)) tax,sum(isnull(a.otmoney,0)) otmoney,sum(isnull(a.smoney,0)) smoney,sum(isnull(a.factbasepay,0)) factbasepay,sum(isnull(a.meatmoneybu,0)) meatmoneybu,sum(isnull(a.txmoney,0))'+
' txmoney,sum(isnull(a.rat,0)) rat ,sum(isnull(a.money1,0)) money1,sum(isnull(a.eightornine,0)) eightornine,sum(isnull(a.medmoney,0)) medmoney,sum(isnull(a.latedec,0)) latedec,sum(isnull(a.kuanggongdec,0)) kuanggongdec,sum(isnull(a.decrease2,0)) decrease2,'+
' sum(isnull(a.present,0)) present, sum(isnull(a.insurance,0)) insurance,sum(isnull(a.rewardmoney,0)) rewardmoney,sum(isnull(a.pubtax,0)) pubtax,sum(isnull(a.factprof,0)) factprof,sum(isnull(a.facttech,0)) '+
'facttech,sum(isnull(mustgive,0)) mustgive,sum(isnull(factdept,0)) factdept,sum(isnull(a.clearpay,0)) clearpay,sum(isnull(a.resultmoney,0)) resultmoney,sum(case when isnull(a.mustdec,0)-isnull(a.facttech,0)-isnull(a.eightornine,0)-'+
'isnull(a.resultmoney,0)-isnull(a.insurance,0)-isnull(a.medmoney,0)-isnull(a.latedec,0)-isnull(a.kuanggongdec,0)-isnull(a.decrease2,0)<0 then 0 else isnull(a.mustdec,0)-isnull(a.facttech,0)-isnull(a.eightornine,0)-'+
'isnull(a.resultmoney,0)-isnull(a.insurance,0)-isnull(a.medmoney,0)-isnull(a.latedec,0)-isnull(a.kuanggongdec,0)-isnull(a.decrease2,0) end) otherdec, sum(case when isnull(a.mustgive,0)-isnull(a.factbasepay,0)-'+
'isnull(a.otmoney,0)-isnull(a.pubtax,0)-isnull(a.meatmoneybu,0)-isnull(a.present,0)-isnull(a.txmoney,0)-isnull(a.yangrao,0)-isnull(a.rat,0)-isnull(a.money1,0)-isnull(a.yiliao,0)<0 then 0 else isnull(a.mustgive,0)-isnull(a.factbasepay,0)-'+
'isnull(a.otmoney,0)-isnull(a.pubtax,0)-isnull(a.meatmoneybu,0)-isnull(a.present,0)-isnull(a.txmoney,0)-isnull(a.yangrao,0)-isnull(a.rat,0)-isnull(a.money1,0)-isnull(a.yiliao,0) end) otheradd , '+
' sum(isnull(a.pie2,0)) pie2,sum(isnull(a.panishmoney,0)) panishmoney,sum(isnull(a.mustdec,0)) mustdec,sum(isnull(a.factmoney,0)) factmoney 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=''计件'' group by a.deptname';

            adodataset5.open;
            ppreport4.Print;
          end
             else if (radiogroup1.itemindex=0)and (radiogroup2.ItemIndex=2) then
         begin
           adodataset5.commandtext:='select  a.deptname, sum(isnull(a.yearmoney,0)) yearmoney, sum(isnull(a.gongsa,0)) gongsa,sum(isnull(a.yiliao,0)) yiliao,sum(isnull(a.yangrao,0)) yangrao, '+
' sum(isnull(a.tax,0)) tax,sum(isnull(a.otmoney,0)) otmoney,sum(isnull(a.smoney,0)) smoney,sum(isnull(a.factbasepay,0)) factbasepay,sum(isnull(a.meatmoneybu,0)) meatmoneybu,sum(isnull(a.txmoney,0))'+
' txmoney,sum(isnull(a.rat,0)) rat ,sum(isnull(a.money1,0)) money1,sum(isnull(a.eightornine,0)) eightornine,sum(isnull(a.medmoney,0)) medmoney,sum(isnull(a.latedec,0)) latedec,sum(isnull(a.kuanggongdec,0)) kuanggongdec,sum(isnull(a.decrease2,0)) decrease2,'+
' sum(isnull(a.present,0)) present, sum(isnull(a.insurance,0)) insurance,sum(isnull(a.rewardmoney,0)) rewardmoney,sum(isnull(a.pubtax,0)) pubtax,sum(isnull(a.factprof,0)) factprof,sum(isnull(a.facttech,0)) '+
'facttech,sum(isnull(mustgive,0)) mustgive,sum(isnull(factdept,0)) factdept,sum(isnull(a.clearpay,0)) clearpay,sum(isnull(a.resultmoney,0)) resultmoney,sum(case when isnull(a.mustdec,0)-isnull(a.facttech,0)-isnull(a.eightornine,0)-'+
'isnull(a.resultmoney,0)-isnull(a.insurance,0)-isnull(a.medmoney,0)-isnull(a.latedec,0)-isnull(a.kuanggongdec,0)-isnull(a.decrease2,0)<0 then 0 else isnull(a.mustdec,0)-isnull(a.facttech,0)-isnull(a.eightornine,0)-'+
'isnull(a.resultmoney,0)-isnull(a.insurance,0)-isnull(a.medmoney,0)-isnull(a.latedec,0)-isnull(a.kuanggongdec,0)-isnull(a.decrease2,0) end) otherdec, sum(case when isnull(a.mustgive,0)-isnull(a.factbasepay,0)-'+
'isnull(a.otmoney,0)-isnull(a.pubtax,0)-isnull(a.meatmoneybu,0)-isnull(a.present,0)-isnull(a.txmoney,0)-isnull(a.yangrao,0)-isnull(a.rat,0)-isnull(a.money1,0)-isnull(a.yiliao,0)<0 then 0 else isnull(a.mustgive,0)-isnull(a.factbasepay,0)-'+
'isnull(a.otmoney,0)-isnull(a.pubtax,0)-isnull(a.meatmoneybu,0)-isnull(a.present,0)-isnull(a.txmoney,0)-isnull(a.yangrao,0)-isnull(a.rat,0)-isnull(a.money1,0)-isnull(a.yiliao,0) end) otheradd , '+
' sum(isnull(a.pie2,0)) pie2,sum(isnull(a.panishmoney,0)) panishmoney,sum(isnull(a.mustdec,0)) mustdec,sum(isnull(a.factmoney,0)) factmoney 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=''计件'' group by a.deptname';
           adodataset5.Open;
           ppreport4.Print;
          end
          else if (radiogroup1.itemindex=1)and (radiogroup2.ItemIndex=2) then
          begin
          adodataset5.commandtext:='select  a.deptname, sum(isnull(a.yearmoney,0)) yearmoney, sum(isnull(a.gongsa,0)) gongsa,sum(isnull(a.yiliao,0)) yiliao,sum(isnull(a.yangrao,0)) yangrao, '+
' sum(isnull(a.tax,0)) tax,sum(isnull(a.otmoney,0)) otmoney,sum(isnull(a.smoney,0)) smoney,sum(isnull(a.factbasepay,0)) factbasepay,sum(isnull(a.meatmoneybu,0)) meatmoneybu,sum(isnull(a.txmoney,0))'+
' txmoney,sum(isnull(a.rat,0)) rat ,sum(isnull(a.money1,0)) money1,sum(isnull(a.eightornine,0)) eightornine,sum(isnull(a.medmoney,0)) medmoney,sum(isnull(a.latedec,0)) latedec,sum(isnull(a.kuanggongdec,0)) kuanggongdec,sum(isnull(a.decrease2,0)) decrease2,'+
' sum(isnull(a.present,0)) present, sum(isnull(a.insurance,0)) insurance,sum(isnull(a.rewardmoney,0)) rewardmoney,sum(isnull(a.pubtax,0)) pubtax,sum(isnull(a.factprof,0)) factprof,sum(isnull(a.facttech,0)) '+
'facttech,sum(isnull(mustgive,0)) mustgive,sum(isnull(factdept,0)) factdept,sum(isnull(a.clearpay,0)) clearpay,sum(isnull(a.resultmoney,0)) resultmoney,sum(case when isnull(a.mustdec,0)-isnull(a.facttech,0)-isnull(a.eightornine,0)-'+
'isnull(a.resultmoney,0)-isnull(a.insurance,0)-isnull(a.medmoney,0)-isnull(a.latedec,0)-isnull(a.kuanggongdec,0)-isnull(a.decrease2,0)<0 then 0 else isnull(a.mustdec,0)-isnull(a.facttech,0)-isnull(a.eightornine,0)-'+
'isnull(a.resultmoney,0)-isnull(a.insurance,0)-isnull(a.medmoney,0)-isnull(a.latedec,0)-isnull(a.kuanggongdec,0)-isnull(a.decrease2,0) end) otherdec, sum(case when isnull(a.mustgive,0)-isnull(a.factbasepay,0)-'+
'isnull(a.otmoney,0)-isnull(a.pubtax,0)-isnull(a.meatmoneybu,0)-isnull(a.present,0)-isnull(a.txmoney,0)-isnull(a.yangrao,0)-isnull(a.rat,0)-isnull(a.money1,0)-isnull(a.yiliao,0)<0 then 0 else isnull(a.mustgive,0)-isnull(a.factbasepay,0)-'+
'isnull(a.otmoney,0)-isnull(a.pubtax,0)-isnull(a.meatmoneybu,0)-isnull(a.present,0)-isnull(a.txmoney,0)-isnull(a.yangrao,0)-isnull(a.rat,0)-isnull(a.money1,0)-isnull(a.yiliao,0) end) otheradd , '+
' sum(isnull(a.pie2,0)) pie2,sum(isnull(a.panishmoney,0)) panishmoney,sum(isnull(a.mustdec,0)) mustdec,sum(isnull(a.factmoney,0)) factmoney 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=''计件'' group by a.deptname ';

            adodataset5.open;
            ppreport4.Print;
          end;
            datamod.ADOQuery1.Close;
            datamod.ADOQuery1.sql.clear;
            datamod.ADOQuery1.SQL.Add(adodataset5.commandtext);
          end;
end;
end;
end;

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

procedure Tsalsumreport.FormCreate(Sender: TObject);
begin
  edit1.Text:=copy(datetostr(date),1,7);
end;

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

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

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

procedure Tsalsumreport.ppReport4BeforePrint(Sender: TObject);
begin
  pplabel149.caption:=pubworkname;
  pplabel144.Caption:= companyname1;
  pplabel145.Caption:='计薪员工'+ Edit1.Text+'薪资';
end;

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

end;

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

procedure Tsalsumreport.RadioGroup1Click(Sender: TObject);
var
qry:tadoquery;
begin
     case radiogroup1.ItemIndex of
       0:
         begin
           combobox1.visible:=false;
         end;
       1:
       begin
         combobox1.visible:=true;
         combobox1.SetFocus;
         qry:=tadoquery.Create(self);
         qry.Connection:=datamod.Database1;
         qry.SQL.Text:='select * from pub05010 order by dno';
         qry.Open;
      while not qry.Eof do
        begin
          combobox1.Items.Add(qry.fieldbyname('dept').asstring);
          qry.Next;
        end;
          qry.Close;
        combobox1.text:=combobox1.items[0];
       end;
       2:
         begin
           combobox1.Visible:=false;
         end;
     end;
 end;

end.