⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 viewunit.pas

📁 工资管理系统
💻 PAS
📖 第 1 页 / 共 3 页
字号:
🔍
123 
    edit;
//标准合计
      fieldbyname('bz_hj').asfloat:=0;
      fieldbyname('bz_hj').asfloat:=FieldByName('bz_gw').asfloat+FieldByName('bz_jn').asfloat;
//发放系数
//     *(strtofloat(kqday.edit2.text))/100;

     jn:=(fieldbyname('bz_jn').asfloat)*(strtofloat(kqday.edit2.text))/100;
     gw:=(fieldbyname('Bz_gw').asfloat)*(strtofloat(kqday.edit2.text))/100;
     gl:=fieldbyname('jt_kl').asfloat;
     kgd:=fieldbyname('zjkg').asfloat;
     sjd:=fieldbyname('zjsj').asfloat;

     rg:=round(((jn+gw))/20.92*100)/100;

     edit;
//缺勤天数
     ddd:=bj+hc+nt+kgd+sjd;
     if ddd<0 then ddd:=0;
//卫贴
     case kqday.rg2.ItemIndex of
     0:begin
           if ddd>=0 then
               begin
                       sy:=fieldbyname('code').asstring;
                        with datat.Table4 do
                        begin
                         open;
                         first;
                      if (Locate('code',sy,[])) then
                             begin
                                 data.query1.fieldbyname('jt_qt').asfloat:=
                                 round((fieldbyname('jt_qt').asfloat)/30*(30-ddd)*100)/100;
                                 if data.query1.fieldbyname('jt_qt').asfloat<0 then
                                 data.query1.fieldbyname('jt_qt').asfloat:=0;
                             end;
                        end;
               end;
       end;
     end;


//年探
     fieldbyname('jb_nt').asfloat:=0;
     if nt<>0 then
        fieldbyname('jb_nt').asfloat:=rg*nt
        else
     fieldbyname('jb_nt').asfloat:=0;
    if  fieldbyname('jb_nt').asfloat>gw+jn then
     fieldbyname('jb_nt').asfloat:=gw+jn;

//婚产
      fieldbyname('jb_hc').asfloat:=0;
     if hc<>0 then
        fieldbyname('jb_hc').asfloat:=rg*hc
     else
        fieldbyname('jb_hc').asfloat:=0;
     if fieldbyname('jb_hc').asfloat>gw+jn then
        fieldbyname('jb_hc').asfloat:=gw+jn;

//病假
      fieldbyname('jb_bj').asfloat:=0;
      bjgz:=0;
      if (bj>=20.92)  then
          bj:=20.92;
 if (bj>0) then
  begin
         if  (gl<7) then
         begin
         fieldbyname('Jb_bj').asfloat:=round(((jn+gw)*(0.7*bj)/20.92)*100)/100;
       //  bjgz:=0;
         bjgz:=round(((jn+gw)*(0.3*bj)/20.92)*100)/100;
         end
         else
         if (gl>=7) and (gl<20) then
         begin
         fieldbyname('jb_bj').asfloat:=round(((jn+gw)*(0.85*bj)/20.92)*100)/100;
       //  bjgz:=0;
         bjgz:=round(((jn+gw)*(0.15*bj)/20.92)*100)/100;
         end
         else
         if (gl>=20) and (gl<25) then
         begin
         fieldbyname('jb_bj').asfloat:=round(((jn+gw)*(0.95*bj)/20.92)*100)/100;
       //  bjgz:=0;
         bjgz:=round(((jn+gw)*(0.05*bj)/20.92)*100)/100;
         end
         else
         if (gl>=25) then
         begin
         fieldbyname('jb_bj').asfloat:=round(rg*bj*100)/100;
         bjgz:=0;
         end
       else
       begin
         fieldbyname('jb_bj').asfloat:=0;
         bjgz:=0;
       end;
   end;

   fieldbyname('jb_js_d').asfloat:=0;
   fieldbyname('jb_js').asfloat:=0;
   if ddd>0 then
         begin
               fieldbyname('jb_js').asfloat:=round((gw+jn
              -fieldbyname('jb_jj').asfloat
              -fieldbyname('jb_jc').asfloat
              -fieldbyname('jb_nt').asfloat
              -bjgz
              -fieldbyname('jb_gs').asfloat
              -FieldByName('jb_bj').asfloat
              -fieldbyname('jb_hc').asfloat
              -fieldbyname('jb_by').asfloat)*100)/100;
         end
            else
              begin
  //            fieldbyname('jb_js_d').asfloat:=kqd;
              fieldbyname('jb_js').asfloat:=gw+jn;
              end;

