贴个自己的小代码，采用偷懒的方法做的。
先用C++把字库弄出来，导成表存起来。
然后利用sql server 自己的排序方式（codepage:936，发布时要求客户安装时只能用codepage:936）对总的字库进行排序。找出每个拼音的头。
缺点：
1. sql server 自己的排序对中文有问题，在7和2000上都存在。
2. 多音字没有处理，只能手工再处理。
见笑，见笑。
create procedure sp_getGBinitials
@srcname name = null,
@dstname name = null output
as
select @srcname = rtrim(ltrim(@srcname))
if len(@srcname) <= 0
begin
select @dstname = null
return
end
select @dstname = ''
declare @letter varchar(10), @len int
select @letter = '', @len = 0
while(@len <= len(@srcname))
begin
-- to ensure that table sysobjects has records.
-- to get soundsequence (based on simplify chinese 936 coding)
select @letter = case
when substring(@srcname, @len, 1) between '阿' and '鏊' or substring(upper(@srcname), @len, 1) = 'A' then 'A'
when substring(@srcname, @len, 1) between '八' and '簿' or substring(@srcname, @len, 1) = '8' or substring(upper(@srcname), @len, 1) = 'B' then 'B'
when substring(@srcname, @len, 1) between '嚓' and '错' or substring(upper(@srcname), @len, 1) = 'C' then 'C'
when substring(@srcname, @len, 1) between '哒' and '跺' or substring(upper(@srcname), @len, 1) = 'D' then 'D'
when substring(@srcname, @len, 1) between '屙' and '贰' or substring(@srcname, @len, 1) = '2' or substring(upper(@srcname), @len, 1) = 'E' then 'E'
when substring(@srcname, @len, 1) between '发' and '馥' or substring(upper(@srcname), @len, 1) = 'F' then 'F'
when substring(@srcname, @len, 1) between '旮' and '过' or substring(upper(@srcname), @len, 1) = 'G' then 'G'
when substring(@srcname, @len, 1) between '铪' and '蠖' or substring(upper(@srcname), @len, 1) = 'H' then 'H'
when (substring(@srcname, @len, 1) between '丌' and '竣' or substring(@srcname, @len, 1) = '9' or substring(upper(@srcname), @len, 1) = 'J') and substring(@srcname, 1, 1) <> '她' then 'J'
when substring(@srcname, @len, 1) between '咔' and '廓' or substring(upper(@srcname), @len, 1) = 'K' then 'K'
when substring(@srcname, @len, 1) between '垃' and '雒' or substring(@srcname, @len, 1) in ('0', '6') or substring(upper(@srcname), @len, 1) = 'L' then 'L'
when substring(@srcname, @len, 1) between '妈' and '穆' or substring(upper(@srcname), @len, 1) = 'M' then 'M'
when substring(@srcname, @len, 1) between '拿' and '糯' or substring(upper(@srcname), @len, 1) = 'N' then 'N'
when substring(@srcname, @len, 1) between '噢' and '沤' or substring(upper(@srcname), @len, 1) = 'O' then 'O'
when substring(@srcname, @len, 1) between '趴' and '曝' or substring(upper(@srcname), @len, 1) = 'P' then 'P'
when substring(@srcname, @len, 1) between '七' and '群' or substring(@srcname, @len, 1) = '7' or substring(upper(@srcname), @len, 1) = 'Q' then 'Q'
when substring(@srcname, @len, 1) between '蚺' and '箬' or substring(upper(@srcname), @len, 1) = 'R' then 'R'
when substring(@srcname, @len, 1) between '仨' and '锁' or substring(@srcname, @len, 1) in ('3', '4') or substring(upper(@srcname), @len, 1) = 'S' then 'S'
when substring(@srcname, @len, 1) between '他' and '箨' or substring(upper(@srcname), @len, 1) = 'T' or substring(@srcname, 1, 1) = '她' then 'T'
when substring(@srcname, @len, 1) between '哇' and '鋈' or substring(@srcname, @len, 1) = '5' or substring(upper(@srcname), @len, 1) = 'W' then 'W'
when substring(@srcname, @len, 1) between '夕' and '蕈' or substring(upper(@srcname), @len, 1) = 'X' then 'X'
when substring(@srcname, @len, 1) between '丫' and '蕴' or substring(@srcname, @len, 1) = '1' or substring(upper(@srcname), @len, 1) = 'Y' then 'Y'
when substring(@srcname, @len, 1) between '匝' and '做' or substring(upper(@srcname), @len, 1) = 'Z' then 'Z'
when substring(upper(@srcname), @len, 1) = 'I' then 'I'
when substring(upper(@srcname), @len, 1) = 'U' then 'U'
when substring(upper(@srcname), @len, 1) = 'V' then 'V'
else ''
end
from Configures
select @len = @len + 1
select @dstname = @dstname + @letter
end
if len(@dstname) = 0 select @dstname = null
go
declare @out nvarchar(100)
execute sp_getGBinitials '测试用例见笑见笑', @out output
select @out
