自动生成拼音检索码 函数

/********************************************************作者：版本：1.0创建时间：修改时间：功能：自动生成 检索码(拼音码）参数：汉字拼音输出：拼音检索汉字********************************************************/---------自动生成 检索码(拼音码)/****** Object:  UserDefinedFunction [dbo].[fun_getPY]       Script Date: 12/09/2014 21:01:21 ******/SET ANSI_NULLS OFFGOSET QUOTED_IDENTIFIER OFFGOALTER function [dbo].[fun_getPY](@str nvarchar(4000))  returns nvarchar(4000)  as  begin  declare @Word nchar(1),@PY nvarchar(4000)  set @PY=''  while len(@str)>0  begin  set @word=left(@str,1)  set @PY=@PY+(case when unicode(@word) between 19968 and 19968+20901  then (select top 1 PY from (  select 'A' as PY,N'驁' as word  union all select 'B',N'簿'  union all select 'C',N'錯'  union all select 'D',N'鵽'  union all select 'E',N'樲'  union all select 'F',N'鰒'  union all select 'G',N'腂'  union all select 'H',N'夻'  union all select 'J',N'攈'  union all select 'K',N'穒'  union all select 'L',N'鱳'  union all select 'M',N'旀'  union all select 'N',N'桛'  union all select 'O',N'漚'  union all select 'P',N'曝'  union all select 'Q',N'囕'  union all select 'R',N'鶸'  union all select 'S',N'蜶'  union all select 'T',N'籜'  union all select 'W',N'鶩'  union all select 'X',N'鑂'  union all select 'Y',N'韻'  union all select 'Z',N'咗'  ) T  where word>=@word collate Chinese_PRC_CS_AS_KS_WS  order by PY ASC) else '' end)  set @str=right(@str,len(@str)-1)  end  return @PY  end