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

📄 hrm150_01.pas.svn-base

📁 这是一个功能齐全的,代码完整的ERP企业信息管理系统,现在上传和大家分享
💻 SVN-BASE
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
begin
  inherited;
//培训记录-保存
  try
    qryHrm155.Post;
  except
    ShowMsg(SYSDM.ADOC.Errors[0].Description,1);
    Abort;
  end;
  Panel3.Visible:=False;
  DBGrid1.Enabled:=True;
  DBGrid1.Refresh;
  bbtnInsert.Enabled:=True;
  bbtnUpdate.Enabled:=not qryHrm155.IsEmpty;
  bbtnDelete.Enabled:=not qryHrm155.IsEmpty;
  bbtnSave.Enabled:=False;
  bbtnCancel.Enabled:=False;
  DBGrid1.ReadOnly:=True;
  Panel3.Enabled:=False;
end;

procedure THrm150_01Form.bbtnCancelClick(Sender: TObject);
begin
  inherited;
//培训记录-取消
  qryHrm155.CancelUpdates;
  Panel3.Visible:=False;
  DBGrid1.Enabled:=True;
  DBGrid1.Refresh;
  bbtnInsert.Enabled:=True;
  bbtnUpdate.Enabled:=not qryHrm155.IsEmpty;
  bbtnDelete.Enabled:=not qryHrm155.IsEmpty;
  bbtnSave.Enabled:=False;
  bbtnCancel.Enabled:=False;
  DBGrid1.ReadOnly:=True;
  Panel3.Enabled:=False;
end;

procedure THrm150_01Form.bbtnInsert1Click(Sender: TObject);
begin
  inherited;
//家庭情况-新增
  if qryHrm150.IsEmpty then
  begin
    ShowMsg('UMS10000002');  //表记录为空，操作无效
    Abort;
  end;
  Panel4.Visible:=True;
  DBGrid2.Enabled:=False;
  bbtnInsert1.Enabled:=False;
  bbtnUpdate1.Enabled:=False;
  bbtnDelete1.Enabled:=False;
  bbtnSave1.Enabled:=True;
  bbtnCancel1.Enabled:=True;

  DBGrid2.ReadOnly:=False;
  Panel4.Enabled:=True;
  qryHrm158.Insert;
  qryHrm158.Fields[0].Value:=qryHrm150.FieldByName('H150_001').Value;
  qryHrm158.Fields[1].Value:=qryHrm150.FieldByName('H150_003').Value;
end;

procedure THrm150_01Form.bbtnUpdate1Click(Sender: TObject);
begin
  inherited;
//家庭情况-修改
  if qryHrm158.IsEmpty then
  begin
    ShowMsg('UMS10000002');  //表记录为空，操作无效
    Abort;
  end;
  Panel4.Visible:=True;
  DBGrid2.Enabled:=False;
  bbtnInsert1.Enabled:=False;
  bbtnUpdate1.Enabled:=False;
  bbtnDelete1.Enabled:=False;
  bbtnSave1.Enabled:=True;
  bbtnCancel1.Enabled:=True;

  DBGrid2.ReadOnly:=False;
  Panel4.Enabled:=True;
  qryHrm158.Edit;
end;

procedure THrm150_01Form.bbtnDelete1Click(Sender: TObject);
begin
  inherited;
//家庭情况-删除
  if qryHrm158.IsEmpty then
  begin
    ShowMsg('UMS10000002');  //表记录为空，操作无效
    Abort;
  end;
  if ShowDialog('UMS10000008')=IDYES then  //确定要删除此记录吗?
  begin
    qryHrm158.Delete;
  end;
  bbtnDelete1.Enabled:=not qryHrm158.IsEmpty;
end;

procedure THrm150_01Form.bbtnSave1Click(Sender: TObject);
begin
  inherited;
