如何调用存储过程,使记录语句显示在DBGRID里.(0分)

procedure TForm1.FormCreate(Sender: TObject);
begin
ado.ConnectionString:='Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=tvb;Data Source=YY-510PYBFT7A2S/YY';
ado.ProcedureName:='CancelInRec;1';
//ado.Prepared:=true;
ado.Parameters[1].DataType :=ftinteger;
ado.Parameters[1].Direction :=pdoutput;
ado.Parameters[1].Value:=1;
data.DataSet:=ado;
dbgrid1.DataSource:=data;
//ado.ExecProc;
adpen;

{上面的使用连接存储过程语句,在运行的时候记录为何没有
显示在DBGRID里,如果去掉注释的ADO.OPEN,运行时就出现
COMMANDTEXT DOES NOT RETURN A RESULT SET 的错误,请教如何
修改. 我想将存储过程的记录语句显示在DBGRID里,我的过程代码如下: }
alter procedure CancelInRec
@Code int
as
insert TbIn (编号,日期,产品号,产品名称,单价,数量,总额)
select 编号+'_',日期,产品号,产品名称,单价,数量*(-1),总额*(-1)
from TbIn
where 编号=@Code

alter procedure CancelInRec
@Code int
as
//insert TbIn (编号,日期,产品号,产品名称,单价,数量,总额)
select 编号+'_',日期,产品号,产品名称,单价,数量*(-1),总额*(-1)
from TbIn
where 编号=@Code
这样试试

：土土谢谢你的回答,但是你这条语句不是和我一样的吗,有什么不同的啊?我想把它显示在
DBRGID里啊,怎样修改啊.