code13.txt

来自「一个用数据库编写的学生信息管理系统！做课程设计的同学可以做为参考！」· 文本 代码 · 共 20 行

程序段13
这段程序用于数据存储处理，当存储出错时，提示出错信息，该程序段用于
“存盘”的clicked事件脚本

if update(dw_1, true,false)=1 then
   if update(dw_2.,true,false)=1 then
         dw_1.resetupdate ( )
         dw_2.resetupdate ( )
         commit;
         dw_1.reset( )
         dw_2.reset( )
       else
         rollback;
         messagebox(“错误信息”，“存盘失败”)
      end if 
    else
      rollback;
      messagebox(“错误信息”，“存盘失败”)
end if