Ошибка "Empty SQL Statement"

[Sciv]

может база не дает разрешения на фильтрацию?

фильтрация - это поисковый запрос, он не меняет данных -> не редактирует. Так что тут дело не в доступе к базе

Мыло: landgrafsd[псина]mail.ru, шлите проект, конфиденциальность гарантирую.

[Sciv]

Итак, пробившись сквозь дебри кода, нашел таки грабли: на момент включения фильтрации переменные SQL1..SQL4 ничего в себе не содержат. Вообще ничего, т.е. SQL1=''. И остальные так же.

После относительно недолгого исследования обнаружил грабли - в процедуре mainform.FormCreate:

procedure Tmainform.FormCreate(Sender: TObject);
begin
      mainfm.ShowModal;
      Path:=ExtractFilePath(Application.ExeName);
      SQL1:='select * from AWARETYPES';
      SQL2:='select * from WARES where WR_WT_LNK=:WT_COUNTER';
      SQL3:='select * from CLIENTS';
      SQL4:='select * from SALES where SALES_LNK=:CLIENTS_COUNTER';
end;

Следуя логике этого кода мы показываем модально форму mainfm, а вот до всего остального дело просто не доходит - потому у нас переменные и остаются пустыми с самого начала программы. Исправляется одним копипастом:

     
procedure Tmainform.FormCreate(Sender: TObject);
begin
      Path:=ExtractFilePath(Application.ExeName);
      SQL1:='select * from AWARETYPES';
      SQL2:='select * from WARES where WR_WT_LNK=:WT_COUNTER';
      SQL3:='select * from CLIENTS';
      SQL4:='select * from SALES where SALES_LNK=:CLIENTS_COUNTER';
      mainfm.ShowModal;
end;

и вуаля! - все работает. Правда, несколько смущает, что фильтр включается только через пункт меню "Фильтрация".

Вывод: код оставляем исходный (то есть то, что я чуть выше по ветке просил закомментировать) и совершаем манипуляции, описанные в данном посте - то бишь переносим mainfm.ShowModal; в самый конец процедуры OnCreate


P.S. Проект у себя удаляю насовсем.

[Alginsky]

Sciv БОЛЬШОЕ ТЕБЕ СПАСИБО!))) заработала