unit19.~pas

本软件的功能如下： 1.公司员工工资信息输入查找 2.工资计算 3.工资汇总 4.工资打印报表 5.到处数据

 qrexpr2.Expression:='0';

 qrexpr3.Expression:='0';

  qrexpr4.Expression:='0';
  qrexpr5.Expression:='0';
  qrexpr6.Expression:= '0';
  qrexpr7.Expression:='0';
  qrexpr8.Expression:='0';
  qrexpr9.Expression:='0';
  qrexpr10.Expression:='0';
  qrexpr11.Expression:='0';
  qrexpr12.Expression:='0';
  qrexpr13.Expression:='0';
  qrexpr14.Expression:='0';
  qrexpr15.Expression:='0';
  qrexpr16.Expression:='0';
  qrexpr17.Expression:='0';
  qrexpr18.Expression:='0';
  qrexpr19.Expression:='0';
  qrexpr20.Expression:='0';
  qrexpr21.Expression:='0';
  qrexpr22.Expression:='0';
  qrexpr23.Expression:='0';
  qrexpr24.Expression:='0';
  qrexpr25.Expression:='0';
  qrexpr26.Expression:='0';
  qrexpr27.Expression:='0';
  qrexpr28.Expression:='0';
  qrexpr29.Expression:='0';
  qrexpr30.Expression:='0';
  qrexpr31.Expression:='0';
  qrexpr37.Expression:='0';
  qrexpr38.Expression:='0';
  qrexpr39.Expression:='0';
  qrexpr40.Expression:='0';
  qrexpr41.Expression:='0';
  qrexpr32.Expression:='0';
  qrexpr33.Expression:='0';
  qrexpr34.Expression:='0';
  qrexpr35.Expression:='0';
  qrexpr36.Expression:='0';
  qrexpr42.Expression:='0';
  qrexpr43.Expression:='0';
  qrexpr44.Expression:='0';
  qrexpr45.Expression:='0';
 //   qrexpr46.Expression
  qrexpr46.Expression:='0';
  qrexpr47.Expression:='0';
  qrexpr48.Expression:='0';
  qrexpr49.Expression:='0';
  qrexpr50.Expression:='0';

  table2.fieldbyname('工龄工资').asfloat:=0.0;
  table2.fieldbyname('技能工资').asfloat:=0.0;
  table2.fieldbyname('效益工资').asfloat:=0.0;
  table2.fieldbyname('其它工资').asfloat:=0.0;
  table2.fieldbyname('待休工资').asfloat:=0.0;
  table2.fieldbyname('病工资').asfloat:=0.0;
  table2.fieldbyname('岗贴').asfloat:=0.0;
  table2.fieldbyname('线路津贴').asfloat:=0.0;
  table2.fieldbyname('加班').asfloat:=0.0;
   table2.fieldbyname('利润分成').asfloat:=0.0;
   table2.fieldbyname('奖金').asfloat:=0.0;
   table2.fieldbyname('补发1').asfloat:=0.0;
   table2.fieldbyname('补发2').asfloat:=0.0;
   table2.fieldbyname('卫生').asfloat:=0.0;
    table2.fieldbyname('独子费').asfloat:=0.0;
    table2.fieldbyname('差费').asfloat:=0.0;
    table2.fieldbyname('营养').asfloat:=0.0;
    table2.fieldbyname('知补').asfloat:=0.0;
     table2.fieldbyname('边贴').asfloat:=0.0;
     table2.fieldbyname('煤贴').asfloat:=0.0;
     table2.fieldbyname('房贴').asfloat:=0.0;
     table2.fieldbyname('上月尾').asfloat:=0.0;
     table2.fieldbyname('事扣').asfloat:=0.0;
     table2.fieldbyname('矿扣').asfloat:=0.0;
     table2.fieldbyname('趟次扣').asfloat:=0.0;
     table2.fieldbyname('安全扣').asfloat:=0.0;
     table2.fieldbyname('服务扣').asfloat:=0.0;
     table2.fieldbyname('卫生扣').asfloat:=0.0;
     table2.fieldbyname('准点扣').asfloat:=0.0;
     table2.fieldbyname('技术扣').asfloat:=0.0;
     table2.fieldbyname('欠款').asfloat:=0.0;
     table2.fieldbyname('失保').AsInteger:=0;
     table2.fieldbyname('养老').asfloat:=0.0;
     table2.fieldbyname('住房').asfloat:=0.0;
     table2.fieldbyname('医保').asfloat:=0.0;
     table2.fieldbyname('罚款').asfloat:=0.0;
     table2.fieldbyname('应发工资').asfloat:=0.0;
     table2.fieldbyname('房电').asfloat:=0.0;
     table2.fieldbyname('托儿').asfloat:=0.0;
     table2.fieldbyname('大病保').asfloat:=0.0;
     table2.fieldbyname('另存').asfloat:=0.0;
     table2.fieldbyname('扣款1').asfloat:=0.0;
     table2.fieldbyname('扣款2').asfloat:=0.0;
     table2.fieldbyname('教育').asfloat:=0.0;
     table2.fieldbyname('税金').asfloat:=0.0;
     table2.fieldbyname('实发工资').asfloat:=0.0;

     table2.fieldbyname('本月尾').asfloat:=0.0;





