初学Delphi与sql server的存储过程

照旧，先上delphi的界面控件布局：

1个adoconnection、1个adoquery、1个DataSource、1个button、1个dbgrideh（随意）

前期准备：1、设置adoconnection的connectionstring，为了方便：Provider=SQLOLEDB.1;Password=数据库登录密码;Persist Security Info=True;User ID=数据库登录名;Data Source=数据库服务器地址，设置LoginPrompt设置为False

                  2、adoquery的connection指向adoconnection

                  3、DataSource的dataset指向adoquery

开始：

1、打开sql server 2008，选择数据库-右键新建查询：

--新建存储过程
1 create proc SelectAddr
as
3 begin
4   select * from MTable
5 end

--修改存储过程
1 alter proc SelectAddr
    --增加一个入参
  @addr varchar(50)
as
begin
  select * from MTable t where t.Addr = @addr 
end

点击执行，就可以才数据库-可编程性-存储过程下看到新建的SelectAddr这个存储过程了

2、在Delphi设计好的界面双击Button按钮

procedure TForm4.Button1Click(Sender: TObject);
var
  sSqlText:string;
begin
  sSqlText := Format('exec SelectAddr %s',['3606163310030817']);
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add(sSqlText);
  ADOQuery1.Open;
end;

编译，结果如下图，查询出Addr的一条记录：