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

@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;

Новые блоги и статьи Все статьи Все блоги /
Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .
Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .

@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