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

📄 gssr.pas

📁 制造企业工时定额管理之录入
💻 PAS
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
            Frac(strtofloat(gs_bcfCp.Text))*100;
    zwcRemain:=Int(gs_zwcFrac/ 60.0);
    gs_zwcFrac:=(gs_zwcFrac-zwcRemain*60.0)/100.0;
    gs_zwc.text:=floattostr(gs_zwcInt+gs_zwcFrac+zwcRemain);
    end;
end;

procedure TgssrForm.ZsdJisuan;  // 计算总完成工时
var
  gs_zsdInt,gs_zsdFrac,zsdRemain:double;
begin
    if (gs_tsSd.Text<>'')and (gs_bcCpSd.Text<>'') and (gs_bcfCpSd.Text<>'') then
    begin
    gs_zsdInt:=Int(strtofloat(gs_tsSd.Text))+Int(strtofloat(gs_bcCpSd.Text))+
            Int(strtofloat(gs_bcfCpSd.Text));
    gs_zsdFrac:=Frac(strtofloat(gs_tsSd.Text))*100+Frac(strtofloat(gs_bcCpSd.Text))*100+
            Frac(strtofloat(gs_bcfCpSd.Text))*100;
    zsdRemain:=Int(gs_zsdFrac/ 60.0);
    gs_zsdFrac:=(gs_zsdFrac-zsdRemain*60.0)/100.0;
    gs_zsd.text:=floattostr(gs_zsdInt+gs_zsdFrac+zsdRemain);
    end;
end;

procedure TgssrForm.BitBtn5Click(Sender: TObject);
begin
  if RadioGroup1.ItemIndex =0 then
    begin
      if (gs_zgID.Text='')or(gs_GsTime.Text='')then
      begin
        Myerror('关键数据职工代码和时间不能为空！');
        exit;
      end;
      if MessageDlg('真的要删除当前的记录吗？',mtConfirmation,[mbYes,mbNo],0)<>idYes then
      begin
        exit;
      end;
      with dm.QueryTemp do
      begin
        close;
        prepared:=false;
        SQL.Clear;
        SQL.Add('delete from GrMonth where  zgID=:zgID and GsTime=:GsTime');
        Parameters.Items[0].Value:=trim(gs_zgID.Text);
        Parameters.Items[1].Value:=trim(gs_GsTime.Text);
        prepared:=true;
        ExecSQL;
      end;
    end
    else
    if RadioGroup1.ItemIndex =1 then
    begin
      if(ComboBox1.Text='')or(gs_GsTime.Text='')then
      begin
        Myerror('关键数据单位代码和时间不能为空！');
        exit;
      end;
      if MessageDlg('真的要删除当前的记录吗？',mtConfirmation,[mbYes,mbNo],0)<>idYes then
      begin
        exit;
      end;
      with dm.QueryTemp do
      begin
       close;
       prepared:=false;
       SQL.Clear;
       SQL.Add('delete from DWMonthGs where dwID=:dwID and GsTime=:GsTime');
       Parameters.Items[0].Value:=trim(ComboBox1.Text);
       Parameters.Items[1].Value:=trim(gs_GsTime.Text);
       prepared:=true;
       ExecSQL;
      end;
    end;
    MyInformation('成功删除目标记录！');
  end;


procedure TgssrForm.BitBtn4Click(Sender: TObject);
begin
  DIS;
end;

procedure TgssrForm.ComboBox2Change(Sender: TObject);
var
  i:integer;
begin
  if RadioGroup1.ItemIndex=0 then
  begin
    gs_zgID.Clear;
    with dm.Qytemp2 do
    begin
      Close;
      CommandText:='SELECT zgID FROM workerInfo where BanzuName=:BanzuName and dwID=:dwID';
      Parameters.ParamByName('BanzuName').Value:=trim(ComboBox2.Text);
      Parameters.ParamByName('dwID').Value:=trim(ComboBox1.Text);
      Open;
      if(RecordCount>0)then
      first;
      for i:=0 to RecordCount-1 do
        begin
          gs_zgID.Items.Add(FieldByName('zgID').AsString);
          next;
        end;
    end;
  end
  else
  begin
    Panel5.Enabled:=false;
  end;
