u_qtxx.pas

来自「人事管理程序源码」· PAS 代码 · 共 1,179 行 · 第 1/3 页

PAS
1,179 行
字号
123
    commandtext:='select * from poqk where (zgbh=:bh)';
    Parameters.ParamByName('bh').Value:=Form_dasjlr.xd_zgbh;
    open;
    if recordcount=0 then
       begin
         append;
         fieldbyname('zgbh').AsInteger:=Form_dasjlr.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.xd_zgbh;
    open;
    first;
  end;
  form_dasjlr.FillTocomboBox(cx_gzjl_zw,'职务',0);
  form_dasjlr.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.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;
  if form_dasjlr.RadioButton1.Checked then
     begin
       PopupMenu_gzjl.AutoPopup:=false;
       PopupMenu_xxjl.AutoPopup:=false;
       PopupMenu_psjl.AutoPopup:=false;
       PopupMenu_gztz.AutoPopup:=false;
       PopupMenu_jxjy.AutoPopup:=false;
       PopupMenu_jfjl.AutoPopup:=false;
       PopupMenu_shgx.AutoPopup:=false;
       PopupMenu_poqk.AutoPopup:=false;
     end
  else
     begin
       PopupMenu_gzjl.AutoPopup:=true;
       PopupMenu_xxjl.AutoPopup:=true;
       PopupMenu_psjl.AutoPopup:=true;
       PopupMenu_gztz.AutoPopup:=true;
       PopupMenu_jxjy.AutoPopup:=true;
       PopupMenu_jfjl.AutoPopup:=true;
       PopupMenu_shgx.AutoPopup:=true;
       PopupMenu_poqk.AutoPopup:=true;
     end;
end;

procedure TForm_qtxx.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.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.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.N2Click(Sender: TObject);
begin
  czfs:=2;
  with gzda_dm.ADODataSet2 do begin
    if recordcount=0 then abort; 
    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.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
     begin
       Key := #0;
       Perform(WM_NEXTDLGCTL,0,0);
     end;
end;

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

procedure TForm_qtxx.N3Click(Sender: TObject);
begin
  if gzda_dm.ADODataSet2.RecordCount=0 then abort;
  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.N4Click(Sender: TObject);
begin
  gzda_dm.ADODataSet2.UpdateBatch(arALL);
  showmessage('数据已被存盘！！');
end;

procedure TForm_qtxx.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.BitBtn5Click(Sender: TObject);
begin
  with gzda_dm.ADODataSet3 do begin
    if czfs=1 then
       append
    else
       edit;
    fieldbyname('zgbh').AsInteger:=form_dasjlr.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.BitBtn6Click(Sender: TObject);
begin
   dbgrid2.Refresh ;
   dbgrid2.SetFocus;
   panel14.Visible:=false;
end;

procedure TForm_qtxx.N6Click(Sender: TObject);
begin
  czfs:=2;
  with gzda_dm.ADODataSet3 do begin
    if recordcount=0 then abort;
    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.N7Click(Sender: TObject);
begin
  if gzda_dm.ADODataSet3.RecordCount=0 then abort;
  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.N8Click(Sender: TObject);
begin
  gzda_dm.ADODataSet3.UpdateBatch(arALL);
  showmessage('数据已被存盘！！');
end;

procedure TForm_qtxx.TabSheet9Show(Sender: TObject);
begin
  gzda_dm.ADODataSet2.UpdateBatch(arALL);
  gzda_dm.ADODataSet3.UpdateBatch(arALL);
  gzda_dm.ADODataSet4.UpdateBatch(arALL);
  gzda_dm.ADODataSet5.UpdateBatch(arALL);
  gzda_dm.ADODataSet6.UpdateBatch(arALL);
  gzda_dm.ADODataSet7.UpdateBatch(arALL);
  if  (Form_dasjlr.RadioButton2.Checked) or (Form_dasjlr.RadioButton3.Checked) then
      with gzda_dm.ADODataSet5 do begin
        last;
        Form_dasjlr.cx_gzze.Text:=fieldbyname('gzze').AsString;
        Form_dasjlr.cx_gzze.Refresh;
        Form_dasjlr.cx_gzdc.Text:=fieldbyname('gzdc').AsString;
        Form_dasjlr.cx_gzdc.Refresh;
      end;
  with gzda_dm.ADODataSet8 do begin
    edit;
    fieldbyname('csrq').AsString:=datetostr(cx_poqk_csrq.date);
    fieldbyname('gzsj').AsString:=datetostr(cx_poqk_gzsj.date);
    post;
    UpdateBatch(arALL);
  end;
  gzda_dm.ADODataSet9.UpdateBatch(arALL);
  close;
end;

procedure TForm_qtxx.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.N10Click(Sender: TObject);
begin
  czfs:=2;
  with gzda_dm.ADODataSet4 do begin
    if recordcount=0 then abort;
    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.N11Click(Sender: TObject);
begin
  if gzda_dm.ADODataSet4.RecordCount=0 then abort;
  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.N12Click(Sender: TObject);
begin
  gzda_dm.ADODataSet4.UpdateBatch(arALL);
  showmessage('数据已被存盘！！');
end;

procedure TForm_qtxx.BitBtn1Click(Sender: TObject);
begin
  with gzda_dm.ADODataSet4 do begin
    if czfs=1 then
       append
    else
       edit;
    fieldbyname('zgbh').AsInteger:=form_dasjlr.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_zcpp_bz.Text;
    post;
    dbgrid3.Refresh ;
    dbgrid3.SetFocus;
    panel16.Visible:=false;
  end;
end;
//==
procedure TForm_qtxx.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_gztz_zwgzKeyPress(Sender: TObject; var Key: Char);
begin
  Num_check(key,Sender as Tedit); //数字校验
end;

procedure TForm_qtxx.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_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_gztz_gzdcExit(Sender: TObject);
begin
  cx_gztz_zwgz.SetFocus;
end;

procedure TForm_qtxx.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';
123

u_qtxx.pas - 源码说明

本页面展示了「人事管理程序源码」中的 u_qtxx.pas 源码文件，采用 PAS 编程语言编写，共 1,179 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与程序源码相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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