u_qtxx_cx.pas

人事管理程序源码

  with gzda_dm.ADODataSet5 do begin
    cx_gztz_tzsj.Date:=fieldbyname('tzsj').AsDateTime;
    cx_gztz_tzyj.Text:=fieldbyname('tzyj').AsString;
    cx_gztz_gzdc.Text:=fieldbyname('gzdc').AsString;;
    cx_gztz_gzze.Text:=fieldbyname('gzze').AsString;;
    cx_gztz_zwgz.Text:=fieldbyname('zwgz').AsString;
    cx_gztz_gwbt.Text:=fieldbyname('gwbt').AsString;
    cx_gztz_zwbt.Text:=fieldbyname('zwbt').AsString;
    cx_gztz_flbt.Text:=fieldbyname('flbt').AsString;
    cx_gztz_zfbt.Text:=fieldbyname('zfbt').AsString;
    cx_gztz_qt.Text:=fieldbyname('qt').AsString;
    cx_gztz_bz.Text:=fieldbyname('bz').AsString;
  end;
  panel18.Visible:=true;
  panel18.Refresh;
  cx_gztz_tzsj.SetFocus;
end;

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

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

procedure TForm_qtxx_cx.BitBtn7Click(Sender: TObject);
begin
  with gzda_dm.ADODataSet5 do begin
    if czfs=1 then
       append
    else
       edit;
    fieldbyname('zgbh').AsInteger:=form_dasjlr_cx.xd_zgbh;   
    fieldbyname('tzsj').Asstring:=datetostr(cx_gztz_tzsj.Date);
    fieldbyname('tzyj').AsString:=cx_gztz_tzyj.Text;
    fieldbyname('gzdc').AsString:=cx_gztz_gzdc.Text;
    fieldbyname('gzze').AsString:=cx_gztz_gzze.Text;
    fieldbyname('zwgz').AsString:=cx_gztz_zwgz.Text;
    fieldbyname('gwbt').AsString:=cx_gztz_gwbt.Text;
    fieldbyname('zwbt').AsString:=cx_gztz_zwbt.Text;
    fieldbyname('flbt').AsString:=cx_gztz_flbt.Text;
    fieldbyname('zfbt').AsString:=cx_gztz_zfbt.Text;
    fieldbyname('qt').AsString:=cx_gztz_qt.Text;
    fieldbyname('bz').AsString:=cx_gztz_bz.Text;
    post;
    dbgrid4.Refresh ;
    dbgrid4.SetFocus;
    panel18.Visible:=false;
  end;
end;

procedure TForm_qtxx_cx.BitBtn8Click(Sender: TObject);
begin
   dbgrid4.Refresh ;
   dbgrid4.SetFocus;
   panel18.Visible:=false;
end;

procedure TForm_qtxx_cx.N17Click(Sender: TObject);
begin
  czfs:=1;
  cx_jxjy_qssj.Date:=now;
  cx_jxjy_zzsj.Date:=now;
  cx_jxjy_zbdw.Text:='';
  cx_jxjy_xxxs.Text:='';
  cx_jxjy_xxnr.Text:='';
  cx_jxjy_bz.Text:='';
  panel20.Visible :=true;
  panel20.Refresh ;
  cx_jxjy_qssj.SetFocus;
end;

procedure TForm_qtxx_cx.N18Click(Sender: TObject);
begin
  czfs:=2;
  with gzda_dm.ADODataSet2 do begin
    cx_jxjy_qssj.Date:=fieldbyname('qssj').AsDateTime;
    cx_jxjy_zzsj.Date:=fieldbyname('zzsj').AsDateTime;
    cx_jxjy_zbdw.Text:=fieldbyname('zbdw').AsString;
    cx_jxjy_xxxs.Text:=fieldbyname('xxxs').AsString;
    cx_jxjy_xxnr.Text:=fieldbyname('xxnr').AsString;
    cx_jxjy_bz.Text:=fieldbyname('bz').AsString;
  end;
  panel20.Visible:=true;
  panel20.Refresh;
  cx_jxjy_qssj.SetFocus;
end;

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

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

