启动流程很慢！**

zhdkelly · 发表于 2009-4-1 16:52:40

TSystemCore.FuncManager.RunFunc(context,'','Biz:\GZSSZYLJYWSPXT\CKSA_DLLS.FUNC',
'abc',False,nil,False);
利用上面的代码启动一个流程非常慢，大概20多秒。这个速度比较慢。

zfang · 发表于 2009-4-1 17:07:13

runfunc的方式运行一个流程的入口功能吧？
你通过功能树中去运行这个功能是否也慢？

zhdkelly · 发表于 2009-4-1 17:10:45

是的，有什么好的办法解决呢？

atiger · 发表于 2009-4-1 17:24:54

功能层和主窗体上有代码吗？如果有屏蔽了看看速度呢？
如果速度快了，那就要看看你的代码是怎么写的了

zfang · 发表于 2009-4-1 17:25:05

那你检查一下这个功能中是否打开了没有用的数据集，或者说是否打开大数据量的数据集了。
具体你查一下。

zhdkelly · 发表于 2009-4-2 11:04:28

procedure TYWCLJM_FORM.BizFormCreate(Sender: TObject);
DataSet_SPSX.DataSet.Open;
InfoBrokerSLBD_INFO.BizClassRef.BizURL.URL:=DataSet_SPSX.DataSet.FieldByName('BizClassURL').AsString;
DataSet_SLBD.DataSetID:=DataSet_SPSX.DataSet.FieldByName('DataSetID').AsString;
DocView_SLBD.DocClassID:=DataSet_SPSX.DataSet.FieldByName('DocClassID').AsString;
SetDataSetRelation;

procedure TYWCLJM_FORM.SetDataSetRelation;
begin
  Dataset_Main.DataSet.Close;

  Dataset_SLBD.DataSet.Close;
  //设置主从关系
  Dataset_SLBD.DataSet.Relation.Master := Dataset_Main.DataSet;
  Dataset_SLBD.DataSet.Relation.KeyFieldNames := 'YYYWSLID';
  Dataset_SLBD.DataSet.Relation.MasterFieldNames := 'GUID';
  //设置及联关系
  //Dataset_SLBD.DataSet.Relation.UpdateRule := TDataSetRelationKeyRule.krCascade;
  Dataset_SLBD.DataSet.Relation.DeleteRule := TDataSetRelationKeyRule.krCascade;
  //设置事务
  Dataset_SLBD.DataSet.Connection := Dataset_Main.DataSet.Connection;
  Dataset_Main.DataSet.Open;//主表
  Dataset_SLBD.DataSet.Open;//从表

end;

zfang · 发表于 2009-4-2 11:08:02

信息中的文档的autoopendataset属性是否取消打勾？
这两个主从数据集的数据量多大？

你用系统监控看看，可以定位出具体哪里慢（系统监控工具的用法你可以在论坛里搜索到分享帖）

zhdkelly · 发表于 2009-4-2 11:54:26

就是打开这两个数据集慢

zhdkelly · 发表于 2009-4-2 11:56:33

1000多条的数据，autoopendataset属性没有打√

zfang · 发表于 2009-4-2 12:37:42

这两个数据集中是否有二进制字段呢？

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