保存

IF dw_1.Update() > 0 THEN
dw_1.ResetUpdate() //将窗口的属性设置为初始化
COMMIT USING sqlca;
IF sqlca.SQLCode = 0 THEN
MessageBox('提示', PARENT.Title + '保存成功!')
ELSE
ROLLBACK;
MessageBox('提示', PARENT.Title +'保存失败!')
END IF
ELSE
ROLLBACK;
MessageBox('提示',PARENT.Title +'保存失败!')
END IF

//sql语句写在pb程序时，但是最好还是多写成存储过程和视图形式进行检索，方便以后程序修改不用都要去改程序

每个sql语句
if SQLca.SQLcode <> 0 then
goto error_process
else
end if
commit
error_process：
数据库报错回滚函数