procedure TForm_qtxx_cx.BitBtn9Click(Sender: TObject);
begin
  with gzda_dm.ADODataSet6 do begin
    if czfs=1 then
       append
    else
       edit;
    fieldbyname('zgbh').AsInteger:=form_dasjlr_cx.xd_zgbh;
    fieldbyname('qssj').AsString:=datetostr(cx_jxjy_qssj.Date);
    fieldbyname('zzsj').AsString:=datetostr(cx_jxjy_zzsj.Date);
    fieldbyname('zbdw').AsString:=cx_jxjy_zbdw.Text;
    fieldbyname('xxxs').AsString:=cx_jxjy_xxxs.Text;
    fieldbyname('xxnr').AsString:=cx_jxjy_xxnr.Text;
    fieldbyname('bz').AsString:=cx_jxjy_bz.Text;
    post;
    dbgrid5.Refresh ;
    dbgrid5.SetFocus;
    panel20.Visible:=false;
  end;

end;

procedure TForm_qtxx_cx.BitBtn10Click(Sender: TObject);
begin
   dbgrid5.Refresh ;
   dbgrid5.SetFocus;
   panel20.Visible:=false;
end;

procedure TForm_qtxx_cx.N21Click(Sender: TObject);
begin
  czfs:=1;
  cx_jfjl_rq.Date:=now;
  cx_jfjl_yy.Text:='';
  cx_jfjl_sydw.Text:='';
  cx_jfjl_mc.Text:='';
  cx_jfjl_jb.Text:='';
  cx_jfjl_bz.Text:='';
  panel2.Visible :=true;
  panel2.Refresh ;
  cx_jfjl_rq.SetFocus;
end;

procedure TForm_qtxx_cx.N22Click(Sender: TObject);
begin
  czfs:=2;
  with gzda_dm.ADODataSet7 do begin
    cx_jfjl_rq.Date:=fieldbyname('rq').AsDateTime;
    cx_jfjl_yy.text:=fieldbyname('yy').Asstring;
    cx_jfjl_sydw.Text:=fieldbyname('sydw').AsString;
    cx_jfjl_mc.Text:=fieldbyname('mc').AsString;
    cx_jfjl_jb.Text:=fieldbyname('jb').AsString;
    cx_jfjl_bz.Text:=fieldbyname('bz').AsString;
  end;
  panel2.Visible:=true;
  panel2.Refresh;
  cx_jfjl_rq.SetFocus;
end;

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

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

procedure TForm_qtxx_cx.BitBtn11Click(Sender: TObject);
begin
  with gzda_dm.ADODataSet7 do begin
    if czfs=1 then
       append
    else
       edit;
    fieldbyname('zgbh').AsInteger:=form_dasjlr_cx.xd_zgbh;
    fieldbyname('rq').AsString:=datetostr(cx_jfjl_rq.Date);
    fieldbyname('yy').AsString:=cx_jfjl_yy.text;
    fieldbyname('sydw').AsString:=cx_jfjl_sydw.Text;
    fieldbyname('mc').AsString:=cx_jfjl_mc.Text;
    fieldbyname('jb').AsString:=cx_jfjl_jb.Text;
    fieldbyname('bz').AsString:=cx_jfjl_bz.Text;
    post;
    dbgrid6.Refresh ;
    dbgrid6.SetFocus;
    panel2.Visible:=false;
  end;

end;

procedure TForm_qtxx_cx.BitBtn12Click(Sender: TObject);
begin
   dbgrid6.Refresh ;
   dbgrid6.SetFocus;
   panel2.Visible:=false;
end;

procedure TForm_qtxx_cx.FillToDBcomboBox(Sender: TDbcomboBox;nr_str:string;bz:integer); //给组合框添加内容
var
  hh:string;
begin
  with gzda_dm.ADODataSet10 do begin
    if active then active:=false;
    commandtext:='select  sj.bh,sj.mc,sj.fzsjxmbh from fzsj sj,fzsjxm xm where (sj.fzsjxmbh=xm.fzsjxmbh) and (xm.mc=:cx_mc) order by sj.bh';
    Parameters.ParamByName('cx_mc').Value:=nr_str;
    open;
    first;
    sender.Items.Clear;
    while not eof do begin
      if bz=1 then
         begin
           if fieldbyname('bh').AsInteger <10 then
              hh:='0'+fieldbyname('bh').AsString+'.'
           else
              hh:=fieldbyname('bh').AsString+'.';
         end
      else
         hh:='';
      sender.Items.Add(hh+fieldbyname('mc').AsString);
      next;
    end;
    sender.ItemIndex:=0;
    close;
  end;
