起步软件技术论坛-X3

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

如下详文。[问题]

[复制链接]
发表于 2010-3-3 11:27:38 | 显示全部楼层
不会的,你在a功能上分配的数据集策略,是不会作用到b功能上的,单独运行b功能就正常了?
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-3-3 11:34:46 | 显示全部楼层
对 我单独从工作台中运行B功能就不会继承A功能对该数据集做的策略。
回复 支持 反对

使用道具 举报

发表于 2010-3-3 11:39:59 | 显示全部楼层
猜不到了,我这边是正常的,要不你做个简单的例子导过来看看吧。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-3-3 11:43:35 | 显示全部楼层
我把A功能的数据集策略删掉  在从A功能中打开B功能 就没有错了。 我估摸着A功能的数据集策略改变了业务信息中的数据集,而又没有中断A功能 而是从A功能中打开B功能 又由于是使用的同一个数据集  故而还是继承那个策略
回复 支持 反对

使用道具 举报

发表于 2010-3-3 11:49:11 | 显示全部楼层
把a功能运行b功能的代码贴出来看看
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-3-3 11:54:24 | 显示全部楼层
procedure TDOCTOR_DOCUMENT_QUERY_DOC.DataGridDblClick(Sender: TObject);
var
   i:integer;
   s:string;
   lFuncIsRunning:Boolean;
begin
     if (DataSetBrokerDOCTOR_DOCUMENT_DETAIL.DataSet.Active) and (not DataSetBrokerDOCTOR_DOCUMENT_DETAIL.DataSet.IsEmpty) then
     begin
          if DataGrid.FocusedField.FieldName='DISTRICT_NAME' then
          begin
               s:='Biz:\HR\FUNC_DOCTOR_DOCUMENT_APPLY.Func';
               for i:= 0 to SystemCore.TSystemCore.FuncManager.RunningFuncCount - 1 do
               begin
                    if SysUtils.UpperCase(SystemCore.TSystemCore.FuncManager.RunningFuncs.BizClassURL.BizURL.URL) = SysUtils.UpperCase(s) then
                    begin
                         lFuncIsRunning := True;
                         break;
                    end
                    else
                      lFuncIsRunning := False;
              end;
              if  lFuncIsRunning then
              begin
                   JsDialogs.ShowMsg('您已经打开了该功能,请关闭后在执行该操作!','提示');
                   SysUtils.Abort;
              end
              else
                  SystemCore.TSystemCore.FuncManager.RunFunc(Context,'',s,DataSetBrokerDOCTOR_DOCUMENT_DETAIL.DataSet.FieldByName('FILLER_CODE').AsString+'-'+DataSetBrokerDOCTOR_DOCUMENT_DETAIL.DataSet.FieldByName('PRIMARY_ID').AsString,nil,False);
          end;
     end;
end;
回复 支持 反对

使用道具 举报

发表于 2010-3-3 11:55:17 | 显示全部楼层
SystemCore.TSystemCore.FuncManager.RunFunc(Context

Context 这个改成parent.context
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-3-3 11:56:32 | 显示全部楼层
我试下。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-3-3 11:57:35 | 显示全部楼层
parent哪里来的? 要引用什么单元么?
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-3-3 12:03:48 | 显示全部楼层
使用parent.context 编译出错哦。 要引用什么单元么?
回复 支持 反对

使用道具 举报

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

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-7-11 04:30 , Processed in 0.036943 second(s), 13 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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