起步软件技术论坛-X3

 找回密码
 立即注册
搜索
12
返回列表 发新帖
楼主: jxsong

【搞定】代码修改人员密码出错**

[复制链接]
发表于 2007-6-18 11:41:46 | 显示全部楼层
楼主,你不要zPerson := TPerson.Create(Person.BizURL); 而是zPerson := Org.OrgSys.OrgSystem.GetPerson('人员ID'); 看看
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-6-18 12:06:03 | 显示全部楼层
用zPerson := Org.OrgSys.OrgSystem.GetPerson('RY2');
一样的错误,运行到
Org.OrgSys.OrgSystem.SaveUnit(zPerson);
报指针错误
和一楼的错误相同
回复 支持 反对

使用道具 举报

发表于 2007-6-18 14:09:47 | 显示全部楼层
貌似zPerson.Password := Edit1.text;这样就ok了,
下面一句不需要
Org.OrgSys.OrgSystem.SaveUnit(zPerson);
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-6-18 14:22:49 | 显示全部楼层
我刚才也发现了,正奇怪呢

谢谢linjiawei
回复 支持 反对

使用道具 举报

发表于 2007-6-18 14:38:10 | 显示全部楼层
我测试了一下,还真可以,不过需要进一步确认一下是啥原因
回复 支持 反对

使用道具 举报

发表于 2007-6-18 14:42:11 | 显示全部楼层
这样写试试
procedure TMainForm.Button1Click(Sender: TObject);
var
  zPerson : TPerson;
begin
  FSMNGR.OrgSystemManager.UseLocalCache := False;
  try
    zPerson := Org.OrgSys.OrgSystem.GetPerson('HTD');
    zPerson.Password := Edit1.text;
    Org.OrgSys.OrgSystem.SaveUnit(TorgUnit(zPerson));
    jsDialogs.showmsg('修改人员密码成功', '返回信息');
  except
    jsDialogs.showerror('人员选择出错', '出错了');
  end;
end;
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-6-18 17:36:09 | 显示全部楼层
to lisb:16楼这几段代码也不行,还是在Org.OrgSys.OrgSystem.SaveUnit(TorgUnit(zPerson));这里报错

to atiger: 呵呵,atiger大哥,这个光荣而艰巨的任务就落在你肩上了

谢谢各位,可以结贴了
回复 支持 反对

使用道具 举报

发表于 2008-7-1 17:47:28 | 显示全部楼层
此帖一直忘记跟了(十二分的抱歉),修改组织机构的东东,需要关闭缓存,且强力建议要save,关闭缓存的方法参考 http://bbs.justep.com/forum.php?mod=viewthread&tid=19024
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-7-18 15:55 , Processed in 0.043457 second(s), 13 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表