end;

procedure TgssrForm.ComboBox2Exit(Sender: TObject);
begin
  if(trim(ActionCD)<>'') and (trim(ComboBox2.Text)<>'')then
  begin
    with dm.BanzuUp do
    begin
      close;
      prepared:=false;
      parameters.ParamByName('@dwID').Value:=trim(ComboBox1.Text);
      parameters.ParamByName('@BanzuName').Value:=trim(ComboBox2.Text);
      prepared:=true;
      execproc;  
    end;
  end;
end;

procedure TgssrForm.Button1Click(Sender: TObject);
begin
  with dm.GrMonth do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from GrMonth');
    if edit1.Text<>''then
     begin
     SQL.Add('where zgID='+#39+trim(edit1.Text)+#39);
     end;
    open;
    DBGrid1.DataSource:=dm.dsGrMonth;
  end;
end;

procedure TgssrForm.Button2Click(Sender: TObject);
begin
  with dm.dwMonth do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from dwMonthGs');
    if edit2.Text<>''then
    begin
      SQL.Add('as a,dwInfo as b where a.dwID=b.dwID');
      SQL.Add('and b.dwName='+#39+trim(edit2.Text)+#39);
    end;
    open;
    DBGrid2.DataSource:=dm.dsdwMonth;
  end;
end;

procedure TgssrForm.PageControl1Change(Sender: TObject);
begin
  case PageControl1.TabIndex of
    0:
      begin
        gssrForm.Caption:='月工时数据---修改';
        Bitbtn1.Enabled:=true;
        Bitbtn2.Enabled:=true;
        Bitbtn5.Enabled:=true;
        DIS;
      end;
    1:
      begin
        gssrForm.Caption:='月工时数据---浏览';
        with dm.GrMonth do
        begin
          close;
          open;
        end;
        with dm.dwMonth do
        begin
          close;
          open;
        end;
        Bitbtn1.Enabled:=false;
        Bitbtn2.Enabled:=false;
        Bitbtn5.Enabled:=false;
        edit1.ReadOnly :=false;
        edit1.Color :=clWindow;
        edit2.ReadOnly :=true;
        edit2.Color :=clWindow;
      end;
  end;
end;

procedure TgssrForm.FormShow(Sender: TObject);
begin
  gssrForm.PageControl1.TabIndex:=0;
  DIS;
end;

procedure TgssrForm.gs_cpXjChange(Sender: TObject);
begin
  Jisuan3;
end;

procedure TgssrForm.gs_tsChange(Sender: TObject);
begin
  zwcJisuan;
end;

procedure TgssrForm.gs_tsSdChange(Sender: TObject);
begin
  ZsdJisuan;
end;

procedure TgssrForm.BitBtn6Click(Sender: TObject);
begin
  Close;
end;

procedure TgssrForm.N1Click(Sender: TObject);
begin
  try
    Application.CreateForm(TDanWeiForm,DanWeiForm);
    DanWeiForm.ShowModal;
  finally
    DanWeiForm.Free;
  end;
end;

procedure TgssrForm.gs_GsTimeExit(Sender: TObject);
begin
  if  RadioGroup1.ItemIndex=0 then
  begin
  with dm.Qytemp2 do
      begin
        Close;
        CommandText:='SELECT * FROM GrMonth where zgID=:zgID and GsTime=:GsTime';
        Parameters.ParamByName('zgID').Value:=trim(gs_zgID.Text);
        Parameters.ParamByName('GsTime').Value:=trim(gs_GsTime.Text);
        Open;
        if (RecordCount>0)then
        begin
          gs_cpYd.Text:=FloatToStr(FieldByName('cpYd').AsFloat);
          gs_cpHg.Text:=FloatToStr(FieldByName('cpHg').AsFloat);
          gs_cpHy.Text:=FloatToStr(FieldByName('cpHy').AsFloat);
          gs_cpLf.Text:=FloatToStr(FieldByName('cpLf').AsFloat);
          gs_cpXj.Text:=FloatToStr(FieldByName('cpXj').AsFloat);
          gs_cpSd.Text:=FloatToStr(FieldByName('cpSd').AsFloat);

          gs_elCp.Text:=FloatToStr(FieldByName('elCp').AsFloat);
          gs_elCpSd.Text:=FloatToStr(FieldByName('elCpSd').AsFloat);

          gs_elfCp.Text:=FloatToStr(FieldByName('elfCp').AsFloat);
          gs_elfCpSd.Text:=FloatToStr(FieldByName('elfCpSd').AsFloat);

          gs_scRw.Text:=FloatToStr(FieldByName('scRw').AsFloat);
          gs_scRwSd.Text:=FloatToStr(FieldByName('scRwSd').AsFloat);

          gs_bcCp.Text:=FloatToStr(FieldByName('bcCp').AsFloat);
          gs_bcCpSd.Text:=FloatToStr(FieldByName('bcCpSd').AsFloat);

          gs_bcfCp.Text:=FloatToStr(FieldByName('bcfCp').AsFloat);
          gs_bcfCpSd.Text:=FloatToStr(FieldByName('bcfCpSd').AsFloat);

          gs_ssQq.Text:=FloatTostr(FieldByName('ssQq').AsFloat);
          gs_ssTg.Text:=FloatToStr(FieldByName('ssTg').AsFloat);
          gs_ssGf.Text:=FloatToStr(FieldByName('ssGf').AsFloat);
          gs_ssXj.Text:=FloatToStr(FieldByName('ssXj').AsFloat);
          
          gs_yb.Text:=FloatToStr(FieldByName('yb').AsFloat);
          gs_tx.Text:=FloatToStr(FieldByName('tx').AsFloat);
          gs_jb.Text:=FloatToStr(FieldByName('jb').AsFloat);

          gs_ts.Text:=FloatToStr(FieldByName('ts').AsFloat);
          gs_tsSd.Text:=FloatToStr(FieldByName('tsSd').AsFloat);
          gs_zwc.Text:=FloatToStr(FieldByName('zwc').AsFloat);
          gs_zsd.Text:=FloatToStr(FieldByName('zsd').AsFloat);
        end
        else
        begin
          gs_cpYd.Text:='';
          gs_cpHg.Text:='';
          gs_cpHy.Text:='';
          gs_cpLf.Text:='';
          gs_cpXj.Text:='';
          gs_cpSd.Text:='';

          gs_elCp.Text:='';
          gs_elCpSd.Text:='';

          gs_elfCp.Text:='';
          gs_elfCpSd.Text:='';

          gs_scRw.Text:='';
          gs_scRwSd.Text:='';

          gs_bcCp.Text:='';
          gs_bcCpSd.Text:='';

          gs_bcfCp.Text:='';
          gs_bcfCpSd.Text:='';

          gs_ssQq.Text:='';
          gs_ssTg.Text:='';
          gs_ssGf.Text:='';
          gs_ssXj.Text:='';

          gs_yb.Text:='';
          gs_tx.Text:='';
          gs_jb.Text:='';

          gs_ts.Text:='';
          gs_tsSd.Text:='';
          gs_zwc.Text:='';
          gs_zsd.Text:='';
        end;
      end;
  end
  else
  if RadioGroup1.ItemIndex=1 then
  begin
  with dm.Qytemp2 do
    begin
      close;
      CommandText:='SELECT * FROM dwMonthGs where dwID=:dwID and GsTime=:GsTime';
      Parameters.ParamByName('dwID').Value:=trim(ComboBox1.Text);
      Parameters.ParamByName('GsTime').Value:=trim(gs_GsTime.Text);
      open;
      if (RecordCount>0)then
      begin
        gs_cpYd.Text:=FloatToStr(FieldByName('cpYd').AsFloat);
        gs_cpHg.Text:=FloatToStr(FieldByName('cpHg').AsFloat);
        gs_cpHy.Text:=FloatToStr(FieldByName('cpHy').AsFloat);
        gs_cpLf.Text:=FloatToStr(FieldByName('cpLf').AsFloat);
        gs_cpXj.Text:=FloatToStr(FieldByName('cpXj').AsFloat);
        gs_cpSd.Text:=FloatToStr(FieldByName('cpSd').AsFloat);

        gs_elCp.Text:=FloatToStr(FieldByName('elCp').AsFloat);
        gs_elCpSd.Text:=FloatToStr(FieldByName('elCpSd').AsFloat);

        gs_elfCp.Text:=FloatToStr(FieldByName('elfCp').AsFloat);
        gs_elfCpSd.Text:=FloatToStr(FieldByName('elfCpSd').AsFloat);

        gs_scRw.Text:=FloatToStr(FieldByName('scRw').AsFloat);
        gs_scRwSd.Text:=FloatToStr(FieldByName('scRwSd').AsFloat);

        gs_bcCp.Text:=FloatToStr(FieldByName('bcCp').AsFloat);
        gs_bcCpSd.Text:=FloatToStr(FieldByName('bcCpSd').AsFloat);

        gs_bcfCp.Text:=FloatToStr(FieldByName('bcfCp').AsFloat);
        gs_bcfCpSd.Text:=FloatToStr(FieldByName('bcfCpSd').AsFloat);

        gs_ssQq.Text:=FloatTostr(FieldByName('ssQq').AsFloat);
        gs_ssTg.Text:=FloatToStr(FieldByName('ssTg').AsFloat);
        gs_ssGf.Text:=FloatToStr(FieldByName('ssGf').AsFloat);
        gs_ssXj.Text:=FloatToStr(FieldByName('ssXj').AsFloat);

        gs_yb.Text:=FloatToStr(FieldByName('yb').AsFloat);
        gs_tx.Text:=FloatToStr(FieldByName('tx').AsFloat);
        gs_jb.Text:=FloatToStr(FieldByName('jb').AsFloat);

        gs_ts.Text:=FloatToStr(FieldByName('ts').AsFloat);
        gs_tsSd.Text:=FloatToStr(FieldByName('tsSd').AsFloat);
        gs_zwc.Text:=FloatToStr(FieldByName('zwc').AsFloat);
        gs_zsd.Text:=FloatToStr(FieldByName('zsd').AsFloat);
      end
      else
      begin
        gs_cpYd.Text:='';
        gs_cpHg.Text:='';
        gs_cpHy.Text:='';
        gs_cpLf.Text:='';
        gs_cpXj.Text:='';
        gs_cpSd.Text:='';

        gs_elCp.Text:='';
        gs_elCpSd.Text:='';

        gs_elfCp.Text:='';
        gs_elfCpSd.Text:='';

        gs_scRw.Text:='';
        gs_scRwSd.Text:='';

        gs_bcCp.Text:='';
        gs_bcCpSd.Text:='';

        gs_bcfCp.Text:='';
        gs_bcfCpSd.Text:='';

        gs_ssQq.Text:='';
        gs_ssTg.Text:='';
        gs_ssGf.Text:='';
        gs_ssXj.Text:='';

        gs_yb.Text:='';
        gs_tx.Text:='';
        gs_jb.Text:='';

        gs_ts.Text:='';
        gs_tsSd.Text:='';
        gs_zwc.Text:='';
        gs_zsd.Text:='';
      end;
    end;
  end;
end;

procedure TgssrForm.gs_GsTimeKeyPress(Sender: TObject; var Key: Char);
begin
  if(Key=#13)then
    gs_GsTimeExit(Sender);
end;

end.
1234

⌨️ 快捷键说明

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