Запрос для выпадающего списка

[come-on]

where (:sklad_id = -1 or sklad_id = :sklad_id ) and (:cat = -1 or cat = :cat)

это если по простому

[Antony41]

Сообщение от come-on

это если по простому

вы меня не правильно поняли. это я и сам знаю как отфильтровывать с помощью where, я спрашиваю как мне составить запрос таким образом чтоб он зависил от выбранных значений lookupcombobox? при этом содержится значение "все склады" имеющей EditValue = -1 тоесть если
cbsklad.EditValue = -1
то

select * from get_ostatok

так же имеется второй CB2 в котором выбираются группы оборудования
если выбран 1 склад и например 1 группа то запрос должен быть таким

select * from get_ostatok where (sklad_id = 1) and (cat = 1)

а если только 1 склад а категория не выбрана (CB2.EditValue = -1)
то только так

select * from get_ostatok where (sklad_id = 1)

, а если только категория выбрана а склад не выбран
select * from get_ostatok where (cat = 1)
а если у меня 3 ComboBox? мне нужно проверить
if cb1.editvalue = -1 then
то запрос 1
if (cb1.editvalue = -1) and (cb2.editvalue = -1) then
то запрос 2
if if cb1.editvalue <> -1 then
то запрос 3
if cb2.editvalue <> -1 then
то запрос 4

[Аватар]

Правильно он понял. Параметризированный запрос. Если склад не задан, то параметру значение -1. Аналогично для категории

[come-on]

вы меня не правильно поняли.

надо учить sql ели с базами работаете

[Antony41]

Сообщение от come-on

надо учить sql ели с базами работаете

Уж поверьте с фильтрацией where работать я умею

вот результат запроса

select * from get_ostatok

А вот результат запроса с параметром -1 как вы и говорите

select * from get_ostatok where get_ostatok.rsklad_id = -1

[Аватар]

select * from get_ostatok where get_ostatok.rsklad_id = -1

И чем это похоже на то, что предлагалось в #11? Ответ - совершенно другое

Уж поверьте с фильтрацией where работать я умею

Как следствие - совершенно не верю

[come-on]

А по итогу видно что не умеете, печально
И про нулы я вам еще в предыдущей теме писал
http://programmersforum.ru/showthread.php?t=285642
2 раза ...
Надо учить, неучение тьма.

[Antony41]

в общем проблему я решил по другому с помощью фильтра компонента cxGrid, а вобще надо было так https://youtu.be/sA1m-EvADqw

[come-on]

Да не надо нам эти картинки, мы и без xxxGrid-ов это делаем просто и без напряга, потому что sql учили.

[Antony41]

я тоже sql учил, но не доходит до меня как можно реализовать это по другому
вот как я себе это представляю
есть у меня некий файл SQL.xml в котором я храню все запросы

как видите у меня 2 лукапа в первом склады а во втором группы. сделать выборку мне не представляет труда, но сделать её универсальной не пойму как.

вот примерно так я пытался сделать функцию отбора первый раз

		<GetOstatok>
			<MainSQL>
				select * from get_ostatok
			</MainSQL>
			<SQL1>
				where rsklad_id = :rsklad_id 
			</SQL1>
			<SQL2>
				and requip_group_id = :requip_group_id 
			</SQL2>
		</GetOstatok>

var
  SQL, MainSQL, SubSQL1, SubSQL2: string;
  Value : string;
begin
  if not DataModule1.IsConnectedDB(True) then
    Exit;
  MainSQL := MainForm.XMLSQL.DocumentElement.ChildNodes['Sklads'].ChildNodes['GetOstatok'].ChildNodes['MainSQL'].Text;
  SubSQL1 := MainForm.XMLSQL.DocumentElement.ChildNodes['Sklads'].ChildNodes['GetOstatok'].ChildNodes['SQL1'].Text;
  SubSQL2 := MainForm.XMLSQL.DocumentElement.ChildNodes['Sklads'].ChildNodes['GetOstatok'].ChildNodes['SQL2'].Text;

  SQL := MainSQL;

  if cxSelectSklads.EditValue <> -1 then
    begin
      SQL := MainSQL + SubSQL1;
      FDQGetOstatok.SQL.Text := SQL;
      FDQGetOstatok.ParamByName('rsklad_id').AsInteger := cxSelectSklads.EditValue;
    end
  else
    SQL := MainSQL;
  FDQGetOstatok.SQL.Text := SQL;
  MainSQL := SQL;

  if cxSelectEquipsGroups.EditValue <> -1 then
    begin
      SQL := MainSQL + SubSQL2;
      FDQGetOstatok.SQL.Text := SQL;
      FDQGetOstatok.ParamByName('requip_group_id').AsInteger := cxSelectEquipsGroups.EditValue;
    end
  else
    SQL := MainSQL;
  FDQGetOstatok.SQL.Text := SQL;


  Caption := IntToStr(cxSelectSklads.EditValue)+'|'+IntToStr(cxSelectEquipsGroups.EditValue);
  try
    FDQGetOstatok.Open;
  except
    on E: Exception do
    begin
      ShowMyMessage(0, C_MSG_LOG, 'Ошибка: '+E.Message);
      ShowMyMessage(0, C_MSG_LOG, 'Запрос при возникновении ошибки: '+sql);
      Exit;
    end;
  end;

ну это так вкратце примерно.