Объектно-ориентированный подход к созданию программных средств

Открытые свойства позволяют реализовать лишь первую стратегию. Для реализации других требуются дополнительные возможности. Такие возможности дает использование специальных процедур-свойств:
• Property Let позволяет установить новое значение свойства, выполняя операцию Write (присвоение).
• Property Set дополняет предыдущую процедуру, позволяя присвоить объектной переменной (свойства) ссылка на определенный объект.
• Property Get позволяет прочитать значение свойства, выполняя операцию Read.

При реализации первой стратегии (Read - Write) каждая открытая свойство должно иметь пару процедур-свойств Get и Let (Set), которым дается одинаковое имя (это имя является и именем свойства).

Для создания процедур-свойств можно использовать пустые заготовки, автоматически. При работе в IDE они вставляются в модуль командой Tools / Add Procedure, а в окне проекта документа MS Office - командой Insert / Procedure. После этого они заполняются нужным кодом.

В следующем фрагменте кода модуля класса Клиент показано процедуры-свойства, при выполнении которых записывается (заглавные) и возвращается текстовое значение свойства Фамилия:
Private msПризв As String
Public Property Let Фамилия (ПризвищеКл As String)
msПризв = Ucase (ПризвищеКл)
End Property
Public Property Get Фамилия ()
Фамилия = msПризв
End Property

При реализации стратегии Read, Write-once необходимо, чтобы значение свойства было записано только при первом обращении, а после этого - не менялось. В этом случае процедура-свойство Let (Set) должна выполнять проверку, не делалось присвоении свойства какого значения. Например:
Public Property Let Фамилия (Значение As String)
If msПризв = "" Then msПризв = Ucase (Значение)
End Property

Если свойство является переменной типа Variant, то проверить, было предоставлено (присвоено) какое значение этой переменной, можно с помощью функции IsEmpty:
If IsEmpty (<имя переменной>) Then ...,
которая возвращает значение True или False.

Для проверки объектной переменной можно применить оператор Is и ключевое слово Nothing:
If <имя объектной переменной> Is Nothing Then ...
Поскольку объектные переменные до первого присвоения ссылка на объект имеют значение Nothing, то в этом случае результатом применения оператора Is будет значение True, иначе - False.

При реализации стратегии Read-only или Write-only используется только одна из трех процедур: Get, Let и Set. Для Read-only - это Get, а для Write-only - это Let или Set.

Последнее стратегия полностью закрывает доступ к свойству и процедуры-свойства вообще не записываются.

Другие статьи по теме:

- Case-технология проектирования программного обеспечения информационных систем
- Разработка программного продукта. Этапы проектирования и построение модели
- Eclipse
- Технологии Internet
- Построение алгоритмов

Другие голосования

Приглашаем Вас обменяться кнопочками! Обращайтесь к администратору.

• Как выбрать браузер
• Средства структурного анализа и проектирования систем
• Классификация case-средств
• Case-технология проектирования программного обеспечения информационных систем
• Технология intranet
• Технологии Internet
• Средства доступа к базам данных
• Средства быстрой разработки прикладных программ
• Объектно-ориентированный подход к созданию программных средств
• Этапы проектирования при разработке программного продукта