hrm150_01.pas.svn-base

这是一个功能齐全的,代码完整的ERP企业信息管理系统,现在上传和大家分享

    ShowMsg(SYSDM.ADOC.Errors[0].Description,1);
    Abort;
  end;
  DBMemo3.ReadOnly:=True;
  bbtnUpdate5.Enabled:=True;
  bbtnDelete5.Enabled:=True;
  bbtnSave5.Enabled:=False;
  bbtnCancel5.Enabled:=False;
end;

procedure THrm150_01Form.bbtnCancel5Click(Sender: TObject);
begin
  inherited;
//员工奖罚-取消
  qryHrm156.CancelUpdates;
  DBMemo3.ReadOnly:=True;
  bbtnUpdate5.Enabled:=True;
  bbtnDelete5.Enabled:=True;
  bbtnSave5.Enabled:=False;
  bbtnCancel5.Enabled:=False;
end;

procedure THrm150_01Form.bbtnUpdate6Click(Sender: TObject);
begin
  inherited;
//技术专长-修改
  if qryHrm150.IsEmpty then
  begin
    ShowMsg('UMS10000002');  //表记录为空，操作无效
    Abort;
  end;
  if qryHrm157.IsEmpty then
  begin
    DBMemo4.ReadOnly:=False;
    qryHrm157.Insert;
    qryHrm157.Fields[0].Value:=qryHrm150.FieldByName('H150_001').Value;
    qryHrm157.Fields[1].Value:=qryHrm150.FieldByName('H150_003').Value;
  end else
  begin
    DBMemo4.ReadOnly:=False;
    qryHrm157.Edit;
  end;
  bbtnUpdate6.Enabled:=False;
  bbtnDelete6.Enabled:=False;
  bbtnSave6.Enabled:=True;
  bbtnCancel6.Enabled:=True;
end;

procedure THrm150_01Form.bbtnDelete6Click(Sender: TObject);
begin
  inherited;
//技术专长-删除
  if qryHrm157.IsEmpty then
  begin
    ShowMsg('UMS10000002');  //表记录为空，操作无效
    Abort;
  end;
  if ShowDialog('UMS10000008')=IDYES then  //确定要删除此记录吗?
  begin
    qryHrm157.Delete;
  end;
  bbtnDelete6.Enabled:=not qryHrm157.IsEmpty;
end;

procedure THrm150_01Form.bbtnSave6Click(Sender: TObject);
begin
  inherited;
//技术专长-保存
  try
    qryHrm157.Post;
  except
    ShowMsg(SYSDM.ADOC.Errors[0].Description,1);
    Abort;
  end;
  DBMemo4.ReadOnly:=True;
  bbtnUpdate6.Enabled:=True;
  bbtnDelete6.Enabled:=True;
  bbtnSave6.Enabled:=False;
  bbtnCancel6.Enabled:=False;
end;

procedure THrm150_01Form.bbtnCancel6Click(Sender: TObject);
begin
  inherited;
//技术专长-取消
  qryHrm157.CancelUpdates;
  DBMemo4.ReadOnly:=True;
  bbtnUpdate6.Enabled:=True;
  bbtnDelete6.Enabled:=True;
  bbtnSave6.Enabled:=False;
  bbtnCancel6.Enabled:=False;
end;

procedure THrm150_01Form.DBEdit18KeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
  ValidFloat(Sender,Key);
end;

