Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
 
Рейтинг: Рейтинг темы: голосов - 29, средняя оценка - 4.72
AlenaIvanova
8 / 8 / 0
Регистрация: 24.02.2010
Сообщений: 175
#1

Вопрос о RadioGroup - Delphi

30.03.2010, 07:31. Просмотров 3859. Ответов 54
Метки нет (Все метки)

Почему когда на форме onClose пишешь: Glavnoe.RadioGroup2.ItemIndex:=-1; выводится ошибка: Cannot change Visible in OnSow or OnHide?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.03.2010, 07:31
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Вопрос о RadioGroup (Delphi):

вопрос по RadioGroup - Delphi
Нужен совет по использованию RadioGroup. Есть форма, на которой RadioGroup и в нее помещены 8 кнопок RadioButton, мне нужно сделать так,...

Вопрос по RadioGroup и SaveDialog - Delphi
Вообщем в радиогруп есть три итемса "1" "2" "3" когда я жму на кнопку должно выскакивать окно савдиалога и если выбран итемс "1" то в...

RadioGroup - Delphi
procedure TForm1.Button1Click(Sender: TObject); const g=9.8; var h,t:real; begin h:=StrToFloat(edit1.Text); case...

RadioGroup - Delphi
Разработайте приложение из главной и одной немодальной подчиненной формы. На главной форме поместить компонент RadioGroup и задать в его...

Radiogroup - Delphi
Здравствуйте, имеется 2 radiogroup, в каждом по 2 строчки, как написать условие чтобы, при выборе первой строчки из radiogroup 1 и первой...

RadioGroup - Delphi
Как написать программу для удаления нечетных символов, через нажатие в RadioGroup первого пункта, в Edit1. И еще что бы при нажатии второго...

54
Андрей Борисови
708 / 396 / 18
Регистрация: 04.10.2009
Сообщений: 1,687
08.04.2010, 13:41 #46
в процессе познания истины

Добавлено через 53 секунды
второй запрос:
SQL
1
2
3
4
SELECT ProhodnoyBall.Spec, ProhodnoyBall.Ball
FROM ProhodnoyBall
WHERE (((ProhodnoyBall.Spec)="Торговля"))
WITH OWNERACCESS OPTION;
Добавлено через 28 секунд
По кнопке обработка у вас что-то уже происходит?
0
AlenaIvanova
8 / 8 / 0
Регистрация: 24.02.2010
Сообщений: 175
08.04.2010, 13:55  [ТС] #47
Что с этим вопросом?
Цитата Сообщение от AlenaIvanova Посмотреть сообщение
У меня есть кнопка "Обработка". Мне нужно чтобы при нажатии выполнялось, то что мне нужно. Как мне это организовать если у меня будет несколько запросов?
Добавлено через 13 минут
Нет ничего не происходит. Я сначала делала DataModule1.ADOObrabotka.ExecSQL; в данном адоквери был прописан запрос на обновление
0
Андрей Борисови
708 / 396 / 18
Регистрация: 04.10.2009
Сообщений: 1,687
08.04.2010, 14:38 #48
1. Нужны 2 объекта:
DataModule1.ADOTemp1 c запросом
SQL
1
2
3
4
SELECT Abiturient.Cod, Abiturient.CodFIOAbiturSvedeniya, Abiturient.CodSpecialnost, SUM(Ocenki.Ocenka)*100/20 AS SummaBall
FROM Abiturient, Ocenki, Predmet
WHERE (((Predmet.Name)=[Ocenki].[CodPredmet]) AND ((Abiturient.CodFIOAbiturSvedeniya)=[Ocenki].[CodAbitur]))
GROUP BY Abiturient.Cod, Abiturient.CodFIOAbiturSvedeniya, Abiturient.CodSpecialnost;
и ADOTemp2 запрос в котором будем формировать динамически

текст программы:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
// обновляем запрос
DataModule1.ADOTEMP1.Active:=False;
DataModule1.ADOTEMP1.Active:=True;
for i:=1 to DataModule1.ADOTEMP1.recordcound do
begin
// для каждого значения поля "Специальность" Темп1 смотрим "Проходной балл" для этой специальности.
DataModule1.ADOTEMP2.sql.clear;
DataModule1.ADOTEMP2.sql.add('SELECT ProhodnoyBall.Spec, ProhodnoyBall.Ball FROM ProhodnoyBall WHERE ((ProhodnoyBall.Spec)="'+ADOTEMP1['CodSpecialnost']+'"))');
DataModule1.ADOTEMP2.Active:=true;
 
