在delphi 中怎么利用sql中的存储过程的返回值
我在sql中定义了一个存储过程,从而来验证用户名和用户密码是否存在,但是在delphi的应用窗口的登陆按钮中,若用户名和密码存在,若正确的画怎么利用存储过程的返回值来登陆...
我在sql中定义了一个存储过程,从而来验证用户名和用户密码是否存在,但是在delphi的应用窗口的登陆按钮中,若用户名和密码存在,若正确的画怎么利用存储过程的返回值来登陆主窗体啊?
谢谢各位,请大家帮忙
那么请问存储过程的返回值是多少呢 展开
谢谢各位,请大家帮忙
那么请问存储过程的返回值是多少呢 展开
1个回答
展开全部
存储过程:
Create procedure proc_login
username varchar(20),
password varchar(20)
as
declare @result int
select @result=count(*) from table1 where user=@username and pass=@password
if @result=0
return 0
return 1
go
delphi代码:
var ret:integer;
......
with ADOStoredProc1 do
begin
Close;
ProcedureName:='proc_login';
Parameters.Clear;
Parameters.Refresh;
Parameters.ParamByName('@username').Value:= Edit1.text;
Parameters.ParamByName('@password').Value:= Edit2.text;
ExecProc;
ret:= Parameters.ParamByName('@return_value').Value;
end;
if ret=1 //用户名密码匹配
begin
//你想要的操作
end
Create procedure proc_login
username varchar(20),
password varchar(20)
as
declare @result int
select @result=count(*) from table1 where user=@username and pass=@password
if @result=0
return 0
return 1
go
delphi代码:
var ret:integer;
......
with ADOStoredProc1 do
begin
Close;
ProcedureName:='proc_login';
Parameters.Clear;
Parameters.Refresh;
Parameters.ParamByName('@username').Value:= Edit1.text;
Parameters.ParamByName('@password').Value:= Edit2.text;
ExecProc;
ret:= Parameters.ParamByName('@return_value').Value;
end;
if ret=1 //用户名密码匹配
begin
//你想要的操作
end
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询