level 1
begin
close;
databasename = database1.databasename;
sql.clear;
sql.add('select * from aa');
if not eof do
begin
edit1.text := fieldbyname('a').asstring;
edit2.text := fieldbyname('b').asstring;
end;
close;
end;
with tquery1 do
begin
close;
databasename = database1.databasename;
sql.clear;
sql.add('select * from aa where no=:no22');
parambyname('no22').value='se';
if not eof do
begin
edit1.text := fieldbyname('a').asstring;
edit2.text := fieldbyname('b').asstring;
end;
close;
end;


