salsum.pas

pasa人力资源考勤管理系统

    ppLine165: TppLine;
    ppDBText193: TppDBText;
    ppLine170: TppLine;
    ppLine172: TppLine;
    ppDBText194: TppDBText;
    ppDBText198: TppDBText;
    ppDBText199: TppDBText;
    ppDBText200: TppDBText;
    ppDBText182: TppDBText;
    ppLine108: TppLine;
    ppLine34: TppLine;
    ppLabel150: TppLabel;
    ppLine35: TppLine;
    ppLabel151: TppLabel;
    ppLine36: TppLine;
    ppLabel152: TppLabel;
    ppLine37: TppLine;
    ppLabel153: TppLabel;
    ppLine38: TppLine;
    ppLabel154: TppLabel;
    ppLine39: TppLine;
    ppLabel155: TppLabel;
    ppLine43: TppLine;
    ppLine44: TppLine;
    ppLabel158: TppLabel;
    ppLine45: TppLine;
    ppLabel159: TppLabel;
    ppLine46: TppLine;
    ppLabel160: TppLabel;
    ppLine47: TppLine;
    ppLabel161: TppLabel;
    ppLine48: TppLine;
    ppLabel162: TppLabel;
    ppLine49: TppLine;
    ppLine50: TppLine;
    ppLabel163: TppLabel;
    ppLine51: TppLine;
    ppLine52: TppLine;
    ppLabel164: TppLabel;
    ppLine54: TppLine;
    ppLabel165: TppLabel;
    ppLabel166: TppLabel;
    ppLine55: TppLine;
    ppLabel167: TppLabel;
    ppLabel169: TppLabel;
    ppLabel170: TppLabel;
    ppLine57: TppLine;
    ppLine58: TppLine;
    ppLine59: TppLine;
    ppLabel171: TppLabel;
    ppLine60: TppLine;
    ppLabel227: TppLabel;
    ppLabel228: TppLabel;
    ppLabel229: TppLabel;
    ppLabel230: TppLabel;
    ppLabel231: TppLabel;
    ppLabel232: TppLabel;
    ppLabel233: TppLabel;
    ppLabel251: TppLabel;
    ppLabel253: TppLabel;
    ppLabel254: TppLabel;
    ppLabel255: TppLabel;
    ppLabel256: TppLabel;
    ppLine62: TppLine;
    ppLabel257: TppLabel;
    ppLine42: TppLine;
    ppLine41: TppLine;
    ppLabel157: TppLabel;
    ppLabel156: TppLabel;
    ppLine56: TppLine;
    ppLabel168: TppLabel;
    ppLabel252: TppLabel;
    ppLine40: TppLine;
    ppBDEPipeline3: TppBDEPipeline;
    DataSource3: TDataSource;
    ADODataSet5: TADODataSet;
    BCDField2: TBCDField;
    BCDField3: TBCDField;
    BCDField4: TBCDField;
    BCDField5: TBCDField;
    BCDField6: TBCDField;
    BCDField7: TBCDField;
    BCDField8: TBCDField;
    BCDField9: TBCDField;
    BCDField10: TBCDField;
    BCDField11: TBCDField;
    BCDField12: TBCDField;
    BCDField13: TBCDField;
    BCDField14: TBCDField;
    BCDField15: TBCDField;
    BCDField16: TBCDField;
    BCDField18: TBCDField;
    BCDField19: TBCDField;
    BCDField20: TBCDField;
    BCDField21: TBCDField;
    BCDField22: TBCDField;
    BCDField23: TBCDField;
    BCDField24: TBCDField;
    BCDField25: TBCDField;
    BCDField26: TBCDField;
    BCDField27: TBCDField;
    BCDField28: TBCDField;
    IntegerField1: TIntegerField;
    BCDField29: TBCDField;
    BCDField30: TBCDField;
    BCDField31: TBCDField;
    BCDField32: TBCDField;
    BCDField33: TBCDField;
    ADODataSet5decrease2: TBCDField;
    ADODataSet2: TADODataSet;
    ppLabel1: TppLabel;
    RadioGroup1: TRadioGroup;
    ADODataSet4deptname: TStringField;
    ADODataSet5deptname: TStringField;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ppReport8BeforePrint(Sender: TObject);
    procedure ppReport8PreviewFormCreate(Sender: TObject);
    procedure ppReport4BeforePrint(Sender: TObject);
    procedure ppReport4PreviewFormCreate(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure RadioGroup1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  salsumreport: Tsalsumreport;

implementation

uses datamol, main;

{$R *.DFM}

procedure Tsalsumreport.Button1Click(Sender: TObject);
begin
case radiogroup3.ItemIndex of
0:
begin
      if (trim(edit1.Text) <>'/')  then
      begin
        adodataset4.Close;
        if (radiogroup1.itemindex=0)and (radiogroup2.ItemIndex=0) 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.monthy='''+edit1.text+'''  and b.leave<>1  and b.mankind<>''计件'' group by a.deptname';
          adodataset4.Open;
          ppreport8.Print;
        end
        else if (radiogroup1.itemindex=1)and (radiogroup2.ItemIndex=0) 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.mankind<>''计件'' group by b.edpt';
          adodataset4.open;
          ppreport8.Print;
        end
         else if (radiogroup1.itemindex=0)and (radiogroup2.ItemIndex=1) 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.monthy='''+edit1.text+'''  and b.leave=1  and b.leaveworkmoney=0 and b.mankind<>''计件'' group by a.deptname ';
           adodataset4.Open;
           ppreport8.Print;
          end
          else if (radiogroup1.itemindex=1)and (radiogroup2.ItemIndex=1) 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=0  and b.mankind<>''计件'' group by a.deptname';

            adodataset4.open;
            ppreport8.Print;
          end
             else if (radiogroup1.itemindex=0)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 '+