adostoredproc控件 就可以

不好意思，用什么控件都行，最好能给各源码地址，拜托了

sql查询器下
if exists(select * from dbo.sysobject 
where id=object_id(N'[dbo].sp_update]') 
 and objectproperty(id,N'IsProcedure')=1)
drop proc sp_update //首先判断是否存在该存储过程,存在先删除,然后再创建
GO
Create proc sp_update
    @param1 varchar(10)=null
As
    update table_name
    set sex='女'
    where table_name.name=@para1
    
    if @@rowcount=0
    begin
        RaisError('Error !',16,1)
        RollBack Transaction
        return -1
    end
GO
Delphi中 放一个adostoredproc控件 name属性为"SP1"
代码:
    with SP1 do
    begin
        Close;
        ProecdureName:='sp_update;1';
        Parameters.Refresh;
        Parameters.FieldByName('@param1').value:=Edit1.Text;
        //给存储过程的参数赋值
        ExecProc;//执行存储过程
        if Parameters.FieldByName('@REUTRN_VALUE').value='-1'             then
            begin
                ShowMessage('失败 !');
                Exit;
            end;
        Close;
    end;
    ShowMessage('数据已经成功更新 !');