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

📄 u_qtxx_cx.pas

📁 人事管理程序源码
💻 PAS
📖 第 1 页 / 共 3 页
字号:
🔍
123 
  with gzda_dm.ADODataSet6 do begin  //打开工作经历
    if active then active:=false;
    commandtext:='select * from jxjy where (zgbh=:bh) order by qssj';
    Parameters.ParamByName('bh').Value:=Form_dasjlr_cx.xd_zgbh;
    open;
    first;
  end;

  with gzda_dm.ADODataSet7 do begin  //打开工作经历
    if active then active:=false;
    commandtext:='select * from jfjl where (zgbh=:bh) order by rq';
    Parameters.ParamByName('bh').Value:=Form_dasjlr_cx.xd_zgbh;
    open;
    first;
  end;

  with gzda_dm.ADODataSet8 do begin  //打开工作经历
    if active then active:=false;
    commandtext:='select * from poqk where (zgbh=:bh)';
    Parameters.ParamByName('bh').Value:=Form_dasjlr_cx.xd_zgbh;
    open;
    if recordcount=0 then
       begin
         append;
         fieldbyname('zgbh').AsInteger:=Form_dasjlr_cx.xd_zgbh;
         post;
       end;
    first;
    cx_poqk_csrq.Date:=fieldbyname('csrq').AsDateTime;
    cx_poqk_gzsj.Date:=fieldbyname('gzsj').AsDateTime;
  end;

  with gzda_dm.ADODataSet9 do begin  //打开工作经历
    if active then active:=false;
    commandtext:='select * from shgx where (zgbh=:bh)';
    Parameters.ParamByName('bh').Value:=Form_dasjlr_cx.xd_zgbh;
    open;
    first;
  end;
  form_dasjlr_cx.FillTocomboBox(cx_gzjl_zw,'职务',0);
  form_dasjlr_cx.FillTocomboBox(cx_zcpp_zc,'职称(技术等级)',0);

  FillToDbcomboBox(cx_poqk_mz,'民族',0);
  FillToDbcomboBox(cx_poqk_xl,'学历',0);
  FillToDbcomboBox(cx_poqk_zyjszw,'职称(技术等级)',0);
  FillToDbcomboBox(cx_poqk_zw,'职务',0);
  form_dasjlr_cx.FillTocomboBox(cx_shgx_shgx,'社会关系',0);
  cx_gzjl_qssj.Date:=now;
  cx_gzjl_zzsj.Date:=now;
  cx_zcpp_pssj.Date:=now;
  cx_zcpp_prsj.Date:=now;
end;

procedure TForm_qtxx_cx.N1Click(Sender: TObject);
begin
  czfs:=1;
  cx_gzjl_qssj.Date:=now;
  cx_gzjl_zzsj.Date:=now;
  cx_gzjl_gzdw.Text:='';
  cx_gzjl_zw.Text:='';
  cx_gzjl_zmr.Text:='';
  cx_gzjl_bz.Text:='';
  panel12.Visible :=true;
  panel12.Refresh ;
  cx_gzjl_qssj.SetFocus;
end;

procedure TForm_qtxx_cx.BitBtn3Click(Sender: TObject);
begin
   if (yearof(cx_gzjl_qssj.Date)<=1900) then
      begin
        showmessage('起始时间输入有误!!');
        cx_gzjl_qssj.SetFocus;
        exit;
      end;
   if (yearof(cx_gzjl_zzsj.Date)<=1900) then
       begin
         showmessage('终止时间输入有误!!');
         cx_gzjl_zzsj.SetFocus;
         exit;
       end;
  with gzda_dm.ADODataSet2 do begin
    if czfs=1 then
       append
    else
       edit;
    fieldbyname('zgbh').AsInteger:=form_dasjlr_cx.xd_zgbh;
    fieldbyname('qssj').AsString:=datetostr(cx_gzjl_qssj.Date);
    fieldbyname('zzsj').AsString:=datetostr(cx_gzjl_zzsj.Date);
    fieldbyname('gzdw').AsString:=cx_gzjl_gzdw.Text;
    fieldbyname('zw').AsString:=cx_gzjl_zw.Text;
    fieldbyname('zmr').AsString:=cx_gzjl_zmr.Text;
    fieldbyname('bz').AsString:=cx_gzjl_bz.Text;
    post;
    dbgrid1.Refresh ;
    dbgrid1.SetFocus;
    panel12.Visible:=false;
  end;
end;

procedure TForm_qtxx_cx.N2Click(Sender: TObject);
begin
  czfs:=2;
  with gzda_dm.ADODataSet2 do begin
    cx_gzjl_qssj.Date:=fieldbyname('qssj').AsDateTime;
    cx_gzjl_zzsj.Date:=fieldbyname('zzsj').AsDateTime;
    cx_gzjl_gzdw.Text:=fieldbyname('gzdw').AsString;
    cx_gzjl_zw.Text:=fieldbyname('zw').AsString;
    cx_gzjl_zmr.Text:=fieldbyname('zmr').AsString;
    cx_gzjl_bz.Text:=fieldbyname('bz').AsString;
  end;
  panel12.Visible:=true;
  panel12.Refresh;
  cx_gzjl_qssj.SetFocus;
