xygdj.pas

实现人力资源的管理

procedure Txygdjfrm.MaskEdit3Change(Sender: TObject);
begin
if (edit1.Text<>'') and (edit2.Text<>'') and (edit8.Text<>'') and (edit3.Text<>'') and
(edit4.Text<>'') and (edit5.Text<>'') and (edit7.Text<>'') and (edit9.Text<>'') and
(edit10.Text<>'') and (edit6.Text<>'') and (edit11.Text<>'') and (edit12.Text<>'') and
(combobox2.Text<>'') and (combobox5.Text<>'') and (combobox6.Text<>'') and (combobox7.Text<>'') and
(combobox8.Text<>'') and (combobox9.Text<>'') and (combobox3.Text<>'') and (combobox1.Text<>'') and
(combobox4.Text<>'') and (combobox2.Text<>'') and (maskedit4.Text<>'') and (maskedit5.Text<>'') and
(maskedit1.Text<>'') and (maskedit2.Text<>'') and (maskedit3.Text<>'') then
SpeedButton3.Enabled:=true
else
SpeedButton3.Enabled:=false;
end;

procedure Txygdjfrm.ComboBox6Change(Sender: TObject);
begin
if (edit1.Text<>'') and (edit2.Text<>'') and (edit8.Text<>'') and (edit3.Text<>'') and
(edit4.Text<>'') and (edit5.Text<>'') and (edit7.Text<>'') and (edit9.Text<>'') and
(edit10.Text<>'') and (edit6.Text<>'') and (edit11.Text<>'') and (edit12.Text<>'') and
(combobox2.Text<>'') and (combobox5.Text<>'') and (combobox6.Text<>'') and (combobox7.Text<>'') and
(combobox8.Text<>'') and (combobox9.Text<>'') and (combobox3.Text<>'') and (combobox1.Text<>'') and
(combobox4.Text<>'') and (combobox2.Text<>'') and (maskedit4.Text<>'') and (maskedit5.Text<>'') and
(maskedit1.Text<>'') and (maskedit2.Text<>'') and (maskedit3.Text<>'') then
SpeedButton3.Enabled:=true
else
SpeedButton3.Enabled:=false;
end;

procedure Txygdjfrm.Edit11Change(Sender: TObject);
begin
if (edit1.Text<>'') and (edit2.Text<>'') and (edit8.Text<>'') and (edit3.Text<>'') and
(edit4.Text<>'') and (edit5.Text<>'') and (edit7.Text<>'') and (edit9.Text<>'') and
(edit10.Text<>'') and (edit6.Text<>'') and (edit11.Text<>'') and (edit12.Text<>'') and
(combobox2.Text<>'') and (combobox5.Text<>'') and (combobox6.Text<>'') and (combobox7.Text<>'') and
(combobox8.Text<>'') and (combobox9.Text<>'') and (combobox3.Text<>'') and (combobox1.Text<>'') and
(combobox4.Text<>'') and (combobox2.Text<>'') and (maskedit4.Text<>'') and (maskedit5.Text<>'') and
(maskedit1.Text<>'') and (maskedit2.Text<>'') and (maskedit3.Text<>'') then
SpeedButton3.Enabled:=true
else
SpeedButton3.Enabled:=false;
end;

procedure Txygdjfrm.ComboBox7Change(Sender: TObject);
begin
if (edit1.Text<>'') and (edit2.Text<>'') and (edit8.Text<>'') and (edit3.Text<>'') and
(edit4.Text<>'') and (edit5.Text<>'') and (edit7.Text<>'') and (edit9.Text<>'') and
(edit10.Text<>'') and (edit6.Text<>'') and (edit11.Text<>'') and (edit12.Text<>'') and
(combobox2.Text<>'') and (combobox5.Text<>'') and (combobox6.Text<>'') and (combobox7.Text<>'') and
(combobox8.Text<>'') and (combobox9.Text<>'') and (combobox3.Text<>'') and (combobox1.Text<>'') and
(combobox4.Text<>'') and (combobox2.Text<>'') and (maskedit4.Text<>'') and (maskedit5.Text<>'') and
(maskedit1.Text<>'') and (maskedit2.Text<>'') and (maskedit3.Text<>'') then
SpeedButton3.Enabled:=true
else
SpeedButton3.Enabled:=false;
end;