//误餐费
        fieldbyname('Fg_wc').asfloat:=0;
        fieldbyname('Fg_wc_d').asfloat:=0;
//        FieldByName('jb_js_d').asfloat:=0;

if (gw+jn)>0 then
begin
     if (Gw>0) and((Kqd-ddd)>=15)
     then
        begin
        fieldbyname('Fg_wc').asfloat:=3*(kqd-ddd);
        fieldbyname('Fg_wc_d').asfloat:=kqd-ddd;
        FieldByName('jb_js_d').asfloat:=FieldByName('fg_wc_d').asfloat;
        end
     else
       begin
        fieldbyname('Fg_wc').asfloat:=0;
        fieldbyname('Fg_wc_d').asfloat:=kqd-ddd;
        if fieldbyname('Fg_wc_d').asfloat<0 then
        fieldbyname('Fg_wc_d').asfloat:=0;
        FieldByName('jb_js_d').asfloat:=FieldByName('fg_wc_d').asfloat;
       end;
end;

//加班
        fieldbyname('Qt_Jb').asfloat:=0;
        if jb>0 then
//        fieldbyname('Qt_Jb').asfloat:=round(((datat.table4.fieldbyname('jn').asfloat+datat.table4.fieldbyname('gw').asfloat)*3*jb/21)*100)/100
  fieldbyname('Qt_Jb').asfloat:=round(((fieldbyname('bz_jn').asfloat+fieldbyname('bz_gw').asfloat)*3*jb/20.92)*100)/100
        else
        fieldbyname('Qt_Jb').asfloat:=0;

//夜班
        fieldbyname('jt_yb').asfloat:=0;
        if (fieldbyname('jt_yb_d1').asfloat>0) or (fieldbyname('jb_yb_d2').asfloat>0) then
        fieldbyname('jt_yb').asfloat:=0.8*(fieldbyname('jt_yb_d1').asfloat)+1.4*(fieldbyname('jb_yb_d2').asfloat)
        else
        fieldbyname('jt_yb').asfloat:=0;

      if (FieldByName('jb_js').asfloat<0) then
          FieldByName('jb_js').asfloat:=0;

 //下井
        fieldbyname('jt_xj').asfloat:=0;
        fieldbyname('jt_xj').asfloat:= round(((fieldbyname('jt_xj_d').asfloat)*1.5)*100)/100;

//事假 、矿工
        sj:=round(rg*(fieldbyname('zjsj').asfloat+fieldbyname('zjkg').asfloat)*100)/100;

        if fieldbyname('zjsj').asfloat+fieldbyname('zjkg').asfloat=20.92 then
        sj:=gw+jn;

        if sj>=(gw+jn) then
          sj:=gw+jn;

        if sj>0 then
        begin
        if fieldbyname('jb_js').asfloat>=(sj) then
           fieldbyname('jb_js').asfloat:=round((fieldbyname('jb_js').asfloat-sj)*100)/100
           else
        if fieldbyname('jb_nt').asfloat>=(sj) then
           fieldbyname('jb_nt').asfloat:=round((fieldbyname('jb_nt').asfloat-sj)*100)/100
           else
        if fieldbyname('jb_bj').asfloat>=(sj) then
           fieldbyname('jb_bj').asfloat:=round((fieldbyname('jb_bj').asfloat-sj)*100)/100
           else
        if fieldbyname('jb_hc').asfloat>=(sj) then
           fieldbyname('jb_hc').asfloat:=round((fieldbyname('jb_hc').asfloat-sj)*100)/100
           else
           application.MessageBox(pchar('此人：'+fieldbyname('code').asstring+fieldbyname('name').asstring+'的旷工计算出现错误，请修正！！！'),'提示',+mb_ok+mb_iconinformation);
       end;