//家庭情况-保存
  try
    qryHrm158.Post;
  except
    ShowMsg(SYSDM.ADOC.Errors[0].Description,1);
    Abort;
  end;
  Panel4.Visible:=False;
  DBGrid2.Enabled:=True;
  DBGrid2.Refresh;
  bbtnInsert1.Enabled:=True;
  bbtnUpdate1.Enabled:=not qryHrm155.IsEmpty;
  bbtnDelete1.Enabled:=not qryHrm155.IsEmpty;
  bbtnSave1.Enabled:=False;
  bbtnCancel1.Enabled:=False;
  DBGrid2.ReadOnly:=True;
  Panel4.Enabled:=False;
end;

procedure THrm150_01Form.bbtnCancel1Click(Sender: TObject);
begin
  inherited;
//家庭情况-取消
  qryHrm158.CancelUpdates;
  Panel4.Visible:=False;
  DBGrid2.Enabled:=True;
  DBGrid2.Refresh;
  bbtnInsert1.Enabled:=True;
  bbtnUpdate1.Enabled:=not qryHrm158.IsEmpty;
  bbtnDelete1.Enabled:=not qryHrm158.IsEmpty;
  bbtnSave1.Enabled:=False;
  bbtnCancel1.Enabled:=False;
  DBGrid2.ReadOnly:=True;
  Panel4.Enabled:=False;
end;

procedure THrm150_01Form.bbtnInsert2Click(Sender: TObject);
begin
  inherited;
//联络方法-新增
  if qryHrm150.IsEmpty then
  begin
    ShowMsg('UMS10000002');  //表记录为空，操作无效
    Abort;
  end;
  Panel6.Visible:=True;
  DBGrid3.Enabled:=False;
  bbtnInsert2.Enabled:=False;
  bbtnUpdate2.Enabled:=False;
  bbtnDelete2.Enabled:=False;
  bbtnSave2.Enabled:=True;
  bbtnCancel2.Enabled:=True;

  DBGrid3.ReadOnly:=False;
  Panel6.Enabled:=True;
  qryHrm159.Insert;
  qryHrm159.Fields[0].Value:=qryHrm150.FieldByName('H150_001').Value;
  qryHrm159.Fields[1].Value:=qryHrm150.FieldByName('H150_003').Value;
end;

procedure THrm150_01Form.bbtnUpdate2Click(Sender: TObject);
begin
  inherited;
//联络方法-修改
  if qryHrm159.IsEmpty then
  begin
    ShowMsg('UMS10000002');  //表记录为空，操作无效
    Abort;
  end;
  Panel6.Visible:=True;
  DBGrid3.Enabled:=False;
  bbtnInsert2.Enabled:=False;
  bbtnUpdate2.Enabled:=False;
  bbtnDelete2.Enabled:=False;
  bbtnSave2.Enabled:=True;
  bbtnCancel2.Enabled:=True;

  DBGrid3.ReadOnly:=False;
  Panel6.Enabled:=True;
  qryHrm159.Edit;
end;

procedure THrm150_01Form.bbtnDelete2Click(Sender: TObject);
begin
  inherited;
//联络方法-删除
  if qryHrm159.IsEmpty then
  begin
    ShowMsg('UMS10000002');  //表记录为空，操作无效
    Abort;
  end;
  if ShowDialog('UMS10000008')=IDYES then  //确定要删除此记录吗?
  begin
    qryHrm159.Delete;
  end;
  bbtnDelete2.Enabled:=not qryHrm159.IsEmpty;
end;

procedure THrm150_01Form.bbtnSave2Click(Sender: TObject);
begin
  inherited;
//联络方法-保存
  try
    qryHrm159.Post;
  except
    ShowMsg(SYSDM.ADOC.Errors[0].Description,1);
    Abort;
  end;
  Panel6.Visible:=False;
  DBGrid3.Enabled:=True;
  DBGrid3.Refresh;
  bbtnInsert2.Enabled:=True;
  bbtnUpdate2.Enabled:=not qryHrm159.IsEmpty;
  bbtnDelete2.Enabled:=not qryHrm159.IsEmpty;
  bbtnSave2.Enabled:=False;
  bbtnCancel2.Enabled:=False;
  DBGrid3.ReadOnly:=True;
  Panel6.Enabled:=False;
