Убрать повторяющиеся элементы

@VasyaAgPro · Регистрация: 24.04.2013

Студворк — интернет-сервис помощи студентам

Приветствую. Имеется небольшая проблема с выводом результатов запроса из базы в Treeview.
Суть в следующем: Имеется база с кулинарными рецептами, ингредиентами и способом приготовления.
При поиске в базе по одному ингредиенту одного блюда - появляется 1 рецепт:
(см. скриншот 1)
Если же к поиску добавить ещё 1 ингредиент, содержащийся в этом блюде, то в результатах появляется ещё 1 копия этого блюда:
(см. скриншот 2, который с обведенными значениями)

Т.е. для поиска берутся элементы из ListBox2 и по ним идет поиск в базе:

Собственно сам код процедуры запроса:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
procedure Tmain_form.Button3Click(Sender: TObject);
var n,k,m,b,o,z:integer;
    v,tmp_v:boolean;
    tmp:string;
    x,y:ttreenode;
begin
//Тут очищаем дерево перед выводом
  TreeView1.Items.Clear;
  TreeView1.Items.AddChild(TreeView1.Items.GetFirstNode,'Рецепты');
//Строим ветви для каждого типа блюда
  for b:=1 to food_num do begin
   x:=TreeView1.Items.AddChild(TreeView1.Items.Item[0],types_of_food[b,2]);
   for o:=0 to ListBox2.Items.Count-1 do begin
    ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
//Ну и сам запрос
    ADOQuery1.SQL.Add('SELECT * From cookbook,cookbook_food,food Where '+ '(cookbook.type="'+types_of_food[b,1]+'")AND(cookbook_food.cbid=cookbook.id)AND(food.id=cookbook_food.pfid)AND(food.title="'+listbox2.Items.Strings[o]+'");');
    ADOQuery1.Open;
  for m:=1 to ADOQuery1.RecordCount do begin
    TreeView1.Items.AddChild(x,ADOQuery1.FieldList.Fieldbyname('cookbook.title').AsString);
   ADOQuery1.RecNo:=m;
  end;
 end;
end;
end;

А теперь сам вопрос: Как убрать из TreeView повторяющиеся элементы при поиске по нескольку ингредиентов?
Заранее благодарю.

@VitoAcidrain · 25.04.2013, 14:57

VasyaAgPro, попробуйте добавить DISTINCT в ваш SQL запрос.
Начинаться будет так:

SQL
1
SELECT DISTINCT * FROM

.

@VasyaAgPro · 25.04.2013, 15:11 **[ТС]**

VitoAcidrain, Да, я пробовал это. Если не ошибаюсь - эта функция находит повторяющиеся элементы в базе и не выводит их несколько раз. Но у меня в базе повторяющихся элементов нет, поэтому эта функция бесполезна.
Проблема происходит при формировании дерева, может есть какая то процедура, позволяющая сравнить все уже выведенные в TreeView значения и убрать совпадения?

@Waddonator · 25.04.2013, 15:40

VasyaAgPro, для формирования списка наименований в тело запроса не добавляете ингредиенты (+ делайте Distinct) - и будут вам названия в одном экземпляре.

@VitoAcidrain · 25.04.2013, 15:45

Можно подумать о проверке через IF.
Но в вашем запросе ещё одно смущает.
У вас

SQL
1
food.title="'+listbox2.Items.Strings[o]+'"

Но обычно в таком случаи запрос должен выглядеть так:

SQL
1
food.title IN ('условие 1', 'условие 2')

.

Добавлено через 3 минуты
Waddonator, осмелюсь предположить, что запрос в таком случаи выведет все блюда из категории, а не единственный нужный.

@Waddonator · 25.04.2013, 15:58

VitoAcidrain, почему это

Сообщение от VitoAcidrain

запрос в таком случаи выведет все блюда из категории, а не единственный нужный

если условие WHERE остается?

@VitoAcidrain · 25.04.2013, 16:11

Сообщение от Waddonator

если условие WHERE остается?

Если я правильно понял, то

SQL
1
cookbook.type="'+types_of_food[b,1]+'"

