T9输入法在SQL Server2005 中的实现

Create   table  NumberToChar  -- --------用来保存数字和字母之间映射的表
(
     number    int ,
    GetText  varchar ( 10 )
)

-- 字典表
select   *   from  Dictionary
-- 联系人表
select   *   from  Contact
-- 创建键盘表---------------------------------------------------------------------------------
create   table  Keys
(
 alpha  char ( 1 )  primary   key ,
 digit  char ( 1 ) ,
)
insert   into  Keys(alpha, digit)  values ( ' a ' , ' 2 ' );
insert   into  Keys(alpha, digit)  values ( ' b ' , ' 2 ' );
insert   into  Keys(alpha, digit)  values ( ' c ' , ' 2 ' );
insert   into  Keys(alpha, digit)  values ( ' d ' , ' 3 ' );
insert   into  Keys(alpha, digit)  values ( ' e ' , ' 3 ' );
insert   into  Keys(alpha, digit)  values ( ' f ' , ' 3 ' );
insert   into  Keys(alpha, digit)  values ( ' g ' , ' 4 ' );
insert   into  Keys(alpha, digit)  values ( ' h ' , ' 4 ' );
insert   into  Keys(alpha, digit)  values ( ' i ' , ' 4 ' );
insert   into  Keys(alpha, digit)  values ( ' j ' , ' 5 ' );
insert   into  Keys(alpha, digit)  values ( ' k ' , ' 5 ' );
insert   into  Keys(alpha, digit)  values ( ' l ' , ' 5 ' );
insert   into  Keys(alpha, digit)  values ( ' m ' , ' 6 ' );
insert   into  Keys(alpha, digit)  values ( ' n ' , ' 6 ' );
insert   into  Keys(alpha, digit)  values ( ' o ' , ' 6 ' );
insert   into  Keys(alpha, digit)  values ( ' p ' , ' 7 ' );
insert   into  Keys(alpha, digit)  values ( ' q ' , ' 7 ' );
insert   into  Keys(alpha, digit)  values ( ' r ' , ' 7 ' );
insert   into  Keys(alpha, digit)  values ( ' s ' , ' 7 ' );
insert   into  Keys(alpha, digit)  values ( ' t ' , ' 8 ' );
insert   into  Keys(alpha, digit)  values ( ' u ' , ' 8 ' );
insert   into  Keys(alpha, digit)  values ( ' v ' , ' 8 ' );
insert   into  Keys(alpha, digit)  values ( ' w ' , ' 9 ' );
insert   into  Keys(alpha, digit)  values ( ' x ' , ' 9 ' );
insert   into  Keys(alpha, digit)  values ( ' y ' , ' 9 ' );
insert   into  Keys(alpha, digit)  values ( ' z ' , ' 9 ' );
select   *   from  Keys
-- 创建联系人T9码速查表------------------------------------------------------------------
create   table  ContactT9Info
(
 id  int   not   null   REFERENCES  Contact(id),
 T9Code  varchar ( 100 )  not   null ,
  PRIMARY   KEY   CLUSTERED  (id, T9Code)
)
select   *   from  ContactT9Info
-- 函数：取得汉字的拼音---------------------------------------------------------------------
select  dbo.getPY( ' 黄 ' )
create   function  getPY( @word   varchar ( 5 ))
  returns   varchar ( 10 )
as
begin
  declare   @py   varchar ( 10 )
  set   @py   =  ( select   top   1  py  from  dictionary
  where  words  like   ' % '   +   @word   +   ' % ' )
  return ( @py )
end
go

-- 函数：取得拼音的T9码---------------------------------------------------------------------
select  dbo.getT9CodeFromPY( ' huang ' )
create   function  getT9CodeFromPY( @pinyin   varchar ( 10 ))
  returns   varchar ( 10 )
as
begin
  declare   @i   int ,  @length   int ,  @alpha   char ( 1 ),  @code   varchar ( 10 )
  set   @i   =   1
  set   @length   =   len ( @pinyin )
  set   @code   =   ''
 
  while  ( @i   <=   @length )
  begin
   -- 对拼音的每个字母进行处理
   set   @alpha   =   substring ( @pinyin ,  @i ,  1 )
   set   @code   =   @code   +  dbo.getKeyFromAlpha( @alpha )
   set   @i   =   @i   +   1
  end
  return   @code
end
go

-- 函数：取得字母的键码---------------------------------------------------------------------
select  dbo.getKeyFromAlpha( ' h ' )
create   function  getKeyFromAlpha( @alpha   char ( 1 ))
  returns   char ( 1 )
as
begin
  return
 (
   select  digit  from  Keys
   where  alpha  =   @alpha
 )
end
go

-- 存储过程：执行此存储过程创建联系人T9码速查信息数据-------------------------------------------
create   procedure  sp_createContactT9Info
as
begin
  declare   @i   int ,  @length   int ,  @word   varchar ( 5 ),  @code   varchar ( 100 )
  declare   @contactid   int ,  @name   varchar ( 20 )
 
  -- 先清空ContactT9Info表的数据
  delete   from  ContactT9Info
  -- 声明一个游标取出contact表的数据，并打开此游标
  declare  contact_cursor  cursor   for
   select  id, name  from  contact
  open  contact_cursor
 
  fetch   next   from  contact_cursor  into   @contactid ,  @name
  -- 检查@@fetch_status的值判断是否还能取得记录
  while   @@fetch_status   =   0
  begin
   -- 对contact_cursor中取得的每条记录进行操作
   set   @length   =   len ( @name )
   set   @i   =   @length
   set   @code   =   ''
 
   while  ( @i   >=   1 )
   begin
    -- 从姓名的最后一个字开始，分别对每个字进行处理
    set   @word   =   substring ( @name ,  @i ,  1 )
    set   @code   =  dbo.getT9CodeFromPY(dbo.getPY( @word ))  +   @code
    insert   into  ContactT9Info(id, T9Code)  values  ( @contactid ,  @code )
    set   @i   =   @i   -   1
   end
   fetch   next   from  contact_cursor  into   @contactid ,  @name
  end
  close  contact_cursor
  deallocate  contact_cursor
  print   ' success! '
end
go
exec  sp_CreateContactT9Info
-- 存储过程：通过输入T9码速查联系人----------------------------------------------------------
create   procedure  sp_getContactByT9
  @T9Code   varchar ( 100 )
as
  select  c. *
  from  Contact c
  where   exists  (
   select   *   from  ContactT9Info i
   where  i.id  =  c.id  and  i.T9Code  like   @T9Code   +   ' % '
    )
go
exec  sp_getContactByT9  ' 264 '

-- 存储过程：显示所有联系人的信息
create   procedure  sp_showContactInfo
as
  select  c. * ,i.T9Code  from  Contact c
  left   join  ContactT9Info i  on  c.id  =  i.id
go
exec  sp_showContactInfo

附加一部分代码，我已经忘了是做什么用的了，看来注释确实是个好习惯

select   *   from  NumberToChar 

drop   function  Get_StrArrayLength

CREATE   function  Get_StrArrayLength

(

  @str   varchar ( 1024 ),   -- 要分割的字符串

  @split   varchar ( 10 )    -- 分隔符号

)

returns   int

as

begin

  declare   @location   int

  declare   @start   int

  declare   @length   int

 

  set   @str = ltrim ( rtrim ( @str ))

  set   @location = charindex ( @split , @str )

  set   @length = 1

  while   @location <> 0

  begin

    set   @start = @location + 1

    set   @location = charindex ( @split , @str , @start )

    set   @length = @length + 1

  end

  return   @length

end