取消加密

zfang

另外，你通过平台把密码读取出来看看。（是不是密码搞错了？）
procedure TMainForm.Button1Click(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(lPerson.Password);
  end;
end;