一个大难题，100分求解

Question

表一：
人员编码   拼音码    人员姓名   科室名称
016001      lzm       刘之民     皮肤科
016002      lw        刘伟       放射科
016003      zw        张为       神经科
016005      fl        范林       眼科
。
016250      zx        张新       口腔科在窗口布局：拼音码_______人员姓名：_______科室名称：_______
选择窗口：_____选择窗口是一个下拉窗口，当在拼音码栏中输入拼音字母时，下拉窗口从数据库中读出与所输入的字母相似的人员名称，移动键盘的上下键头，可以选择人员名称，
选中后在人员姓名中显示选中的人员名。同时在科室名称中显示所属科室。
例如：
在拼音码中输入：l  下拉窗口显示刘之民 刘伟
在拼音码中输入：lw  下拉窗口只显示刘伟

Answer 1

?在ONCHANGE事件里用FILTER不可以?

Answer 2

拼音码：Edit_PY,人员姓名：Edit_Name,科室名称:Edit_Office,选择窗口：Combobox_Select
分别为：Edit、Edit、Edit、Combobox
在Edit_PY的OnChange事件中写：
with AdoQuery1 do
begin
  Close;
  Sql.Clear;
  Sql.Add('select 人员姓名 from 表一 where 拼音码 like ''%'+Edit_PY.Text+'%''');
  Open;
end;
Combobox_Select.Items.Clear;
while not AdoQuery1.Eof do
begin
  Combobox_Select.Items.Add(AdoQuery1.FieldByName('人员姓名').AsString);
  AdoQuery1.Next;
end;在Combobox的OnChange事件中写：
with AdoQuery1 do
begin
  Close;
  Sql.Clear;
  Sql.Add('select 人员姓名,科室名称 from 表一 '+
          'where 人员姓名= '''+Combobox_Select.Text+'''');
  Open;
end;
Edit_Name.Text:=AdoQuery1.FieldByName('人员姓名').AsString;
Edit_Office.Text:=AdoQuery1.FieldByName('科室名称').AsString;搞定！^_^

Answer 3

to:heixiu1980(迷茫ing) 
当在Edit_PY 中输入拼音码时 如何使Combobox_Select处于下拉状态，能在窗口显示人员名称的过滤过程。
如：
拼音码_l______人员姓名：_______科室名称：_______
选择窗口：____^
          刘之民     
          刘伟

Answer 4

1、在ONCHANGE事件里用FILTER﹔
2、用查詢動態增加下拉列表。

Answer 5

请指教：在ONCHANGE事件里用FILTER﹔
详细的程序代码？