英语翻译long istring ls_dh,ls_flagdw_1.accepttext( )for i = 1 to dw_1.rowcount( )ls_flag = dw_1.object.flag[i]if ls_flag = '1' thenls_dh = dw_1.object.dh.dh[i]update gdzc_infoset shzt = '1'where dh = :ls_dh ;if sqlca.sqlcode = 0 thenelserollback;
来源：学生作业帮助网 编辑：六六作业网 时间：2024/11/08 11:47:25
英语翻译long istring ls_dh,ls_flagdw_1.accepttext( )for i = 1 to dw_1.rowcount( )ls_flag = dw_1.object.flag[i]if ls_flag = '1' thenls_dh = dw_1.object.dh.dh[i]update gdzc_infoset shzt = '1'where dh = :ls_dh ;if sqlca.sqlcode = 0 thenelserollback;
英语翻译
long i
string ls_dh,ls_flag
dw_1.accepttext( )
for i = 1 to dw_1.rowcount( )
ls_flag = dw_1.object.flag[i]
if ls_flag = '1' then
ls_dh = dw_1.object.dh.dh[i]
update gdzc_info
set shzt = '1'
where dh = :ls_dh ;
if sqlca.sqlcode = 0 then
else
rollback;
messagebox('','审核错误!')
return
end if
end if
next
commit ;
messagebox('','审核完毕!')
英语翻译long istring ls_dh,ls_flagdw_1.accepttext( )for i = 1 to dw_1.rowcount( )ls_flag = dw_1.object.flag[i]if ls_flag = '1' thenls_dh = dw_1.object.dh.dh[i]update gdzc_infoset shzt = '1'where dh = :ls_dh ;if sqlca.sqlcode = 0 thenelserollback;
//定义变量
long i
string ls_dh,ls_flag
//dw_1数据窗口接受修改的数据
dw_1.accepttext( )
//对dw_1从第一行开始做逐行的循环
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字段的值（此处是不是代码拷贝错了?不可能出现dh.dh）
//更新表gdzc_info,把表中字段dh等于本行dh值的数据,设置shzt列 = '1'
update gdzc_info
set shzt = '1'
where dh = :ls_dh ;
if sqlca.sqlcode = 0 then//如果更新成功,不处理,sqlcode = 0表示执行成功
else //如果更新失败
rollback; //取消更新rollback表示回滚事务,取消先前的数据库操作
messagebox('','审核错误!') //弹出提示框,提示审核错误
return //停止程序的执行,return后,程序不会再继续执行.
end if
end if
next
commit ; //确认所有的更新,以上update语句循环执行,知道所有的执行成功,才会提交修改.
messagebox('','审核完毕!') //弹出对话框,提示审核完毕