// Сравниваем проходной балл по этой специальности с имеющимся 
if DataModule1.ADOTEMP1['SummaBall']=>DataModule1.ADOTEMP2['Ball'] then 
begin
// ... и если он больше или равен проходному - тогда проводим зачисление:
DataModule1.ADOTEMP2.sql.clear;
DataModule1.ADOTEMP2.sql.add('UPDATE Svedeniya SET Zachislen = да WHERE FIOAbitur = "'+ADOTEMP1['CodFIOAbiturSvedeniya']+'"');
DataModule1.ADOTEMP2.ExecSQL;
end;
DataModule1.ADOTEMP1.next;
end;
вот, в принципе, и все.

Добавлено через 3 минуты
попробуйте.
у меня нет программы - писал прямо в форум.

Добавлено через 28 минут
Цитата Сообщение от Андрей Борисови Посмотреть сообщение
recordcound
recordcounT
1
AlenaIvanova
8 / 8 / 0
Регистрация: 24.02.2010
Сообщений: 175
09.04.2010, 05:18  [ТС] #49
Андрей Борисови, Большое Вам спасибо, я маленько подделала и все заработало

Добавлено через 1 минуту
Mawrat, И Вам спасибо за помощь, вы мне очень помогли
1
Андрей Борисови
708 / 396 / 18
Регистрация: 04.10.2009
Сообщений: 1,687
09.04.2010, 07:59 #50
Думаю вы поняли процесс программирования с вложенными запросами Удачной сдачи вам
0
AlenaIvanova
8 / 8 / 0
Регистрация: 24.02.2010
Сообщений: 175
09.04.2010, 09:10  [ТС] #51
Сдавать буду в 20-х числах. По мере сдачи сообщу свои успехи
1
AlenaIvanova
8 / 8 / 0
Регистрация: 24.02.2010
Сообщений: 175
17.05.2010, 08:41  [ТС] #52
Андрей Борисови, Я получил за курсовую 5 Спасибо Вам!
1
Андрей Борисови
708 / 396 / 18
Регистрация: 04.10.2009
Сообщений: 1,687
17.05.2010, 09:13 #53
Умничка!)
1
dr_arntholcz
22 / 22 / 1
Регистрация: 13.05.2016
Сообщений: 194
26.02.2017, 11:32 #54
Здравствуйте. Есть ли возможность узнать,существуют радиокнопки в радиогруппе или нет? (что то на подобие имя_радиогруппы.item_exist, которая возвращала бы, есть переключатели в группе или нет)
Есть радиогруппа, кнопки в неё добавляются и удаляются программно, при чём одной кнопкой.
Пока решил этот вопрос отдельной переменной, но это костыль.
0
D1973
Модератор
3222 / 2270 / 917
Регистрация: 21.01.2014
Сообщений: 9,404
Записей в блоге: 3
Завершенные тесты: 1
26.02.2017, 12:20 #55
Delphi
1
if RadioGroup1.Items.Count = 0 then ... //RadioGroup пустой...
1
26.02.2017, 12:20
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.02.2017, 12:20
Привет! Вот еще темы с ответами:

if radioGroup - Delphi
Почему не компилит мой быдло код? if RadioGroup1.ItemIndex = 0 then memo1.Lines.add('1111') else memo1.lines.add('bugaga') else...

Свойство RadioGroup - Delphi
Подскажите кто сможет. Создал RadioGroup1 и закинул в значение Items 2 строки ( то есть 2 ответа ). Так и не разобрался, какой код нужно...

Сравнение 2-ух Radiogroup - Delphi
Просмотрите картинку 123.jpg Как мне сравнить элементы... Тоесть проверяем какой элемент выделен в Radiogroup1 (в нашем случае элемент...

Combobox и RadioGroup - Delphi
Есть компонент RadioGroup с тремя кнопками. Нужно чтобы при нажатии в Combobox выводил определенные элементы. Например: 3 кнопки в...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
55
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru