事务处理中使用全局函数gf_begin_trans,gf_rollback_trans,gf_commit_trans

gf_begin_trans 之前要先settransobject(sqlca)
gf_begin_trans 里面要把自动提交关闭，
gf_rollback_trans 事物的每个操作都要进行判断
IF Sqlca.sqlcode <> 0 Then
IF gf_rollback_trans Then
Return //如果回滚成功，则结束事物
End If
End If
//gf_rollback_trans后会把自动提交打开，避免影响其他地方的事物处理
//每一步后面都要跟上一个gf_rollback_trans
//事物最后跟上一个gf_commit_trans进行提交，并把自动提交打开