u_xygdj.pas

人力资源管理系统自动计算员工工资。自动生成员工工资报表。实现员工岗位调动操作。实现员工离职、复职操作。支持数据的模糊查询机制。运行环境 操作系统：Windows 2000/NT/XP/ME 开发工

end;

procedure Tfrm_xygdj.ComboBox5Change(Sender: TObject);
begin
if (edit1.Text<>'') and (edit2.Text<>'') and (edit5.Text<>'') and (edit6.Text<>'') and
(edit7.Text<>'') and (edit8.Text<>'') and (edit9.Text<>'') and (edit10.Text<>'') and
(edit12.Text<>'') and (edit13.Text<>'') and (edit15.Text<>'') and (edit16.Text<>'') and
(combobox1.Text<>'') and (combobox2.Text<>'') and (combobox3.Text<>'') and (combobox4.Text<>'') and
(combobox5.Text<>'') and (combobox6.Text<>'') and (combobox7.Text<>'') and (combobox8.Text<>'') and
(combobox9.Text<>'') and (combobox1.Text<>'') and (maskedit1.Text<>'') and (maskedit2.Text<>'') and
(maskedit3.Text<>'') and (maskedit4.Text<>'') and (maskedit5.Text<>'') then
bitbtn1.Enabled:=true
else
bitbtn1.Enabled:=false;
end;

procedure Tfrm_xygdj.ComboBox4Change(Sender: TObject);
begin
if (edit1.Text<>'') and (edit2.Text<>'') and (edit5.Text<>'') and (edit6.Text<>'') and
(edit7.Text<>'') and (edit8.Text<>'') and (edit9.Text<>'') and (edit10.Text<>'') and
(edit12.Text<>'') and (edit13.Text<>'') and (edit15.Text<>'') and (edit16.Text<>'') and
(combobox1.Text<>'') and (combobox2.Text<>'') and (combobox3.Text<>'') and (combobox4.Text<>'') and
(combobox5.Text<>'') and (combobox6.Text<>'') and (combobox7.Text<>'') and (combobox8.Text<>'') and
(combobox9.Text<>'') and (combobox1.Text<>'') and (maskedit1.Text<>'') and (maskedit2.Text<>'') and
(maskedit3.Text<>'') and (maskedit4.Text<>'') and (maskedit5.Text<>'') then
bitbtn1.Enabled:=true
else
bitbtn1.Enabled:=false;
end;

procedure Tfrm_xygdj.MaskEdit2Change(Sender: TObject);
begin
if (edit1.Text<>'') and (edit2.Text<>'') and (edit5.Text<>'') and (edit6.Text<>'') and
(edit7.Text<>'') and (edit8.Text<>'') and (edit9.Text<>'') and (edit10.Text<>'') and
(edit12.Text<>'') and (edit13.Text<>'') and (edit15.Text<>'') and (edit16.Text<>'') and
(combobox1.Text<>'') and (combobox2.Text<>'') and (combobox3.Text<>'') and (combobox4.Text<>'') and
(combobox5.Text<>'') and (combobox6.Text<>'') and (combobox7.Text<>'') and (combobox8.Text<>'') and
(combobox9.Text<>'') and (combobox1.Text<>'') and (maskedit1.Text<>'') and (maskedit2.Text<>'') and
(maskedit3.Text<>'') and (maskedit4.Text<>'') and (maskedit5.Text<>'') then
bitbtn1.Enabled:=true
else
bitbtn1.Enabled:=false;
end;

procedure Tfrm_xygdj.Edit16Change(Sender: TObject);
begin
if (edit1.Text<>'') and (edit2.Text<>'') and (edit5.Text<>'') and (edit6.Text<>'') and
(edit7.Text<>'') and (edit8.Text<>'') and (edit9.Text<>'') and (edit10.Text<>'') and
(edit12.Text<>'') and (edit13.Text<>'') and (edit15.Text<>'') and (edit16.Text<>'') and
(combobox1.Text<>'') and (combobox2.Text<>'') and (combobox3.Text<>'') and (combobox4.Text<>'') and
(combobox5.Text<>'') and (combobox6.Text<>'') and (combobox7.Text<>'') and (combobox8.Text<>'') and
(combobox9.Text<>'') and (combobox1.Text<>'') and (maskedit1.Text<>'') and (maskedit2.Text<>'') and
(maskedit3.Text<>'') and (maskedit4.Text<>'') and (maskedit5.Text<>'') then
bitbtn1.Enabled:=true
else
bitbtn1.Enabled:=false;
end;

