***************
function  PY             &&取汉字的拼音首字
para  sr
dime  ChinaCode[26,2]
**********

ChinaCode[1,1]=1601
ChinaCode[1,2]=1636
ChinaCode[2,1]=1637
ChinaCode[2,2]=1832
ChinaCode[3,1]=1833
ChinaCode[3,2]=2077
ChinaCode[4,1]=2078
ChinaCode[4,2]=2273
ChinaCode[5,1]=2274
ChinaCode[5,2]=2301
ChinaCode[6,1]=2302
ChinaCode[6,2]=2432
ChinaCode[7,1]=2433
ChinaCode[7,2]=2593
ChinaCode[8,1]=2594
ChinaCode[8,2]=2786
ChinaCode[9,1]=9999
ChinaCode[9,2]=0000
ChinaCode[10,1]=2787
ChinaCode[10,2]=3105
ChinaCode[11,1]=3106
ChinaCode[11,2]=3211
ChinaCode[12,1]=3212
ChinaCode[12,2]=3471
ChinaCode[13,1]=3472
ChinaCode[13,2]=3634
ChinaCode[14,1]=3635
ChinaCode[14,2]=3722
ChinaCode[15,1]=3723
ChinaCode[15,2]=3729
ChinaCode[16,1]=3730
ChinaCode[16,2]=3105
ChinaCode[17,1]=3858
ChinaCode[17,2]=4026
ChinaCode[18,1]=4027
ChinaCode[18,2]=4085
ChinaCode[19,1]=4086
ChinaCode[19,2]=4389
ChinaCode[20,1]=4390
ChinaCode[20,2]=4557
ChinaCode[21,1]=9999
ChinaCode[21,2]=0000
ChinaCode[22,1]=9999
ChinaCode[22,2]=0000
ChinaCode[23,1]=4558
ChinaCode[23,2]=4683
ChinaCode[24,1]=4684
ChinaCode[24,2]=4924
ChinaCode[25,1]=4925
ChinaCode[25,2]=5248
ChinaCode[26,1]=5249
ChinaCode[26,2]=5589

FResult = ''
C1 = 1
Len1 = Len(sr)
do while C1<=Len1
   
    if (asc(subs(sr,c1,1))>=160) and (asc(subs(sr,C1+1,1))>=160)
      
       ir = (asc(subs(sr,C1,1))-160)*100 + asc(subs(sr,C1+1,1))-160
       C2 = 1
       do while C2<=26
         
          if (ir>=ChinaCode[C2,1]) and (ir<=ChinaCode[C2,2])
            
             FResult = FResult+chr(C2-1+asc('a'))
             exit
          endif 
          C2 = C2 + 1
       enddo      
     endif
     C1 = C1 + 2
 enddo
 return upper(FResult)