【搞定】请教一些问题？**

ccseasy · 发表于 2007-1-30 17:50:45

1想实现添加人员的时候自动填充一个初始化密码，密码对应哪张表？可否简单说下实现方案
2以前有功能赋给了用户后来功能又被删除，再给该人员分配权限的时候就会报错，问下删除该引用有什么方法？

ccseasy · 发表于 2007-1-31 08:51:12

第二个问题我现在已经解决，第一个能否帮忙解答一下？

jiahaiminghr · 发表于 2007-1-31 08:56:03

第一个问题可以通过修改新建人员的对话框来实现。
例如，为输入密码的Edit赋一个默认值

ccseasy · 发表于 2007-1-31 09:36:39

新建的窗口包括所有组织机构的内容啊，怎么才能够只改新建人员呢
说下那个新建人员对话框的位置好吗

ccseasy · 发表于 2007-1-31 11:06:35

说下新建人员对话框的位置吧
找不到可以更改密码的edit属性的窗口？？？

ccseasy · 发表于 2007-1-31 14:00:33

不会吧
没响应啊？

jiahaiminghr · 发表于 2007-1-31 14:36:18

修改：系统空间\系统功能\组织机构\组织机构资源库\新建窗体的
procedure TCreateOrg.CreateOrg; 方法

      4: begin
         if not SysUtils.SameText(FAParentOrg.FileName, 'Org:\Person') then
         begin
            lTemp := OrgSys.OrgSystem.FindUnit(FAParentOrg.ID, '', '');
            lOrg := OrgSys.OrgSystem.CreatePerson(lTemp.BizURL, lID, lDisplayName);
         end
         else
            lOrg := OrgSys.OrgSystem.CreateUnit(BizTree.BizTreeStructure.FindNodeByFullFileName('Org:\Person').BizURL, lID, TBizObjectKind.boPerson, lDisplayName);
         TPerson(lOrg).Password := '123';  //增加此句用于设置默认密码
      end;

ccseasy · 发表于 2007-1-31 15:12:48

搞定，多谢

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