楼主,测试结果,没有出现超时的现象
测试一:点开某些功能,未出问题
测试二:点开,拥有 12111人的岗位,未有问题,但第一次比较慢
我用的是平台提供的对象,创建的人员,楼主出错有可能是跟直接去操作数据库,有关,所以建议楼主使用平台提供的对象来创建和分配人员
创建人员代码:
IBizURL:=TBizURL.Create;
IBizURL.URL:='org:\ROOT\DW.ogn';
Business.Model.Org.OrgSys.OrgSystem.CreatePerson(IBizURL,'ZS'+Sysutils.IntToStr(K),'张三'+Sysutils.IntToStr(K));
self.Caption:='正在创建'+'张三'+Sysutils.IntToStr(K);
Forms.Application.ProcessMessages;
IBizURL.Free;
分配人员代码:
IBizURL:=TBizURL.Create;
IPersonURL:=TBizURL.Create;
IBizURL.URL:='Org:\ROOT\JUSTEP.OGN\CSBM.DPT\CSGW.ptm';
IPersonURL.URL:='Org:\PERSON\ZS'+ sysutils.IntToStr(K)+'.psn';
Business.Model.Org.OrgSys.OrgSystem.AssignPerson(IBizURL,IPersonURL);
self.Caption:='已经分配'+sysutils.IntToStr(K)+'人';
Forms.Application.ProcessMessages;
IBizURL.Free;
IPersonURL.Free; |