医药CRM系统开发

自已做医药CRM系统有四年了,终于可以算个产品了,努力市场化,今年重种将医药营销的理念加入CRM

导航

Powerbuilder中调用存储过程

Posted on 2010-04-25 15:59  hhq80  阅读(632)  评论(0编辑  收藏  举报
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;