Вопрос о RadioGroup

@AlenaIvanova · Регистрация: 24.02.2010

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

Почему когда на форме onClose пишешь: Glavnoe.RadioGroup2.ItemIndex:=-1; выводится ошибка: Cannot change Visible in OnSow or OnHide?

@Андрей Борисови · 07.04.2010, 07:28

ADO поддерживает циклы?

@Mawrat · 07.04.2010, 09:14

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

Mawrat, Цикл верно записан?

Это не цикл:

SQL
1
2
3
4
  CASE
    WHEN SumBall.SumBall >= ProhodnoyBall.Ball THEN TRUE
    ELSE FALSE
  END AS Zachislen

В SQL конструкция case - when - then - else - end это аналог if - then - else - end в Delphi.
Т. е., в Delphi:

Delphi
1
2
3
4
5
  if SumBall.SumBall >= ProhodnoyBall.Ball then begin
    Zachislen := true;
  end else begin
    Zachislen := false;
  end;

Соответствующая этому код конструкция в SQL:

SQL
1
2
3
4
5
6
7
8
9
SELECT
...
  CASE
    WHEN SumBall.SumBall >= ProhodnoyBall.Ball THEN
      TRUE
    ELSE
      FALSE
  END AS Zachislen
...

В подобных конструкцииях раздел else - только один. Разделов when может быть несколько. when в SQL подобен if или else if в Delphi.
Такая конструкция представляет собой в разделе select отдельное поле с именем Zachislen. Значение этого поля формируется согласно условию, заданному в конструкции case - end.
---
Разберём запрос:

SQL
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
SELECT
  Ab.CodFIOAbiturSvedeniya
  ,SumBall.SumBall
  ,Prb.Ball
  ,CASE
    WHEN SumBall.SumBall >= Prb.Ball THEN TRUE
    ELSE FALSE
  END AS Zachislen
FROM
  test_Abiturient Ab
  ,test_ProhodnoyBall Prb
  ,(
    SELECT
      Ab.CodFIOAbiturSvedeniya
      ,SUM(Oc.Ocenka) AS SumBall
    FROM
      test_Abiturient Ab
      ,test_Ocenki Oc
    WHERE
      Ab.CodFIOAbiturSvedeniya = Oc.CodAbitur
    GROUP BY
      Ab.CodFIOAbiturSvedeniya
  ) SumBall
WHERE
  Ab.CodSpecialnost = Prb.Spec
  AND Ab.CodFIOAbiturSvedeniya = SumBall.CodFIOAbiturSvedeniya
;

Начинаем разбор с вложенного подзапроса:

SQL
1
2
3
4
5
6
7
8
9
10
11
12
  (
    SELECT
      Ab.CodFIOAbiturSvedeniya
      ,SUM(Oc.Ocenka) AS SumBall
    FROM
      test_Abiturient Ab
      ,test_Ocenki Oc
    WHERE
      Ab.CodFIOAbiturSvedeniya = Oc.CodAbitur
    GROUP BY
      Ab.CodFIOAbiturSvedeniya
  ) SumBall

Этот подзапрос делает следующее - берёт очередного абитуриента и вычисляет сумму балов, которую этот абитуриент набрал по всем предметам. Т. е. этот подзапрос возвращает набор данных такого вида:

SQL
1
2
3
Абитуриент_1       Сумма_балов_по_всем_предметам_1
Абитуриент_2       Сумма_балов_по_всем_предметам_2
Абитуриент_3       Сумма_балов_по_всем_предметам_3

Этот набор данных в вызвающем запросе имеет имя SumBall.
Теперь рассматриваем вызывающий запрос:

SQL
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
SELECT
  Ab.CodFIOAbiturSvedeniya
  ,SumBall.SumBall
  ,Prb.Ball
  ,CASE
    WHEN SumBall.SumBall >= Prb.Ball THEN TRUE
    ELSE FALSE
  END AS Zachislen
