⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 u_yp.pas

📁 人力资源管理系统自动计算员工工资。自动生成员工工资报表。实现员工岗位调动操作。实现员工离职、复职操作。支持数据的模糊查询机制。运行环境 操作系统：Windows 2000/NT/XP/ME 开发工
💻 PAS
📖 第 1 页 / 共 2 页
字号:
🔍
12 
frm_xygdj.free;
close;
end;

procedure Tfrm_yp.Edit1Change(Sender: TObject);
begin
if (edit1.Text<>'') and (edit2.Text<>'') and (combobox2.Text<>'') and
(combobox1.Text<>'') and (memo1.Text<>'') and (edit6.Text<>'') and
(edit7.Text<>'') and (edit8.Text<>'') and (edit9.Text<>'') and
(edit10.Text<>'') and (edit11.Text<>'') and (edit12.Text<>'') then
bitbtn2.Enabled:=true;
end;

procedure Tfrm_yp.Edit2Change(Sender: TObject);
begin
if (edit1.Text<>'') and (edit2.Text<>'') and (combobox2.Text<>'') and
(combobox1.Text<>'') and (memo1.Text<>'') and (edit6.Text<>'') and
(edit7.Text<>'') and (edit8.Text<>'') and (edit9.Text<>'') and
(edit10.Text<>'') and (edit11.Text<>'') and (edit12.Text<>'') and (combobox2.Text<>'') then
bitbtn2.Enabled:=true;
end;

procedure Tfrm_yp.Edit3Change(Sender: TObject);
begin
if (edit1.Text<>'') and (edit2.Text<>'') and (combobox2.Text<>'') and
(combobox1.Text<>'') and (memo1.Text<>'') and (edit6.Text<>'') and
(edit7.Text<>'') and (edit8.Text<>'') and (edit9.Text<>'') and
(edit10.Text<>'') and (edit11.Text<>'') and (edit12.Text<>'') and (combobox2.Text<>'')then
bitbtn2.Enabled:=true;
end;

procedure Tfrm_yp.Edit4Change(Sender: TObject);
begin
if (edit1.Text<>'') and (edit2.Text<>'') and (combobox2.Text<>'') and
(combobox1.Text<>'') and (memo1.Text<>'') and (edit6.Text<>'') and
(edit7.Text<>'') and (edit8.Text<>'') and (edit9.Text<>'') and
(edit10.Text<>'') and (edit11.Text<>'') and (edit12.Text<>'') and (combobox2.Text<>'')then
bitbtn2.Enabled:=true;
end;

procedure Tfrm_yp.Edit6Change(Sender: TObject);
begin
if (edit1.Text<>'') and (edit2.Text<>'') and (combobox2.Text<>'') and
(combobox1.Text<>'') and (memo1.Text<>'') and (edit6.Text<>'') and
(edit7.Text<>'') and (edit8.Text<>'') and (edit9.Text<>'') and
(edit10.Text<>'') and (edit11.Text<>'') and (edit12.Text<>'') and (combobox2.Text<>'')then
bitbtn2.Enabled:=true;
end;

procedure Tfrm_yp.Edit7Change(Sender: TObject);
begin
if (edit1.Text<>'') and (edit2.Text<>'') and (combobox2.Text<>'') and
(combobox1.Text<>'') and (memo1.Text<>'') and (edit6.Text<>'') and
(edit7.Text<>'') and (edit8.Text<>'') and (edit9.Text<>'') and
(edit10.Text<>'') and (edit11.Text<>'') and (edit12.Text<>'') and (combobox2.Text<>'')then
bitbtn2.Enabled:=true;
end;

procedure Tfrm_yp.Edit8Change(Sender: TObject);
begin
if (edit1.Text<>'') and (edit2.Text<>'') and (combobox2.Text<>'') and
(combobox1.Text<>'') and (memo1.Text<>'') and (edit6.Text<>'') and
(edit7.Text<>'') and (edit8.Text<>'') and (edit9.Text<>'') and
(edit10.Text<>'') and (edit11.Text<>'') and (edit12.Text<>'') and (combobox2.Text<>'')then
bitbtn2.Enabled:=true;
end;

procedure Tfrm_yp.Edit9Change(Sender: TObject);
begin
if (edit1.Text<>'') and (edit2.Text<>'') and (combobox2.Text<>'') and
(combobox1.Text<>'') and (memo1.Text<>'') and (edit6.Text<>'') and
(edit7.Text<>'') and (edit8.Text<>'') and (edit9.Text<>'') and
(edit10.Text<>'') and (edit11.Text<>'') and (edit12.Text<>'') and (combobox2.Text<>'')then
bitbtn2.Enabled:=true;
end;

procedure Tfrm_yp.Edit10Change(Sender: TObject);
begin
if (edit1.Text<>'') and (edit2.Text<>'') and (combobox2.Text<>'') and
(combobox1.Text<>'') and (memo1.Text<>'') and (edit6.Text<>'') and
(edit7.Text<>'') and (edit8.Text<>'') and (edit9.Text<>'') and
(edit10.Text<>'') and (edit11.Text<>'') and (edit12.Text<>'') and (combobox2.Text<>'')then
bitbtn2.Enabled:=true;
end;

