CREATE PROCEDURE [dbo].[up_TestAdoExec] @inVar varchar(100), @outVar varchar(100) output
AS
BEGINselect * from 操作日志表set @outVar='传入的参数值为：'+@inVar
END

procedure TMain.btn_AdoqueryExecClick(Sender: TObject);
beginDataSource1.DataSet := ADOQuery1;ADOQuery1.Close;ADOQuery1.SQL.Text := 'Execute up_TestAdoExec :@inVar,:@outVar output';ADOQuery1.Parameters.Clear; //调用存储过程时，必须把此语句放在对SQL.Text的赋值操作之后，否则会发生如果多次执行存储过程时则会出错的结果ADOQuery1.Parameters.CreateParameter('@inVar',ftString,pdInput,100,'');ADOQuery1.Parameters.CreateParameter('@outVar',ftString,pdOutput,100,'');ADOQuery1.Parameters.ParamByName('@inVar').Value := Edit1.Text;//ADOQuery1.Parameters.ParamByName('@outVar').Value := Edit2.Text; //单向输出参数，赋值没有意义。ADOQuery1.Open;Edit2.Text := ADOQuery1.Parameters.ParamByName('@outVar').Value;
end;

procedure TMain.btn_ClientDataSetExecClick(Sender: TObject);
beginDataSource1.DataSet := ClientDataSet1;ClientDataSet1.ProviderName := 'DataSetProvider1';DataSetProvider1.DataSet.Close; //即执行了 Adoquery1.Close;ClientDataSet1.Close;ClientDataSet1.CommandText := 'Execute up_TestAdoExec :@inVar,:@outVar output';ClientDataSet1.Params.Clear; //调用存储过程时，必须把此语句放在对CommandText的赋值操作之后ClientDataSet1.Params.CreateParam(ftString,'@inVar',ptInput);ClientDataSet1.Params.CreateParam(ftString,'@outVar',ptOutput);ClientDataSet1.Params.ParamByName('@inVar').Size := 100;ClientDataSet1.Params.ParamByName('@inVar').Value := Edit1.Text;ClientDataSet1.Params.ParamByName('@outVar').Size := 100;//ClientDataSet1.Params.ParamByName('@outVar').Value := Edit2.Text;//ClientDataSet1.Execute;//如果不返回结果集，执行此语句ClientDataSet1.Open;Edit2.Text := ClientDataSet1.Params.ParamByName('@outVar').Value;
end;

procedure TMain.btn_AdoStoreProcExecClick(Sender: TObject);
beginDataSource1.DataSet := ADOStoredProc1;ADOStoredProc1.Close;ADOStoredProc1.ProcedureName := 'up_TestAdoExec';ADOStoredProc1.Parameters.Clear;ADOStoredProc1.Parameters.CreateParameter('@inVar',ftString,pdInput,100,'');ADOStoredProc1.Parameters.CreateParameter('@outVar',ftString,pdOutput,100,'');ADOStoredProc1.Parameters.ParamByName('@inVar').Value := Edit1.Text;//ADOStoredProc1.Parameters.ParamByName('@outVar').Value := Edit2.Text;ADOStoredProc1.Open;Edit2.Text := ADOStoredProc1.Parameters.ParamByName('@outVar').Value;
end;