[son_yaa]

Появилась это проблема после того как я заполнила таблицу с клиентами. По началу думала что проблема в том что в поле FIO у меня появились записи с кавычками (раньше все запросы работали и кавычек в ФИО клиентов я не вводила, но сейчас нужно заполнять таблицу с ковычками). и почему-то не выводит заказы тех клиентов в ФИО которых присутствуют кавычки
Помогите разобраться пожалуйста. Сижу третий день, не понимаю в чем проблема. Могу спросить программу, кто действительно может помочь

Код:

procedure TForm26.FormShow(Sender: TObject);
var  FirstDay, LastDay: TDateTime;
     data1, data2: TDateTime;
  begin
FirstDay := EnCodeDate(YearOf(Date), MonthOf(Date), 1); //первая дата месяца
LastDay := FirstDay + DaysInMonth(Date) - 1; //последняя дата месяца
DateTimePicker1.Date:= FirstDay;
DateTimePicker2.Date:= LastDay;
 
QueryPoliMes.SQL.Text := 'SELECT * FROM ZakazPoligraf WHERE Data between :data1 and :data2 ';
QueryPoliMes.Parameters.ParamByName('data1').Value := DateTimePicker1.DateTime;
QueryPoliMes.Parameters.ParamByName('data2').Value := DateTimePicker2.DateTime;
QueryPoliMes.Active:=true;
  QueryNaruzhMes.SQL.Text := 'SELECT * FROM ZakazNaruzh WHERE Data between :data1 and :data2 ';
  QueryNaruzhMes.Parameters.ParamByName('data1').Value := DateTimePicker1.DateTime;
  QueryNaruzhMes.Parameters.ParamByName('data2').Value := DateTimePicker2.DateTime;
  QueryNaruzhMes.Active:=true;
    QueryArendMes.SQL.Text := 'SELECT * FROM ZakazArenda WHERE Data between :data1 and :data2 ';
    QueryArendMes.Parameters.ParamByName('data1').Value := DateTimePicker1.DateTime;
    QueryArendMes.Parameters.ParamByName('data2').Value := DateTimePicker2.DateTime;
    QueryArendMes.Active:=true;
 
DataModule3.Tklient.Filtered:=false;
DataModule3.Tklient.Filter:= '(Data >= '+QuotedStr(DateTostr(DateTimePicker1.DateTime))+') and '+
 '(Data <= '+QuotedStr(DateTostr(DateTimePicker2.DateTime))+')';
DataModule3.Tklient.Filtered:=true;
end;

Админ: Пользуемся тегами при оформлении кода! При рецедиве последуют санкции.