procedure Tfrm_xygdj.MaskEdit1Change(Sender: TObject);
begin
if (edit1.Text<>'') and (edit2.Text<>'') and (edit5.Text<>'') and (edit6.Text<>'') and
(edit7.Text<>'') and (edit8.Text<>'') and (edit9.Text<>'') and (edit10.Text<>'') and
(edit12.Text<>'') and (edit13.Text<>'') and (edit15.Text<>'') and (edit16.Text<>'') and
(combobox1.Text<>'') and (combobox2.Text<>'') and (combobox3.Text<>'') and (combobox4.Text<>'') and
(combobox5.Text<>'') and (combobox6.Text<>'') and (combobox7.Text<>'') and (combobox8.Text<>'') and
(combobox9.Text<>'') and (combobox1.Text<>'') and (maskedit1.Text<>'') and (maskedit2.Text<>'') and
(maskedit3.Text<>'') and (maskedit4.Text<>'') and (maskedit5.Text<>'') then
bitbtn1.Enabled:=true
else
bitbtn1.Enabled:=false;
end;

procedure Tfrm_xygdj.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if ((Key = vk_Return) or(Key = vk_Down)) then
   edit2.SetFocus
end;

procedure Tfrm_xygdj.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if ((Key = vk_Return) or(Key = vk_Down)) then
   combobox8.SetFocus
else
   if Key = vk_Up then
    edit2.SetFocus;
end;

procedure Tfrm_xygdj.ComboBox8KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if (Key = vk_Return) then
   combobox1.SetFocus

end;

procedure Tfrm_xygdj.ComboBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if (Key = vk_Return) then
   maskedit3.SetFocus

end;

procedure Tfrm_xygdj.MaskEdit3KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if ((Key = vk_Return) or(Key = vk_Down)) then
   combobox7.SetFocus
else
   if Key = vk_Up then
    combobox1.SetFocus;
end;

procedure Tfrm_xygdj.ComboBox7KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if (Key = vk_Return) then
   combobox9.SetFocus

end;

procedure Tfrm_xygdj.ComboBox9KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if (Key = vk_Return) then
   combobox2.SetFocus

end;

procedure Tfrm_xygdj.ComboBox2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if (Key = vk_Return) then
   edit6.SetFocus

end;

procedure Tfrm_xygdj.Edit6KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if ((Key = vk_Return) or(Key = vk_Down)) then
   edit7.SetFocus
else
   if Key = vk_Up then
    combobox2.SetFocus;
end;

procedure Tfrm_xygdj.Edit7KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if ((Key = vk_Return) or(Key = vk_Down)) then
   edit8.SetFocus
else
   if Key = vk_Up then
    edit6.SetFocus;
end;

procedure Tfrm_xygdj.Edit8KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if ((Key = vk_Return) or(Key = vk_Down)) then
   edit13.SetFocus
else
   if Key = vk_Up then
    edit7.SetFocus;
end;

procedure Tfrm_xygdj.Edit13KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if ((Key = vk_Return) or(Key = vk_Down)) then
   maskedit4.SetFocus
else
   if Key = vk_Up then
    edit8.SetFocus;
end;

procedure Tfrm_xygdj.MaskEdit4KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if ((Key = vk_Return) or(Key = vk_Down)) then
   edit9.SetFocus
else
   if Key = vk_Up then
    edit13.SetFocus;
end;

procedure Tfrm_xygdj.Edit9KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if ((Key = vk_Return) or(Key = vk_Down)) then
   edit5.SetFocus
else
   if Key = vk_Up then
    maskedit4.SetFocus;
end;

procedure Tfrm_xygdj.Edit5KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if ((Key = vk_Return) or(Key = vk_Down)) then
   edit10.SetFocus
else
   if Key = vk_Up then
    edit9.SetFocus;
end;