procedure THrm150_01Form.qryHrm150AfterScroll(DataSet: TDataSet);
begin
  inherited;
  if qryHrm150.IsEmpty then Exit;

  qryHrm151.Close;
  qryHrm151.Parameters[0].Value:=qryHrm150.FieldByName('H150_001').Value;
  qryHrm151.Open;
  qryHrm153.Close;
  qryHrm153.Parameters[0].Value:=qryHrm150.FieldByName('H150_001').Value;
  qryHrm153.Open;
  qryHrm154.Close;
  qryHrm154.Parameters[0].Value:=qryHrm150.FieldByName('H150_001').Value;
  qryHrm154.Open;
  qryHrm155.Close;
  qryHrm155.Parameters[0].Value:=qryHrm150.FieldByName('H150_001').Value;
  qryHrm155.Open;
  qryHrm156.Close;
  qryHrm156.Parameters[0].Value:=qryHrm150.FieldByName('H150_001').Value;
  qryHrm156.Open;
  qryHrm157.Close;
  qryHrm157.Parameters[0].Value:=qryHrm150.FieldByName('H150_001').Value;
  qryHrm157.Open;
  qryHrm158.Close;
  qryHrm158.Parameters[0].Value:=qryHrm150.FieldByName('H150_001').Value;
  qryHrm158.Open;
  qryHrm159.Close;
  qryHrm159.Parameters[0].Value:=qryHrm150.FieldByName('H150_001').Value;
  qryHrm159.Open;

  Edit3.Text:=qryHrm150.FieldByName('H120_002').AsString;
  Edit5.Text:=qryHrm150.FieldByName('H130_002').AsString;
  bbtnUpdate.Enabled:=not qryHrm155.IsEmpty;
  bbtnDelete.Enabled:=not qryHrm155.IsEmpty;
  bbtnUpdate1.Enabled:=not qryHrm158.IsEmpty;
  bbtnDelete1.Enabled:=not qryHrm158.IsEmpty;
  bbtnUpdate2.Enabled:=not qryHrm159.IsEmpty;
  bbtnDelete2.Enabled:=not qryHrm159.IsEmpty;

  bbtnDelete3.Enabled:=not qryHrm153.IsEmpty;
  bbtnDelete4.Enabled:=not qryHrm154.IsEmpty;
  bbtnDelete5.Enabled:=not qryHrm156.IsEmpty;
  bbtnDelete6.Enabled:=not qryHrm157.IsEmpty;
end;

procedure THrm150_01Form.ActFirstExecute(Sender: TObject);
begin
  inherited;
//最前
  if qryHrm150.IsEmpty then Exit;
  qryHrm150.First;
  ActFirst.Enabled:=False;
  ActPrior.Enabled:=False;
  ActNext.Enabled:=True;
  ActLast.Enabled:=True;
end;

procedure THrm150_01Form.ActPriorExecute(Sender: TObject);
begin
  inherited;
//上移
  if qryHrm150.IsEmpty then Exit;
  qryHrm150.Prior;
  ActNext.Enabled:=not qryHrm150.Eof;
  ActLast.Enabled:=not qryHrm150.Eof;
  ActFirst.Enabled:=not qryHrm150.Bof;
  ActPrior.Enabled:=not qryHrm150.Bof;
end;

procedure THrm150_01Form.ActNextExecute(Sender: TObject);
begin
  inherited;
//下移
  if qryHrm150.IsEmpty then Exit;
  qryHrm150.Next;
  ActNext.Enabled:=not qryHrm150.Eof;
  ActLast.Enabled:=not qryHrm150.Eof;
  ActFirst.Enabled:=not qryHrm150.Bof;
  ActPrior.Enabled:=not qryHrm150.Bof;
end;

procedure THrm150_01Form.ActLastExecute(Sender: TObject);
begin
  inherited;
//最后
  if qryHrm150.IsEmpty then Exit;
  qryHrm150.Last;
  ActNext.Enabled:=False;
  ActLast.Enabled:=False;
  ActFirst.Enabled:=True;
  ActPrior.Enabled:=True;
end;

procedure THrm150_01Form.ActInsertExecute(Sender: TObject);
begin
  inherited;
//新增
  qryHrm150.Insert;
  SetButtonState(True);

  wwDBDateTimePicker1.Date:=GetServerDate;
  qryHrm150.FieldByName('H150_007').AsString:=DBComboBox1.Items[0];  //男
  qryHrm150.FieldByName('H150_016').AsString:=DBComboBox2.Items[1];  //未婚
  qryHrm150.FieldByName('H150_022').AsString:=DBComboBox3.Items[2];  //大专
  qryHrm150.FieldByName('H150_011').Value:=GetServerDate;
  qryHrm150.FieldByName('H150_012').Value:=1;
  qryHrm150.FieldByName('H150_020').Value:=True;
  Edit3.Text:='';
  Edit5.Enabled:=True;
  SpeedButton5.Enabled:=True;
  Edit5.Color:=AEnableColor;
  Edit5.Text:=qryHrm130.FieldByName('H130_002').AsString;
  if Showing then FocusControl(DBEdit1);
end;

procedure THrm150_01Form.ActUpdateExecute(Sender: TObject);
begin
  inherited;
//修改
  if qryHrm150.IsEmpty then
  begin
    ShowMsg('UMS10000002');  //表记录为空，操作无效
    Abort;
  end;
  qryHrm150.Edit;
  SetButtonState(True);

  AOLDID:=trim(qryHrm150.FieldByName('H150_002').AsString);
  Edit5.Enabled:=False;
  SpeedButton5.Enabled:=False;
  Edit5.Color:=ADisableColor;
  if Showing then FocusControl(DBEdit1);
end;

procedure THrm150_01Form.ActDeleteExecute(Sender: TObject);
begin
  inherited;
//删除
  if qryHrm150.IsEmpty then
  begin
    ShowMsg('UMS10000002');  //表记录为空，操作无效
    Abort;
  end;

  if ShowDialog('UMS10000008')=IDYES then  //确定要删除此记录吗?
  begin
    SYSDM.ADOC.BeginTrans;
    try
      SYSDM.qryQuery.Close;
      SYSDM.qryQuery.SQL.Clear;
      SYSDM.qryQuery.SQL.Add('delete from HRM151 where H151_001='+qryHrm150.FieldByName('H150_001').AsString);
      SYSDM.qryQuery.ExecSQL;
      SYSDM.qryQuery.Close;
      SYSDM.qryQuery.SQL.Clear;
      SYSDM.qryQuery.SQL.Add('delete from HRM152 where H152_001='+qryHrm150.FieldByName('H150_001').AsString);
      SYSDM.qryQuery.ExecSQL;
      SYSDM.qryQuery.Close;
      SYSDM.qryQuery.SQL.Clear;
      SYSDM.qryQuery.SQL.Add('delete from HRM153 where H153_001='+qryHrm150.FieldByName('H150_001').AsString);
      SYSDM.qryQuery.ExecSQL;
      SYSDM.qryQuery.Close;
      SYSDM.qryQuery.SQL.Clear;
      SYSDM.qryQuery.SQL.Add('delete from HRM154 where H154_001='+qryHrm150.FieldByName('H150_001').AsString);
      SYSDM.qryQuery.ExecSQL;
      SYSDM.qryQuery.Close;
      SYSDM.qryQuery.SQL.Clear;
      SYSDM.qryQuery.SQL.Add('delete from HRM155 where H155_001='+qryHrm150.FieldByName('H150_001').AsString);
      SYSDM.qryQuery.ExecSQL;
      SYSDM.qryQuery.Close;
      SYSDM.qryQuery.SQL.Clear;
      SYSDM.qryQuery.SQL.Add('delete from HRM156 where H156_001='+qryHrm150.FieldByName('H150_001').AsString);
      SYSDM.qryQuery.ExecSQL;
      SYSDM.qryQuery.Close;
      SYSDM.qryQuery.SQL.Clear;
      SYSDM.qryQuery.SQL.Add('delete from HRM157 where H157_001='+qryHrm150.FieldByName('H150_001').AsString);
      SYSDM.qryQuery.ExecSQL;
      SYSDM.qryQuery.Close;
      SYSDM.qryQuery.SQL.Clear;
      SYSDM.qryQuery.SQL.Add('delete from HRM158 where H158_001='+qryHrm150.FieldByName('H150_001').AsString);
      SYSDM.qryQuery.ExecSQL;
      SYSDM.qryQuery.Close;
      SYSDM.qryQuery.SQL.Clear;
      SYSDM.qryQuery.SQL.Add('delete from HRM159 where H159_001='+qryHrm150.FieldByName('H150_001').AsString);
      SYSDM.qryQuery.ExecSQL;
      qryHrm150.Delete;
      SYSDM.ADOC.CommitTrans;
    except
      SYSDM.ADOC.RollbackTrans;
      ShowMsg(SYSDM.ADOC.Errors[0].Description,1);
      Abort;
    end;
  end;
end;

procedure THrm150_01Form.ActSaveExecute(Sender: TObject);
begin
  inherited;
//保存
  //员工编号检验
  if trim(DBEdit1.Text)='' then
  begin
    ShowMsg('UMS10000071');  //员工编号不能为空
    DBEdit1.SetFocus;
    Abort;
  end
  else
  begin
    if trim(DBEdit1.Text)<>AOLDID then
    begin
      SYSDM.qryQuery.Close;
      SYSDM.qryQuery.SQL.Clear;
      SYSDM.qryQuery.SQL.Add('select 1 from HRM150 where H150_002='+''''+trim(DBEdit1.Text)+'''');
      SYSDM.qryQuery.Open;
      if not SYSDM.qryQuery.IsEmpty then
      begin
        ShowMsg('UMS10000088');  //员工编号已存在
        DBEdit1.SetFocus;
        Abort;
      end;
    end;
   end;

  //姓名检验
  if trim(DBEdit2.Text)='' then
  begin
    ShowMsg('UMS10000089');  //员工姓名不能为空
    DBEdit2.SetFocus;
    Abort;
  end;

  //部门编号检验
  if trim(dxDBLookupTreeView1.Text)='' then
  begin
    ShowMsg('UMS10000090');  //部门名称不能为空
    dxDBLookupTreeView1.SetFocus;
    Abort;
  end;

  if trim(Edit3.Text)='' then
  begin
    ShowMsg('UMS10000091');  //职务编号不能为空
    Edit3.SetFocus;
    Abort;
  end;
  //职务编号检验
  SYSDM.qryQuery.Close;
  SYSDM.qryQuery.SQL.Clear;
  SYSDM.qryQuery.SQL.Add('select * from HRM120 where H120_002='+''''+trim(Edit3.Text)+'''');
  SYSDM.qryQuery.Open;
  if SYSDM.qryQuery.IsEmpty then
  begin
    ShowMsg('UMS10000086');  //无效的职务编号
    Edit3.SetFocus;
    Abort;
  end;
  Edit3.Text:=SYSDM.qryQuery.FieldByName('H120_002').AsString;
  qryHrm150.FieldByName('H150_008').AsString:=SYSDM.qryQuery.FieldByName('H120_001').AsString;

  try
    Screen.Cursor:=crHourGlass;
    qryHrm150.Post;
  except
    Screen.Cursor:=crDefault;
    ShowMsg(SYSDM.ADOC.Errors[0].Description,1);
    if not (qryHrm150.State in [dsInsert,dsEdit]) then qryHrm150.Edit;
    Abort;
  end;

  qryHrm150.Refresh;
  qryHrm151.Edit;
  qryHrm151.FieldByName('H151_001').Value:=qryHrm150.FieldByName('H150_001').Value;
  qryHrm151.Post;
  qryHrm151.UpdateBatch;

  SetButtonState(False);

  Edit5.Enabled:=False;
  SpeedButton5.Enabled:=False;
  Edit5.Color:=ADisableColor;
  Screen.Cursor:=crDefault;
  ActInsert.Execute;
end;

procedure THrm150_01Form.ActCancelExecute(Sender: TObject);
begin
  inherited;
//取消
  qryHrm150.CancelUpdates;
  qryHrm150.Refresh;
  SetButtonState(False);

  Edit3.Text:=qryHrm150.FieldByName('H120_002').AsString;
  Edit5.Enabled:=False;
  SpeedButton5.Enabled:=False;
  Edit5.Color:=ADisableColor;
end;

procedure THrm150_01Form.ActLocateExecute(Sender: TObject);
begin
  inherited;
//查找
  if qryHrm150.IsEmpty then
  begin
    ShowMsg('UMS10000002');  //表记录为空，操作无效
    Exit;
  end;
  LocateDialog(dsHrm150);
end;

procedure THrm150_01Form.ActPrintExecute(Sender: TObject);
begin
  inherited;
//打印
  SelectReport(qryHrm150,AProgramID,AReportName,ReportGetValue);
end;

procedure THrm150_01Form.ActExitExecute(Sender: TObject);
begin
  inherited;
//退出
  Close;
end;

procedure THrm150_01Form.SpeedButton1Click(Sender: TObject);
begin
  inherited;
//部门编号
  Hrm100_01Form:=THrm100_01Form.Create(Application);
  Hrm100_01Form.ShowModal;
  qryHrm100.Close;
  qryHrm100.Open;
end;

procedure THrm150_01Form.FormActivate(Sender: TObject);
begin
  inherited;
  if qryHrm150.State in [dsInsert,dsEdit] then FocusControl(DBEdit1);
end;

initialization
  RegisterClass(THrm150_01Form);

finalization
  UnRegisterClass(THrm150_01Form);

end.