DECLARE SfmxCheck PROCEDURE FOR SFMX_CHECK @lsh=:il_string_lsh,@xsdj=:ld_xsdj,@xssl=:ld_xssl,@xsdw=:ls_xsdw,@OutParm=:ls_OutInfo output;
EXECUTE SfmxCheck;
FETCH SfmxCheck into :ls_OutInfo;
if not (sqlca.sqlcode=0 and ls_OutInfo="0") then
//如果返回值的第一位是1的,可以提示是否继续操作
if left(ls_OutInfo,1)='?' then
int il_Reult;
il_Reult=messagebox("提示信息",ls_OutInfo+"是否许可继续操作[Yes/No]",Exclamation!, YesNo!, 2)
if il_Reult<>1 then
close SfmxCheck;
return
end if
else
messagebox("提示信息",ls_OutInfo+sqlca.sqlerrtext)
close SfmxCheck;
return
end if
end if
close SfmxCheck;
EXECUTE SfmxCheck;
FETCH SfmxCheck into :ls_OutInfo;
if not (sqlca.sqlcode=0 and ls_OutInfo="0") then
//如果返回值的第一位是1的,可以提示是否继续操作
if left(ls_OutInfo,1)='?' then
int il_Reult;
il_Reult=messagebox("提示信息",ls_OutInfo+"是否许可继续操作[Yes/No]",Exclamation!, YesNo!, 2)
if il_Reult<>1 then
close SfmxCheck;
return
end if
else
messagebox("提示信息",ls_OutInfo+sqlca.sqlerrtext)
close SfmxCheck;
return
end if
end if
close SfmxCheck;