【结帖】请教如何代码实现修改密码？**

lijunfeng · 发表于 2008-7-1 16:24:45

请教如何通过代码实现用户密码修改？版本3002

shangxy · 发表于 2008-7-1 16:27:51

http://bbs.justep.com/forum.php?mod=viewthread&tid=1495

lijunfeng · 发表于 2008-7-1 17:11:43

谢谢！刚才试了一下，编译成功但运行报错！如下：
procedure TMainForm.btnChangePasswordClick(Sender: TObject);
var
  lPerson: Org.TPerson;
begin
   lPerson := Org.OrgSys.OrgSystem.GetPerson('111');
   If Assigned(lPerson) then
   begin
   lPerson.Password := '121';
   Org.OrgSys.OrgSystem.SaveUnit(lPerson);
   Dialogs.ShowMessage('密码修改成功，新密码为12345');
   end;
end;

代码运行Org.OrgSys.OrgSystem.SaveUnit(lPerson);报错

atiger · 发表于 2008-7-1 17:26:59

屏蔽Org.OrgSys.OrgSystem.SaveUnit(lPerson);
就可以了。

lijunfeng · 发表于 2008-7-1 17:34:17

谢谢

		自动登录	找回密码
密码			立即注册