end;

procedure THrm150_01Form.bbtnCancel2Click(Sender: TObject);
begin
  inherited;
//联络方法-取消
  qryHrm159.CancelUpdates;
  Panel6.Visible:=False;
  DBGrid3.Enabled:=True;
  DBGrid3.Refresh;
  bbtnInsert2.Enabled:=True;
  bbtnUpdate2.Enabled:=not qryHrm159.IsEmpty;
  bbtnDelete2.Enabled:=not qryHrm159.IsEmpty;
  bbtnSave2.Enabled:=False;
  bbtnCancel2.Enabled:=False;
  DBGrid3.ReadOnly:=True;
  Panel6.Enabled:=False;
end;

procedure THrm150_01Form.PageControl1Changing(Sender: TObject;
  var AllowChange: Boolean);
begin
  inherited;
  if (qryHrm150.State in [dsInsert, dsEdit]) or
     (qryHrm151.State in [dsInsert, dsEdit]) or
     (qryHrm153.State in [dsInsert, dsEdit]) or
     (qryHrm154.State in [dsInsert, dsEdit]) or
     (qryHrm155.State in [dsInsert, dsEdit]) or
     (qryHrm156.State in [dsInsert, dsEdit]) or
     (qryHrm157.State in [dsInsert, dsEdit]) or
     (qryHrm158.State in [dsInsert, dsEdit]) or
     (qryHrm159.State in [dsInsert, dsEdit]) then
    AllowChange:=False;
end;

procedure THrm150_01Form.bbtnUpdate3Click(Sender: TObject);
begin
  inherited;
//学习经历-修改
  if qryHrm150.IsEmpty then
  begin
    ShowMsg('UMS10000002');  //表记录为空，操作无效
    Abort;
  end;
  if qryHrm153.IsEmpty then
  begin
    DBMemo1.ReadOnly:=False;
    qryHrm153.Insert;
    qryHrm153.Fields[0].Value:=qryHrm150.FieldByName('H150_001').Value;
    qryHrm153.Fields[1].Value:=qryHrm150.FieldByName('H150_003').Value;
  end else
  begin
    DBMemo1.ReadOnly:=False;
    qryHrm153.Edit;
  end;
  bbtnUpdate3.Enabled:=False;
  bbtnDelete3.Enabled:=False;
  bbtnSave3.Enabled:=True;
  bbtnCancel3.Enabled:=True;
end;

procedure THrm150_01Form.bbtnDelete3Click(Sender: TObject);
begin
  inherited;
//学习经历-删除
  if qryHrm153.IsEmpty then
  begin
    ShowMsg('UMS10000002');  //表记录为空，操作无效
    Abort;
  end;
  if ShowDialog('UMS10000008')=IDYES then  //确定要删除此记录吗?
  begin
    qryHrm153.Delete;
  end;
  bbtnDelete3.Enabled:=not qryHrm153.IsEmpty;
  DBMemo1.ReadOnly:=True;
end;

procedure THrm150_01Form.bbtnSave3Click(Sender: TObject);
begin
  inherited;
//学习经历-保存
  try
    qryHrm153.Post;
  except
    ShowMsg(SYSDM.ADOC.Errors[0].Description,1);
    Abort;
  end;
  DBMemo1.ReadOnly:=True;
  bbtnUpdate3.Enabled:=True;
  bbtnDelete3.Enabled:=True;
  bbtnSave3.Enabled:=False;
  bbtnCancel3.Enabled:=False;
end;

procedure THrm150_01Form.bbtnCancel3Click(Sender: TObject);
begin
  inherited;
//学习经历-取消
  qryHrm153.CancelUpdates;
  DBMemo1.ReadOnly:=True;
  bbtnUpdate3.Enabled:=True;
  bbtnDelete3.Enabled:=True;
  bbtnSave3.Enabled:=False;
  bbtnCancel3.Enabled:=False;
end;

