Delphi数据库的拼音检索(查询)方案-汉字转换成拼音
?昨夜看到一篇文章，可以用Delphi将汉字->拼音，可是将拼音转换成汉字又该如何操作哪？我的数据库：通讯录软件缺少用拼音查找功能.结果，搞到12点还是无果！唉！
?中午找到输入拼音可以检索汉字，可是在数据库中怎样实现哪？2个小时，无果！
?
今天实现:
1.首先建立字库；
2.检索：先从数据库读出所要查询字段所有记录，将其放入控件ListBox,再按照拼音检索需要的数据.
实现是靠的迂回策略(读取数据库汉字->转换成拼音->依据拼音检索结果->实现数据库的拼音检索)，没找到直接在数据库查询，然后显示结果的方法，希望高人指点一二。
下面附上Code:
1.字库Code:
{//汉字拼音码检索 对应的拼音字母}
function GetCharInd(zzchar:string):char;
begin
? case WORD(zzchar[1]) shl 8+WORD(zzchar[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:=#0;
? end;
end;
2.查询实现部分:
{汉字拼音码的检索}
function DisByStrInd(ListBoxStr:TListBox;StrInd:string):string;
label NotFound;
var
? zzchar :string;
? i,j:integer;
begin
? for i:=0 to ListBoxStr.Items.Count-1 do
? begin
??? for j:=1 to Length(StrInd) do
??? begin
????? zzchar:=ListBoxStr.Items[i][2*j-1]+ListBoxStr.Items[i][2*j];
????? if (StrInd[j]<>'?') and (UpperCase(StrInd[j])<>GetCharInd(zzchar))
????? then goto NotFound;
??? end;
??? if result='' then result:=ListBoxStr.Items[i]
??? else result:=result+#13+ListBoxStr.Items[i];
NotFound:
? end;
end;
以下是Delphi7中 Unit单元 的完整代码:
{********************************************************************}
{ *1.名称: SelectByPinYin 单元.
? *2.功能:本单元为此数据库程序的 通过汉字拼音查询 单元.
? *3.软件环境:Win98+Delphi7+AccessXp2002.
? *4.作者:Domain.
? *5.E-mail:dfkc6331@sina.com
? *6.制作日期:2008.04.15 }
{********************************************************************}
unit SelectByPinYin;
interface
uses
? Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
? Dialogs,NEOFORM,ComCtrls,MenuBar,ToolWin,ExtCtrls,StdCtrls,DBCtrls,
? Buttons;
type
? TSelectPY = class(TEDairyForm)
??? Panel1: TPanel;
??? Panel2: TPanel;
??? Panel3: TPanel;
??? Panel4: TPanel;
??? ListBox2: TListBox;
??? Edit1: TEdit;
??? Label1: TLabel;
??? Label2: TLabel;
??? BitBtn1: TBitBtn;
??? BitBtn2: TBitBtn;
??? ListBox1: TListBox;
??? Label3: TLabel;
??? procedure FormCreate(Sender: TObject);
??? procedure Edit1Change(Sender: TObject);
??? procedure ListBox2Click(Sender: TObject);
??? procedure ListBox1Click(Sender: TObject);
? private
??? { Private declarations }
? public
??? { Public declarations }
? end;
var
? SelectPY: TSelectPY;
? getName:String;
? {函数在这里定义}
? function GetCharInd(zzchar:string):char;//汉字拼音码
? function DisByStrInd(ListBoxStr:TListBox;StrInd:string):string;
implementation
uses DataMain;
{$R *.dfm}
{汉字拼音码的检索}
function DisByStrInd(ListBoxStr:TListBox;StrInd:string):string;
label NotFound;
var
? zzchar :string;
? i,244)"> {在 FormCreate 中,将联系人 姓名 加入 ListBox1}
procedure TSelectPY.FormCreate(Sender: TObject);
var
??? i:integer;
begin
? inherited;
? with adodm.PersonName do
? begin
??? listBox1.Clear;
???????? //用循环的方法加入
??? for i:=0 to adodm.PersonName.RecordCount-1 do
??? begin
??? self.ListBox1.Items.Add(adodm.PersonName.FieldByName('姓名').AsString);
??? adodm.PersonName.Next;
?? end;
??? listBox1.Sorted:=true;
??? adodm.PersonName.First;//DateSet指针指向第一条记录
? end;??
?// edit1.SetFocus;
end;
?
//实现单击选择性名
procedure TSelectPY.ListBox2Click(Sender: TObject);
var xIndex:integer;
begin
? inherited;
? xIndex:=self.ListBox2.ItemIndex;//得到Item选项的Index
? label3.Caption:=self.ListBox2.Items.Strings[xIndex];//从Index得到 Text;
? getName:=self.ListBox2.Items.Strings[xIndex];
end;
{输入拼音查找汉字}
procedure TSelectPY.Edit1Change(Sender: TObject);
var
? SelStr:string;
begin
? inherited;
? SelStr:='';
? ListBox2.Items.Text:=DisByStrInd(listBox1,Edit1.Text);
end;
{单击选择}
procedure TSelectPY.ListBox1Click(Sender: TObject);
var nIndex:integer;
begin
? inherited;
? nIndex:=ListBox1.ItemIndex;
? ListBox2.Items.Text:=ListBox1.Items.Strings[nIndex];
? getName:=self.ListBox2.Items.Text;
end;
end.