procedure Txygdjfrm.ComboBox8Change(Sender: TObject);
begin
if (edit1.Text<>'') and (edit2.Text<>'') and (edit8.Text<>'') and (edit3.Text<>'') and
(edit4.Text<>'') and (edit5.Text<>'') and (edit7.Text<>'') and (edit9.Text<>'') and
(edit10.Text<>'') and (edit6.Text<>'') and (edit11.Text<>'') and (edit12.Text<>'') and
(combobox2.Text<>'') and (combobox5.Text<>'') and (combobox6.Text<>'') and (combobox7.Text<>'') and
(combobox8.Text<>'') and (combobox9.Text<>'') and (combobox3.Text<>'') and (combobox1.Text<>'') and
(combobox4.Text<>'') and (combobox2.Text<>'') and (maskedit4.Text<>'') and (maskedit5.Text<>'') and
(maskedit1.Text<>'') and (maskedit2.Text<>'') and (maskedit3.Text<>'') then
SpeedButton3.Enabled:=true
else
SpeedButton3.Enabled:=false;
end;

procedure Txygdjfrm.ComboBox9Change(Sender: TObject);
begin
if (edit1.Text<>'') and (edit2.Text<>'') and (edit8.Text<>'') and (edit3.Text<>'') and
(edit4.Text<>'') and (edit5.Text<>'') and (edit7.Text<>'') and (edit9.Text<>'') and
(edit10.Text<>'') and (edit6.Text<>'') and (edit11.Text<>'') and (edit12.Text<>'') and
(combobox2.Text<>'') and (combobox5.Text<>'') and (combobox6.Text<>'') and (combobox7.Text<>'') and
(combobox8.Text<>'') and (combobox9.Text<>'') and (combobox3.Text<>'') and (combobox1.Text<>'') and
(combobox4.Text<>'') and (combobox2.Text<>'') and (maskedit4.Text<>'') and (maskedit5.Text<>'') and
(maskedit1.Text<>'') and (maskedit2.Text<>'') and (maskedit3.Text<>'') then
SpeedButton3.Enabled:=true
else
SpeedButton3.Enabled:=false;
end;

procedure Txygdjfrm.MaskEdit4Change(Sender: TObject);
begin
if (edit1.Text<>'') and (edit2.Text<>'') and (edit8.Text<>'') and (edit3.Text<>'') and
(edit4.Text<>'') and (edit5.Text<>'') and (edit7.Text<>'') and (edit9.Text<>'') and
(edit10.Text<>'') and (edit6.Text<>'') and (edit11.Text<>'') and (edit12.Text<>'') and
(combobox2.Text<>'') and (combobox5.Text<>'') and (combobox6.Text<>'') and (combobox7.Text<>'') and
(combobox8.Text<>'') and (combobox9.Text<>'') and (combobox3.Text<>'') and (combobox1.Text<>'') and
(combobox4.Text<>'') and (combobox2.Text<>'') and (maskedit4.Text<>'') and (maskedit5.Text<>'') and
(maskedit1.Text<>'') and (maskedit2.Text<>'') and (maskedit3.Text<>'') then
SpeedButton3.Enabled:=true
else
SpeedButton3.Enabled:=false;
end;

