【结帖】修改用户密码出现错误提示**

rzport_lq0

代码如下：
     lPerson := Org.OrgSys.OrgSystem.GetPerson(Edit2.text);
         if lPerson <> nil then
         begin
//         lPerson.LoginID := edtLoginID.Text;  //修改人员登录ID
            lPerson.Password := Edit3.Text;    //修改人员密码
      OrgSys.OrgSystem.SaveUnit(lPerson);  //保存
    end;

保存的时候出现如下提示：
在操作文件：ORG:\PERSON\TX_LIUQI.PSN的时候出现异常，操作代码：15，异常信息：无效的命令：TFileAttributeAction[15]

密码已经设置成功了，如果批量修改密码就很麻烦了。

lixy

http://bbs.justep.com/forum.php?mod=viewthread&tid=15918
试试18楼，关闭缓存试试，记得设置完再打开

rzport_lq0

关掉缓存1楼的保存成功了，但是批量修改还是报错，下面为批量修改的代码：
  fsmngr.OrgSystemManager.UseLocalCache := False；
     lQuery:=Tquery.Create(self);
     try
     lQuery.ConnectionString := 'DATABASEURL=Biz:\SYSTEM\SYSTEM.DATABASE';
     lQuery.CommandText := 'select fid from Tperson';
     lQuery.Open;
     lquery.First;
     while  not lquery.Eof  do
     begin
       v_id:=lquery.FieldByName('fid').AsString;
       lPerson := Org.OrgSys.OrgSystem.GetPerson(v_id);
       if lPerson <> nil then
       begin
          if  lPerson.Password.ToString ='' then
          begin
            lPerson.Password := Edit1.Text;
            OrgSys.OrgSystem.SaveUnit(lPerson);
          end;
       end;
       lquery.Next;
     end;
     finally
     lquery.Free;
     end;

报这个错误：
Access violation at address 01BC0AED in module 'SysLib.bpl'. Read of address 00000000

lixy

这个是对象有空的，请调试下。

rzport_lq0

这些都是从人员表里面取出来的，那如何去掉人员表里面的这类人员呢？

lixy

什么这类人？什么意思？

rzport_lq0

从人员表里面取出来的 FID ，在组织机构上实际上不存在的。

lixy

什么意思？在组织机构上实际上不存在的。

rzport_lq0

就是说，在组织机构里面新建一个人员了，后来删除了，但是tperson表中还有那个人地fid

或许我理解错了4楼的 对象 为空 的意思了

lixy

我说的是面向对象编程里面的对象。需要你调试如何报的00000错误。