В каком событии DBCombobox проверить выбранное значение

@novichok95 · Регистрация: 07.05.2012

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

как сделать например если в DBCOmbobox-е можно выбрать либо да или нет,и если было выбрано ДА то должна появиться другая форма. я пробовала создать в событии onchange прописала form2.show, но форма появляется при нажатии и ДА и Нет,а мне нужно чтобы она появлялась только при выборе поля ДА.

@HyperZen · 28.10.2012, 08:41

Delphi
1
if DBComboBox.Text = 'ДА' then Form2.Show;

@novichok95 · 28.10.2012, 13:35 **[ТС]**

и в каком это событии прописывать?я пробовала прописать в событии ONchange и все равно при выборе поля ДА другая форма не появилась

@Нуб по СИ · 28.10.2012, 21:23

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

и в каком это событии прописывать?я пробовала прописать в событии ONchange и все равно при выборе поля ДА другая форма не появилась

в событие OnClick пропиши и будет работать

Delphi
1
2
3
4
5
procedure TForm1.DBComboBoxClick(Sender: TObject);
begin
  if DBComboBox.Text = 'ДА' then
    Form2.Show;
end;

@novichok95 · 28.10.2012, 21:55 **[ТС]**

нет,эта форма не появляется.

@droider · 28.10.2012, 23:16

Если у тебя приложения для работы с базой данных, то DBCombox обычно привязывается к полю (через DataField) таблицы значения, которого он в дальнейшем отображает. Определить значение поля в DbCombobox можно так

Delphi
1
if dbcombo.Field.FieldName('имя поля')='Да' then form2.ShowModal;

.
Все же для твоей цели я рекомендую обычный TComboBox. Пропиши в его свойстве Items значения "Да" и "Нет". В обработчике события OnChange пропиши

Delphi
1
2
3
4
5
6
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if Combobox1.ItemIndex=0 then form2.ShowModal;
end;
 
end.

Нумерация элементов начинается с нуля.

Добавлено через 9 минут
Имеется ввиду, если индекс элемента ComboBox нулевой, то это значит, что выбран первый элемент со значением "Да" и после модально отображается вторая форма. Не забудь подключить 2-ю форму к проекту (File ->Use Unit...)

@novichok95 · 28.10.2012, 23:33 **[ТС]**

нет мне нужен именно DBСombobox,я попробовала но все равно никак другая форма не появляется

@droider · 29.10.2012, 06:02

Я же тебе объяснил как и через dbcombobox сделать. Все отлично работает.Напиши свой код.

Добавлено через 34 минуты
И почему именно dbcombobox?

Добавлено через 1 минуту
2-я форма подключена?

@novichok95 · 29.10.2012, 11:09 **[ТС]**

потому что у меня БД. вот я скинула в архиве.можете посмотреть в Unit 5 там эти DBcombobox-ы.

@droider · 29.10.2012, 11:28

Есть кое-какие недочеты. Какая форма должна открываться или ее нужно создать? Я подправлю и отпишусь позже

@novichok95 · 29.10.2012, 11:37 **[ТС]**

я хотела создать форму чтобы там было если будет выбрано да тогда там на новой форме надо указать какое место занял студент 1,2 или 3ее.

@droider · 29.10.2012, 11:53

Начну с того, что если используется AdoConnection, то достаточно в нем один раз прописать строку подключения (ConnectionString) и не прописывать ее заново в других компонентах, как у вас в AdoQuery, т.е. просто выбираете свой AdoConnection в свойстве Connection компонента AdoQuery.
Еще один момент. Поместите базу в каталог с проектом и при прописывании ConnectionString в AdoConnection просто указывайте имя базы без полного пути к ней, т.к. при переносе на другой компьютер база будет не найдена по заданному пути - путь ведь будет иным. Эти моменты я исправил.
Теперь по поводу DBCombobox. На форме с DbCombobox я создал для примера обработчик события OnChange для TDbCombobox4 (Колледж) и открываю Form 6:

Delphi
1
2
3
4
5
6
procedure TForm5.DBComboBox4Change(Sender: TObject);
begin
if Dbcombobox4.ItemIndex=0 then form6.ShowModal;
end;
 
end.

Все работает . Аналогично описанному мной ранее варианту. Вы все же не забывайте подключать форму к проекту! Дальше корректируйте под свои цели.

@droider · 29.10.2012, 12:01

Не забываем о кнопочке благодарности))

Добавлено через 35 секунд
успехов

Новые блоги и статьи Все статьи Все блоги /
Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .

@novichok95 3 / 3 / 0 Регистрация: 07.05.2012 Сообщений: 54

	В каком событии DBCombobox проверить выбранное значение 27.10.2012, 23:25. Показов 3611. Ответов 12 Метки нет (Все метки) как сделать например если в DBCOmbobox-е можно выбрать либо да или нет,и если было выбрано ДА то должна появиться другая форма. я пробовала создать в событии onchange прописала form2.show, но форма появляется при нажатии и ДА и Нет,а мне нужно чтобы она появлялась только при выборе поля ДА. 0

@novichok95 3 / 3 / 0 Регистрация: 07.05.2012 Сообщений: 54
	28.10.2012, 13:35 [ТС]
	и в каком это событии прописывать?я пробовала прописать в событии ONchange и все равно при выборе поля ДА другая форма не появилась 0

@novichok95 3 / 3 / 0 Регистрация: 07.05.2012 Сообщений: 54
	28.10.2012, 21:55 [ТС]
	нет,эта форма не появляется. 0

@novichok95 3 / 3 / 0 Регистрация: 07.05.2012 Сообщений: 54
	28.10.2012, 23:33 [ТС]
	нет мне нужен именно DBСombobox,я попробовала но все равно никак другая форма не появляется 0

@droider 4882 / 2819 / 862 Регистрация: 04.10.2012 Сообщений: 10,249
	29.10.2012, 06:02
	Я же тебе объяснил как и через dbcombobox сделать. Все отлично работает.Напиши свой код. Добавлено через 34 минуты И почему именно dbcombobox? Добавлено через 1 минуту 2-я форма подключена? 0

@droider 4882 / 2819 / 862 Регистрация: 04.10.2012 Сообщений: 10,249
	29.10.2012, 11:28
	Есть кое-какие недочеты. Какая форма должна открываться или ее нужно создать? Я подправлю и отпишусь позже 0

@novichok95 3 / 3 / 0 Регистрация: 07.05.2012 Сообщений: 54
	29.10.2012, 11:37 [ТС]
	я хотела создать форму чтобы там было если будет выбрано да тогда там на новой форме надо указать какое место занял студент 1,2 или 3ее. 0

@droider 4882 / 2819 / 862 Регистрация: 04.10.2012 Сообщений: 10,249
	29.10.2012, 12:01
	Не забываем о кнопочке благодарности)) Добавлено через 35 секунд успехов 1