[推荐]获取密码和修改密码 分享

berwos

procedure Tfrm_ZCT.Button1Click(Sender: TObject);
var
  lString: string;
  lBizURl: TBizURl;
  lPerson: TPerson;
begin  // 查找密码
  if  Editid.Text='' then
      Business.Forms.Dialogs.ShowMessage('请输入人员id')
  else
    begin
    lString:=Editid.Text;
    lBizURL := TBizURL.Create;
    lBizURl.URL:='Org:\PERSON\'+lString+'.psn';
    lPerson:= TPerson(OrgSys.OrgSystem.GetUnit(lBizURl));
      if Assigned(lPerson) then
       Editczmm.Text:= lPerson.Password;
    lBizURl.Free;
    end;
end;


procedure Tfrm_ZCT.Button2Click(Sender: TObject);
var
  lString,lPassword: string;
  lPerson: TPerson;
  lBizURl: TBizURl;

begin  //   重新设置密码
  if Editid.Text='' then
     Business.Forms.Dialogs.ShowMessage('请输入人员id')
  else
  begin
    lPassword:=Editcsmm.Text;
    lString:=Editid.Text;
    lBizURL := TBizURL.Create;
    lBizURl.URL:='Org:\PERSON\'+lString+'.psn';
    lPerson:= TPerson(OrgSys.OrgSystem.GetUnit(lBizURl));
      if Assigned(lPerson) then
         begin
         lPerson.Password:=lPassword;
         OrgSys.OrgSystem.SaveUnit(lPerson);
         end;
    lBizURl.Free;
  end;
end;

atiger

谢谢，楼主。

希望大家以后有这样的心得都共享出来，大家一起学习，学习，再学习

berwos

呵呵应该加精华吧