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

hdwt · 发表于 2007-10-26 14:42:51

在表格文档关闭时会提示文档的内容已经修改，询问是否保存。
我在关闭时不想保存文档，也不想看到提示信息直接略过，请问有什么办法实现。谢谢！
或者在DovView的Exit事件中用什么样的代码处理吗请指点。。。。。。

lixy · 发表于 2007-10-26 14:54:10

http://bbs.justep.com/forum.php? ... 1%D5%2A%CC%E1%CA%BE

hdwt · 发表于 2007-10-28 11:52:29

请问我这样接管OnCloseQuery事件有什么问题，错在哪里。。。运行时会EAccessViolation错误
代码如下:
procedure TXLZHTJCT.BizFormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
  IFunc : TFunc;
  IContextCurrent : TContextCurrent;
  bizUrl : TBizURL;
begin
  IContextCurrent := TContextCurrent(Self.Context);
  bizUrl := Self.GetBizURL;
  try
IFunc := IContextCurrent.GetFunc(bizUrl);//获取当前业务功能
if IFunc.UpdatesPending then IFunc.Destroy;
  finally
IContextCurrent.Free;
  end;
end;

hdwt · 发表于 2007-10-28 11:54:18

还有请问我不想保存文档的更改，不执行IFunc.ApplyUpdates过程，那么让更改的数据回滚的方法过程是什么。。。。。谢谢

lixy · 发表于 2007-10-29 09:26:26

不执行ApplyUpdates数据不保存。为什么还要回滚？
3楼的错误楼主跟踪一下。

hdwt · 发表于 2007-10-29 09:26:29

UP~~~~!

hdwt · 发表于 2007-10-29 09:37:31

文档里的数据改变了，要么提交要么回滚，不应该是这样的吗请问程序中接管了OnCloseQuery事件我不想提交更改就什么也不用写了吗
还有No.3的错误跟踪调试了一下 IFunc := IContextCurrent.GetFunc(bizUrl);//获取当前业务功能处出了错误EAcessViolation 之前ContextCurrent和bizURL对象都能获取到不为空谢谢~~~

lixy · 发表于 2007-10-29 10:12:02

x3是3层的结构，本地保存，并不提交数据库。

bizUrl := Self.GetBizURL;您获得的是窗体的bizurl吧，应该获得功能的。

hdwt · 发表于 2007-10-29 10:28:16

请问怎么获取功能的。。。。

lixy · 发表于 2007-10-29 11:24:32

您最后那些代码干什么的？看不懂

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