FROM
  test_Abiturient Ab
  ,test_ProhodnoyBall Prb
  ,SumBall
WHERE
  Ab.CodSpecialnost = Prb.Spec
  AND Ab.CodFIOAbiturSvedeniya = SumBall.CodFIOAbiturSvedeniya
;

Этот запрос возвращает набор данных вида:

SQL
1
2
3
Абитуриент_1   Сумма_балов_по_всем_предметам_1   Проходной_бал_на_данной_специальности   Прошёл/не прошёл
Абитуриент_2   Сумма_балов_по_всем_предметам_2   Проходной_бал_на_данной_специальности   Прошёл/не прошёл
Абитуриент_3   Сумма_балов_по_всем_предметам_3   Проходной_бал_на_данной_специальности   Прошёл/не прошёл

---
Здесь поле "Прошёл/не прошёл" содержит значения true/false - эти значения формируются той самой конструкцией case, которую мы выше рассматривали. Это поле выступает под именем Zachislen.

@AlenaIvanova · 07.04.2010, 09:47 **[ТС]**

Я создала кнопку "Обработка", по нажатию на нее должен выполниться запрос на обновления таблицы. Так? Тогда я не понимаю почему запрос выдает синтаксическую ошибку. Запрос на выборку я не тестировала на своей программе. Я не поняла мне нужно создать дбгрид и связывать с этим запросом, чтобы в него выводилась информация прописанная в запросе? Или тестировать на дбгриде который связан с таблицей Svedeniya? У меня такая каша в голове

@Андрей Борисови · 07.04.2010, 10:15

ДБгрид не обрабатывает данные. Он их только выводит.
Все работы с данными вам надо проводить в SQL-запросах

@Mawrat · 07.04.2010, 10:20

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

...мне нужно создать дбгрид и связывать с этим запросом, чтобы в него выводилась информация прописанная в запросе? Или тестировать на дбгриде который связан с таблицей Svedeniya? У меня такая каша в голове

Материал с запросами - сложный. Поэтому не нужно расстраиваться, что что-то не получается.

В данном случае надо использовать TADOQuery.
Если надо увидеть данные, то в компонент TADOQuery надо поместить такой запрос:

SQL
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
SELECT
  Ab.CodFIOAbiturSvedeniya
  ,SumBall.SumBall
  ,Prb.Ball
  ,CASE
    WHEN SumBall.SumBall >= Prb.Ball THEN TRUE
    ELSE FALSE
  END AS Zachislen
FROM
  test_Abiturient Ab
  ,test_ProhodnoyBall Prb
  ,(
    SELECT
      Ab.CodFIOAbiturSvedeniya
      ,SUM(Oc.Ocenka) AS SumBall
    FROM
      test_Abiturient Ab
      ,test_Ocenki Oc
    WHERE
      Ab.CodFIOAbiturSvedeniya = Oc.CodAbitur
    GROUP BY
      Ab.CodFIOAbiturSvedeniya
  ) SumBall
WHERE
  Ab.CodSpecialnost = Prb.Spec
  AND Ab.CodFIOAbiturSvedeniya = SumBall.CodFIOAbiturSvedeniya

Этот запрос выполняется по команде:
TADOQuery.Active := True;
Соответственно, этот TADOQuery надо связать с элементом отображения данных - например, с TDBGrid.
---
Если надо обновлять данные в таблице Svedenia (обновить для каждого абитуриента поле Zachislen), то в TADOQuery следует поместить такой запрос:

