مشکل با مقدار برگشتی پروسیجر SQL
سلام
موقعی که میخوام از مقدار برگشتی تابع استفاده کنم با خطای زیر مواجه میشم ؟
http://up.iranblog.com/Files2/9f1fc43526824459b916.JPG
در ضمن این پروسیجری که نوشتم توی QUERY Analyzer به درستی کار میکنه و خروجی میده ولی توی دلفی نه .
این پروسیجر sql
CREATE PROCEDURE USER_SELECT
@username as nvarchar(10),
@password as nvarchar(10)
AS
if ((select count(*) from tuser where username=@username and password1=@password)>0)
begin
select * from tuser where username=@username and password1=@password
return 1
end
else
begin
return 0
end
GO
و این هم کد دلفی
procedure TFRMlogin.Button1Click(Sender: TObject);
var
ret:Variant;
begin
ret:=0;
if TXTuser.text='' then
begin
ShowMessage('áØÝÇ äÇã ˜ÇÑÈÑí ÑÇ æÇÑÏ äãÇííÏ');
txtuser.SetFocus;
end;
if TXtpasswords.text='' then
begin
ShowMessage('áØÝÇ ÑãÒ ÚÈæÑ ÑÇ æÇÑÏ äãÇííÏ');
TXtpasswords.SetFocus;
end;
if (txtuser.text<>'') and (TXtpasswords.text<>'') then
begin
SPlogin.Close;
SPlogin.Parameters.ParamValues['@username']:=txtuser.Text;
splogin.Parameters.ParamValues['@password']:=TXtpasswords.Text;
splogin.Open;
ret:=(splogin.Parameters.ParamValues['@RETURN_VALUE']);
if ret=0 then
ShowMessage('äÇã ˜ÇÑÈÑí íÇ ÑãÒ æÑæÏ ÇÔÊÈÇå ÇÓÊ')
else
begin
FRMMAIN.Show;
FRMlogin.Hide;
end;
end;
