try
   adostoredproc1.Close;
   adostoredproc1.ProcedureName:='dtdq_succ';
   adostoredproc1.Parameters.Clear;
   adostoredproc1.Parameters.Refresh;
   adostoredproc1.Parameters.ParamByName('@linkid').Value:=linkid;
   adostoredproc1.ExecProc;
   if adostoredproc1.RecordCount<>0 then
   begin
     if adostoredproc1.FieldByName('status').asstring='DELIVRD' then
        result:=1         //计费成功
      else
        result:=2;        //没计费
      end
   else
     result:=0;          //无数据处理
except
   result:=-1;            //excption....
end;那的问题?