首先在PowerBar上点取用户对象按钮,弹出Select User Object对话框,单击对话框中New按钮,又弹出New User Object对话框,选择Standard Class用户对象并单击OK按钮,此时显示Select Standard Class Type对话框,选择系统Pipeline对象并单击OK按钮,对所定义的用户对象做所需的修改工作,比如定义变量、做初始化工作。
在控制数据管道运行窗口close事件写入下面的程序:
DESTROY pipe //删除用户对象实例
DISCONNECT USING itrans_source;
//断开源数据库
IF itrans_source.SQLCode=-1 then
Beep(1)
MessageBox(“数据库连接失败”,“问题发生在与源数据库断开时!”,EXCLAMATION!)
END IF
DESTROY itrans_source
//删除指向源数据库的事务对象实例
DISCONNECT USING itrans_destination;
//