datawindow的update过程中显示进度与中断

最近csdn上频频出现类似中断commit的问题：

http://topic.csdn.net/u/20090805/10/c9270a8b-2ac1-4beb-b59a-7d89dc6c4e07.html?58492

http://topic.csdn.net/u/20090806/03/5227d73b-4300-4c20-b353-5bbba45a50a6.html?8869

所以决定开始对这问题研究一下。

起初考虑的是用多线程的方法，可是无论怎么写都难以达到理想的效果，所以便开始从datawindow和datastore的事件上开始下手，果然在datawindow的sqlpreview事件上可以做。

commit是最后的提交，程序并不能中断这一操作。然而基本上我们都是先写一个update然后再commit，所以给人感觉提交数据库慢，其实慢在执行update函数上，所以可以中断update来阻止commit。

查看pb帮助，很清楚的写着：

Description

Occurs immediately before a SQL statement is submitted to the DBMS. Methods that trigger DBMS activity are Retrieve, Update, and ReselectRow.

Return value

Set the return code to affect the outcome of the event:

0 Continue processing
1 Stop processing
2 Skip this request and execute the next request

For information on setting the return code in a particular environment, see "About return values for DataWindow events".

于是可以得知datawindow的逐行提交过程可以在这个事件上做中断yield，即可将cpu时间分给执行其他代码。

下面是研究的一点成果：

实例一：这个是如何实现终止update操作

1、sqlpreview事件：

yield()
if ib_stopcommit then return 1 //ib_stopcommit实例变量

2、加一个按钮写上
ib_stopcommit=ture

3、加上dberror事件
return 1

实例二：这个是提交数据库操作中进行进度提示，以及gif动画的运行

1、sqlpreview事件：

w_wait.wf_setcurrentposition(row)//设置等待窗口的滚动条进度
yield()
if ib_stopcommit then return 1//停止

2、提交按钮：

wf_openwait() 打开进度提示窗口
wf_update()datawindow提交
wf_closewait() 关闭进度提示窗口

wf_openwait() 函数：

open(w_wait)
w_wait.wf_setmaxposition(dw_1.rowcount())

wf_update()函数：

if dw_1.update( ) =1 then
if ib_stopcommit then
return 1
end if
commit;
messagebox('系统提示','保存成功')
else
if ib_stopcommit then
return 1
end if
rollback;
messagebox('系统提示','保存失败')
end if

wf_closewait() 函数：

close(w_wait)

代码附件：

http://download.csdn.net/source/1566944