Не могу никак сделать поиск в программе, потерял исходники готового поиска, а у самого чето еще ума не хватает :-)
Суть в том, что надо в поле Edit1 вписать текст, нажать на кнопочку (в которой должна быть прописана вся процедура поиска) и вывести результат в таблице через DBGrid1
Поиск ведется из таблицы сделанной в MS Access и связанной с программной через компнонент ADOQuery
вот как это примерно выглядеть должно...
procedure TForm4.Button2Click(Sender: TObject);
var sql:string;
begin
sql:='';
ADOQuery1.Active:=false;
if Edit1.text<>'' then sql:='a.Название like "'+Edit1.text+'%"';
if (sql<>'') then sql:='where '+sql;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from Games a '+sql);
ADOQuery1.Active:=true;
end;
помоги мне
