我有个小问题问大家？请大家指教？(20分)

procedure TAdmini_form.B_locateClick(Sender: TObject);
begin
IF (Trimright(locate_word.Text))<>'' Then
Begin
With B_Delect do
Begin
Close;
SQL.Clear;
SQL.Add('Select * from Ren');
SQL.Add('Where 人名='''+locate_word.Text+'''');
Open;
Ren_name.Text:=Admini_form.Table1_2['人名'];
En_name.Text:=Admini_form.Table1_2['英文名'];
Tell_1.Text:=Admini_form.Table1_2['电话'];
Gs_name.Text:=Admini_form.Table1_2['公司名'];
h_z.Text:=Admini_form.Table1_2['护照号码'];
Add_Edit.Text:=Admini_form.Table1_2['地址'];
end;
end
Else
Application.MessageBox('没找到此记录!','No Find!',Mb_Ok);
end;

我的设计意思是：找到这条记录就要在Edit.txt 中显示记录中的各字段的内容。。

可是不管怎么样都是只能只显示数据表中的第一条记录，根本就找不到満足条件的记录。

这是为什么呀？　请指教一下。

Table1_2=B_Delect ?

Admini_form.Table1_2 改成 B_Delect ?

procedure TAdmini_form.B_locateClick(Sender: TObject);
begin
IF (Trimright(locate_word.Text))<>'' Then
Begin
With B_Delect do
Begin
Close;
SQL.Clear;
SQL.Add('Select * from Ren');
SQL.Add('Where 人名='''+locate_word.Text+'''');
Open;
Ren_name.Text:=FieldByName('人名').Asstring;
En_name.Text:=FieldByName('英文名').Asstring;
Tell_1.Text:=FieldByName('电话').Asstring;
Gs_name.Text:=FieldByName('公司名').Asstring;
h_z.Text:=FieldByName('护照号码').Asstring;
Add_Edit.Text:=FieldByName('地址').Asstring;
end;
end
Else
Application.MessageBox('没找到此记录!','No Find!',Mb_Ok);
end;
copy过去就可以了！