照舊，先上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
2 as
3 begin
4   select * from MTable
5 end

--修改存儲過程
1 alter proc SelectAddr
    --增加一個入參
2   @addr varchar(50)
3 as
4 begin
5   select * from MTable t where t.Addr = @addr
 
 
6 end

點擊執行，就可以才數據庫-可編程性-存儲過程下看到新建的SelectAddr這個存儲過程了

2、在Delphi設計好的界面雙擊Button按鈕

1 procedure TForm4.Button1Click(Sender: TObject);
2 var
3   sSqlText:string;
4 begin
5   sSqlText := Format(‘exec SelectAddr %s‘,[‘3606163310030817‘]);
6   ADOQuery1.SQL.Clear;
7   ADOQuery1.SQL.Add(sSqlText);
 
8   ADOQuery1.Open;
9 end;

編譯，結果如下圖，查詢出Addr的一條記錄：

初學Delphi與sql server的存儲過程