procedure Txygdjfrm.Edit12Change(Sender: TObject);
begin
if (edit1.Text<>'') and (edit2.Text<>'') and (edit8.Text<>'') and (edit3.Text<>'') and
(edit4.Text<>'') and (edit5.Text<>'') and (edit7.Text<>'') and (edit9.Text<>'') and
(edit10.Text<>'') and (edit6.Text<>'') and (edit11.Text<>'') and (edit12.Text<>'') and
(combobox2.Text<>'') and (combobox5.Text<>'') and (combobox6.Text<>'') and (combobox7.Text<>'') and
(combobox8.Text<>'') and (combobox9.Text<>'') and (combobox3.Text<>'') and (combobox1.Text<>'') and
(combobox4.Text<>'') and (combobox2.Text<>'') and (maskedit4.Text<>'') and (maskedit5.Text<>'') and
(maskedit1.Text<>'') and (maskedit2.Text<>'') and (maskedit3.Text<>'') then
SpeedButton3.Enabled:=true
else
SpeedButton3.Enabled:=false;
end;

procedure Txygdjfrm.MaskEdit5Change(Sender: TObject);
begin
if (edit1.Text<>'') and (edit2.Text<>'') and (edit8.Text<>'') and (edit3.Text<>'') and
(edit4.Text<>'') and (edit5.Text<>'') and (edit7.Text<>'') and (edit9.Text<>'') and
(edit10.Text<>'') and (edit6.Text<>'') and (edit11.Text<>'') and (edit12.Text<>'') and
(combobox2.Text<>'') and (combobox5.Text<>'') and (combobox6.Text<>'') and (combobox7.Text<>'') and
(combobox8.Text<>'') and (combobox9.Text<>'') and (combobox3.Text<>'') and (combobox1.Text<>'') and
(combobox4.Text<>'') and (combobox2.Text<>'') and (maskedit4.Text<>'') and (maskedit5.Text<>'') and
(maskedit1.Text<>'') and (maskedit2.Text<>'') and (maskedit3.Text<>'') then
SpeedButton3.Enabled:=true
else
SpeedButton3.Enabled:=false;
end;

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

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

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

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

end;

procedure Txygdjfrm.MaskEdit1KeyDown(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
    combobox2.SetFocus;
end;

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

end;

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

end;

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

end;

procedure Txygdjfrm.Edit3KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if ((Key = vk_Return) or(Key = vk_Down)) then
   edit4.SetFocus
else
   if Key = vk_Up then
    combobox5.SetFocus;
end;

procedure Txygdjfrm.Edit4KeyDown(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
    edit3.SetFocus;
end;

procedure Txygdjfrm.Edit5KeyDown(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
    edit4.SetFocus;
end;

procedure Txygdjfrm.Edit6KeyDown(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
    edit5.SetFocus;
end;

procedure Txygdjfrm.MaskEdit2KeyDown(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
    edit6.SetFocus;
end;

procedure Txygdjfrm.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
    maskedit2.SetFocus;
end;

procedure Txygdjfrm.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 Txygdjfrm.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 Txygdjfrm.Edit10KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if ((Key = vk_Return) or(Key = vk_Down)) then
   maskedit3.SetFocus
else
   if Key = vk_Up then
    edit9.SetFocus;
end;

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

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

end;

procedure Txygdjfrm.Edit11KeyDown(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
    combobox6.SetFocus;
end;

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

end;

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

end;

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

end;

procedure Txygdjfrm.MaskEdit4KeyDown(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
    combobox9.SetFocus;
end;

procedure Txygdjfrm.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
    maskedit4.SetFocus;
end;

procedure Txygdjfrm.MaskEdit5KeyDown(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
    edit12.SetFocus;
end;

procedure Txygdjfrm.Memo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if mainfrm.log=1 then
begin
if ((Key = vk_Return) or(Key = vk_Down)) then
   if Key = vk_Up then
      maskedit5.SetFocus;
end
else
   begin
      if SpeedButton3.Enabled=true then
      if ((Key = vk_Return) or(Key = vk_Down)) then
         if Key = vk_Up then
            maskedit5.SetFocus;
   end;
end;


end.