//定義變量
long i
string ls_dh,ls_flag
//dw_1數(shù)據(jù)窗口接受修改的數(shù)據(jù)
dw_1.accepttext( )
//對dw_1從第一行開始做逐行的循環(huán)
for i = 1 to dw_1.rowcount( )
ls_flag = dw_1.object.flag[i] //取dw_1中flag字段的值
if ls_flag = '1' then //如果flag字段值為'1'
ls_dh = dw_1.object.dh.dh[i] //取這一行dh字段的值（此處是不是代碼拷貝錯了?不可能出現(xiàn)dh.dh）
//更新表gdzc_info,把表中字段dh等于本行dh值的數(shù)據(jù),設(shè)置shzt列 = '1'
update gdzc_info
set shzt = '1'
where dh = :ls_dh ;
if sqlca.sqlcode = 0 then//如果更新成功,不處理,sqlcode = 0表示執(zhí)行成功
else //如果更新失敗
rollback; //取消更新rollback表示回滾事務(wù),取消先前的數(shù)據(jù)庫操作
messagebox('','審核錯誤!') //彈出提示框,提示審核錯誤
return //停止程序的執(zhí)行,return后,程序不會再繼續(xù)執(zhí)行.
end if
end if
next
commit ; //確認所有的更新,以上update語句循環(huán)執(zhí)行,知道所有的執(zhí)行成功,才會提交修改.
messagebox('','審核完畢!') //彈出對話框,提示審核完畢