【搞定】一个文档关闭时的问题**

hdwt · 发表于 2007-10-29 12:32:04

我就是想达到关闭窗体时不要有提示是否保存修改窗口出现还不要把更改的数据保存
请您指点下代码应该怎样写来接管OnCloseQuery事件
还有BIZURL应该怎么样从功能中获取到谢谢~~！

hdwt · 发表于 2007-10-29 13:55:33

UP~~~一下，为什么等不到来高人指点我呢呵呵问题有点过于低级了是吗

lixy · 发表于 2007-10-29 13:58:33

上午上不了网；

jsdialogs.ShowMsg( tfunc(context.GetParentContext(bizsys.IL_FUNC).Owner).BizClassURL.BizURL.URL,'') ;

hdwt · 发表于 2007-10-29 14:13:34

procedure TXLZHTJCT.BizFormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
  IFunc : TFunc;
  IContextCurrent : TContextCurrent;
  bizUrl : TBizURL;
begin
  IContextCurrent := TContextCurrent(Self.Context);
  bizUrl := TFunc(Context.GetParentContext(BIZSYS.IL_FUNC).Owner).BizClassURL.BizURL;
  try
IFunc := IContextCurrent.GetFunc(bizUrl);//获取当前业务功能
if IFunc.UpdatesPending then IFunc.Destroy;
  finally
IContextCurrent.Free;
  end;
end;
运行还是出错了 IFunc := IContextCurrent.GetFunc(bizUrl);//获取当前业务功能这里的Func还是没有获取到对象为空哪里有问题吗麻烦您了

lixy · 发表于 2007-10-29 14:24:48

TFunc(Context.GetParentContext(BIZSYS.IL_FUNC).Owner) 这个就是当前功能。
你下面的不是画蛇添足了？？

atiger · 发表于 2007-10-29 14:25:11

楼主，你是不想保存修改的字段的值吗？感觉楼主做复杂了
如果是，直接设置数据集或者文档只读就可以了，这样用户就修改不了数据了，也会再关闭主窗体的时候提示是否要保存数据集。

还有一个，可以直接在业务信息的数据集的更新选项的属性上取消数据更新的那个复选框就可以了。

hdwt · 发表于 2007-10-29 14:50:16

谢谢各位的指点~~~问题解决了　可以结贴了~~Thanks!

hdwt · 发表于 2007-10-29 14:52:19

添足也不是我故意的只因为我刚入门知道的太少呵呵闹笑话喽！~~

atiger · 发表于 2007-10-29 15:44:24

没关系，解决问题就好

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