Или если так, написать поиск для Edit1:
http://s011.radikal.ru/i317/1012/42/fbc1d70432e9.jpg
Только у меня почему-то не работает и появляется такая ошибка:
http://s015.radikal.ru/i330/1012/1c/d30f3e7433c2.jpg
А вот эта процедура:
Код:
procedure TForm2.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
with ADOQuery1 do begin
Close;
//SQL.Clear;
SQL.Add('SELECT DISTINCT id_kniga,name_kniga,avtor,stranic,izdatel,god_izdan,cena,id_postav FROM kniga');
SQL.Add('WHERE avtor LIKE'+quotedstr(Edit1.text+'%'));
SQL.Add('name_kniga');
Open;
end;
end;
Как можно такую же процедуру поиска через Edit1 написать для кнопки Button1?