procedure Tfrm_yp.Edit11Change(Sender: TObject);
begin
if (edit1.Text<>'') and (edit2.Text<>'') and (combobox2.Text<>'') and
(combobox1.Text<>'') and (memo1.Text<>'') and (edit6.Text<>'') and
(edit7.Text<>'') and (edit8.Text<>'') and (edit9.Text<>'') and
(edit10.Text<>'') and (edit11.Text<>'') and (edit12.Text<>'') and (combobox2.Text<>'')then
bitbtn2.Enabled:=true;
end;

procedure Tfrm_yp.Memo1Change(Sender: TObject);
begin
if (edit1.Text<>'') and (edit2.Text<>'') and (combobox2.Text<>'') and
(combobox1.Text<>'') and (memo1.Text<>'') and (edit6.Text<>'') and
(edit7.Text<>'') and (edit8.Text<>'') and (edit9.Text<>'') and
(edit10.Text<>'') and (edit11.Text<>'') and (edit12.Text<>'') and (combobox2.Text<>'')then
bitbtn2.Enabled:=true;
end;

procedure Tfrm_yp.Edit12Change(Sender: TObject);
begin
if (edit1.Text<>'') and (edit2.Text<>'') and (combobox2.Text<>'') and
(combobox1.Text<>'') and (memo1.Text<>'') and (edit6.Text<>'') and
(edit7.Text<>'') and (edit8.Text<>'') and (edit9.Text<>'') and
(edit10.Text<>'') and (edit11.Text<>'') and (edit12.Text<>'') and (combobox2.Text<>'')then
bitbtn2.Enabled:=true;
end;

procedure Tfrm_yp.Edit13Change(Sender: TObject);
begin
if (edit1.Text<>'') and (edit2.Text<>'') and (combobox2.Text<>'') and
(combobox1.Text<>'') and (memo1.Text<>'') and (edit6.Text<>'') and
(edit7.Text<>'') and (edit8.Text<>'') and (edit9.Text<>'') and
(edit10.Text<>'') and (edit11.Text<>'') and (edit12.Text<>'') and (combobox2.Text<>'')then
bitbtn2.Enabled:=true;
end;

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

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

procedure Tfrm_yp.ComboBox2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if Key = vk_Return then
   combobox1.SetFocus
else
   if Key = vk_Up then
    edit2.SetFocus;
end;

procedure Tfrm_yp.ComboBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if Key = vk_Return then
   maskedit1.SetFocus
else
   if Key = vk_Up then
    combobox2.SetFocus;
end;

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

procedure Tfrm_yp.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
    maskedit1.SetFocus;
end;

procedure Tfrm_yp.Edit8KeyDown(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
    edit7.SetFocus;
end;

procedure Tfrm_yp.Edit9KeyDown(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
    edit8.SetFocus;
end;

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

procedure Tfrm_yp.Edit11KeyDown(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
    edit10.SetFocus;
end;

procedure Tfrm_yp.Edit12KeyDown(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
    edit11.SetFocus;
end;

procedure Tfrm_yp.ComboBox3KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if Key = vk_Return then
   memo1.SetFocus
else
   if Key = vk_Up then
    edit12.SetFocus;
end;

procedure Tfrm_yp.Memo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if Key = vk_Down then
   memo2.SetFocus
else
   if Key = vk_Up then
    combobox3.SetFocus;
end;

procedure Tfrm_yp.Memo2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if frm_main.log=1 then
begin
if ((Key = vk_Return) or(Key = vk_Down)) then
   bitbtn3.SetFocus
else
   if Key = vk_Up then
   memo1.SetFocus
end
else
begin
if bitbtn2.Enabled=true then
   if Key = vk_Down then
      bitbtn2.SetFocus
   else
      if Key = vk_Up then
         memo1.SetFocus;
end;

end;

procedure Tfrm_yp.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_yp.FormCreate(Sender: TObject);
begin
if frm_main.log=1 then
begin
if data1.yp.FieldByName('编号').Value<>null then
   begin
      ComboBox1.Clear;
      ComboBox3.Clear;
      editvalue;
      BitBtn3.Visible:=true;
      BitBtn7.Visible:=true;
      BitBtn6.Visible:=true;
      BitBtn1.Visible:=false;
      BitBtn2.Visible:=false;
      BitBtn4.Visible:=false;
      BitBtn3.Left:=frm_yp.BitBtn1.Left;
      BitBtn7.Left:=frm_yp.BitBtn2.Left;
      BitBtn6.Left:=frm_yp.BitBtn4.Left;
      BitBtn3.Top:=frm_yp.BitBtn1.Top;
      BitBtn7.Top:=frm_yp.BitBtn2.Top;
      BitBtn6.Top:=frm_yp.BitBtn4.Top;
   end;
end;
end;

end.
12

⌨️ 快捷键说明

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