u_qtxx_cx.pas

人事管理程序源码

unit U_qtxx_cx;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ExtCtrls, StdCtrls, Buttons, Grids, DBGrids, Menus,
  Mask, DBCtrls,DateUtils,ADODB;

type
  TForm_qtxx_cx = class(TForm)
    Panel1: TPanel;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    TabSheet5: TTabSheet;
    TabSheet6: TTabSheet;
    TabSheet7: TTabSheet;
    TabSheet8: TTabSheet;
    pagecontrol1: TPageControl;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    Panel7: TPanel;
    Panel8: TPanel;
    Panel9: TPanel;
    Panel10: TPanel;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    DBGrid3: TDBGrid;
    ScrollBox1: TScrollBox;
    Panel6: TPanel;
    Panel11: TPanel;
    DBGrid4: TDBGrid;
    Label1: TLabel;
    Label2: TLabel;
    Bevel1: TBevel;
    Bevel2: TBevel;
    Bevel3: TBevel;
    Label3: TLabel;
    Label4: TLabel;
    Bevel4: TBevel;
    Bevel5: TBevel;
    Label5: TLabel;
    Bevel6: TBevel;
    Label6: TLabel;
    Bevel7: TBevel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Bevel9: TBevel;
    Label10: TLabel;
    Bevel10: TBevel;
    Label11: TLabel;
    Label12: TLabel;
    Bevel11: TBevel;
    Bevel12: TBevel;
    DBGrid5: TDBGrid;
    DBGrid6: TDBGrid;
    DBGrid7: TDBGrid;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    PopupMenu_gzjl: TPopupMenu;
    PopupMenu_xxjl: TPopupMenu;
    PopupMenu_psjl: TPopupMenu;
    PopupMenu_gztz: TPopupMenu;
    PopupMenu_jxjy: TPopupMenu;
    PopupMenu_jfjl: TPopupMenu;
    PopupMenu_shgx: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    Panel12: TPanel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    Label30: TLabel;
    Label31: TLabel;
    cx_gzjl_qssj: TDateTimePicker;
    cx_gzjl_zzsj: TDateTimePicker;
    cx_gzjl_gzdw: TEdit;
    cx_gzjl_zw: TComboBox;
    cx_gzjl_zmr: TEdit;
    cx_gzjl_bz: TEdit;
    Panel13: TPanel;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    Panel14: TPanel;
    Label32: TLabel;
    Label33: TLabel;
    Label34: TLabel;
    Label35: TLabel;
    Label36: TLabel;
    Label37: TLabel;
    cx_xxjl_qssj: TDateTimePicker;
    cx_xxjl_zzsj: TDateTimePicker;
    cx_xxjl_byxx: TEdit;
    cx_xxjl_zmr: TEdit;
    cx_xxjl_bz: TEdit;
    Panel15: TPanel;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    cx_xxjl_zy: TEdit;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    TabSheet9: TTabSheet;
    Panel16: TPanel;
    Label38: TLabel;
    Label39: TLabel;
    Label40: TLabel;
    Label41: TLabel;
    Label42: TLabel;
    Label43: TLabel;
    cx_zcpp_prjg: TEdit;
    Panel17: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    cx_zcpp_zgzsbh: TEdit;
    cx_zcpp_zc: TComboBox;
    cx_zcpp_psjg: TEdit;
    cx_zcpp_pssj: TDateTimePicker;
    cx_zcpp_prsj: TDateTimePicker;
    Label44: TLabel;
    cx_zcpp_bz: TEdit;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    Panel18: TPanel;
    Panel19: TPanel;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    Label45: TLabel;
    cx_gztz_tzsj: TDateTimePicker;
    Label46: TLabel;
    cx_gztz_tzyj: TEdit;
    Label47: TLabel;
    cx_gztz_gzdc: TEdit;
    GroupBox1: TGroupBox;
    Label48: TLabel;
    cx_gztz_gzze: TEdit;
    Label49: TLabel;
    Label50: TLabel;
    Label51: TLabel;
    cx_gztz_zwgz: TEdit;
    cx_gztz_gwbt: TEdit;
    cx_gztz_zwbt: TEdit;
    Label52: TLabel;
    cx_gztz_flbt: TEdit;
    cx_gztz_zfbt: TEdit;
    Label53: TLabel;
    Label54: TLabel;
    cx_gztz_qt: TEdit;
    Label55: TLabel;
    cx_gztz_bz: TEdit;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    Panel20: TPanel;
    Label56: TLabel;
    Label57: TLabel;
    Label58: TLabel;
    Label59: TLabel;
    Label60: TLabel;
    Label61: TLabel;
    cx_jxjy_qssj: TDateTimePicker;
    cx_jxjy_zzsj: TDateTimePicker;
    cx_jxjy_zbdw: TEdit;
    cx_jxjy_xxnr: TEdit;
    cx_jxjy_bz: TEdit;
    Panel21: TPanel;
    BitBtn9: TBitBtn;
    BitBtn10: TBitBtn;
    cx_jxjy_xxxs: TEdit;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    Panel2: TPanel;
    Label62: TLabel;
    Label63: TLabel;
    Label64: TLabel;
    Label65: TLabel;
    Label66: TLabel;
    Label67: TLabel;
    cx_jfjl_rq: TDateTimePicker;
    cx_jfjl_sydw: TEdit;
    cx_jfjl_jb: TEdit;
    cx_jfjl_bz: TEdit;
    Panel22: TPanel;
    BitBtn12: TBitBtn;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    cx_jfjl_yy: TEdit;
    cx_jfjl_mc: TEdit;
    BitBtn11: TBitBtn;
    cx_poqk_xm: TDBEdit;
    cx_poqk_xb: TDBComboBox;
    cx_poqk_mz: TDBComboBox;
    cx_poqk_jg: TDBEdit;
    cx_poqk_xl: TDBComboBox;
    cx_poqk_byxx: TDBEdit;
    cx_poqk_zy: TDBEdit;
    cx_poqk_dw: TDBEdit;
    cx_poqk_zw: TDBComboBox;
    cx_poqk_bz: TDBEdit;
    cx_poqk_zyjszw: TDBComboBox;
    Panel23: TPanel;
    Label68: TLabel;
    Label69: TLabel;
    Label70: TLabel;
    Label71: TLabel;
    Label72: TLabel;
    Label73: TLabel;
    cx_shgx_zw: TEdit;
    cx_shgx_bz: TEdit;
    Panel24: TPanel;
    BitBtn13: TBitBtn;
    BitBtn14: TBitBtn;
    cx_shgx_xm: TEdit;
    cx_shgx_csrq: TDateTimePicker;
    cx_shgx_gzdw: TEdit;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    cx_shgx_shgx: TComboBox;
    cx_poqk_csrq: TDateTimePicker;
    cx_poqk_gzsj: TDateTimePicker;
    PopupMenu_poqk: TPopupMenu;
    N29: TMenuItem;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn4Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure TabSheet9Show(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Num_check(Var key:char;Sender:Tedit);
    procedure cx_gztz_zwgzKeyPress(Sender: TObject; var Key: Char);
    procedure cx_gztz_zwgzExit(Sender: TObject);
    procedure cx_gztz_gzdcExit(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure jshj;
    procedure N14Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure BitBtn11Click(Sender: TObject);
    procedure BitBtn12Click(Sender: TObject);
    procedure FillToDBcomboBox(Sender: TDbcomboBox;nr_str:string;bz:integer);
    procedure N25Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure N28Click(Sender: TObject);
    procedure BitBtn13Click(Sender: TObject);
    procedure BitBtn14Click(Sender: TObject);
    procedure cx_poqk_csrqKeyPress(Sender: TObject; var Key: Char);
    procedure N29Click(Sender: TObject);
    procedure TabSheet7Show(Sender: TObject); //给组合框添加内容

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_qtxx_cx: TForm_qtxx_cx;
  czfs:integer;
implementation

uses U_gzda_dm, U_dasjlr_cx, U_qtxx;

{$R *.dfm}

procedure TForm_qtxx_cx.BitBtn2Click(Sender: TObject);
begin
   dbgrid3.Refresh ;
   dbgrid3.SetFocus;
   panel16.Visible:=false;
end;

procedure TForm_qtxx_cx.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  gzda_dm.ADODataSet2.Close;
  gzda_dm.ADODataSet3.Close;
  gzda_dm.ADODataSet4.Close;
  gzda_dm.ADODataSet5.Close;
  gzda_dm.ADODataSet6.Close;
  gzda_dm.ADODataSet7.Close;
  gzda_dm.ADODataSet8.Close;
  gzda_dm.ADODataSet9.Close;
end;

procedure TForm_qtxx_cx.FormShow(Sender: TObject);
begin
  Form_qtxx_cx.Caption:=Form_dasjlr_cx.xd_zgxm+'--其它档案信息';
  with gzda_dm.ADODataSet2 do begin  //打开工作经历
    if active then active:=false;
    commandtext:='select * from gzjl where (zgbh=:bh) order by qssj';
    Parameters.ParamByName('bh').Value:=Form_dasjlr_cx.xd_zgbh;
    open;
    first;
  end;

  with gzda_dm.ADODataSet3 do begin  //打开学习经历
    if active then active:=false;
    commandtext:='select * from xxjl where (zgbh=:bh) order by qssj';
    Parameters.ParamByName('bh').Value:=Form_dasjlr_cx.xd_zgbh;
    open;
    first;
  end;

  with gzda_dm.ADODataSet4 do begin  //打开职称经历
    if active then active:=false;
    commandtext:='select * from zcprjl where (zgbh=:bh)';
    Parameters.ParamByName('bh').Value:=Form_dasjlr_cx.xd_zgbh;
    open;
    first;
  end;

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