请教！如何根据姓名的每一个字的第一个字母来查询？

Question

---- 原理很简单，找出汉字表中拼音首字符分别为“A”至“Z”的汉字内码范围，这样，对于要检索的汉字只需要检查它的内码位于哪一个首字符的范围内，就可以判断出它的拼音首字符。 我给你一个例子，程序包括3个控件：一个列表存放着所有待检索的信息；一个列表用于存放检索后的信息；一个编辑框用于输入检索关键字（即拼音首字符序列）。详细如下： ---- 1．进入Delphi创建一个新工程：Project1 ---- 2．在Form1上创建以下控件并填写属性： 控件类型 属性名称 属性值 
Edit Name Search 
ListBox Name SourceList 
Items 输入一些字符串，如姓名等，用于提供检索数据 
ListBox Name ResultList 
　 ---- 3．键入以下两个函数 // 获取指定汉字的拼音索引字母，如：“汉”的索引字母是“H” 
function GetPYIndexChar( hzchar:string):char; 
begin 
case WORD(hzchar[1]) shl 8 + WORD(hzchar[2]) of 
$B0A1..$B0C4 : result := 'A'; 
$B0C5..$B2C0 : result := 'B'; 
$B2C1..$B4ED : result := 'C'; 
$B4EE..$B6E9 : result := 'D'; 
$B6EA..$B7A1 : result := 'E'; 
$B7A2..$B8C0 : result := 'F'; 
$B8C1..$B9FD : result := 'G'; 
$B9FE..$BBF6 : result := 'H'; 
$BBF7..$BFA5 : result := 'J'; 
$BFA6..$C0AB : result := 'K'; 
$C0AC..$C2E7 : result := 'L'; 
$C2E8..$C4C2 : result := 'M'; 
$C4C3..$C5B5 : result := 'N'; 
$C5B6..$C5BD : result := 'O'; 
$C5BE..$C6D9 : result := 'P'; 
$C6DA..$C8BA : result := 'Q'; 
$C8BB..$C8F5 : result := 'R'; 
$C8F6..$CBF9 : result := 'S'; 
$CBFA..$CDD9 : result := 'T'; 
$CDDA..$CEF3 : result := 'W'; 
$CEF4..$D188 : result := 'X'; 
$D1B9..$D4D0 : result := 'Y'; 
$D4D1..$D7F9 : result := 'Z'; 
else 
result := char(0); 
end; 
end; // 在指定的字符串列表SourceStrs中检索符合拼音索引字符串 
PYIndexStr的所有字符串，并返回。 
function SearchByPYIndexStr 0D
( SourceStrs:TStrings; 
PYIndexStr:string):string; 
label NotFound; 
var 
i, j :integer; 
hzchar :string; 
begin 
for i:=0 to SourceStrs.Count-1 do 
begin 
for j:=1 to Length(PYIndexStr) do 
begin 
hzchar:=SourceStrs[i][2*j-1] 
+ SourceStrs[i][2*j]; 
if (PYIndexStr[j]<>'?') and 0D
(UpperCase(PYIndexStr[j]) <> 0D
GetPYIndexChar(hzchar)) then goto NotFound; 
end; 
if result='' then result := SourceStrs[i] 
else result := result + Char 
(13) + SourceStrs[i]; 
NotFound: 
end; 
end; 4．增加编辑框Search的OnChange事件： 
procedure TForm1.SearchChange(Sender: TObject); 
var ResultStr:string; 
begin 
ResultStr:=''; 
ResultList.Items.Text := SearchByPYIndexStr 
(Sourcelist.Items, Search.Text); 
end; 
　 ---- 5．编译运行后，在编辑框Search中输入要查询字符串的拼音首字符序列，检索结果列表ResultList就会列出检索到的信息，检索中还支持“？”通配符，对于难以确定的的文字使用“？”替代位置，可以实现更复杂的检索。 ================================================================CSDN 论坛助手 Ver 1.0 B0402提供下载。 改进了很多，功能完备！★  浏览帖子速度极快！[建议系统使用ie5.5以上]。 ★  多种帖子实现界面。 
★  保存帖子到本地[html格式]★  监视您关注帖子的回复更新。
★  可以直接发贴、回复帖子★  采用XML接口，可以一次性显示4页帖子,同时支持自定义每次显示帖子数量。可以浏览历史记录！ 
★  支持在线检测程序升级情况，可及时获得程序更新的信息。★★ 签名  ●  
     可以在您的每个帖子的后面自动加上一个自己设计的签名哟。Http://www.ChinaOK.net/csdn/csdn.zip