//基本扣款
//        if  fieldbyname('zjjbkk').asfloat<0 then
//            application.MessageBox(pchar('此人：'+fieldbyname('code').asstring+fieldbyname('name').asstring+'的基本工资扣款为负，计算出现错误，请修正！！！'),'提示',+mb_ok+mb_iconinformation);
        if  fieldbyname('zjjbkk').asfloat<>0 then
      begin
        if fieldbyname('jb_js').asfloat>=fieldbyname('zjjbkk').asfloat then
           fieldbyname('jb_js').asfloat:=round((fieldbyname('jb_js').asfloat-fieldbyname('zjjbkk').asfloat)*100)/100
           else
        if fieldbyname('jb_nt').asfloat>=(fieldbyname('zjjbkk').asfloat) then
           fieldbyname('jb_nt').asfloat:=round((fieldbyname('jb_nt').asfloat-fieldbyname('zjjbkk').asfloat)*100)/100
           else
        if fieldbyname('jb_bj').asfloat>=(fieldbyname('zjjbkk').asfloat) then
           fieldbyname('jb_bj').asfloat:=round((fieldbyname('jb_bj').asfloat-fieldbyname('zjjbkk').asfloat)*100)/100
           else
        if fieldbyname('jb_hc').asfloat>=(fieldbyname('zjjbkk').asfloat) then
           fieldbyname('jb_hc').asfloat:=round((fieldbyname('jb_hc').asfloat-fieldbyname('zjjbkk').asfloat)*100)/100
           else
           application.MessageBox(pchar('此人：'+fieldbyname('code').asstring+fieldbyname('name').asstring+'的基本工资扣款〉此人的基本工资，请修正！！！'),'提示',+mb_ok+mb_iconinformation);
       end;
//天数增多
{1}        if (fieldbyname('zjsj').asfloat+fieldbyname('zjkg').asfloat)>=32 then
            application.MessageBox(pchar('此人：'+fieldbyname('code').asstring+fieldbyname('name').asstring+'的事假加旷工天数〉31，请修正！！！'),'提示',+mb_ok+mb_iconinformation);
{2}
          //  if (fieldbyname('jb_hc_d').asfloat+fieldbyname('jb_nt_d').asfloat+fieldbyname('jb_bj_d').asfloat)>=22 then
          //  application.MessageBox(pchar('此人：'+fieldbyname('code').asstring+fieldbyname('name').asstring+'的婚产假+年探假+病假天数〉21，请修正！！！'),'提示',+mb_ok+mb_iconinformation);

//超发部分
          cf:=fieldbyname('jb_nt').asfloat+fieldbyname('jb_bj').asfloat
             +fieldbyname('jb_hc').asfloat+fieldbyname('jb_by').asfloat-gw-jn;
         if cf>0  then
         begin
             if fieldbyname('jb_js').asfloat>=cf then
                fieldbyname('jb_js').asfloat:=round((fieldbyname('jb_js').asfloat-cf)*100)/100
                else
             if fieldbyname('jb_nt').asfloat>=cf then
                fieldbyname('jb_nt').asfloat:=round((fieldbyname('jb_nt').asfloat-cf)*100)/100
                else
             if fieldbyname('jb_bj').asfloat>=cf then
                fieldbyname('jb_bj').asfloat:=round((fieldbyname('jb_bj').asfloat-cf)*100)/100
                else
             if fieldbyname('jb_hc').asfloat>cf then
                fieldbyname('jb_hc').asfloat:=round((fieldbyname('jb_hc').asfloat-cf)*100)/100
                else
                application.MessageBox(pchar('此人：'+fieldbyname('code').asstring+fieldbyname('name').asstring+'超发扣款计算出现错误，请修正！！！'),'提示',+mb_ok+mb_iconinformation);
         end;

