u_dasjlr_cx.~pas

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

unit U_dasjlr_cx;

interface

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

type
  TForm_dasjlr_cx = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel6: TPanel;
    Panel8: TPanel;
    DBGrid1: TDBGrid;
    Panel9: TPanel;
    Panel4: TPanel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label8: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label24: TLabel;
    Bevel1: TBevel;
    Bevel2: TBevel;
    Bevel3: TBevel;
    Bevel4: TBevel;
    Bevel5: TBevel;
    Bevel6: TBevel;
    Bevel7: TBevel;
    Bevel8: TBevel;
    Bevel9: TBevel;
    Bevel10: TBevel;
    Bevel15: TBevel;
    Bevel13: TBevel;
    cx_cym: TEdit;
    cx_xb: TComboBox;
    cx_zzmm: TComboBox;
    cx_gzdw: TEdit;
    cx_gw: TEdit;
    cx_jkzk: TComboBox;
    cx_dacfd: TEdit;
    Panel5: TPanel;
    Label28: TLabel;
    cx_xm: TEdit;
    Bevel18: TBevel;
    Bevel20: TBevel;
    cx_mz: TComboBox;
    Label6: TLabel;
    cx_sf: TComboBox;
    Label7: TLabel;
    Label9: TLabel;
    cx_zw: TComboBox;
    Label31: TLabel;
    cx_dyxl: TComboBox;
    cx_xxl: TComboBox;
    cx_zc: TComboBox;
    cx_hyzk: TComboBox;
    Label17: TLabel;
    cx_jg: TEdit;
    Label21: TLabel;
    cx_sfz: TEdit;
    Label22: TLabel;
    cx_hkszd: TEdit;
    Bevel11: TBevel;
    Bevel21: TBevel;
    Label29: TLabel;
    cx_rdsj: TMaskEdit;
    cx_gzsj: TMaskEdit;
    cx_csrq: TMaskEdit;
    cx_bm: TComboBox;
    Panel7: TPanel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    Panel10: TPanel;
    BitBtn8: TBitBtn;
    Image1: TImage;
    OpenPictureDialog1: TOpenPictureDialog;
    Image2: TImage;
    Label1: TLabel;
    BitBtn9: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    Image4: TImage;
    DBImage1: TDBImage;
    Panel11: TPanel;
    Label2: TLabel;
    cz_xm: TEdit;
    BitBtn1: TBitBtn;
    Bevel16: TBevel;
    Label10: TLabel;
    cx_bh: TEdit;
    Label26: TLabel;
    cx_pxfs: TComboBox;
    Label23: TLabel;
    cx_dw: TComboBox;
    Bevel17: TBevel;
    Label27: TLabel;
    cx_rylx: TComboBox;
    Label30: TLabel;
    cx_byyxjzy_dyxl: TEdit;
    cx_byyxjzy_xxl: TEdit;
    Label32: TLabel;
    Label25: TLabel;
    cx_gzze: TEdit;
    Label33: TLabel;
    cx_qt: TEdit;
    Bevel12: TBevel;
    Bevel14: TBevel;
    Bevel19: TBevel;
    cx_gzdc: TComboBox;
    Bevel22: TBevel;
    Bevel23: TBevel;
    Bevel24: TBevel;
    Bevel25: TBevel;
    Panel12: TPanel;
    procedure BitBtn7Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure cx_xg(bz:boolean);
    procedure RadioButton2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FillTocomboBox(Sender: TcomboBox;nr_str:string;bz:integer);
    procedure FormCreate(Sender: TObject);
    procedure cx_pxfsKeyPress(Sender: TObject; var Key: Char);
    procedure xm_init;
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure cx_qtExit(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure SaveToDisk;
    procedure DisplayToScreen;
    procedure DBGrid1CellClick(Column: TColumn);
    procedure RadioButton3Click(Sender: TObject);
    procedure DBGrid1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure RadioButton4Click(Sender: TObject);
    procedure OpenDateSet(pxfs:string);
    procedure cx_pxfsChange(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    function sjjy:boolean;
    procedure Image1DblClick(Sender: TObject);
    procedure DBImage1DblClick(Sender: TObject);
    procedure DeleteNUll;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure cx_bmChange(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure bmChange(bz:boolean);
    procedure cx_bmExit(Sender: TObject);
    procedure cx_zzmmExit(Sender: TObject);
    procedure cx_dwChange(Sender: TObject);
    procedure cx_gzzeKeyPress(Sender: TObject; var Key: Char);
    procedure cx_gzzeExit(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure open_qtxx;
    procedure cx_bmEnter(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    xd_zgbh:integer;
    xd_zgxm:string;
  end;

var
  Form_dasjlr_cx: TForm_dasjlr_cx;
  czfs:integer;
  dybz:array[0..7] of boolean;
implementation

uses U_gzda_dm, U_main, U_qtxx_cx, U_dyjl, U_dasjlr;

{$R *.dfm}

procedure TForm_dasjlr_cx.BitBtn7Click(Sender: TObject);
begin
  close;
end;

procedure TForm_dasjlr_cx.FillTocomboBox(Sender: TcomboBox;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_dasjlr_cx.RadioButton1Click(Sender: TObject);
begin
  if (bitbtn3.Enabled) and (sjjy) then SaveToDisk;  //存盘
  cx_xg(false);  //关
  DeleteNUll;  //删除临时记录
  displaytoscreen;
  panel4.Enabled :=false;
end;

procedure TForm_dasjlr_cx.cx_xg(bz:boolean);
begin
  panel4.Enabled :=bz;
end;

procedure TForm_dasjlr_cx.RadioButton2Click(Sender: TObject);
begin
  czfs:=3;
  bitbtn3.Enabled :=true;
  panel4.Enabled:=true;
  cx_xm.SetFocus;
end;

procedure TForm_dasjlr_cx.FormShow(Sender: TObject);
begin
  xm_init; //清空各字段的值
  cx_xg(false);  //关
end;

procedure TForm_dasjlr_cx.FormCreate(Sender: TObject);
var
  dwbm:string;
begin
  //给各组合框添加内容
  FillTocomboBox(cx_pxfs,'排序方式',0);
  FillTocomboBox(cx_mz,'民族',0);
  FillTocomboBox(cx_zzmm,'政治面貌',0);
  FillTocomboBox(cx_sf,'身份',0);
  FillTocomboBox(cx_zw,'职务',0);
  FillTocomboBox(cx_dyxl,'学历',0);
  FillTocomboBox(cx_xxl,'学历',0);
  FillTocomboBox(cx_zc,'职称(技术等级)',0);
  FillTocomboBox(cx_jkzk,'健康状况',0);
  FillTocomboBox(cx_gzdc,'工资档次',0);
  FillTocomboBox(cx_rylx,'人员类型',0);
  with gzda_dm.ADODataSet10 do begin
    if active then active:=false;
    commandtext:='select * from dwbmb order by dwbm';
    open;
    first;
    cx_dw.Items.Clear;
    while not eof do begin
      cx_dw.Items.Add(fieldbyname('dwbm').AsString+'.'+fieldbyname('dwmc').AsString);
      next;
    end;
  end;
  cx_dw.ItemIndex:=-1;
  dwbm:=copy(cx_dw.Text,1,2);
  with gzda_dm.ADODataSet10 do begin
    if active then active:=false;
    commandtext:='select * from bmbmb where (dwbm=:dwbm) order by dwbm,bmbm';
    Parameters.ParamByName('dwbm').Value:=dwbm;
    open;
    first;
    cx_bm.Items.Clear;
    while not eof do begin
      cx_bm.Items.Add(fieldbyname('bmbm').AsString+'.'+fieldbyname('bmmc').AsString);
      next;
    end;
  end;
  cx_bm.Refresh;
end;

procedure TForm_dasjlr_cx.cx_pxfsKeyPress(Sender: TObject; var Key: Char);
begin
//  if not (key in [#8,#37..#40]) then key:=#0;
end;

procedure TForm_dasjlr_cx.xm_init;
begin
  cx_xm.Text:='';
  cx_cym.Text:='';
  cx_xb.Text:='';
  cx_mz.Text:='';
  cx_zzmm.Text:='';
  cx_sf.Text:='';
  cx_sfz.Text:='';
  cx_gzdw.Text:='';
  cx_gw.Text:='';
  cx_zw.Text:='';
  cx_dyxl.Text:='';
  cx_xxl.Text:='';
  cx_zc.Text:='';
  cx_jkzk.Text:='';
  cx_hyzk.Text:='';
  cx_gzdc.Text:='';
  cx_jg.Text:='';
  cx_dacfd.Text:='';
  cx_hkszd.Text:='';
  cx_qt.Text:='';
  cx_csrq.Text:='';
  cx_gzsj.Text:='';
  cx_rdsj.Text:='';
  cx_rylx.Text:='';
  cx_byyxjzy_dyxl.text:='';
  cx_byyxjzy_xxl.text:='';
  cx_gzze.Text:='0.00';
  dbimage1.Refresh ;
  image1.Picture.Assign(image4.Picture);
  panel4.Refresh;
end;

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

procedure TForm_dasjlr_cx.cx_qtExit(Sender: TObject);
begin
  bitbtn3.SetFocus;
end;

procedure TForm_dasjlr_cx.BitBtn3Click(Sender: TObject);
begin
  if sjjy then
     begin
       SaveToDisk;  //存盘
       RadioButton1.Checked :=true;
     end;
end;

procedure TForm_dasjlr_cx.OpenDateSet(pxfs:string);
var
  bm:string;
begin
  if copy(cx_bm.Text,1,2)='00' then
     bm:=''
  else
     bm:=copy(cx_bm.Text,1,2);
  with gzda_dm.ADODataSet1 do begin
    DisableControls;
    if active then active:=false;
    commandtext:='select * from zgdab where zgxh like :qxh order by '+pxfs;
    Parameters.ParamByName('qxh').Value:=copy(cx_dw.Text,1,2)+bm+'%';
    open;
    first;
    enableControls;
    DisplayToScreen;
    dbgrid1.SetFocus;
    panel4.Refresh ;
  end;
end;
//==
function TForm_dasjlr_cx.sjjy:boolean;
var
  bz:boolean;
begin
  bz:=true;
  if cx_xm.Text='' then
     begin
       showmessage('姓名不能为空!!');
       cx_xm.SetFocus;
       bz:=false;
       sjjy:=bz;
       exit;
     end;
  if cx_xb.Text='' then
     begin
       showmessage('性别不能为空!!');
       cx_xb.SetFocus;
       bz:=false;
       sjjy:=bz;
       exit;
     end;
  if cx_mz.Text='' then
     begin
       showmessage('民族不能为空!!');
       cx_mz.SetFocus;
       bz:=false;
       sjjy:=bz;
       exit;
     end;
end;
//==
procedure TForm_dasjlr_cx.SaveToDisk;
begin

  with gzda_dm.ADODataSet1 do begin
    edit;
    fieldbyname('zgxh').AsString:=cx_bh.Text;
    fieldbyname('xm').AsString:=cx_xm.Text;
    fieldbyname('cym').AsString:=cx_cym.Text;
    fieldbyname('xb').AsString:=cx_xb.Text;
    fieldbyname('mz').AsString:=cx_mz.Text;
    fieldbyname('zzmm').AsString:=cx_zzmm.Text;
    fieldbyname('sf').AsString:=cx_sf.Text;
    fieldbyname('csrq').AsString:=cx_csrq.text;
    fieldbyname('rdsj').AsString:=cx_rdsj.Text;
    fieldbyname('gzsj').AsString:=cx_gzsj.Text;
    fieldbyname('sfz').AsString:=cx_sfz.Text;
    fieldbyname('gzdw').AsString:=cx_gzdw.Text;
    fieldbyname('gw').AsString:=cx_gw.Text;
    fieldbyname('zw').AsString:=cx_zw.Text;
    fieldbyname('dyxl').AsString:=cx_dyxl.Text;
    fieldbyname('xxl').AsString:=cx_xxl.Text;
    fieldbyname('zc').AsString:=cx_zc.Text;
    fieldbyname('jkzk').AsString:=cx_jkzk.Text;
    fieldbyname('hyzk').AsString:=cx_hyzk.Text;
    fieldbyname('gzdc').AsString:=cx_gzdc.Text;
    fieldbyname('jg').AsString:=cx_jg.Text;
    fieldbyname('dacfd').AsString:=cx_dacfd.Text;
    fieldbyname('hkszd').AsString:=cx_hkszd.Text;
    fieldbyname('qt').AsString:=cx_qt.Text;
    fieldbyname('rylx').AsString:=cx_rylx.Text;
    fieldbyname('byyxjzy_dyxl').AsString:=cx_byyxjzy_dyxl.Text;
    fieldbyname('byyxjzy_xxl').AsString:=cx_byyxjzy_xxl.Text;
    fieldbyname('gzze').AsString:=cx_gzze.Text;
    FieldByName('zp').Assign(image1.Picture);
    post;
    UpdateBatch(arCurrent);
  end;
  bitbtn3.Enabled :=false;
  panel4.Refresh;
  dbgrid1.Refresh;
end;

procedure TForm_dasjlr_cx.DisplayToScreen;
begin
  with gzda_dm.ADODataSet1 do begin
    cx_bh.Text:=fieldbyname('zgxh').AsString;
    cx_xm.Text:=fieldbyname('xm').AsString;
    cx_cym.Text:=fieldbyname('cym').AsString;
    cx_xb.Text:=fieldbyname('xb').AsString;
    cx_mz.Text:=fieldbyname('mz').AsString;
    cx_zzmm.Text:=fieldbyname('zzmm').AsString;
    cx_sf.Text:=fieldbyname('sf').AsString;
    cx_csrq.text:=fieldbyname('csrq').AsString;
    cx_rdsj.Text:=fieldbyname('rdsj').AsString;
    cx_gzsj.Text:=fieldbyname('gzsj').AsString;
    cx_sfz.Text:=fieldbyname('sfz').AsString;
    cx_gzdw.Text:=fieldbyname('gzdw').AsString;
    cx_gw.Text:=fieldbyname('gw').AsString;
    cx_zw.Text:=fieldbyname('zw').AsString;
    cx_dyxl.Text:=fieldbyname('dyxl').AsString;
    cx_xxl.Text:=fieldbyname('xxl').AsString;
    cx_zc.Text:=fieldbyname('zc').AsString;
    cx_jkzk.Text:=fieldbyname('jkzk').AsString;
    cx_hyzk.Text:=fieldbyname('hyzk').AsString;
    cx_gzdc.Text:=fieldbyname('gzdc').AsString;
    cx_jg.Text:=fieldbyname('jg').AsString;
    cx_dacfd.Text:=fieldbyname('dacfd').AsString;
    cx_hkszd.Text:=fieldbyname('hkszd').AsString;
    cx_qt.Text:=fieldbyname('qt').AsString;
    cx_rylx.Text:=fieldbyname('rylx').AsString;
    cx_byyxjzy_dyxl.Text:=fieldbyname('byyxjzy_dyxl').AsString;
    cx_byyxjzy_xxl.Text:=fieldbyname('byyxjzy_xxl').AsString;
    cx_gzze.Text:=fieldbyname('gzze').AsString;
    image1.Picture.Assign(fieldbyname('zp'));
    dbimage1.Refresh ;
  end;
  RadioButton1.Checked :=true;
  bitbtn3.Enabled :=false;
  panel4.Enabled:=false;
  panel4.Refresh;
  dbgrid1.Refresh;
end;

procedure TForm_dasjlr_cx.DBGrid1CellClick(Column: TColumn);
begin
  DisplayToScreen;
end;

procedure TForm_dasjlr_cx.RadioButton3Click(Sender: TObject);
var
  ls_bh,ls_bh_str:string;
begin
  cx_xg(true);  //开
  panel4.Enabled:=false;
  xm_init; //清空各字段的值
  czfs:=2;