呵呵,好热闹啊,我也来凑凑热闹:)
用SQL查询速度很快,如果要把查询的结果送到Edit就可以这样:
with query1 do
begin
close;
sql.clear;
sql.text:='select * from table where id=:id';
params[0].asinteger :=strtoint(edit1.text);
open;
if recrodcount<>0 then
begin
edit2.text:=fieldbyname('name').asstring;
edit3.text:=fieldbyname('sex').asstring;
...
end;
end;