WITH TABLE1 DO
      BEGIN
      table2.DisableControls;
      table2.First;
      table2.Edit;
      DISABLECONTROLS;
      FIRST;
WHILE NOT EOF DO
     BEGIN

      qrexpr2.Expression:= floattostr(strtofloat(qrexpr2.Expression)+table1.fieldbyname('工龄工资').asfloat);
      table2.fieldbyname('工龄工资').asfloat:=table2.fieldbyname('工龄工资').asfloat+table1.fieldbyname('工龄工资').asfloat;

      qrexpr3.Expression:= floattostr(strtofloat(qrexpr3.Expression)+table1.fieldbyname('技能工资').asfloat);
      table2.fieldbyname('技能工资').asfloat:=table2.fieldbyname('技能工资').asfloat+table1.fieldbyname('技能工资').asfloat;

      qrexpr4.Expression:= floattostr(strtofloat(qrexpr4.Expression)+table1.fieldbyname('效益工资').asfloat);
      table2.fieldbyname('效益工资').asfloat:=table2.fieldbyname('效益工资').asfloat+table1.fieldbyname('效益工资').asfloat;

      qrexpr5.Expression:= floattostr(strtofloat(qrexpr5.Expression)+table1.fieldbyname('其它工资').asfloat);
      table2.fieldbyname('其它工资').asfloat:=table2.fieldbyname('其它工资').asfloat+table1.fieldbyname('其它工资').asfloat;

      qrexpr6.Expression:= floattostr(strtofloat(qrexpr6.Expression)+table1.fieldbyname('待休工资').asfloat);
      table2.fieldbyname('待休工资').asfloat:=table2.fieldbyname('待休工资').asfloat+table1.fieldbyname('待休工资').asfloat;


      qrexpr7.Expression:= floattostr(strtofloat(qrexpr7.Expression)+table1.fieldbyname('病工资').asfloat);
      table2.fieldbyname('病工资').asfloat:=table2.fieldbyname('病工资').asfloat+table1.fieldbyname('病工资').asfloat;

      qrexpr8.Expression:= floattostr(strtofloat(qrexpr8.Expression)+table1.fieldbyname('岗贴').asfloat);
      table2.fieldbyname('岗贴').asfloat:=table2.fieldbyname('岗贴').asfloat+table1.fieldbyname('岗贴').asfloat;

      qrexpr9.Expression:= floattostr(strtofloat(qrexpr9.Expression)+table1.fieldbyname('线路津贴').asfloat);
      table2.fieldbyname('线路津贴').asfloat:=table2.fieldbyname('线路津贴').asfloat+table1.fieldbyname('线路津贴').asfloat;

      qrexpr10.Expression:= floattostr(strtofloat(qrexpr10.Expression)+table1.fieldbyname('加班').asfloat);
      table2.fieldbyname('加班').asfloat:=table2.fieldbyname('加班').asfloat+table1.fieldbyname('加班').asfloat;

      qrexpr11.Expression:= floattostr(strtofloat(qrexpr11.Expression)+table1.fieldbyname('利润分成').asfloat);
      table2.fieldbyname('利润分成').asfloat:=table2.fieldbyname('利润分成').asfloat+table1.fieldbyname('利润分成').asfloat;

      qrexpr12.Expression:= floattostr(strtofloat(qrexpr12.Expression)+table1.fieldbyname('奖金').asfloat);
      table2.fieldbyname('奖金').asfloat:=table2.fieldbyname('奖金').asfloat+table1.fieldbyname('奖金').asfloat;

      qrexpr13.Expression:= floattostr(strtofloat(qrexpr13.Expression)+table1.fieldbyname('补发1').asfloat);
      table2.fieldbyname('补发1').asfloat:=table2.fieldbyname('补发1').asfloat+table1.fieldbyname('补发1').asfloat;

      qrexpr14.Expression:= floattostr(strtofloat(qrexpr14.Expression)+table1.fieldbyname('补发2').asfloat);
      table2.fieldbyname('补发2').asfloat:=table2.fieldbyname('补发2').asfloat+table1.fieldbyname('补发2').asfloat;

      qrexpr15.Expression:= floattostr(strtofloat(qrexpr15.Expression)+table1.fieldbyname('卫生').asfloat);
      table2.fieldbyname('卫生').asfloat:=table2.fieldbyname('卫生').asfloat+table1.fieldbyname('卫生').asfloat;

      qrexpr16.Expression:= floattostr(strtofloat(qrexpr16.Expression)+table1.fieldbyname('独子费').asfloat);
      table2.fieldbyname('独子费').asfloat:=table2.fieldbyname('独子费').asfloat+table1.fieldbyname('独子费').asfloat;

      qrexpr17.Expression:= floattostr(strtofloat(qrexpr17.Expression)+table1.fieldbyname('差费').asfloat);
      table2.fieldbyname('差费').asfloat:=table2.fieldbyname('差费').asfloat+table1.fieldbyname('差费').asfloat;

      qrexpr18.Expression:= floattostr(strtofloat(qrexpr18.Expression)+table1.fieldbyname('营养').asfloat);
      table2.fieldbyname('营养').asfloat:=table2.fieldbyname('营养').asfloat+table1.fieldbyname('营养').asfloat;

      qrexpr19.Expression:= floattostr(strtofloat(qrexpr19.Expression)+table1.fieldbyname('知补').asfloat);
      table2.fieldbyname('知补').asfloat:=table2.fieldbyname('知补').asfloat+table1.fieldbyname('知补').asfloat;

      qrexpr20.Expression:= floattostr(strtofloat(qrexpr20.Expression)+table1.fieldbyname('边贴').asfloat);
      table2.fieldbyname('边贴').asfloat:=table2.fieldbyname('边贴').asfloat+table1.fieldbyname('边贴').asfloat;

      qrexpr21.Expression:= floattostr(strtofloat(qrexpr21.Expression)+table1.fieldbyname('煤贴').asfloat);
      table2.fieldbyname('煤贴').asfloat:=table2.fieldbyname('煤贴').asfloat+table1.fieldbyname('煤贴').asfloat;

      qrexpr22.Expression:= floattostr(strtofloat(qrexpr22.Expression)+table1.fieldbyname('房贴').asfloat);
      table2.fieldbyname('房贴').asfloat:=table2.fieldbyname('房贴').asfloat+table1.fieldbyname('房贴').asfloat;

      qrexpr23.Expression:= floattostr(strtofloat(qrexpr23.Expression)+table1.fieldbyname('上月尾').asfloat);
      table2.fieldbyname('上月尾').asfloat:=table2.fieldbyname('上月尾').asfloat+table1.fieldbyname('上月尾').asfloat;

      qrexpr24.Expression:= floattostr(strtofloat(qrexpr24.Expression)+table1.fieldbyname('事扣').asfloat);
      table2.fieldbyname('事扣').asfloat:=table2.fieldbyname('事扣').asfloat+table1.fieldbyname('事扣').asfloat;

      qrexpr25.Expression:= floattostr(strtofloat(qrexpr25.Expression)+table1.fieldbyname('矿扣').asfloat);
      table2.fieldbyname('矿扣').asfloat:=table2.fieldbyname('矿扣').asfloat+table1.fieldbyname('矿扣').asfloat;

      qrexpr26.Expression:= floattostr(strtofloat(qrexpr26.Expression)+table1.fieldbyname('趟次扣').asfloat);
      table2.fieldbyname('趟次扣').asfloat:=table2.fieldbyname('趟次扣').asfloat+table1.fieldbyname('趟次扣').asfloat;

      qrexpr27.Expression:= floattostr(strtofloat(qrexpr27.Expression)+table1.fieldbyname('安全扣').asfloat);
      table2.fieldbyname('安全扣').asfloat:=table2.fieldbyname('安全扣').asfloat+table1.fieldbyname('安全扣').asfloat;

      qrexpr28.Expression:= floattostr(strtofloat(qrexpr28.Expression)+table1.fieldbyname('服务扣').asfloat);
      table2.fieldbyname('服务扣').asfloat:=table2.fieldbyname('服务扣').asfloat+table1.fieldbyname('服务扣').asfloat;

      qrexpr29.Expression:= floattostr(strtofloat(qrexpr29.Expression)+table1.fieldbyname('卫生扣').asfloat);
      table2.fieldbyname('卫生扣').asfloat:=table2.fieldbyname('卫生扣').asfloat+table1.fieldbyname('卫生扣').asfloat;

      qrexpr30.Expression:= floattostr(strtofloat(qrexpr30.Expression)+table1.fieldbyname('准点扣').asfloat);
      table2.fieldbyname('准点扣').asfloat:=table2.fieldbyname('准点扣').asfloat+table1.fieldbyname('准点扣').asfloat;

      qrexpr31.Expression:= floattostr(strtofloat(qrexpr31.Expression)+table1.fieldbyname('技术扣').asfloat);
      table2.fieldbyname('技术扣').asfloat:=table2.fieldbyname('技术扣').asfloat+table1.fieldbyname('技术扣').asfloat;

      qrexpr37.Expression:= floattostr(strtofloat(qrexpr37.Expression)+table1.fieldbyname('欠款').asfloat);
      table2.fieldbyname('欠款').asfloat:=table2.fieldbyname('欠款').asfloat+table1.fieldbyname('欠款').asfloat;

      qrexpr38.Expression:= inttostr(strtoint(qrexpr38.Expression)+table1.fieldbyname('失保').AsInteger);
      table2.fieldbyname('失保').AsInteger:=table2.fieldbyname('失保').AsInteger+table1.fieldbyname('失保').AsInteger;

      qrexpr39.Expression:= floattostr(strtofloat(qrexpr39.Expression)+table1.fieldbyname('养老').asfloat);
      table2.fieldbyname('养老').asfloat:=table2.fieldbyname('养老').asfloat+table1.fieldbyname('养老').asfloat;

      qrexpr40.Expression:= floattostr(strtofloat(qrexpr40.Expression)+table1.fieldbyname('住房').asfloat);
      table2.fieldbyname('住房').asfloat:=table2.fieldbyname('住房').asfloat+table1.fieldbyname('住房').asfloat;

      qrexpr41.Expression:= floattostr(strtofloat(qrexpr41.Expression)+table1.fieldbyname('医保').asfloat);
      table2.fieldbyname('医保').asfloat:=table2.fieldbyname('医保').asfloat+table1.fieldbyname('医保').asfloat;

      qrexpr32.Expression:= floattostr(strtofloat(qrexpr32.Expression)+table1.fieldbyname('罚款').asfloat);
      table2.fieldbyname('罚款').asfloat:=table2.fieldbyname('罚款').asfloat+table1.fieldbyname('罚款').asfloat;

      qrexpr33.Expression:= floattostr(strtofloat(qrexpr33.Expression)+table1.fieldbyname('应发工资').asfloat);
      table2.fieldbyname('应发工资').asfloat:=table2.fieldbyname('应发工资').asfloat+table1.fieldbyname('应发工资').asfloat;

      qrexpr34.Expression:= floattostr(strtofloat(qrexpr34.Expression)+table1.fieldbyname('房电').asfloat);
      table2.fieldbyname('房电').asfloat:=table2.fieldbyname('房电').asfloat+table1.fieldbyname('房电').asfloat;

      qrexpr35.Expression:= floattostr(strtofloat(qrexpr35.Expression)+table1.fieldbyname('托儿').asfloat);
      table2.fieldbyname('托儿').asfloat:=table2.fieldbyname('托儿').asfloat+table1.fieldbyname('托儿').asfloat;

      qrexpr36.Expression:= floattostr(strtofloat(qrexpr36.Expression)+table1.fieldbyname('另存').asfloat);
      table2.fieldbyname('另存').asfloat:=table2.fieldbyname('另存').asfloat+table1.fieldbyname('另存').asfloat;

      qrexpr42.Expression:= floattostr(strtofloat(qrexpr42.Expression)+table1.fieldbyname('大病保').asfloat);
      table2.fieldbyname('大病保').asfloat:=table2.fieldbyname('大病保').asfloat+table1.fieldbyname('大病保').asfloat;

      qrexpr43.Expression:= floattostr(strtofloat(qrexpr43.Expression)+table1.fieldbyname('车队扣').asfloat);
      table2.fieldbyname('车队扣').asfloat:=table2.fieldbyname('车队扣').asfloat+table1.fieldbyname('车队扣').asfloat;

      qrexpr44.Expression:= floattostr(strtofloat(qrexpr44.Expression)+table1.fieldbyname('扣款1').asfloat);
      table2.fieldbyname('扣款1').asfloat:=table2.fieldbyname('扣款1').asfloat+table1.fieldbyname('扣款1').asfloat;

      qrexpr45.Expression:= floattostr(strtofloat(qrexpr45.Expression)+table1.fieldbyname('扣款2').asfloat);
      table2.fieldbyname('扣款2').asfloat:=table2.fieldbyname('扣款2').asfloat+table1.fieldbyname('扣款2').asfloat;