procedure THrm150_01Form.bbtnUpdate4Click(Sender: TObject);
begin
  inherited;
//工作经历-修改
  if qryHrm150.IsEmpty then
  begin
    ShowMsg('UMS10000002');  //表记录为空，操作无效
    Abort;
  end;
  if qryHrm154.IsEmpty then
  begin
    DBMemo2.ReadOnly:=False;
    qryHrm154.Insert;
    qryHrm154.Fields[0].Value:=qryHrm150.FieldByName('H150_001').Value;
    qryHrm154.Fields[1].Value:=qryHrm150.FieldByName('H150_003').Value;
  end else
  begin
    DBMemo2.ReadOnly:=False;
    qryHrm154.Edit;
  end;
  bbtnUpdate4.Enabled:=False;
  bbtnDelete4.Enabled:=False;
  bbtnSave4.Enabled:=True;
  bbtnCancel4.Enabled:=True;
end;

procedure THrm150_01Form.bbtnDelete4Click(Sender: TObject);
begin
  inherited;
//工作经历-删除
  if qryHrm154.IsEmpty then
  begin
    ShowMsg('UMS10000002');  //表记录为空，操作无效
    Abort;
  end;
  if ShowDialog('UMS10000008')=IDYES then  //确定要删除此记录吗?
  begin
    qryHrm154.Delete;
  end;
  bbtnDelete4.Enabled:=not qryHrm154.IsEmpty;
end;

procedure THrm150_01Form.bbtnSave4Click(Sender: TObject);
begin
  inherited;
//工作经历-保存
  try
    qryHrm154.Post;
  except
    ShowMsg(SYSDM.ADOC.Errors[0].Description,1);
    Abort;
  end;
  DBMemo2.ReadOnly:=True;
  bbtnUpdate4.Enabled:=True;
  bbtnDelete4.Enabled:=True;
  bbtnSave4.Enabled:=False;
  bbtnCancel4.Enabled:=False;
end;

procedure THrm150_01Form.bbtnCancel4Click(Sender: TObject);
begin
  inherited;
//工作经历-取消
  qryHrm154.CancelUpdates;
  DBMemo2.ReadOnly:=True;
  bbtnUpdate4.Enabled:=True;
  bbtnDelete4.Enabled:=True;
  bbtnSave4.Enabled:=False;
  bbtnCancel4.Enabled:=False;
end;

procedure THrm150_01Form.bbtnUpdate5Click(Sender: TObject);
begin
  inherited;
//员工奖罚-修改
  if qryHrm150.IsEmpty then
  begin
    ShowMsg('UMS10000002');  //表记录为空，操作无效
    Abort;
  end;
  if qryHrm156.IsEmpty then
  begin
    DBMemo3.ReadOnly:=False;
    qryHrm156.Insert;
    qryHrm156.Fields[0].Value:=qryHrm150.FieldByName('H150_001').Value;
    qryHrm156.Fields[1].Value:=qryHrm150.FieldByName('H150_003').Value;
  end else
  begin
    DBMemo3.ReadOnly:=False;
    qryHrm156.Edit;
  end;
  bbtnUpdate5.Enabled:=False;
  bbtnDelete5.Enabled:=False;
  bbtnSave5.Enabled:=True;
  bbtnCancel5.Enabled:=True;
end;

procedure THrm150_01Form.bbtnDelete5Click(Sender: TObject);
begin
  inherited;
//员工奖罚-删除
  if qryHrm156.IsEmpty then
  begin
    ShowMsg('UMS10000002');  //表记录为空，操作无效
    Abort;
  end;
  if ShowDialog('UMS10000008')=IDYES then  //确定要删除此记录吗?
  begin
    qryHrm156.Delete;
  end;
  bbtnDelete5.Enabled:=not qryHrm156.IsEmpty;
end;

procedure THrm150_01Form.bbtnSave5Click(Sender: TObject);
begin
  inherited;
//员工奖罚-保存
  try
    qryHrm156.Post;
  except
1234

⌨️ 快捷键说明

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