关于如何杀掉进程

我在一个数据窗口里查询系统进程表，在窗口上放一个杀掉进程的按钮，如何实现选择某个进程后通过点击按钮杀掉该进程，按钮脚本如何写？ 
--------------------------------------------------------------- 
 
取得进程的ID 
 
语句  =  kill  +  '  '  +  ID 
 
Execute  Immediate  :语句; 
 
--------------------------------------------------------------- 
 
语句  =  'kill  '  +  ID 
--------------------------------------------------------------- 
 
create    proc    killspid    (@dbname    varchar(20))     
as     
begin     
declare    @sql    nvarchar(500)     
declare    @spid    int     
set    @sql='declare    getspid    cursor    for         
select    spid    from    sysprocesses    where    dbid=db_id('''+@dbname+''')'     
exec    (@sql)     
open    getspid     
fetch    next    from    getspid    into    @spid     
while    @@fetch_status    <    >-1     
begin     
exec('kill    '+@spid)     
fetch    next    from    getspid    into    @spid     
end     
close    getspid     
deallocate    getspid     
end     
 
--用法     
use    master     
exec    killspid    '数据库名'  
 

但在注意，杀掉进程需要有sa的权限