//      qrexpr46.Expression:= floattostr(strtofloat(qrexpr11.Expression)+table1.fieldbyname('扣款3').asfloat);
      qrexpr46.Expression:= floattostr(strtofloat(qrexpr46.Expression)+table1.fieldbyname('教育').asfloat);
      table2.fieldbyname('教育').asfloat:=table2.fieldbyname('教育').asfloat+table1.fieldbyname('教育').asfloat;

      qrexpr47.Expression:= floattostr(strtofloat(qrexpr47.Expression)+table1.fieldbyname('税金').asfloat);
      table2.fieldbyname('税金').asfloat:=table2.fieldbyname('税金').asfloat+table1.fieldbyname('税金').asfloat;

      qrexpr48.Expression:= floattostr(strtofloat(qrexpr48.Expression)+table1.fieldbyname('实发工资').asfloat);
      table2.fieldbyname('实发工资').asfloat:=table2.fieldbyname('实发工资').asfloat+table1.fieldbyname('实发工资').asfloat;

      qrexpr49.Expression:= floattostr(strtofloat(qrexpr49.Expression)+table1.fieldbyname('本月尾').asfloat);
      table2.fieldbyname('本月尾').asfloat:=table2.fieldbyname('本月尾').asfloat+table1.fieldbyname('本月尾').asfloat;

      qrexpr50.Expression:=inttostr(table1.RecordCount);


      NEXT



      END;

      EnableControls;
      table2.EnableControls;
      END;
      table2.Post;


end;

end.