Topic: Проблемы с синтаксисом.
Здравствуйте.
Подскажите как правильно написать
procedure Form1_Button11_OnClick (Sender: TObject; var Cancel: boolean);
begin
formOth.Button6.dbSQL := ' if (not isAdmin) '+
' then '+
' SELECT id_mod_print, mod_print.name, count(*) '+
' FROM print '+
' LEFT OUTER JOIN mod_print ON mod_print.id=print.id_mod_print '+
' WHERE id_departament='+IntToStr(idDepartament) +
' group by id_mod_print '+
' ELSE '+
' SELECT id_mod_print, mod_print.name, count(*) '+
' FROM print '+
' LEFT OUTER JOIN mod_print ON mod_print.id=print.id_mod_print '+
' group by id_mod_print ';
formOth.Button6.Click;
end;
По отдельности SELECTы работают, как только добавляю IF, THEN, ELSE - ошибка синтаксиса