能不能给段代码实现如何用adostroedproc调用这个存储过程的。谢谢！

Question

IF EXISTS(SELECT name FROM sysobjects
      WHERE name = 'InsertMoneyType' AND type = 'P')
   DROP PROCEDURE InsertMoneyType
GO
USE football
GO
CREATE PROCEDURE InsertMoneyType
                 @money_name varchar(10),
                 @money_sname varchar(10),
                 @change_rate float,
                 @MaxMoney_id varchar(3) output 
AS
DECLARE @money_id varchar(3)
SELECT @MaxMoney_id = max(money_id) + 1 FROM MoneyType
INSERT INTO MoneyType(money_id,money_name,money_sname,change_rate) 
VALUES(@MaxMoney_id,
       @money_name,
       @money_sname,
       @Change_rate)
GO

Answer 1

代码：with ASProc do
   begin
      close;
      procedurename:='登陆名.InsertMoneyType;
      parameters.Clear;
      parameters.CreateParameter('money_name ',ftstring,pdinput,10,0);
      parameters.CreateParameter('money_sname',ftstring,pdinput,10,1);
      parameters.CreateParameter('change_rate',ftcurrency,pdinput,8,2);
      parameters.CreateParameter('MaxMoney_id',ftstring,pdoutput,3,3); 
      prepared;
      parameters[0].Value:=值
      parameters[1].Value:=值
      parameters[2].Value:=值    
      parameters[3].Value:=值
        
      ExecProc;  
end;