[Never74]

Осталась тока одна проблема. Как добавить условие для поиска ещё по какому-нибудь полю в таблице.

С датами по диапазону получилось вот так и работает:

Код:

//Функция DateToSQLStr 
function DateToSQLStr(Date : TDate) : String ;
   var
      d, m, y : word ;
begin
   DecodeDate(Date, y, m, d) ;
   Result := IntToStr(d)+'/'+IntToStr(m)+'/'+IntToStr(y) ;
end ;

//Запрос на показ диапазона между 2 датами
Data_Module_0.ADOQuery_Priem.Close;
Data_Module_0.ADOQuery_Priem.SQL.Clear;
Data_Module_0.ADOQuery_Priem.SQL.Text := 'SELECT * FROM Priem WHERE Priem.Data_Priem between #' + DateToSQLStr(DateTimePicker1.Date) + '# and #' + DateToSQLStr(DateTimePicker2.Date) +'#';
Data_Module_0.ADOQuery_Priem.ExecSQL;
Data_Module_0.ADOQuery_Priem.Open;

Мне нужно добавить вот это условие, но как я не понимаю...

Код:

    with Data_Module_0 do Begin
 ADOQuery_Spr_Uslygi.Close;
 ADOQuery_Spr_Uslygi.SQL.Clear;
 ADOQuery_Spr_Uslygi.SQL.Add('Select * from Uslugas where Usluga like'''+'%'+Edit_Search.text+'%'+'''');
 ADOQuery_Spr_Uslygi.Open;
 end;