будет подставлять: Супы, Салаты, Напитки и т.д.. Т.е выборка будет осуществляться по категории еды.
Остальные условия, кроме ингредиентов, служат для связи двух таблиц.

@Waddonator · 25.04.2013, 16:18

VitoAcidrain, нужно оставить все как было, только вместо

SQL
1
SELECT * FROM ...

написать

SQL
1
SELECT DISTINCT <поле с наименованием> FROM ...

@VitoAcidrain · 25.04.2013, 16:43

Waddonator, на счет DISTINCT я ТС говорил. Судя по всему это не работает.
А разницы между * и <поле с наименованием> не должно быть.
Все равно инфа берется из столбца с наименованиями.

Delphi
1
ADOQuery1.FieldList.Fieldbyname('cookbook.title').AsString

@Waddonator · 25.04.2013, 16:49

VitoAcidrain, "должно", "не должно"... Вы сначала попробуйте, а потом говорите. Не хочу вас расстраивать, разница между одним полем и множеством полей, все таки, есть.

@VasyaAgPro · 25.04.2013, 16:50 **[ТС]**

Waddonator, Буду благодарен, если на примере полного запроса покажите, не совсем понятно, что имеете ввиду, т.к. просто DISTINCT не работает. Если требуется структура базы, сделаю скрин, хотя, кажется, и так по запросу она понятна...
И надеюсь мы правильно друг друга поняли насчет того, что в итоге должны выводиться несколько разных блюд по всем имеющимся ингредиентам, а не конкретно одно: (см.скриншот)

@Waddonator · 25.04.2013, 16:55

VasyaAgPro, в каком поле хранится название типа "суп овощной"?

Добавлено через 1 минуту

Delphi
1
ADOQuery1.SQL.Add('SELECT DISTINCT cookbook.title From cookbook,cookbook_food,food Where '+ '(cookbook.type="'+types_of_food[b,1]+'")AND(cookbook_food.cbid=cookbook.id)AND(food.id=cookbook_food.pfid)AND(food.title="'+listbox2.Items.Strings[o]+'");');

@VasyaAgPro · 25.04.2013, 17:02 **[ТС]**

Waddonator, текстовое поле 'title', таблицы cookbook:

@Waddonator · 25.04.2013, 17:04

VasyaAgPro, выше написал. Пробуйте.

@VasyaAgPro · 25.04.2013, 17:36 **[ТС]**

Waddonator,
Ошибка, ругается на этот cockbook.title, что он не найден:

@Waddonator · 25.04.2013, 17:42

VasyaAgPro, выложите проект, ща разберемся.

Добавлено через 3 минуты
в 21 строке

Delphi
1
ADOQuery1.FieldList.Fieldbyname('cookbook.title').AsString

замените на

Delphi
1
ADOQuery1.Fieldbyname('title').AsString

@VasyaAgPro · 25.04.2013, 17:51 **[ТС]**

Waddonator, вот:

@Waddonator · 25.04.2013, 18:09

В логике ошибка. Замените код на следующий

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
procedure Tmain_form.Button3Click(Sender: TObject);
var n,k,m,b,o,z:integer;
    v,tmp_v,dup:boolean;
    tmp,s:string;
    x,y:ttreenode;
    crc:Dword;
    item:TTreeNode;
begin
   //Î÷èùàåì äåðåâî, ôîðìèðóåììåòàêîìïîíåíò 'Ðåöåïòû'
   TreeView1.Items.Clear;
   TreeView1.Items.AddChild(TreeView1.Items.GetFirstNode,'Ðåöåïòû');
   //Ñòðîèì âåòêó äëÿ êàæäîãî òèïà ïèùè
   for b:=1 to food_num do begin
      x:=TreeView1.Items.AddChild(TreeView1.Items.Item[0],types_of_food[b,2]);
      ADOQuery1.Close;
      ADOQuery1.SQL.Clear;
      ADOQuery1.SQL.Add('SELECT DISTINCT cookbook.title From cookbook,cookbook_food,food Where '+ '(cookbook.type="'+types_of_food[b,1]+'")AND(cookbook_food.cbid=cookbook.id)AND(food.id=cookbook_food.pfid) AND (');
      for o:=0 to ListBox2.Items.Count-1 do begin
         if o<>0 then ADOQuery1.SQL.Add(' OR ');
         ADOQuery1.SQL.Add('(food.title="'+listbox2.Items.Strings[o]+'")');
      end;
      ADOQuery1.SQL.Add(')');
      ADOQuery1.Open;
      for m:=1 to ADOQuery1.RecordCount do begin
         TreeView1.Items.AddChild(x,ADOQuery1.Fieldbyname('title').AsString);
         ADOQuery1.RecNo:=m;
      end;
   end;
