英语翻译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/05/09 04:41:38
英语翻译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 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('','审核完毕!') //弹出对话框,提示审核完毕

英语翻译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; 英语翻译so long 英语翻译Long adjectives 英语翻译Long Long Journey 是恩雅的歌 英语翻译是long,long time ago还是long,long time before还是long,long time later哪个? 英语翻译How long开头的 Long time no see 英语翻译 英语翻译什么时候用how long 英语翻译XIN LONG WARP KNITTING 英语翻译Long time no see. 英语翻译像讲故事一样 开头可以是long，long ago have a long sieep.的英语翻译 英语翻译：50,each up 20 cm long. 英语翻译主要是Long live 怎么翻译 millie does not like long hair.英语翻译 a long week of classes 英语翻译 英语翻译_____ for a long time 英语翻译 as long as my chinese concerns