//误餐费+加班
        fieldbyname('Fg_wc').asfloat:=0;
        fieldbyname('Fg_wc_d').asfloat:=0;
//        FieldByName('jb_js_d').asfloat:=0;

if (gw+jn)>0 then
begin
     if (Gw>0) and((Kqd-ddd+fieldbyname('qt_jb_d').asfloat)>=15)
     then
        begin
        fieldbyname('Fg_wc').asfloat:=3*(kqd-ddd+fieldbyname('qt_jb_d').asfloat);
        fieldbyname('Fg_wc_d').asfloat:=kqd-ddd+fieldbyname('qt_jb_d').asfloat;
        FieldByName('jb_js_d').asfloat:=FieldByName('fg_wc_d').asfloat-fieldbyname('qt_jb_d').asfloat;
        end
     else
       begin
        fieldbyname('Fg_wc').asfloat:=0;
        fieldbyname('Fg_wc_d').asfloat:=kqd-ddd+fieldbyname('qt_jb_d').asfloat;
     if fieldbyname('Fg_wc_d').asfloat<0 then
        fieldbyname('Fg_wc_d').asfloat:=0;
        FieldByName('jb_js_d').asfloat:=FieldByName('fg_wc_d').asfloat-fieldbyname('qt_jb_d').asfloat;
       end;
end;

//误餐费是否发放
 if kqday.Rg3.ItemIndex=1 then
 begin
      fieldbyname('Fg_wc_d').asfloat:=0;
      fieldbyname('Fg_wc').asfloat:=0;
 end;
//应发额
        fieldbyname('yf').asfloat:=0;

        fieldbyname('yf').asfloat:=
        fieldbyname('jb_js').asfloat+fieldbyname('jb_jj').asfloat+fieldbyname('jb_jc').asfloat
        +fieldbyname('jb_nt').asfloat+fieldbyname('jb_bj').asfloat
        +fieldbyname('jb_gs').asfloat+fieldbyname('jb_hc').asfloat
        +fieldbyname('jb_by').asfloat+fieldbyname('jb_qt').asfloat
     //   +fieldbyname('jl_jj').asfloat+fieldbyname('jl_ce').asfloat
      //  +fieldbyname('jl_qt').asfloat+fieldbyname('jt_xj').asfloat
        +fieldbyname('jt_gt').asfloat+fieldbyname('jt_zr').asfloat
        +fieldbyname('jt_yb').asfloat+fieldbyname('jt_jg').asfloat
        +fieldbyname('jt_st').asfloat+fieldbyname('jt_kl').asfloat
        +fieldbyname('jt_jh').asfloat+fieldbyname('jt_gat').asfloat
        +fieldbyname('jt_7x').asfloat+fieldbyname('jt_ly').asfloat
        +fieldbyname('jt_lc').asfloat+fieldbyname('jt_lj').asfloat
        +fieldbyname('jt_b9').asfloat+fieldbyname('jt_hz').asfloat
        +fieldbyname('jt_ft').asfloat+fieldbyname('jt_qt').asfloat
        +fieldbyname('qt_jb').asfloat+fieldbyname('qt_qt').asfloat
        +fieldbyname('fg_wc').asfloat+fieldbyname('fg_bj').asfloat;
//税金
      {  shj:=fieldbyname('yf').asfloat
        -fieldbyname('kk_yl').asfloat-fieldbyname('kk_gj').asfloat
        -fieldbyname('kk_qt1').asfloat-fieldbyname('kk_qt2').asfloat
        -fieldbyname('fg_wc').asfloat-fieldbyname('fg_bj').asfloat-880;

        fieldbyname('zjqt3').asfloat:=0;
        if (shj<=500) and (shj>0) then
           begin
                fieldbyname('zjqt3').asfloat:=round(shj*0.05*100)/100;
           end;

        if shj>500 then
           begin
                fieldbyname('zjqt3').asfloat:=round(((shj*0.1)-25)*100)/100;
           end;}

        if fieldbyname('zjqt5').asfloat=0 then
            begin
                 fieldbyname('zjqt3').asfloat:=0;
            end;

