delphi调用sql-server2000存储过程

delphi如何调用sql存储过程，并获取结果
   adostoredproc1.Close;
   adostoredproc1.ProcedureName:='sp_thchl';
   adostoredproc1.Parameters.Clear;
   adostoredproc1.Parameters.CreateParameter('out',ftInteger,pdoutput,1,1);
   adostoredproc1.ExecProc;
   edit1.Text :=adostoredproc1.Parameters[0].Value;



leftstr（），执行run命令 系统竟告诉我 “不可识别的标识符leftstr”

前面加上StrUtils单元



最简单的存储过程
数据库端
CREATE PROCEDURE aaa
@www varchar(10) //参数
AS
select *  from employees where pusercode=@www
GO

前端使用存储过程
procedure TForm1.Button1Click(Sender: TObject);
var outcount:integer;
begin

  ADOStoredProc1.Parameters.ParamByName('@www').value :='00001' ;
  ADOStoredProc1.open;
//ADOStoredProc1.ExecProc; //
{ 假设你已经有一个存贮过程在SQL服务器中，
那么你和程序就需要一个adoconnection设置数据库连接,
adostoredproc  的
connection连接adoconnection后
producedure就会自动出现数据库中的已经存在的存储过程

设置好连接后，你在adostoredproc的procedurename里面可以看到所有可调用的存贮过程
，选择好要用的存贮过程，（按参数可以看到它需要的参数）
程序调用代码：
with adostoreproc1 do
begin
ADOStoredProc1.Parameters.ParamByName('').value := ;
ADOStoredProc1.ExecProc;
end;
上面是存贮过程没有返回结果集的使用，
如果有返回结果集，则使用  ADOStoredProc1.Open去打开     }

//showmessage(inttostr(ADOStoredProc1.Parameters.ParamByName('@outcount').value));
end;


带有输出参数的存储过程
CREATE PROCEDURE aaa  
@abc char(10),
@mycount int output
AS
select @mycount=count( *) from employees where pusercode=@abc
return
GO

如何提取参数
procedure TFrm_worker_info.Button1Click(Sender: TObject);
var outcount:integer;
begin

  ADOStoredProc1.Parameters.ParamByName('@abc').value :='00001';
  ADOStoredProc1.ExecProc；
  showmessage(inttostr(ADOStoredProc1.Parameters.ParamByName('@mycount').value));
end;