end;

procedure TForm_qtxx_cx.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
     begin
       Key := #0;
       Perform(WM_NEXTDLGCTL,0,0);
     end;
end;

procedure TForm_qtxx_cx.BitBtn4Click(Sender: TObject);
begin
   dbgrid1.Refresh ;
   dbgrid1.SetFocus;
   panel12.Visible:=false;
end;

procedure TForm_qtxx_cx.N3Click(Sender: TObject);
begin
  if Application.MessageBox('确实要删除本条记录吗?','提示',MB_YesNO+ MB_DEFBUTTON2) <> IDYes then
     Abort;
  with gzda_dm.ADODataSet2 do begin
    delete;
  end;
  dbgrid1.Refresh;
  dbgrid1.SetFocus;
end;

procedure TForm_qtxx_cx.N4Click(Sender: TObject);
begin
  gzda_dm.ADODataSet2.UpdateBatch(arALL);
  showmessage('数据已被存盘！！');
end;

procedure TForm_qtxx_cx.N5Click(Sender: TObject);
begin
  czfs:=1;
  cx_xxjl_qssj.Date:=now;
  cx_xxjl_zzsj.Date:=now;
  cx_xxjl_byxx.Text:='';
  cx_xxjl_zy.Text:='';
  cx_xxjl_zmr.Text:='';
  cx_xxjl_bz.Text:='';
  panel14.Visible :=true;
  panel14.Refresh ;
  cx_xxjl_qssj.SetFocus;
end;

procedure TForm_qtxx_cx.BitBtn5Click(Sender: TObject);
begin
  with gzda_dm.ADODataSet3 do begin
    if czfs=1 then
       append
    else
       edit;
    fieldbyname('zgbh').AsInteger:=form_dasjlr_cx.xd_zgbh;
    fieldbyname('qssj').AsString:=datetostr(cx_xxjl_qssj.Date);
    fieldbyname('zzsj').AsString:=datetostr(cx_xxjl_zzsj.Date);
    fieldbyname('byxx').AsString:=cx_xxjl_byxx.Text;
    fieldbyname('zy').AsString:=cx_xxjl_zy.Text;
    fieldbyname('zmr').AsString:=cx_xxjl_zmr.Text;
    fieldbyname('bz').AsString:=cx_xxjl_bz.Text;
    post;
    dbgrid2.Refresh ;
    dbgrid2.SetFocus;
    panel14.Visible:=false;
  end;

end;

procedure TForm_qtxx_cx.BitBtn6Click(Sender: TObject);
begin
   dbgrid2.Refresh ;
   dbgrid2.SetFocus;
   panel14.Visible:=false;
end;

procedure TForm_qtxx_cx.N6Click(Sender: TObject);
begin
  czfs:=2;
  with gzda_dm.ADODataSet3 do begin
    cx_xxjl_qssj.Date:=fieldbyname('qssj').AsDateTime;
    cx_xxjl_zzsj.Date:=fieldbyname('zzsj').AsDateTime;
    cx_xxjl_byxx.Text:=fieldbyname('byxx').AsString;
    cx_xxjl_zy.Text:=fieldbyname('zy').AsString;
    cx_xxjl_zmr.Text:=fieldbyname('zmr').AsString;
    cx_xxjl_bz.Text:=fieldbyname('bz').AsString;
  end;
  panel14.Visible:=true;
  panel14.Refresh;
  cx_xxjl_qssj.SetFocus;
end;

procedure TForm_qtxx_cx.N7Click(Sender: TObject);
begin
  if Application.MessageBox('确实要删除本条记录吗?','提示',MB_YesNO+ MB_DEFBUTTON2) <> IDYes then
     Abort;
  with gzda_dm.ADODataSet3 do begin
    delete;
  end;
  dbgrid2.Refresh;
  dbgrid2.SetFocus;
end;

procedure TForm_qtxx_cx.N8Click(Sender: TObject);
begin
  gzda_dm.ADODataSet3.UpdateBatch(arALL);
  showmessage('数据已被存盘！！');
end;

procedure TForm_qtxx_cx.TabSheet9Show(Sender: TObject);
begin
  close;
end;

procedure TForm_qtxx_cx.N9Click(Sender: TObject);
begin
  czfs:=1;
  cx_zcpp_zc.text:='';
  cx_zcpp_psjg.Text:='';
  cx_zcpp_pssj.date:=now;
  cx_zcpp_zgzsbh.Text:='';
  cx_zcpp_prjg.Text:='';
  cx_zcpp_prsj.date:=now;
  cx_zcpp_bz.Text:='';
  panel16.Visible :=true;
  panel16.Refresh ;
  cx_zcpp_zc.SetFocus;
end;

