程序段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