SQL Server 获取汉语拼音简码

alter FUNCTION FB_GetChineseSpell
(
    @Str   varchar(500)=''
)
RETURNS  varchar(500)
as   
  begin   
    declare @strLen int
    declare @index int
    declare @VChControl char(2)
    DECLARE @VChSpell VARCHAR(30)
    declare @return varchar(500)
    set @return=''
    set @strlen=len(@str)
    set @index=1
    while @index<=@strlen
    begin
        select @VChControl=substring(@str,@index,1)
         IF @VChControl>'啊' AND @VChControl<'芭' 
            SELECT @VChSpell='A'
        ELSE IF @VChControl>='芭' AND @VChControl<'擦' 
            SELECT @VChSpell='B'
        ELSE IF @VChControl>='擦' AND @VChControl<'搭' 
            SELECT @VChSpell='C'
        ELSE IF @VChControl>='搭' AND @VChControl<'娥' 
            SELECT @VChSpell='D'
        ELSE IF @VChControl>='娥' AND @VChControl<'发' 
            SELECT @VChSpell='E'
        ELSE IF @VChControl>='发' AND @VChControl<='嘎'
            SELECT @VChSpell='F'
        ELSE IF @VChControl>'嘎' AND @VChControl<'哈' 
            SELECT @VChSpell='G'
        ELSE IF @VChControl>='哈' AND @VChControl<'击' 
            SELECT @VChSpell='H'
        ELSE IF @VChControl>='击' AND @VChControl<'喀'
            SELECT @VChSpell='J'
        ELSE IF @VChControl>='喀' AND @VChControl<'垃' 
            SELECT @VChSpell='K'
        ELSE IF @VChControl>='垃' AND @VChControl<'妈' 
            SELECT @VChSpell='L'
        ELSE IF @VChControl>='妈' AND @VChControl<'拿' 
            SELECT @VChSpell='M'
        ELSE IF @VChControl>='拿' AND @VChControl<'哦' 
            SELECT @VChSpell='N'
        ELSE IF @VChControl>='哦' AND @VChControl<'啪' 
            SELECT @VChSpell='O'
        ELSE IF @VChControl>='啪' AND @VChControl<'期'
            SELECT @VChSpell='P'
        ELSE IF @VChControl>='期' AND @VChControl<'然' 
            SELECT @VChSpell='Q'
        ELSE IF @VChControl>='然' AND @VChControl<'撒' 
            SELECT @VChSpell='R'
        ELSE IF @VChControl>='撒' AND @VChControl<'塌' 
            SELECT @VChSpell='S'
        ELSE IF @VChControl>='塌' AND @VChControl<'挖'
            SELECT @VChSpell='T'
        ELSE IF @VChControl>='挖' AND @VChControl<'昔' 
            SELECT @VChSpell='W'
        ELSE IF @VChControl>='昔' AND @VChControl<'压'
            SELECT @VChSpell='X'
        ELSE IF @VChControl>='压' AND @VChControl<'匝' 
            SELECT @VChSpell='Y'
        ELSE IF @VChControl>='匝' AND @VChControl<='座' 
            SELECT @VChSpell='Z'
        ELSE
            SELECT @VChSpell=@VChControl

        SELECT @return=@return + RTRIM(UPPER(@VChSpell))
        set @index=@index+1
    end
  return(@return)   
  end