Http://www.ChinaOK.net/csdn/csdn.rar
Http://www.ChinaOK.net/csdn/cs

Answer 1

你把query(或adoquery)的autocalcfields设置为true;
为Query新增一个字段,把中文名转换成字母保存在这个新的字段中 .你就可以根据这个新的字段查了.以下是中文首字母转换函数,字符串转换你自已写一下,不是很难的,汉字的ascii大于127的.function GetPYIndexChar( hzchar:string):char;
begin
  case WORD(hzchar[1]) shl 8 + WORD(hzchar[2]) of
    $B0A1..$B0C4 : result := 'A';
    $B0C5..$B2C0 : result := 'B';
    $B2C1..$B4ED : result := 'C';
    $B4EE..$B6E9 : result := 'D';
    $B6EA..$B7A1 : result := 'E';
    $B7A2..$B8C0 : result := 'F';
    $B8C1..$B9FD : result := 'G';
    $B9FE..$BBF6 : result := 'H';
    $BBF7..$BFA5 : result := 'J';
    $BFA6..$C0AB : result := 'K';
    $C0AC..$C2E7 : result := 'L';
    $C2E8..$C4C2 : result := 'M';
    $C4C3..$C5B5 : result := 'N';
    $C5B6..$C5BD : result := 'O';
    $C5BE..$C6D9 : result := 'P';
    $C6DA..$C8BA : result := 'Q';
    $C8BB..$C8F5 : result := 'R';
    $C8F6..$CBF9 : result := 'S';
    $CBFA..$CDD9 : result := 'T';
    $CDDA..$CEF3 : result := 'W';
    $CEF4..$D188 : result := 'X';
    $D1B9..$D4D0 : result := 'Y';
    $D4D1..$D7F9 : result := 'Z';
  else
    result := char(0);
  end;
end;

Answer 2

可行的方法:
在该表中添加一个字段pingyin
当您向该表添加一个记录,姓名是  邓明  那么拼音字段(pinyin)应该就输入dm,当然是手工输入了,您不要期待有什么函数来自动完成.

Answer 3

mudeen（笑哥哥）说的不对，pinyin字段是完全可以自动生成的。原理和ZRQ所说和差不多。我用VB做过类似的东东。需要对每个名字的每个字逐个检查，来生成PINYIN字段

Answer 4

请您看一下以前DFW上的回复:
两个原因，1、支持汉字太少；2、不能处理好多音字。目前常用的是GB2312字符集，区位编码，它分为2级字库，1级16~55区3755个汉字，汉字按拼音排序
2级3008个汉字，按部首排序。
上面的程序就是利用了一级汉字是按拼音排序的方法来实现的。所以，他只支持16~55区的3755个汉字，
这个程序你是不可能找到王羲之，华佗，这些人名字的。因为"羲、佗"这些字不在一级字库。更别说现在的gbk字符集了，
"朱镕基"这些gbk的扩展字符了。很多报纸印不出这个字，一是因为打字员用五笔，标准的五笔只支持gb2312,另一个原因可能就是印刷字库不是gbk字库。就是在一级字库的字，他还是不一定能找到。因为有多音字，比如“单、仇、解、朝”这些字都是名字
中常用的多音字，除非你按个品一的去试验，如果哪个倒霉蛋叫“单仇解”你用什么拼音？
单 (音：丹、扇)
仇（音：愁、求）
解（音：姐、卸）这个程序只能是常用3755个子，比起gbk的20902（虽然绝大部分不常用）他的功能你认为实用吗？

Answer 5

Mudeen(笑哥哥) :
也许系统并没有这样的函数，但完全有办法实现的，不过，现在不能讲，
因为一个非常特殊的原因，要讲也要一个月后了

Answer 6

同意“Mudeen(笑哥哥) “的做法。
何况还有双声母的问题，如shp,你是认为它是代表三个字，还是两个字？