SQL
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
UPDATE Svedeniya SET Zachislen =
(
SELECT
  CASE
    WHEN SumBall.SumBall >= ProhodnoyBall.Ball THEN TRUE
    ELSE FALSE
  END AS RESULT
FROM
  Abiturient
  ,ProhodnoyBall
  ,(
    SELECT
      Abiturient.CodFIOAbiturSvedeniya
      ,SUM(Ocenki.Ocenka) AS SumBall
    FROM
      Abiturient
      ,Ocenki
    WHERE
      Abiturient.CodFIOAbiturSvedeniya = Ocenki.CodAbitur
    GROUP BY
      Abiturient.CodFIOAbiturSvedeniya
 )  SumBall  
WHERE
  Abiturient.CodFIOAbiturSvedeniya = Svedeniya.FIOAbitur
  AND Abiturient.CodSpecialnost = ProhodnoyBall.Spec
  AND Abiturient.CodFIOAbiturSvedeniya = SumBall.CodFIOAbiturSvedeniya
)

Этот запрос выполняется по команде:
TADOQuery.ExecSql;
И данные этот запрос не возвращает. Поэтому этот запрос не должен быть связан с каким-либо элементом отображения данных - т. е. TDBGrid, например, не должен быть связан с ним.
---
Сами запросы надо отлаживать не в Delphi, а в какой-нибудь другой среде. Для Oracle - это TOAD, например - очень мощная среда. Для различных других БД, может быть использован SQL Explorer или другие специализированные среды для работы с БД. Хорошие средства есть от Quest Software - для Oracle, IBM DB2 и пр.
SQl Explorer поставляется вместе с Delphi и запускается так:
Пуск - Все программы - Borland Delhi7 - SQL Explorer.
Когда в SQL Explorer запрос заработает правильно, тогда переносим этот запрос в код Delphi проекта.

@AlenaIvanova · 08.04.2010, 08:13 **[ТС]**

Хорошо сейчас попробую выполнить запрос на выборку.

Добавлено через 21 час 39 минут
Mawrat, Я так понимаю что надо что-то вроде этого писать

SQL
1
2
3
4
(  SELECT iff(SumBall.SumBall >= ProhodnoyBall.Ball, TRUE, FALSE)
FROM
  Abiturient
  ,ProhodnoyBall

@Андрей Борисови · 08.04.2010, 08:37

Я вот читаю ваши посты и думаю - какую ж я ахинею городил то раньше... Так просто некоторые вещи прямо в SQL-запросе делаются.... А я по 3-4 последовательных запроса + куча кода....

@AlenaIvanova · 08.04.2010, 08:52 **[ТС]**

Андрей Борисови, А вы знаете как написать запрос на обновления, о котором мы в последнее время ведем беседу?

@Андрей Борисови · 08.04.2010, 08:58

без наличия базы - нет.. Я, обычно, формирую такие запросы сначала в Аксцессе и уже потом с нужными параметрами переношу в Дельфи.

@AlenaIvanova · 08.04.2010, 09:01 **[ТС]**

Андрей Борисови, Давайте я вам аксессовсую базу скину

@Андрей Борисови · 08.04.2010, 09:07

А давайте!

@AlenaIvanova · 08.04.2010, 09:13 **[ТС]**

Спасибо за отзывчивость

Вы условие знаете?

@Андрей Борисови · 08.04.2010, 09:21

Напишите)) а то всю тему заново перечитывать лень

@Mawrat · 08.04.2010, 09:28

Сообщение от Андрей Борисови

Я вот читаю ваши посты и думаю...

Так форум для того и создан, чтобы люди опытом обменивались.

Сообщение от Андрей Борисови

А давайте!

Андрей Борисович, может в самом деле посмотришь базу? Я в Access не работал.
Таблицы я посмотрел. Там немного архитектуру надо поменять - связь между всеми таблицами должна быть через поле первичного ключа - это поле во всех таблицах назыается Code. Кстати, надо ещё проверить оформлено ли это поле в таблицах как первичный ключ. В связи с этим избыточные данные надо удалить. - Например, ФИО абитуриентов должно присутствовать только в одной таблице - в Abiturient. Например, в таблице Svedenia надо удалить поле FIOAbitur и вместо него добавить: CodAbitur - которое будет содержать коды, соответствующие полю Code из таблицы Abiturient. Аналогично над действовать в отношении таблиц Specialnost, Predmet. Т. е. названия специальности и предметов - только в этих таблицах, в других - только связи по полям Specialnost.Code, Predmet.Code. И т. д. для всех таблиц.
---
Я вечером ещё подключусь к обсуждениям.