procedure TForm_qtxx_cx.N10Click(Sender: TObject);
begin
  czfs:=2;
  with gzda_dm.ADODataSet4 do begin
    cx_zcpp_zc.text:=fieldbyname('zc').Asstring;
    cx_zcpp_psjg.text:=fieldbyname('psjg').Asstring;
    cx_zcpp_pssj.Date:=fieldbyname('pssj').AsDateTime;
    cx_zcpp_zgzsbh.Text:=fieldbyname('zgzsbh').AsString;
    cx_zcpp_prjg.Text:=fieldbyname('prjg').AsString;
    cx_zcpp_prsj.Date:=fieldbyname('prsj').AsDateTime;
    cx_zcpp_bz.Text:=fieldbyname('bz').AsString;
  end;
  panel16.Visible:=true;
  panel16.Refresh;
  cx_zcpp_zc.SetFocus;
end;

procedure TForm_qtxx_cx.N11Click(Sender: TObject);
begin
  if Application.MessageBox('确实要删除本条记录吗?','提示',MB_YesNO+ MB_DEFBUTTON2) <> IDYes then
     Abort;
  with gzda_dm.ADODataSet4 do begin
    delete;
  end;
  dbgrid3.Refresh;
  dbgrid3.SetFocus;
end;

procedure TForm_qtxx_cx.N12Click(Sender: TObject);
begin
  gzda_dm.ADODataSet4.UpdateBatch(arALL);
  showmessage('数据已被存盘！！');
end;

procedure TForm_qtxx_cx.BitBtn1Click(Sender: TObject);
begin
  with gzda_dm.ADODataSet4 do begin
    if czfs=1 then
       append
    else
       edit;
    fieldbyname('zgbh').AsInteger:=form_dasjlr_cx.xd_zgbh;
    fieldbyname('zc').AsString:=cx_zcpp_zc.Text;
    fieldbyname('psjg').AsString:=cx_zcpp_psjg.Text;
    fieldbyname('pssj').AsString:=datetostr(cx_zcpp_pssj.Date);
    fieldbyname('zgzsbh').AsString:=cx_zcpp_zgzsbh.Text;
    fieldbyname('prjg').AsString:=cx_zcpp_prjg.Text;
    fieldbyname('prsj').AsString:=datetostr(cx_zcpp_prsj.Date);
    fieldbyname('bz').AsString:=cx_xxjl_bz.Text;
    post;

    dbgrid3.Refresh ;
    dbgrid3.SetFocus;
    panel16.Visible:=false;
  end;
end;
//==
procedure TForm_qtxx_cx.Num_check(Var key:char;Sender:Tedit);
begin
  if not (key in ['0'..'9',#13,#8,'-','.']) then
     begin
       key:=#0;
       abort;
     end;
  if (key='.') and (pos('.',Sender.Text)<>0)  then
     begin
       key:=#0;
       abort;
     end;
  if (key='-') and (pos('-',Sender.Text)<>0)  then
     begin
       key:=#0;
       abort;
     end;
 if (key='-') and not ((Sender.Text='0') or (Sender.Text='0.00') or (Sender.Text=''))  then
     begin
       key:=#0;
       abort;
     end;
 end;
 //==
procedure TForm_qtxx_cx.cx_gztz_zwgzKeyPress(Sender: TObject; var Key: Char);
begin
  Num_check(key,Sender as Tedit); //数字校验
end;

procedure TForm_qtxx_cx.jshj;
var
  gzhj:real;
begin
  gzhj:=strtofloat(cx_gztz_zwgz.text)+strtofloat(cx_gztz_gwbt.text)+strtofloat(cx_gztz_zwbt.text)+strtofloat(cx_gztz_flbt.text)+strtofloat(cx_gztz_zfbt.text)+strtofloat(cx_gztz_qt.text);
  cx_gztz_gzze.Text:=Format('%10.2f',[gzhj]);
  cx_gztz_gzze.Refresh ;
end;

procedure TForm_qtxx_cx.cx_gztz_zwgzExit(Sender: TObject);
var
  kj_edit:Tedit;
begin
   kj_edit:=Sender as Tedit;
   if kj_edit.Text='' then kj_edit.Text:='0.00';
   jshj;  //计算合计
end;

procedure TForm_qtxx_cx.cx_gztz_gzdcExit(Sender: TObject);
begin
  cx_gztz_zwgz.SetFocus;
end;

procedure TForm_qtxx_cx.N13Click(Sender: TObject);
begin
  czfs:=1;
  cx_gztz_tzsj.Date:=now;
  cx_gztz_tzyj.Text:='';
  cx_gztz_gzdc.Text:='';
  cx_gztz_gzze.Text:='0.00';
  cx_gztz_zwgz.Text:='0.00';
  cx_gztz_gwbt.Text:='0.00';
  cx_gztz_zwbt.Text:='0.00';
  cx_gztz_flbt.Text:='0.00';
  cx_gztz_zfbt.Text:='0.00';
  cx_gztz_qt.Text:='0.00';
  panel18.Visible :=true;
  panel18.Refresh ;
  cx_gztz_tzsj.SetFocus;
end;

procedure TForm_qtxx_cx.N14Click(Sender: TObject);
begin
  czfs:=2;
123

⌨️ 快捷键说明

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