//实发额
        fieldbyname('sfe').asfloat:=0;
        fieldbyname('sfe').asfloat:=fieldbyname('yf').asfloat
        -fieldbyname('kk_yl').asfloat-fieldbyname('kk_gj').asfloat
        -fieldbyname('kk_qt1').asfloat-fieldbyname('kk_qt2').asfloat
        -fieldbyname('zjqt3').asfloat-fieldbyname('zjqt4').asfloat;
 //考虑奖金受否随工资一起发放
{case kqday.Rg4.ItemIndex of
     1:
     begin
       fieldbyname('sfe').asfloat:=0;
        fieldbyname('sfe').asfloat:=fieldbyname('yf').asfloat
        -fieldbyname('kk_yl').asfloat-fieldbyname('kk_gj').asfloat
        -fieldbyname('kk_qt1').asfloat-fieldbyname('kk_qt2').asfloat
        -fieldbyname('zjqt3').asfloat-fieldbyname('zjqt4').asfloat
        -fieldbyname('jl_jj').asfloat;

        fieldbyname('yf').asfloat:=fieldbyname('yf').asfloat-fieldbyname('jl_jj').asfloat;

     end;
end;}
//统筹内合计
        fieldbyname('tchj').asfloat:=0;
        fieldbyname('tchj').asfloat:=fieldbyname('yf').asfloat
        -fieldbyname('fg_wc').asfloat-fieldbyname('fg_bj').asfloat;
//处理停薪日期
        if GW+JN=0 then
        begin
        fieldbyname('Fg_wc_d').asfloat:=0;
        FieldByName('jb_js_d').asfloat:=0;
        end;

       post;
       case Rg1.ItemIndex of
     0:
     begin
     datat.table4.close;
     data.Query1.EnableControls;
     abort;
     end;
   end;

      case Rg1.ItemIndex of
     1:
     begin
     next;
     end;
   end;


  end;
       datat.table4.close;
       data.Query1.EnableControls;
    end;
{       next;
       inc(rec);
     //  inc(recno1);
       PB1.Position:=round((Rec*100)/(RecordCount));
     end;
      finally
       EnableControls;
       Close;
       pb1.Visible:=false;
       screen.cursor:=crdefault;
       datat.table4.EnableControls;
       datat.Table4.Close;
       esptime:='耗时:'+timetostr(strtotime(esptime)-strtotime(timetostr(now)));
       application.messagebox(PChar(esptime),'消息框',mb_ok+mb_iconinformation);
      end;
     end;
  end;}
end;

procedure TView.SpeedButton6Click(Sender: TObject);
begin
     rxc.Execute;
end;



procedure TView.SpeedButton11Click(Sender: TObject);
begin
     speedbutton9.Click;
     with data.query1 do
          begin
               data.query1.DisableControls;
               open;
               first;
               while not eof do
               begin
                    edit;
                    if (edit1.text='0') or (edit1.text='1') then
                       fieldbyname('zjqt5').asstring:=edit1.text;
                     post;
                    next;
               end;
               //close;
               data.query1.EnableControls;
               application.MessageBox(pchar('税金属性设置完毕,全部为:'+edit1.text),'提示',mb_ok+mb_iconinformation);
          end;
end;


procedure TView.GDBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if (Rect.Top = TStringGrid(gdbgrid1).CellRect(TStringGrid(gdbgrid1).col,TStringGrid(gdbgrid1).row).top) and       (not (gdFocused in State)) then
    begin
     gdbgrid1.Canvas.Brush.Color := clblue;
      gdbgrid1.Canvas.font.Color:=clwhite;
    end;
 gdbgrid1.DefaultDrawDataCell(Rect, Column.Field, State);
end;
end.
123

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -