如何修改人员密码

蔚蓝海岸

人员密码可以在Business平台的人员设计器中修改，但是有时需要使用代码的方式修改人员密码，实现这样的方法可以通过修改TPerson 对象的 PassWord 属性来实现。

procedure TMainForm.btnChangePasswordClick(Sender: TObject);
var
  lPerson: Org.TPerson;
begin
     lPerson := Org.OrgSys.OrgSystem.GetPerson('ry1');
     If Assigned(lPerson) then
     begin
      lPerson.Password := '12345';
    //  Org.OrgSys.OrgSystem.SaveUnit(lPerson);
      Dialogs.ShowMessage('密码修改成功，新密码为12345');
     end;
end;

atiger

基本思路是：首先，根据人员的 BizURL 取到一个 TPerson 对象；然后，直接对此对象的 PassWord 属性赋值；最后，调用 OrgSys.OrgSystem.SaveUnit 方法保存此TPerson对象即可。

参考：

function TBizSysUtils.SetPassword(const Person: TBizURL): Boolean;
var
  lPassword: string;
  lPerson: TPerson;
  lCaption: string;
begin
  Result := False;
  lPerson := TPerson(OrgSys.OrgSystem.GetUnit(Person));
  if Assigned(lPerson) then
  begin
    lPassword := lPerson.Password;
    lCaption := Format(Msg_SetPassword, [lPerson.DisplayName]);
    Result := ChangePassword(lPassword, lCaption);
    if Result then
    begin
      lPerson.Password := lPassword;
    //  OrgSys.OrgSystem.SaveUnit(lPerson);
    end;
  end;
end

atiger

另外，平台还提供了一个默认帐户system，默认密码是空，登陆运行平台，就可以修改原来的密码了。

jiahaiminghr

var
  lPerson : TPerson;
begin
  lPerson := OrgSys.OrgSystem.GetPerson(APersonID);  //根据人员id找到人员对象
  if lPerson <> nil then
  begin
    lPerson.LoginID := edtLoginID.Text;  //修改人员登录ID
    lPerson.Password := edtPass.Text;    //修改人员密码
    //OrgSys.OrgSystem.SaveUnit(lPerson);  //保存
  end;
end;