end;

procedure TForm_qtxx_cx.N25Click(Sender: TObject);
begin
  czfs:=1;
  cx_shgx_shgx.text:='';
  cx_shgx_xm.text:='';
  cx_shgx_gzdw.Text:='';
  cx_shgx_csrq.Date:=now;
  cx_shgx_zw.Text:='';
  cx_shgx_bz.Text:='';
  panel23.Visible :=true;
  panel23.Refresh ;
  cx_shgx_shgx.SetFocus;
end;

procedure TForm_qtxx_cx.N26Click(Sender: TObject);
begin
  czfs:=2;
  with gzda_dm.ADODataSet9 do begin
    cx_shgx_shgx.text:=fieldbyname('shgx').AsString;
    cx_shgx_xm.text:=fieldbyname('xm').Asstring;
    cx_shgx_gzdw.text:=fieldbyname('gzdw').Asstring;
    cx_shgx_csrq.date:=fieldbyname('csrq').AsDateTime;
    cx_shgx_zw.Text:=fieldbyname('zw').AsString;
    cx_shgx_bz.Text:=fieldbyname('bz').AsString;
  end;
  panel23.Visible:=true;
  panel23.Refresh;
  cx_shgx_shgx.SetFocus;
end;

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

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

procedure TForm_qtxx_cx.BitBtn13Click(Sender: TObject);
begin
  with gzda_dm.ADODataSet9 do begin
    if czfs=1 then
       append
    else
       edit;
    fieldbyname('zgbh').AsInteger:=form_dasjlr_cx.xd_zgbh;
    fieldbyname('shgx').AsString:=cx_shgx_shgx.Text;
    fieldbyname('xm').AsString:=cx_shgx_xm.Text;
    fieldbyname('csrq').AsString:=datetostr(cx_shgx_csrq.date);
    fieldbyname('gzdw').AsString:=cx_shgx_gzdw.Text;
    fieldbyname('zw').AsString:=cx_shgx_zw.Text;
    fieldbyname('bz').AsString:=cx_shgx_bz.Text;
    post;
    dbgrid7.Refresh ;
    dbgrid7.SetFocus;
    panel23.Visible:=false;
  end;

end;

procedure TForm_qtxx_cx.BitBtn14Click(Sender: TObject);
begin
  dbgrid7.Refresh ;
  dbgrid7.SetFocus;
  panel23.Visible:=false;
end;

procedure TForm_qtxx_cx.cx_poqk_csrqKeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0'..'9',#13,#8,'-']) then
     begin
       key:=#0;
       abort;
     end;
end;

procedure TForm_qtxx_cx.N29Click(Sender: TObject);
begin
  cx_poqk_xm.Enabled :=true;
  cx_poqk_xb.Enabled:=true;
  cx_poqk_csrq.Enabled:=true;
  cx_poqk_mz.Enabled:=true;
  cx_poqk_jg.Enabled:=true;
  cx_poqk_xl.Enabled:=true;
  cx_poqk_byxx.Enabled:=true;
  cx_poqk_zy.Enabled:=true;
  cx_poqk_zyjszw.Enabled:=true;
  cx_poqk_gzsj.Enabled:=true;
  cx_poqk_dw.Enabled:=true;
  cx_poqk_zw.Enabled:=true;
  cx_poqk_bz.Enabled:=true;
  cx_poqk_xm.SetFocus;
end;

procedure TForm_qtxx_cx.TabSheet7Show(Sender: TObject);
begin
  cx_poqk_xm.Enabled :=false;
  cx_poqk_xb.Enabled:=false;
  cx_poqk_csrq.Enabled:=false;
  cx_poqk_mz.Enabled:=false;
  cx_poqk_jg.Enabled:=false;
  cx_poqk_xl.Enabled:=false;
  cx_poqk_byxx.Enabled:=false;
  cx_poqk_zy.Enabled:=false;
  cx_poqk_zyjszw.Enabled:=false;
  cx_poqk_gzsj.Enabled:=false;
  cx_poqk_dw.Enabled:=false;
  cx_poqk_zw.Enabled:=false;
  cx_poqk_bz.Enabled:=false;
end;

end.

.