有一个数据表一个字段是姓名（汉字），如何再建一个字段，里面填写名字对应的拼音？

程序思路如何设计？信息。

谢谢，刚忘了说了，不好意思。

通常是增加一个助记码字段，存放姓名对应的拼音首位字母。用户使用时只需要输入汉字的首个字母，程序就从表中将相同的记录筛选出来。

我知道你不是为了输入方便，仅需要首个拼音字符，而是详细的全部拼音字符，有没有办法实现呢？回答是肯定的。这里，我来给你讲一个具体的思路，肯定可以实现你的要求。你想，你输入一个中文姓名，在另一个字段中就要能对应出全部的拼音（包括简拼或全拼）那你想一想这样的对应在哪里有？肯定你会想到，在输入方法里一定有！你可以解剖一下输入法码表文件，那里已经为你的这种对应预先准备好了全部，不仅有每一个汉字的双拼、还有全拼、五笔等。。。拿过来放在数据表中啊，不就可以使用了吗？非常方便！！

另外还有一个方法，这种方法显然要比较难一点，就是利用早期的中文DOS操作系统中的一个文件，其名称是CCLIB可以用DEBUG分析其结构，那里面有汉字字模信息、有适应于扫描码对应的汉字拼音码表和首尾码码表，也非常好用，但适用于高级语言，不太适用VFP。VFP还是使用前面那个方案比较好，也简单一些。
    当把汉字拼音码表对应到一个数据表中后，利用其查出并替换到工作数据表中，还不是很简单的吗？试试看吧！










[ 本帖最后由 喜欢Oracle 于 2010-5-15 11:51 编辑 ]

给LZ提供一个获取汉字拼音首字母的函数.

function HZToPY
parameter achHZString
local achPYString,i,j,chPY,achHZ
achPYString=''
set collate to 'PINYIN'
achPYCode='八嚓咑妸发旮铪讥讥咔垃呣拿讴趴七呥仨他哇哇哇夕丫匝咗'
for i=1 to len(achHZString)
    if asc(substr(achHZString,i,1))>160
        achHZ=substr(achHZString,i,2)
        chPY=''
        for j=1 to 26
            if substrc(achHZ,1,1)<substrc(achPYCode,j,1)
                chPY=chr(asc('a')+j-1)
                exit
            endif
        endfor
        achPYString=achPYString+upper(chPY)
        i=i+1
    else
        if (asc(substr(achHZString,i,1))>32)
            achPYString=achPYString+upper(substr(achHZString,i,1))
        endif
    endif
endfor
return achPYString
endfunc