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

📄 mainunit.pas

📁 不可多得的大型公司公资管理系统软件.该系统用DELPHI来实现.
💻 PAS
📖 第 1 页 / 共 3 页
字号:
🔍
123 
   abort;
end;
end;

procedure TMainForm.N59Click(Sender: TObject);
begin
try
Application.CreateForm(Tjjdate, jjdate);
   jjdate.showmodal;
   jjdate.Hide;
   jjdate.Release;
   except
   Application.MessageBox('数据发生错误！！！请运行<维护>---><数据清理>菜单项！！！','提示框',mb_ok+mb_iconstop);
   abort;
end;
end;

procedure TMainForm.N61Click(Sender: TObject);
begin
 Application.CreateForm(Tkkdate, kkdate);
 kkdate.showmodal;
 kkdate.Release;
end;

procedure TMainForm.N63Click(Sender: TObject);
var
   recno1,recno2,rec,i,KqD:integer;
   sy,esptime,Rq,info:string;
   Bj,Hc,Jb,Jn,Gw,nt,DDD,gl,rg,bjgz,kgd,sjd,sj,kg,cf:real;
begin
//if kqday=nil then
   Application.CreateForm(Tkqday,kqday);
if kqday.showmodal=mrok then
   begin
     case kqday.Rg.ItemIndex of
     0:
     begin
       if jsbmxz=nil then
       Application.CreateForm(Tjsbmxz,jsbmxz);
       jsbmxz.Showmodal;
     end;
     end;
    KqD:=strtoint(kqday.Edit1.Text);
    Rq:=password.MaskEdit1.Text+'-'+password.Edit4.Text;
    IF  (application.messagebox(pchar('您所选择的计算数据是:  '+rq+'月,正确吗?'),'消息框',mb_okcancel+mb_defbutton1+mb_iconquestion)
     =idcancel) then
     abort;
//     abort;

    with data.Query5.SQL do
    begin
      clear;
      add('select * from lyk.dbf ');
      add('where riqi='''+rq+'''');
      case kqday.Rg.ItemIndex of
          0:
          begin
       for i:=0 to jsbmxz.listbox2.Items.Count-1 do
        begin
          try
            add('and bmno <> +'''+copy(jsbmxz.listbox2.Items[i],1,5)+'''');
          except
          end;
        end;
       end;
      end;
    end;
     data.Query5.Close;
     data.Query5.Open;

     if data.Query5.IsEmpty then
     begin
        info:='此月:'+RQ+'数据不存在,请重新选择日期或者重新生成本月数据信息';
        application.messagebox(pchar(info),'消息框',mb_ok+mb_iconstop);
        data.Query5.Close;
	abort;
     end;

  datat.Table4.Open;
  datat.Table4.DisableControls;
 with data.Query5 do
   begin
   pb1.Visible:=true;
   esptime:=timetostr(now);
   screen.cursor:=crhourglass;
    try
    Open;
    DisableControls;
    first;
    rec:=0;
    recno2:=RecordCount;
for recno1:=1 to recno2  do
  begin
    // Application.ProcessMessages;
     Bj:=fieldbyname('Jb_bj_d').asfloat;
     Hc:=fieldbyname('Jb_Hc_d').asfloat;
     Nt:=fieldbyname('JB_Nt_d').asfloat;
     jb:=fieldbyname('Qt_jb_d').asfloat;

    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
                         first;
                      if (Locate('code',sy,[])) then
                             begin
                                 data.query5.fieldbyname('jt_qt').asfloat:=
                                 round((fieldbyname('jt_qt').asfloat)/30*(30-ddd)*100)/100;
                                 if data.query5.fieldbyname('jt_qt').asfloat<0 then
                                 data.query5.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;


//实发额
        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('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;
       next;
       inc(rec);
     //  inc(recno1);
       PB1.Position:=round((Rec*100)/(RecordCount));
       mainform.Caption:='龙口矿务局工资系统　２０００－－全程退出键［ＥＳＣ］'+floattostr(round((Rec*100)/(RecordCount)))+'%'+'姓名'+fieldbyname('name').asstring+'正在计算....请稍候!!!';
     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);
       mainform.Caption:='龙口矿务局工资系统　２０００－－全程退出键［ＥＳＣ］';
      end;
     end;
  end;
  if datat.Table1.Active then
  datat.Table1.Close;
  if datat.Table2.Active then
  datat.Table2.Close;
  if datat.Table4.Active then
  datat.Table4.Close;
  if datat.Table5.Active then
  datat.Table5.Close;
  kqday.Release;
end;

procedure TMainForm.N68Click(Sender: TObject);
begin
try
  Application.CreateForm(TDateTZh,DateTZh);
  DateTZh.ShowModal;
  DateTZh.hide;
  DateTZh.Release;
  except
   Application.MessageBox('数据发生错误！！！请运行<维护>---><数据清理>菜单项！！！','提示框',mb_ok+mb_iconstop);
   abort;
end;
end;

procedure TMainForm.N71Click(Sender: TObject);
begin
Application.CreateForm(Taboutbox,aboutbox);
  aboutbox.showmodal;
  aboutbox.Hide;
  aboutbox.Release;
end;

procedure TMainForm.N72Click(Sender: TObject);
var s:string;
begin
  s:=inputbox('核对','输入口令','');
  if s<>'1234567890' then
  application.MessageBox('口令错误','警告',mb_ok+mb_iconstop)
  else
  begin
   Application.CreateForm(Tcshform,cshform);
   cshform.showmodal;
   cshform.hide;
   cshform.Release;
  end;
 end;
procedure TMainForm.N74Click(Sender: TObject);
begin
Application.CreateForm(Tsjlbform,sjlbform);
  sjlbform.ShowModal;
  sjlbform.hide;
  sjlbform.Release;
end;
123

⌨️ 快捷键说明

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