Posted on 2005-11-24 07:56
貝殼兒 阅读(374)
评论(0) 编辑 收藏 引用 所属分类:
Delphi编程
CREATE FUNCTION Getacctype(@accid varchar(20))
RETURNS varchar(300) AS
BEGIN
declare @i int,@accidup varchar(20), @str varchar(300)
set @accid=@accid+'.'
set @accidup=''
set @str=''
set @i=1
while CHARINDEX('.',@accid)>0
begin
if @accidup=''
set @accidup=substring(@accid, 1,CHARINDEX('.',@accid)-1)
else
set @accidup=@accidup+'.'+substring(@accid, 1,CHARINDEX('.',@accid)-1)
set @accid=substring(@accid,CHARINDEX('.',@accid)+1,len(@accid)-CHARINDEX('.',@accid))
if @str=''
set @str= (select acctype from HD_AccType where
accid=@accidup)
else
set @str=@str+'->'+ (select acctype from HD_AccType where
accid=@accidup)
end
return @str
END