Фильтрация и сортировка тоже

@Gusev2013 · Регистрация: 22.05.2013

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

Здравствуйте. Прошу помощи. Надо сдавать, а не могу сообразить. В Дельфи нуль. Перечитал кучу литературы, но только еще больше запутался. В голове каша из BDE, ADO, TABLE, SQL и прочего. В Интернете перерыл кучу сайтов, но подходящего для меня, не нашел. Пожалуйста, помогите. Может быть, кто-то знает ссылку. Задача наверняка типовая, но сам не справился с поиском.

Есть база с таблицей. В ней, например:
• Фамилия (string)
• Имя (string)
• Город (string)
• Некое число Integer
Нужно : последовательно сужая поиск, просуммировать числа полученные в нескольких оставшихся строках. Например, ищем по фамилии (используя вероятно DBLookupListBox или DBLLookupComboBox ???), причем выводить в поисковое окошко нужно неповторяющиеся фамилии. Затем среди найденных фамилий (Иванов), в другом окошке поиск по именам, в этом окошке тоже вывести для поиска неповторяющиеся имена. После выбора среди оставшихся - аналогичный поиск по городам (тоже неповторяющимся). Что останется - просуммировать числа. Поиск должен не обязательно начинаться с фамилии, а может с имени или с города. То есть в произвольном порядке. Понятно, что фамилии, города и т.д. – это схема, все немного сложнее, но мне важен алгоритм и его практическая реализация.
Сам сколько не пытался, не выходит неповторяемость (distinct). Не могу сообразить куда его вставить. И фильтрация, тоже не знаю, как и куда приткнуть.

@Waddonator · 22.05.2013, 16:25

1) Создаете 3 обычных ComboBox. Каждое заполняете одним из 3-х полей таблицы + дополнительный элемент (не определено). Для этого выполняете sql-запрос типа

SQL
1
SELECT DISTINICT [НужноеПоле] FROM [Таблица]

и заполняете ComboBox

Delphi
1
2
3
4
5
6
7
8
ComboBox1.Items.Clear;
ComboBox1.Items.Add('<Не определено>');
ADOQuery1.First;
while not ADOQuery1.Eof do
   begin
      ComboBox1.Items.Add(ADOQyery1.Fields[0].AsString);
      ADOQuery1.Next
   end;

Аналогично 2 других ComboBox'а. Далее в событии OnChange первого ComboBox'а (назначьте эту же процедуру для OnChange остальных ComboBox'ов) в зависимости от результатов выбора формируйте sql-запрос:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.ADD('SELECT SUM([Некое число])');
//далее формируем условие, если хотябы в одном комбобоксе что-то выбрано
if (ComboBox1.ItemIndex<>0) or (ComboBox1.ItemIndex<>0) or (ComboBox1.ItemIndex<>0) then
   begin
      flag:=False;
      ADOQuery1.SQL.ADD('WHERE');
      if ComboBox1.ItemIndex<>0 then begin
         ADOQuery1.SQL.ADD('[Фамилия]='+ComboBox1.Text);
         flag:=True;
      end;
      if ComboBox2.ItemIndex<>0 then begin
         if flag then ADOQuery1.SQL.ADD('and');
         ADOQuery1.SQL.ADD('[Имя]='+ComboBox2.Text);
         flag:=True;
      end;
      if ComboBox3.ItemIndex<>0 then begin
         if flag then ADOQuery1.SQL.ADD('and');
         ADOQuery1.SQL.ADD('[Город]='+ComboBox3.Text);
      end;
   end;

Далее выполняете запрос и берете вашу сумму.

@Gusev2013 · 22.05.2013, 23:47 **[ТС]**

Большое спасибо Waddonator, за оперативность. Следовал Вашим инструкциям, экспериментировал и так и эдак, но не смог добиться нужного результата. Вложил мои опусы. Если не трудно, посмотрите, пожалуйста. Я поставил DBLookupComboBox, у Вас без DBL. И когда вставил первый же код , транслятор дает ошибку на ComboBox1.Items.Clear; И еще мне непонятно куда вставлять присланный Вами третий программный фрагмент кода. Я не чувствую Дельфи, не понимаю взаимосвязи и взаимодействия между его составляющими : SQLзапросами, паскалевскими модулями, компонентами на графической форме. Поэтому прошу снисхождения.
Спасибо.

@Gusev2013 · 23.05.2013, 00:23 **[ТС]**

Забыл базу.

@Waddonator · 23.05.2013, 10:38

Как-то так

@Gusev2013 · 23.05.2013, 11:15 **[ТС]**

Спасибо! Практически то, что нужно.
Изучаю Ваши коды и разбираюсь. Мелкие детали попытаюсь подработать самостоятельно.
Еще раз Спасибо!

Новые блоги и статьи Все статьи Все блоги /
AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .

@Gusev2013 0 / 0 / 0 Регистрация: 22.05.2013 Сообщений: 4

	Фильтрация и сортировка тоже 22.05.2013, 15:09. Показов 1102. Ответов 5 Метки нет (Все метки) Здравствуйте. Прошу помощи. Надо сдавать, а не могу сообразить. В Дельфи нуль. Перечитал кучу литературы, но только еще больше запутался. В голове каша из BDE, ADO, TABLE, SQL и прочего. В Интернете перерыл кучу сайтов, но подходящего для меня, не нашел. Пожалуйста, помогите. Может быть, кто-то знает ссылку. Задача наверняка типовая, но сам не справился с поиском. Есть база с таблицей. В ней, например: • Фамилия (string) • Имя (string) • Город (string) • Некое число Integer Нужно : последовательно сужая поиск, просуммировать числа полученные в нескольких оставшихся строках. Например, ищем по фамилии (используя вероятно DBLookupListBox или DBLLookupComboBox ???), причем выводить в поисковое окошко нужно неповторяющиеся фамилии. Затем среди найденных фамилий (Иванов), в другом окошке поиск по именам, в этом окошке тоже вывести для поиска неповторяющиеся имена. После выбора среди оставшихся - аналогичный поиск по городам (тоже неповторяющимся). Что останется - просуммировать числа. Поиск должен не обязательно начинаться с фамилии, а может с имени или с города. То есть в произвольном порядке. Понятно, что фамилии, города и т.д. – это схема, все немного сложнее, но мне важен алгоритм и его практическая реализация. Сам сколько не пытался, не выходит неповторяемость (distinct). Не могу сообразить куда его вставить. И фильтрация, тоже не знаю, как и куда приткнуть. 0

@Gusev2013 0 / 0 / 0 Регистрация: 22.05.2013 Сообщений: 4
	23.05.2013, 11:15 [ТС]
	Спасибо! Практически то, что нужно. Изучаю Ваши коды и разбираюсь. Мелкие детали попытаюсь подработать самостоятельно. Еще раз Спасибо! 0