TStoredProc组件的用法案例

Alice

var
  lStoreProc: TStoredProc;
begin
  Result := true;
  lStoreProc := TStoredProc.Create(nil);
  try
    lStoreProc.ConnectionString := TPublicClassLib.GetStoredProcConnectionStr;
    lStoreProc.StoredProcName := 'P_PurchaseStockPlan';    //存储过程的名字
    lStoreProc.Params.ParamByName('I_RANDOMID').AsString := ARandomID;  //参数
    lStoreProc.Params.ParamByName('I_WHCODE').AsString := AWhcode; //参数
    lStoreProc.Params.ParamByName('I_INVCLASS').AsString := AInvClass; //参数
    lStoreProc.Params.ParamByName('I_INVCODE').AsString := AInvCode; //参数
    try
      lStoreProc.Execute;  //执行存储过程
    except
      raise Exception.Create('存储过程执行错误!!');
      Result := false;
    end;
  finally
    lStoreProc.Free;
  end;

Alice

需要指定如下图所示的数据库引擎：

Alice

这个控件可以调用oracle中的包里的函数或者过程，代码如下：

StoredProc1.StoredProcName:='PK1.DEL_DATA' ;
StoredProc1.Params[0].AsString:='402';
StoredProc1.Execute;