Написать условие

@Александр9797 · Регистрация: 17.11.2015

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

Нужно написать условие если у выбранного клиента в DBGrid в столбце "остаток" стоит значение 0 то кнопка BitBtn1 была доступна, а если у него есть еще остаток то недоступна.

Про бывал что то сделать без успешно:

Delphi
1
2
if DM2.ADOQuery_oplata_za_pro.Fields[8].Value := <> 0  then
Form_oplata_za_pro.BitBtn1.Enabled:=false;

Здесь этот столбец 8. Там в DBGrid переименовал его.

@D1973 · 12.03.2017, 20:30

Ну вот, а Вы обращаетесь из уже созданного DM2 к свойству компонента на еще не созданной форме... Вот Вам и AV...

@Александр9797 · 12.03.2017, 20:31 **[ТС]**

Убираю этот код, табличка не вылазит.

Delphi
1
2
3
4
5
6
7
8
9
procedure TDM2.ADOQuery_oplata_za_proAfterScroll(DataSet: TDataSet);
begin
if DM2.ADOQuery_oplata_za_pro.fieldByName('КОплатиЗаПроживание').Value= 0  then
Form_oplata_za_pro.BitBtn1.Enabled:=true;
begin
if DM2.ADOQuery_oplata_za_pro.fieldByName('КОплатиЗаПроживание').Value <> 0  then
Form_oplata_za_pro.BitBtn1.Enabled:=false;
end;
end;

Добавлено через 1 минуту
так и как это исправить?

@D1973 · 12.03.2017, 20:38

1. Я Вам написал, как код сократить...
2. Самый очевидный способ - создать датамодуль после формы, но... кто же, кроме Вас, знает, что в остальных модулях творится, их у Вас аж 23 шт...

@Александр9797 · 12.03.2017, 20:56 **[ТС]**

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

Form_oplata_za_pro.BitBtn1.Enabled := ADOQuery_oplata_za_pro.fieldByName('КОпл атиЗаПроживание').Value = 0;

Делаю как у вас, все равно выдает эту же ошибку.

Добавлено через 34 секунды
А больше точно нет ни каких вариантов?

Добавлено через 12 минут
Ладно спасибо большое. Переделал все. Как Вы сказали. Все работает.

Новые блоги и статьи Все статьи Все блоги /
Нейтральные знания, чистый код - бла-бла-бла-бла, на самом деле кликбейт и самореклама, плагиат, и вот почему Hrethgir 27.07.2026 То-есть отклонение такой публикации говорит само за себя, и пусть только возьмут на вооружение после отклонения публикации - это будет чистейшим актом плагиата. Отклонял Хабр. Дословно, отклонённая. . .	тв 16 бой ии anaschu 27.07.2026 Великий Перелом ИИ: Как уравнения ОДУ Radau дожали цензурные фильтры Алисы Фиксируем в мемофонде Теории Всего беспрецедентный факт в истории ИИ-зондирования. В затяжном многораундовом. . .	мв 15. непроверенное, возможно, глюк anaschu 27.07.2026 НАУЧНО-АНАЛИТИЧЕСКИЙ ОТЧЕТ. РАЗДЕЛ 1. 1: «НАУКА» (РАСШИРЕННАЯ СТЕХИОМЕТРИЧЕСКАЯ И ГЕНЕТИЧЕСКАЯ ВЕРСИЯ)Тема: Теоретическое обоснование инвариантности 19-мерного тензорного ядра непрерывных ОДУ и. . .	Очистка реквизитов и табличных частей документа при копировании (вариант 2) Maks 26.07.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРаботу", разработанного в КА2. Задача: Заменить алгоритм запрета копирования документов для сотрудников с ролью "Стажер",. . .
Доктрина интенционального знания - Доктрина для портала "Срез". Hrethgir 25.07.2026 Может найдётся кто захочет оценить доктрину. . . Написания правил участия для меня роскошь, требующая лимита времени, поэтому все сообщения не прошедшие модерацию будут видны только участникам портала,. . .	сукцессия 44. Решил подать на припринт в межународные сервисы препринтов. Но нужно одобрение от ученых anaschu 25.07.2026 Английский вариант. Пока кто то не одобрит мою личность, мне не получиться это опубликовать на препринте. Но заявку на публикацию статьи я сегодня подам.	сукцессия 43. Вторая научная статья за месяц- прайминг и гатгил anaschu 25.07.2026 две стороны одной монеты	Более приземисто - Эстафету хвоста в .cdl (деревья эстафеты в сад). Hrethgir 24.07.2026 В будущем, после написания блока инверсии обхода дерева (эстафеты хвоста), я планирую вернуться к нашему прошлому разговору о том, обладают ли знания целеполаганием. Тогда я пришел к выводу, что. . .

@D1973 Модератор 9948 / 6483 / 2461 Регистрация: 21.01.2014 Сообщений: 27,470 Записей в блоге: 3
	12.03.2017, 20:30
	Ну вот, а Вы обращаетесь из уже созданного DM2 к свойству компонента на еще не созданной форме... Вот Вам и AV... 1

@D1973 Модератор 9948 / 6483 / 2461 Регистрация: 21.01.2014 Сообщений: 27,470 Записей в блоге: 3
	12.03.2017, 20:38
	1. Я Вам написал, как код сократить... 2. Самый очевидный способ - создать датамодуль после формы, но... кто же, кроме Вас, знает, что в остальных модулях творится, их у Вас аж 23 шт... 1