如何清除某个部门以外的所有用户的密码？

atiger

procedure TMainForm.Button4Click(Sender: TObject);

var
  zPerson : TPerson;
begin
  FSMNGR.OrgSystemManager.UseLocalCache := False;
  try
    zPerson := Org.OrgSys.OrgSystem.GetPerson('RY1');
    zPerson.Password := '123';
    Org.OrgSys.OrgSystem.SaveUnit(TorgUnit(zPerson));
    jsDialogs.showmsg('修改人员密码成功', '返回信息');
  except
    jsDialogs.showerror('人员选择出错', '出错了');
  end;
end;

买猪蹄

还是不行，依旧报那个错，服务端版本也是3.0.6.3068

atiger

楼主，
1、哪个图？我在这里贴在上没有看到出错图。
2、在3068上做过测试了，也是正常的。这样楼主，你初始化一个新的数据库，然后做过功能放个按钮，就写我11楼的代码，然后运行看看