先前有误:
Create Procedure MyUserID(MyUserName Char(20))
Returns (MyID char(8))
As
Begin
Select userID from UserDataBase
where UserName = :MyUserName
into :MyID
Suspend;
end;
之後便可以用 Tquery 取数据.
Query1.Sql.clear;
Query1.Sql.Add('Select MyID from MyUserID('XXXX')');
Query1.prepare;
Query1.open;
Create Procedure MyUserID(MyUserName Char(20))
Returns (MyID char(8))
As
Begin
Select userID from UserDataBase
where UserName = :MyUserName
into :MyUserName
Suspend;
end;
之後便可以用 Tquery 取数据.
Query1.Sql.clear;
Query1.Sql.Add('Select MyUserName from MyUserID('XXXX')');
Query1.prepare;
Query1.open;