delphi調用interbase存儲過程

正在學習delphi，從網上還有請教前輩，終於知道了如何調用interbase數據庫的存儲過程。

調用interbase的存儲過程要用到IBStoredProc控件。

with IBStoredProc1 do
begin
    StoredProcName:='ADD_YG';   //存儲過程名叫'ADD_YG'
    Params.Clear;
    Params.CreateParam(ftString,'pid',ptInput).AsInteger:=pid;
    Params.CreateParam(ftString,'pname',ptInput).AsString:=pname;

    Prepare;
    ExecProc;

end;

存儲過程'ADD_YG'：

CREATE PROCEDURE ADD_YG (
    pid integer,
    pname varchar(10),
    )
as
begin
insert into yg(id,name)values(:pid, :pname);/*yg爲一表*/
exit;
end