起步软件技术论坛-X3

 找回密码
 立即注册
搜索
楼主: yank

【结贴】Studio报错“The operation timed out”**

[复制链接]
发表于 2008-7-3 18:22:17 | 显示全部楼层
楼主,测试结果,没有出现超时的现象
测试一:点开某些功能,未出问题
测试二:点开,拥有 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;
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-7-3 20:38:15 | 显示全部楼层
我就是用平台提供的对象来创建和分配人员的,尚未分配岗位,代码如下:
procedure CreatePerson;
var
  lDept: Business.Model.Org.Torgunit;
  lBizURL: TBizURL;
  QueryT:TQuery;
begin
  QueryT:=TQuery.Create(self);
  QueryT.ConnectionString:='DATABASEURL=Biz:\SYSTEM\SYSTEM.DATABASE';

  if  Query1.Active then Query1.close;
  Query1.CommandText:='select deptcode from m_users where deptcode is not null group by deptcode';
  Query1.Open;
  Query1.first;

  while not Query1.eof do
  begin
    lDept :=Business.Model.Org.OrgSys.OrgSystem.FindUnit(Query1.FieldByName('deptcode').AsString,'','');

    if  Query3.Active then Query3.close;
    Query3.CommandText:='select * from m_users where deptcode = '''+Query1.FieldByName('deptcode').AsString+'''';
    Query3.Open;
    Query3.first;
    while not Query3.Eof do
    begin
      if QueryT.Active then QueryT.close;
      QueryT.CommandText:='select * from tperson where fid=upper('''+Query3.Fieldbyname('USERNAME').AsString+''')';
      QueryT.Open;
      if QueryT.RecordCount=0 then
      begin
        lBizURL := TBizURL.Create;
        try
          lBizURL := lDept.BizURL;
          OrgSystem.CreatePerson(lBizURL, Query3.Fieldbyname('USERNAME').asstring, Query3.Fieldbyname('NAME').asstring);
        finally
          lBizURL.Free;
        end;
      end;
      Query3.Next;
    end;
    Query1.Next;
  end;
end;
回复 支持 反对

使用道具 举报

发表于 2008-7-4 08:34:23 | 显示全部楼层
楼主,问一下,你打开功能时,是打开的功能窗体还是功能。
打开信息时,是打开信息还是信息的文档。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-7-4 08:50:51 | 显示全部楼层
都有试过,无论是签出、还是打开!都报错!
回复 支持 反对

使用道具 举报

发表于 2008-7-4 09:51:47 | 显示全部楼层
根据以往的经验,有可能是你的操作系统有问题了,我这里没有重现的你的问题,我在论坛上搜索一下相关帖子。解决方法是重装操作系统。所以请楼主,换一个机器试试。
http://bbs.justep.com/search.php ... ortorder=descending

如果链接打不开,在论坛上搜索The*operation*timed*out
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-7-4 14:32:58 | 显示全部楼层
之前就已经看过了对应的帖子~~我们的几台机器都是同样的问题!
应该不是操作系统的问题,恢复创建用户前的数据库!问题就OK!
回复 支持 反对

使用道具 举报

发表于 2008-7-4 14:49:34 | 显示全部楼层
那楼主,你把数据库上传一下吧,我恢复你一下数据库,看看能不能重现这个问题。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-7-7 20:54:49 | 显示全部楼层
系统数据库如下:
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-7-7 21:15:13 | 显示全部楼层
数据库
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-7-7 21:16:41 | 显示全部楼层
怎么文件传不上去,才4M就不行!
目前系统采用大幅削减用户量的方法,暂时避过错误提示!
并没有根本解决问题!
回复 支持 反对

使用道具 举报

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

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-7-19 05:39 , Processed in 0.040889 second(s), 14 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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