Выборка данных в БД (ADO)

[Makoto2005]

При кликаньи на кнопку "Найти" ничего не происходит.
Помогите найти ошибки.
вот код кнопки:

procedure TfrmComp.btnSearchClick(Sender: TObject; idx, id: longint);
var
  S:string;         // текст критерия сортировки или фильтрации
  krit:string;
begin
edtSearch.Visible:=False;
lblSearch.Visible:=False;
btnSearch.Visible:=False;
btnReport.Visible:=True;
lblReport.Visible:=True;
case filtr of
   1: begin
       krit:=edtSearch.Text;
       S:='PERFORMERS.PF_NAME=[krit]';
     end;
   2: begin
       krit:=edtSearch.Text;
       S:='AND COMPOSERS.CM_NAME=[krit]';
     end;
   3: begin
       krit:=edtSearch.Text;
       S:='AND AUTHORS.AT_NAME=[krit]';
      end;
   4: begin
       krit:=edtSearch.Text;
       S:='AND ACCOMP.AC_NAME=[krit]';
      end;
end;
   if S<>'' then

begin

        SQL_Text:='SELECT * FROM COMPOSITIONS INNER JOIN (%s INNER JOIN COMP_%s ON %s.%s_ID=COMP_%s.%s_%s_FK) ON COMPOSITIONS.CP_ID=COMP_%s.%s_COMP_%s';
        SQL_Text:=SQL_Text+S;
        dmFond.qryGetCompositions.Active:=False;
        dmFond.qryGetCompositions.SQL.Clear;
        dmFond.qryGetCompositions.SQL.Add(SQL_Text);
        dmFond.qryGetCompositions.Parameters[0].Value:=krit;
        dmFond.qryGetCompositions.Active:=true;
     end
end;

[Serge_Bliznykov]

везде, где присваивается S, написать так:

S:='PERFORMERS.PF_NAME='+QoutedStr(edtSearch.Text);
...
S:='AND COMPOSERS.CM_NAME='+QoutedStr(edtSearch.Text);
ну и т.д..

это
dmFond.qryGetCompositions.Parameter s[0].Value:=krit;
выкинуть!

(%s INNER JOIN COMP_%s ON %s.%s

никогда не сталкивался с такой записью! А что такое %s в данном случае?!!

[Makoto2005]

У меня таблицы создаются при помощи массива..
%s - для подстановки туда разных значений, чтобы каждый раз этот запрос был для разных таблиц..
вот что-то такое...

Делала свой код по вот такому образцу...

// кнопка "Найти" для фильтрации данных
procedure TForm6.BitBtn3Click(Sender: TObject);
begin
case filtr of
  1: begin
       DataModule1.ADOTable5.Filtered:=True;
       DataModule1.ADOTable5.Filter:='Дата='+MaskEdit1.Text;
     end;
   2: begin
       if (MaskEdit1.Text=MaskEdit1.EditMask) or (MaskEdit2.Text=MaskEdit2.EditMask) then
         begin
           Application.MessageBox(PChar('Не все даты введены'),'Ошибка!',MB_OK);
           exit
         end;
       DataModule1.ADOTable5.Filtered:=True;
       DataModule1.ADOTable5.Filter:='Дата>='+MaskEdit1.Text+' AND Дата<='+MaskEdit2.Text;
     end;
   3: begin
       krit:=MaskEdit1.Text;
       S:='AND Заказчики.Наименование=[krit]';
      end;
   4: begin
       krit:=MaskEdit1.Text;
       S:='AND Услуги.Наименование=[krit]';
      end;
    5: begin
       DataModule1.ADOTable5.Filtered:=True;
       DataModule1.ADOTable5.Filter:='Ставка_НДС='+MaskEdit1.Text;
      end;
end;
   if S<>'' then
     begin
       Form6.DBGrid1.DataSource:=DataModule1.DataSource7;
       DataModule1.DataSource7.DataSet:=DataModule1.ADOQuery2;

       SQL_Text:='SELECT * FROM Заказы_на_услуги, Заказчики, Услуги ';
       SQL_Text:=SQL_Text+'WHERE Заказы_на_услуги.Код_заказчика=Заказчики.Код_заказчика ';
       SQL_Text:=SQL_Text+'AND Заказы_на_услуги.Код_услуги=Услуги.Код_услуги ';
       SQL_Text:=SQL_Text+S;

       DataModule1.ADOQuery2.Close;
       DataModule1.ADOQuery2.SQL.Clear;
       DataModule1.ADOQuery2.SQL.Add(SQL_Text);
       DataModule1.ADOQuery2.Parameters[0].Value:=krit;
       DataModule1.ADOQuery2.Open
     end
end;