PB数据管道的实用程序设计技术
2001-01-26 00:00:00·
王晓学·YESKY
上一页 1 2 3 4 5 6 四、处理程序运行中移动数据的错误行
Start函数把所有的错误行都放置于dw _errors数据窗口控件中，此数据窗口控件为每一行提供了一个错误信息列。
数据窗口控件中一旦有错误行，用户可以进行修复或删除操作。注意将修复按钮和不修复按钮的enable属性赋值为true。同时，为监控程序进行的情况，在窗口w_yz_pipeline的open事件脚本中加入如下代码：
iuo_pipe_exchange.ist_status_read=St_status_read
iuo_pipe_exchange.ist_status_written=St_status_written
iuo_pipe_exchange.ist_status_error=St_status_error
修复操作调用Repair函数，然后根据函数的返回值判断修复成功与否。相关按钮Clicked事件脚本如下：
if u_pipe_exchange.repair(database_destination) $#@60;$#@62; 1 then
beep(1)
MessageBox(“修复操作：”,“程序运行错误”，Exclamation!)
Return
End if
不修复操作按钮Clicked事件脚本如下：
dw_errors.Reset()
五、执行数据移动完毕后的收尾操作
当应用程序完成管道操作后，退出应用程序时，应释放管道操作开始时获得的一些资源。窗口w_yz_pipeline的close事件脚本如下：
//清除支撑用户对象实例
DESTROY u_pipe_exchange
//关闭与源数据库的连接
DISCONNECT USING database_source
If database_source.SQLCode = -1 then
Beep(1)
MessageBox(“程序出错：”,”无法关闭源数据库”,Exclamation!)
End if
//清除源事物对象实例
DESTROY database_source
//关闭与目标数据库的连接
DISCONNECT USING database_destination；
If database_destination.SQLCode = -1 then
Beep(1)
MessageBox(“程序出错：”,”无法关闭目标数据库”,Exclamation!)
End if
//清除目标事物对象实例
DESTROY database_destination
上一页 1 2 3 4 5 6 |
.