end;

Добавлено через 1 минуту
И проверку поставьте, если ничего не выбрано, то создать пустое дерево.

@VasyaAgPro · 25.04.2013, 18:11 **[ТС]**

Waddonator, Спасибо огромное, очень выручили.

@Waddonator · 25.04.2013, 18:18

VasyaAgPro, кроме того, там еще ошибка есть. Вместо

Delphi
1
2
3
4
for m:=1 to ADOQuery1.RecordCount do begin
   TreeView1.Items.AddChild(x,ADOQuery1.Fieldbyname('title').AsString);
   ADOQuery1.RecNo:=m;
end;

напишите

Delphi
1
2
3
4
while not ADOQuery1.Eof do begin
   TreeView1.Items.AddChild(x,ADOQuery1.Fieldbyname('title').AsString);
   ADOQuery1.Next
end;

Новые блоги и статьи Все статьи Все блоги /
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	Влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .

@VasyaAgPro 0 / 0 / 0 Регистрация: 24.04.2013 Сообщений: 14
	25.04.2013, 15:11 [ТС]
	VitoAcidrain, Да, я пробовал это. Если не ошибаюсь - эта функция находит повторяющиеся элементы в базе и не выводит их несколько раз. Но у меня в базе повторяющихся элементов нет, поэтому эта функция бесполезна. Проблема происходит при формировании дерева, может есть какая то процедура, позволяющая сравнить все уже выведенные в TreeView значения и убрать совпадения? 0

@Waddonator 969 / 644 / 97 Регистрация: 01.11.2012 Сообщений: 1,447
	25.04.2013, 15:40
	VasyaAgPro, для формирования списка наименований в тело запроса не добавляете ингредиенты (+ делайте Distinct) - и будут вам названия в одном экземпляре. 1

@Waddonator 969 / 644 / 97 Регистрация: 01.11.2012 Сообщений: 1,447
	25.04.2013, 16:49
	VitoAcidrain, "должно", "не должно"... Вы сначала попробуйте, а потом говорите. Не хочу вас расстраивать, разница между одним полем и множеством полей, все таки, есть. 0

@VasyaAgPro 0 / 0 / 0 Регистрация: 24.04.2013 Сообщений: 14
	25.04.2013, 16:50 [ТС]
	Waddonator, Буду благодарен, если на примере полного запроса покажите, не совсем понятно, что имеете ввиду, т.к. просто DISTINCT не работает. Если требуется структура базы, сделаю скрин, хотя, кажется, и так по запросу она понятна... И надеюсь мы правильно друг друга поняли насчет того, что в итоге должны выводиться несколько разных блюд по всем имеющимся ингредиентам, а не конкретно одно: (см.скриншот) Миниатюры 0

@VasyaAgPro 0 / 0 / 0 Регистрация: 24.04.2013 Сообщений: 14
	25.04.2013, 17:02 [ТС]
	Waddonator, текстовое поле 'title', таблицы cookbook: Миниатюры 0

@Waddonator 969 / 644 / 97 Регистрация: 01.11.2012 Сообщений: 1,447
	25.04.2013, 17:04
	VasyaAgPro, выше написал. Пробуйте. 0

@VasyaAgPro 0 / 0 / 0 Регистрация: 24.04.2013 Сообщений: 14
	25.04.2013, 17:36 [ТС]
	Waddonator, Ошибка, ругается на этот cockbook.title, что он не найден: Миниатюры 0

@VasyaAgPro 0 / 0 / 0 Регистрация: 24.04.2013 Сообщений: 14
	25.04.2013, 18:11 [ТС]
	Waddonator, Спасибо огромное, очень выручили. 0