Заблокировать/разблокировать поля

@EvGеn · Регистрация: 12.05.2011

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

Здравствуйте. Помогите пожалуйста решить задачку:
Имеется форма с разными полями. Все поля заблокированы.
Задача заключается в том, чтобы создать кнопку, при нажатии на которую поля бы разблокировались, а при повторном нажатии - снова заблокировались. Причём, текст на кнопке также должен меняться в соответствии с текущей функцией (заблокировать/разблокировать).

@beginner2 · 25.05.2011, 09:11

Вот посмотрите сделал для вас, если помогло +1Спасибо !!!

@EvGеn · 25.05.2011, 09:51 **[ТС]**

Помогло, спасибо

@Juric · 24.03.2012, 13:21

Как сделать тоже самое только с помощью флажка и чтобы блокировалась не вся форма а ее записи, а также записи подчиненной формы

@andrey_ba · 24.03.2012, 13:39

в примере блокируются только поля, сделайте тоже самое на событие нажатия на флажок, вы код смотрели, разобрались

@Juric · 24.03.2012, 14:24

Посмотрите, пожалуйста, код для флажка. Почему-то не работает. Что делать с надписями для кнопки, ведь на флажок их не нацепишь? Спасибо.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Private Sub Флажок2258_Click()
If НомерЗаявки.Enabled = False And НаименованиеМатериала.Enabled = False Then
  НомерЗаявки.Enabled = True
  НаименованиеМатериала.Enabled = True
  Флажок2258.Caption = "заблокировать"
  Else  
 НомерЗаявки.Enabled = False
  НаименованиеМатериала.Enabled = False
   Флажок2258.Caption = "разблокировать"
End If
End Sub

@Agapov_stas · 24.03.2012, 14:37

Не по теме:

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

Флажок2258

:D

По теме:

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

ведь на флажок их не нацепишь?

На надпись флажка можно..
И, кстати, на AfterUpdate флажка...
И проверку не на Enable поля,а на значение флажка.
Примерчик-->

@Agapov_stas · 24.03.2012, 14:52

..Можно еще немного короче:

Visual Basic
1
2
3
4
5
Private Sub Флажок0_AfterUpdate()
Me.НомерЗаявки.Enabled = Not Me.Флажок0
Me.НаименованиеМатериала.Enabled = Not Me.Флажок0
If Me.Флажок0 Then Me.Надпись1.Caption = "Разблокировать" Else Me.Надпись1.Caption = "Заблокировать"
End Sub

@Juric · 24.03.2012, 19:11

Работает, но не так. Посмотрите на мою форму. Она состоит из основной и подчиненной. При открытии загружается новая одиночная форма для ввода одной записи, в которую входят поля для ввода основной формы(номер заявки, дата, ист.финансирования и т.д.) и поля подчиненной формы (шифр, наименование, цена, сумма). Если заявка создана и утверждена я ставлю флажок и она считается деблокированной. Вопрос в том как программно закрепить этот статус, чтобы все данные этой записи формы были недоступны для изменения и были сохранены именно для этой записи и также чтобы следующая запись и т.д. , чтобы номера заявок (а им присваивается уникальный код по счетчику в таблице) могли иметь различный статус-блокирована, деблокирована.Т.е. чтобы данная процедура распространялась не на всю форму, а на конкретную запись в форме. Я сделал как вы написали, а когда закрыл форму и снова ее открыл статус заявки изменился. Я думаю, что это намного сложнее, но не знаю как сделать.

@andrey_ba · 24.03.2012, 22:52

а у вас в таблице сохраняется значение логического поля

@Juric · 24.03.2012, 23:09

Да. Для каждой записи.

@andrey_ba · 24.03.2012, 23:17

тогда на событие текущая запись вешайте обработку событий если флажок-истина,то блокируйте запись

@Agapov_stas · 25.03.2012, 06:51

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

Работает, но не так.

Ну да...Поменять имя флажка в моем пример на имя флажка в Вашей таблице, вестимо не суждено..
К сведению, не увидел флажка на форме вообще.

А чтоб запись была заблокирована\разблокирована при переходе по записям, измениет первую строчку предложенного варианта:

Visual Basic
1
2
3
4
5
Private Sub Form_Current()
Me.НомерЗаявки.Enabled = Not Me.Флажок0
Me.НаименованиеМатериала.Enabled = Not Me.Флажок0
If Me.Флажок0 Then Me.Надпись1.Caption = "Разблокировать" Else Me.Надпись1.Caption = "Заблокировать"
End Sub

Повторюсь, естественно все названия свои подставить.

@Juric · 25.03.2012, 11:17

Выдает ошибку при запуске формы

@Agapov_stas · 25.03.2012, 12:01

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

Выдает ошибку при запуске формы

У Вас поле НомерЗаявки на основной или подчиненной форме?И проверьте еще раз правильно имя поля.

@Juric · 25.03.2012, 12:56

На основной

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@EvGеn 17 / 3 / 0 Регистрация: 12.05.2011 Сообщений: 33

	Заблокировать/разблокировать поля 24.05.2011, 18:41. Показов 7134. Ответов 15 Метки нет (Все метки) Здравствуйте. Помогите пожалуйста решить задачку: Имеется форма с разными полями. Все поля заблокированы. Задача заключается в том, чтобы создать кнопку, при нажатии на которую поля бы разблокировались, а при повторном нажатии - снова заблокировались. Причём, текст на кнопке также должен меняться в соответствии с текущей функцией (заблокировать/разблокировать). 0

@EvGеn 17 / 3 / 0 Регистрация: 12.05.2011 Сообщений: 33
	25.05.2011, 09:51 [ТС]
	Помогло, спасибо 1

@Juric 0 / 0 / 0 Регистрация: 24.03.2012 Сообщений: 6
	24.03.2012, 13:21
	Как сделать тоже самое только с помощью флажка и чтобы блокировалась не вся форма а ее записи, а также записи подчиненной формы 0

@andrey_ba 267 / 267 / 4 Регистрация: 01.11.2011 Сообщений: 612
	24.03.2012, 13:39
	в примере блокируются только поля, сделайте тоже самое на событие нажатия на флажок, вы код смотрели, разобрались 0

@Juric 0 / 0 / 0 Регистрация: 24.03.2012 Сообщений: 6
	24.03.2012, 19:11
	Работает, но не так. Посмотрите на мою форму. Она состоит из основной и подчиненной. При открытии загружается новая одиночная форма для ввода одной записи, в которую входят поля для ввода основной формы(номер заявки, дата, ист.финансирования и т.д.) и поля подчиненной формы (шифр, наименование, цена, сумма). Если заявка создана и утверждена я ставлю флажок и она считается деблокированной. Вопрос в том как программно закрепить этот статус, чтобы все данные этой записи формы были недоступны для изменения и были сохранены именно для этой записи и также чтобы следующая запись и т.д. , чтобы номера заявок (а им присваивается уникальный код по счетчику в таблице) могли иметь различный статус-блокирована, деблокирована.Т.е. чтобы данная процедура распространялась не на всю форму, а на конкретную запись в форме. Я сделал как вы написали, а когда закрыл форму и снова ее открыл статус заявки изменился. Я думаю, что это намного сложнее, но не знаю как сделать. Миниатюры 0

@andrey_ba 267 / 267 / 4 Регистрация: 01.11.2011 Сообщений: 612
	24.03.2012, 22:52
	а у вас в таблице сохраняется значение логического поля 0

@Juric 0 / 0 / 0 Регистрация: 24.03.2012 Сообщений: 6
	24.03.2012, 23:09
	Да. Для каждой записи. 0

@andrey_ba 267 / 267 / 4 Регистрация: 01.11.2011 Сообщений: 612
	24.03.2012, 23:17
	тогда на событие текущая запись вешайте обработку событий если флажок-истина,то блокируйте запись 0

@Juric 0 / 0 / 0 Регистрация: 24.03.2012 Сообщений: 6
	25.03.2012, 11:17
	Выдает ошибку при запуске формы Миниатюры 0

@Juric 0 / 0 / 0 Регистрация: 24.03.2012 Сообщений: 6
	25.03.2012, 12:56
	На основной 0