procedure Tfrm_xygdj.Edit10KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if ((Key = vk_Return) or(Key = vk_Down)) then
   edit12.SetFocus
else
   if Key = vk_Up then
    edit5.SetFocus;
end;

procedure Tfrm_xygdj.Edit12KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if ((Key = vk_Return) or(Key = vk_Down)) then
   maskedit5.SetFocus
else
   if Key = vk_Up then
    edit10.SetFocus;
end;

procedure Tfrm_xygdj.MaskEdit5KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if ((Key = vk_Return) or(Key = vk_Down)) then
   combobox3.SetFocus
else
   if Key = vk_Up then
    edit12.SetFocus;
end;

procedure Tfrm_xygdj.ComboBox3KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if (Key = vk_Return) then
   edit15.SetFocus

end;

procedure Tfrm_xygdj.Edit15KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if ((Key = vk_Return) or(Key = vk_Down)) then
   combobox4.SetFocus
else
   if Key = vk_Up then
    combobox3.SetFocus;
end;

procedure Tfrm_xygdj.ComboBox4KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if (Key = vk_Return) then
   combobox5.SetFocus

end;

procedure Tfrm_xygdj.ComboBox5KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if (Key = vk_Return) then
   combobox6.SetFocus

end;

procedure Tfrm_xygdj.ComboBox6KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if (Key = vk_Return) then
   maskedit1.SetFocus

end;

procedure Tfrm_xygdj.MaskEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if ((Key = vk_Return) or(Key = vk_Down)) then
   edit16.SetFocus
else
   if Key = vk_Up then
    combobox6.SetFocus;
end;

procedure Tfrm_xygdj.Edit16KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if ((Key = vk_Return) or(Key = vk_Down)) then
   maskedit2.SetFocus
else
   if Key = vk_Up then
    maskedit1.SetFocus;
end;

procedure Tfrm_xygdj.MaskEdit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if ((Key = vk_Return) or(Key = vk_Down)) then
   memo1.SetFocus
else
   if Key = vk_Up then
    edit16.SetFocus;
end;

procedure Tfrm_xygdj.Memo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if frm_main.log=1 then
begin
if ((Key = vk_Return) or(Key = vk_Down)) then
   bitbtn5.SetFocus
else
   if Key = vk_Up then
      maskedit2.SetFocus;
end
else
   begin
      if bitbtn1.Enabled=true then
      if ((Key = vk_Return) or(Key = vk_Down)) then
         bitbtn1.SetFocus
      else
         if Key = vk_Up then
            maskedit2.SetFocus;
   end;
end;

procedure Tfrm_xygdj.FormCreate(Sender: TObject);
begin
if frm_main.log=1 then
begin
frm_xygdj.BitBtn1.Visible:=false; 
frm_xygdj.BitBtn6.Left:=frm_xygdj.BitBtn1.Left;
frm_xygdj.BitBtn6.Top:=frm_xygdj.BitBtn1.Top;
frm_xygdj.BitBtn6.Visible:=true;
combobox1.Clear;
combobox2.Clear;
combobox3.Clear;
combobox4.Clear;
combobox5.Clear;
combobox6.Clear;
frm_xygdj.Caption:='员工信息修改';
frm_ygxill.editvalue;
BitBtn2.Enabled:=false;
BitBtn4.Enabled:=false;
BitBtn5.Enabled:=true;
end;
//else
if frm_main.log=2 then
begin
BitBtn2.Click;
Edit2.Text:=frm_yp.edit2.Text;
ComboBox8.Text:=frm_yp.combobox2.Text;
ComboBox1.Text:=frm_yp.ComboBox1.Text;
ComboBox9.Text:=frm_yp.combobox3.Text;
MaskEdit3.Text:=frm_yp.maskedit1.Text;
Edit13.Text:=frm_yp.edit7.Text;
Edit6.Text:=frm_yp.edit11.Text;
Edit7.Text:=frm_yp.edit12.Text;
Edit8.Text:=frm_yp.edit8.Text;
end;
end;

procedure Tfrm_xygdj.FormClose(Sender: TObject; var Action: TCloseAction);
var
a,b,c,d:string;
begin
if frm_main.log=2 then
begin

end;
frm_main.log:=0;
end;

end.