Question

delphi 7.0 调用SQL2000存储过程的时候提示没有找到变量名

delphi 7.0 调用SQL2000存储过程的时候提示没有找到变量名（@uname_1）。
控件用的是BDE storedproc, 数据库别名连接 。连接测试成功，在proc的属性上能看到该数据库的所有存储过程。

存储过程:
CREATE PROCEDURE [insert_tb_login_2]
(@uname_1 [char](10),
@upw_2 [char](30),
@udengji_3 [bit])

AS INSERT INTO [mydb].[dbo].[tb_login]
( [uname],
[upw],
[udengji])

VALUES
( @uname_1,
@upw_2,
@udengji_3)
GO

以下是delphi 代码：
begin
proc_login1.Close;
proc_login1.UnPrepare;
proc_login1.StoredProcName := 'insert_tb_login_2';
proc_login1.ParamByName('@uname_1').AsString := trim(nedit.text);
proc_login1.ParamByName('@upw_2').AsString := trim(pwedit1.text);
if RzRadioButton1.Checked then
proc_login1.ParamByName('@udengji_3').AsBoolean := false
else
proc_login1.ParamByName('@udengji_3').AsBoolean := true;
proc_login1.ExecProc;
showmessage('用户注册成功');
end；

@udengji：是个权限值 0 和 1 为应用程序配置操作权限的。

Answer 1

proc_login1.Close;
proc_login1.UnPrepare;
proc_login1.StoredProcName := 'insert_tb_login_2';
proc_login1.Parameters.AddParameter.Name:='@uname_1';////
proc_login1.Parameters.AddParameter.Name:='@upw_2';////添加变量
proc_login1.Parameters.AddParameter.Name:='@udengji_3';///
proc_login1.ParamByName('@uname_1').AsString := trim(nedit.text);
proc_login1.ParamByName('@upw_2').AsString := trim(pwedit1.text);
if RzRadioButton1.Checked then
proc_login1.ParamByName('@udengji_3').AsBoolean := false
else
proc_login1.ParamByName('@udengji_3').AsBoolean := true;
proc_login1.ExecProc;
showmessage('用户注册成功');