@AlenaIvanova · 08.04.2010, 09:48 **[ТС]**

Андрей Борисови, Вот запрос:

SQL
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
2
UPDATE Svedeniya SET Zachislen =
(
SELECT
  CASE
    WHEN SumBall.SumBall >= ProhodnoyBall.Ball THEN TRUE
    ELSE FALSE
  END AS RESULT
FROM
  Abiturient
  ,ProhodnoyBall
  ,(
    SELECT
      Abiturient.CodFIOAbiturSvedeniya
      ,SUM(Ocenki.Ocenka) AS SumBall
    FROM
      Abiturient
      ,Ocenki
    WHERE
      Abiturient.CodFIOAbiturSvedeniya = Ocenki.CodAbitur
    GROUP BY
      Abiturient.CodFIOAbiturSvedeniya
 )  SumBall  
WHERE
  Abiturient.CodFIOAbiturSvedeniya = Svedeniya.FIOAbitur
  AND Abiturient.CodSpecialnost = ProhodnoyBall.Spec
  AND Abiturient.CodFIOAbiturSvedeniya = SumBall.CodFIOAbiturSvedeniya
)

Мне нужно обновлять поле Zachislen таблицы Svedeniya, т.е. если SumBall.SumBall >= ProhodnoyBall.Ball то zachislen:=true

@Андрей Борисови · 08.04.2010, 09:54

1.

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

Там немного архитектуру надо поменять

уже нельзя... Если что-то поменять - надо пол программы переписать (запросы - однозначно все слетят).
2. Аксцесс не поддерживает, походу, вложенные SELECTы... Это ведь эмулятор SQL, а не полноценный язык...
А что вы хотели - в Microsoft тоже работают лентяи))

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

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

Мне нужно обновлять поле Zachislen таблицы Svedeniya, т.е. если SumBall.SumBall >= ProhodnoyBall.Ball то zachislen:=true

Начнем с того, что сумма баллов у вас заносится?

@AlenaIvanova · 08.04.2010, 09:59 **[ТС]**

В аксесовсую базу? Нет не заносится. Высчитывается запросом.

@Андрей Борисови · 08.04.2010, 10:26

Тогда придется делать через 2 запроса и цикл.
Алгоритм:

Создаем запрос по незачисленным с выводом КОД человечка и его суммы баллов.
Цикл по количеству
запрос на специальность I-того человечка с выводом проходного балла.
сравнение - если у I-го человечка на сумма балов => проходного балла тогда запрос на обновление по КОД человечка ставим ТРУЕ в "Зачислен"
конец цикла

@AlenaIvanova · 08.04.2010, 10:44 **[ТС]**

Не понимаю, как это можно сделать

@Андрей Борисови · 08.04.2010, 11:25

чуть позже поколдую..)

Новые блоги и статьи Все статьи Все блоги /
FPS контроллер с анимированными Y-Bot и 3D-звуком miniaudio (Box3D, Recast, BehaviorTree.CPP, ozz-animation, ImGui, OpenGL и SDL3) 8Observer8 18.10.2026 Содержание блога \| English Version Полное мультиплатформенное руководство по стартовому проекту с FPS-контроллером игрока, анимированными роботами Y-Bot с 4-слойным блендингом, 3D-физикой Box3D,. . .	Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .	Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .
Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .

@AlenaIvanova 9 / 9 / 0 Регистрация: 24.02.2010 Сообщений: 175

	Вопрос о RadioGroup 30.03.2010, 07:31. Показов 6796. Ответов 54 Метки нет (Все метки) Почему когда на форме onClose пишешь: Glavnoe.RadioGroup2.ItemIndex:=-1; выводится ошибка: Cannot change Visible in OnSow or OnHide? 0

@Андрей Борисови 714 / 402 / 33 Регистрация: 04.10.2009 Сообщений: 1,686
	07.04.2010, 07:28
	ADO поддерживает циклы? 0

@AlenaIvanova 9 / 9 / 0 Регистрация: 24.02.2010 Сообщений: 175
	07.04.2010, 09:47 [ТС]
	Я создала кнопку "Обработка", по нажатию на нее должен выполниться запрос на обновления таблицы. Так? Тогда я не понимаю почему запрос выдает синтаксическую ошибку. Запрос на выборку я не тестировала на своей программе. Я не поняла мне нужно создать дбгрид и связывать с этим запросом, чтобы в него выводилась информация прописанная в запросе? Или тестировать на дбгриде который связан с таблицей Svedeniya? У меня такая каша в голове 0

@Андрей Борисови 714 / 402 / 33 Регистрация: 04.10.2009 Сообщений: 1,686
	07.04.2010, 10:15
	ДБгрид не обрабатывает данные. Он их только выводит. Все работы с данными вам надо проводить в SQL-запросах 0

@Андрей Борисови 714 / 402 / 33 Регистрация: 04.10.2009 Сообщений: 1,686
	08.04.2010, 08:37
	Я вот читаю ваши посты и думаю - какую ж я ахинею городил то раньше... Так просто некоторые вещи прямо в SQL-запросе делаются.... А я по 3-4 последовательных запроса + куча кода.... 0

@AlenaIvanova 9 / 9 / 0 Регистрация: 24.02.2010 Сообщений: 175
	08.04.2010, 08:52 [ТС]
	Андрей Борисови, А вы знаете как написать запрос на обновления, о котором мы в последнее время ведем беседу? 0

@Андрей Борисови 714 / 402 / 33 Регистрация: 04.10.2009 Сообщений: 1,686
	08.04.2010, 08:58
	без наличия базы - нет.. Я, обычно, формирую такие запросы сначала в Аксцессе и уже потом с нужными параметрами переношу в Дельфи. 0

@AlenaIvanova 9 / 9 / 0 Регистрация: 24.02.2010 Сообщений: 175
	08.04.2010, 09:01 [ТС]
	Андрей Борисови, Давайте я вам аксессовсую базу скину 0

@Андрей Борисови 714 / 402 / 33 Регистрация: 04.10.2009 Сообщений: 1,686
	08.04.2010, 09:07
	А давайте! 1

@Андрей Борисови 714 / 402 / 33 Регистрация: 04.10.2009 Сообщений: 1,686
	08.04.2010, 09:21
	Напишите)) а то всю тему заново перечитывать лень 0

@AlenaIvanova 9 / 9 / 0 Регистрация: 24.02.2010 Сообщений: 175
	08.04.2010, 09:59 [ТС]
	В аксесовсую базу? Нет не заносится. Высчитывается запросом. 0

@Андрей Борисови 714 / 402 / 33 Регистрация: 04.10.2009 Сообщений: 1,686
	08.04.2010, 10:26
	Тогда придется делать через 2 запроса и цикл. Алгоритм: Создаем запрос по незачисленным с выводом КОД человечка и его суммы баллов. Цикл по количеству запрос на специальность I-того человечка с выводом проходного балла. сравнение - если у I-го человечка на сумма балов => проходного балла тогда запрос на обновление по КОД человечка ставим ТРУЕ в "Зачислен" конец цикла 0

@AlenaIvanova 9 / 9 / 0 Регистрация: 24.02.2010 Сообщений: 175
	08.04.2010, 10:44 [ТС]
	Не понимаю, как это можно сделать 0

@Андрей Борисови 714 / 402 / 33 Регистрация: 04.10.2009 Сообщений: 1,686
	08.04.2010, 11:25
	чуть позже поколдую..) 0