1,178
社区成员
发帖
与我相关
我的任务
分享
ChargeDM->OraSP_IfWpUsed->Close();
ChargeDM->OraSP_IfWpUsed->Params->Clear();
ChargeDM->OraSP_IfWpUsed->PrepareSQL();
ChargeDM->OraSP_IfWpUsed->Params->CreateParam(ftString,"workplace_id",ptInput);
ChargeDM->OraSP_IfWpUsed->Params->CreateParam(ftString,"lib_id",ptInput);
ChargeDM->OraSP_IfWpUsed->Params->CreateParam(ftInteger,"li_retu",ptOutput);
ChargeDM->OraSP_IfWpUsed->ParamByName("workplace_id")->AsString = mWpId;
ChargeDM->OraSP_IfWpUsed->ParamByName("lib_id")->AsString = mLibId;
ChargeDM->OraSP_IfWpUsed->Prepare();
try
{
ChargeDM->OraSP_IfWpUsed->ExecProc();
li_retcode=ChargeDM->OraSP_IfWpUsed->ParamByName("li_retu")->AsInteger;
ChargeDM->OraSP_IfWpUsed->UnPrepare();
ChargeDM->OraSP_IfWpUsed->Close();
}
catch(EDatabaseError &e)
{
Application->MessageBox(("数据库操作错误" + e.Message).c_str(),"提示信息",MB_OK);
return ;
}