Технологии программирования (MS ACCESS, VBA, VB, ASP) - Использование дополнительных свойств объектов

Навигация

Лента новостей

Новый сайт

	Супер!!!
	Нравится
	Не нравится
	Верните старый

Online
Сейчас на сайте находятся: 1 гость

Рассылки Subscribe.Ru

Реклама на сайте

Главная

MS ACCESS

Использование дополнительных свойств объектов

Автор Артем Золотинин [Баймер]

03.12.2010 г.

Оглавление
Использование дополнительных свойств объектов
Страница 2
Страница 3

Страница 3 из 3

Публикуя данную статью преследую одну главную цель – раскрыть для Вас свою идею по организованному ведению собственных свойств объектов Access (контролов, форм и т.д.).

Задачи, решаемые при реализации идеи:

Расширение свойств объекта с быстрым к ним обращением.
Медленная альтернатива – создание таблицы [Тип объекта][Расположение объекта][Наименование объекта][Наименование свойства][Значение свойства].
Быстрое и удобное изменение переменных, используемых при отрабатывании событий объекта. Обращение производиться через панель «Окно свойств».
Обычно приходится открывать код vba и изменять данные. Мы можем использовать альтернативу из п.1 или создавать спец поля на форме, но это часто неудобно.
Другие.

Область применения:

Универсализация часто используемых объектов (групп объектов).
Пример1 Вы сделали кнопку [=] (см. Пользовательские свойства.accde), которая приравнивает значение одного поля к другому. Теперь не надо создавать ее повторно на другой форме, копировать код обработчика vba (при копировании vba обработчик не наследуется), не надо подстраивать код обработчика в редакторе vba. Достаточно изменить собственное поле панели «Окно свойств».
Пример2 Совершенствование функций ведения справочников http://hiprog.com/index.php?option=com_content&task=view&id=251661641&Itemid=35
Обработка особых сиуаций
Пример2 в бухгалтерской очетности в столбце с балансом нужно выделять отрицательные значения цветом шрифта или фона, например. Тогда RGB код цвета для обычно и такой ситуации можно хранить с своем поле, а при вычислении значения поля (обработчик события) копировать в свойство цвета текста или фона значение своего поля.
Другие.

Как реализуется:

У всех объектов access есть свойство Tag (Дополнительные сведения). Свойство создано для ведения комментариев, но некоторые его используют в других целях, как и я.

Предлагаю разбить логически (через разделитель) свойство tag на массив элементов, которые будут выступать значениями собственных свойств, например через пробелы, запятые, фразы типа «Свойство1:»

Примечание: последнее решение более наглядно, но потребует доработки кода функции. Т.е. строка Tag= «Свойство1: , 123 , Свойство: , Текст» будет читаться функцией как 4 значения 4 свойств, но программно мы выкидываем нечетные, т.е. названия свойств. Соответсвенно функция чтения свойства GetParametr(2) должна обратиться к 4-му элемент Tag.

Таким образом пример 1 области применения реализуется путем указания через разделитель (в моем accde это пробел) в свойстве объекта Tag названия полей «txt1 txt2». При нажатии на кнопку значение txt2 копируется полю txt1.
Примечание: пример ценности такого примера – копирование значения Поставщика счета Получателю средств по платежу на обстрактной финансовой форме исходящего счета.

А для того, чтобы копировать кнопку на другие формы достаточно реализовать обработчик в виде макроса, выполняющего функцию. Функция – фактический обработчик на vba с применением своих свойств в виде функцию. Теперь кнопка легко копируется с формы «Мои контролы для форм» на другие формы.

Комментарии автора:

Делюсь своей идеей и надеюсь, что она найдет отзыв читателей. Идею я придумал сам. Если кто-то уже подобное придумывал или встречал, то это не более чем совпадение, причем, буду рад на ссылку – приятно найти единомышленника. В таких случаях изобретения исторически обычно получают двойное имя ;)
Я являюсь любителем в программировании, это не моя область, и развиваться в ней я не планирую. Буду рад, если читатель возьмется ее развить и опубликовать свою реализацию, конечно, с указанием автора самой идеи желательно ;).

Спасибо.

Реализовать ведение «Tag= «Свойство1: , 123 , Свойство: , Текст» (см. статью)
Реализовать возможность задания используемого разделителя на спец форме для параметров функции.
Реализовать код функции, изменяющей заданное свойство.
Реализовать таки использование идеи в авторской реализации функции ведения справочников http://hiprog.com/index.php?option=com_content&task=view&id=251661641&Itemid=35.
с чем я уже успел обратиться к ее автору в комментарии в лице «Baimer”a ;)

Пример реализации.

Коментарии (26)

21 Написал(а) Дглфы, в 15:18 06.12.2010
Вы либо:
1. так и не ознакомились с теми материалами, что я рекомендовал
2. не поняли их.
В любом случае дальше продолжать разговор бессмысленно.

Скажу лишь кратко:
Идея хранения значений в теге реализована в тех материалах, что я рекомендовал, датированных 2001 годом, если не ошибаюсь.
Там-же приведена грамотная реализация сборки/парсинга строки в пары атрибут-значение и наоборот.
Там-же приведен пример использования этого механизма при ресайзинге форм.

Ваши претензии на "авторство идеи" выглядят жалкими.

Вы просили ссылку на материалы единомышленников, я вам дважды ее дал, за что был обвинен в спамерстве. :grin

Потому я и говорю, что вы изобрели велосипед.
А по причине худшей реализации, он еще и на квадратных колесах.
За сим откланиваюсь с пожеланием творческих успехов.

22 Написал(а) Баймер, в 15:35 06.12.2010
Абсолютно с Вами согласен - разговор между нами далее бессмыленен. Вы просто не готовы к каким либо обсуждениям.
Почему:
1. Вы не читаете комменты аппонента, а пробегаете их, не вникая в суть.
2. Вы неверно поняли идею и пытаетесь спорить. Но мы говорим о разных вещах.
3. Вам прямо указали на Ваши промахи в утверждениях. Вы это проигнорировали и не раз.

Думаю достаточно.

Успехов и Вам в ваших наичинаниях и продолжениях.

23 Написал(а) Этот e-mail защищен от спам-ботов. Для его просмотра в вашем браузере должна быть включена поддержка Java-script , в 09:52 08.12.2010
прочитал и вспомнил что что-то такое когда-то делал, покопался в своем "мусорнике"и нашел такие кусочки. Изредка пользовался подобным приемом для передачи наборов пользовательских свойств между формами. реализация выглядит примерно так:

класс для работы со строкой почерпнут из Source+
'
'*********************************************************** ******************************

Option Explicit
' Error handling definitions
Private Const E_ERR_BASE = 18200 + vbObjectError
Public Enum EErrStringBag
eErrStringBag_ComponentFailure = E_ERR_BASE + 1
End Enum
Private Const S_ERR_ComponentFailure = "clsStringBag component failure"

Private Const cnstValueDelim As String = "="
Private Const cnstItemsDelim As String = vbTab
' Private variables to hold property values
Private m_sContents As String

'*********************************************************** ******************************
'* Property : Contents
'* Notes : Returns or sets a string value containing the entire contents of the
'* string bag.
'*********************************************************** ******************************
Public Property Let Contents(ByVal Value As String)
On Error GoTo hComponentFailure

m_sContents = Value

Exit Property

hComponentFailure:
Err.Raise eErrStringBag_ComponentFailure, S_ERR_ComponentFailure
End Property

Public Property Get Contents() As String
On Error GoTo hComponentFailure

Contents = m_sContents

Exit Property

hComponentFailure:
Err.Raise eErrStringBag_ComponentFailure, S_ERR_ComponentFailure
End Property

'*********************************************************** ******************************
'* Sub : Clear
'* Notes : Clears the contents of the string bag.
'*********************************************************** ******************************
Public Sub Clear()
On Error GoTo hComponentFailure

m_sContents = ""

Exit Sub

hComponentFailure:
Err.Raise eErrStringBag_ComponentFailure, S_ERR_ComponentFailure
End Sub

'*********************************************************** ******************************
'* Function : ReadItem
'* Notes : Returns a string value filled with the contents of the specified item
'* stored in the string bag.
'*********************************************************** ******************************
Public Function ReadItem(ByVal NAME As String) As String
On Error GoTo hComponentFailure

Dim Where As Long

Where = InStr(1, m_sContents, UCase$(NAME) & cnstValueDelim)

If Where = 0 Then
ReadItem = ""
Else
ReadItem = Mid$(m_sContents, Where + Len(NAME) + 1, InStr(Where, m_sContents, cnstItemsDelim) - Where - Len(NAME) - 1)
End If

Exit Function

hComponentFailure:
Err.Raise eErrStringBag_ComponentFailure, S_ERR_ComponentFailure
End Function

'*********************************************************** ******************************
'* Sub : RemoveItem
'* Notes : Removes the specified item from the string bag.
'*********************************************************** ******************************
Public Sub RemoveItem(ByVal NAME As String)
On Error GoTo hComponentFailure

Dim Where As Long

Where = InStr(1, m_sContents, UCase$(NAME) & cnstValueDelim)

If Where 0 Then
m_sContents = Replace(m_sContents, Mid$(m_sContents, Where, InStr(Where, m_sContents, cnstItemsDelim) - Where + 1), "")
End If

Exit Sub

hComponentFailure:
Err.Raise eErrStringBag_ComponentFailure, S_ERR_ComponentFailure
End Sub

'*********************************************************** ******************************
'* Sub : WriteItem
'* Notes : Writes the data for the specified item in the string bag.
'*********************************************************** ******************************
Public Sub WriteItem(ByVal NAME As String, ByVal Value As String)
On Error GoTo hComponentFailure

Dim Where As Long

Where = InStr(1, m_sContents, UCase$(NAME) & cnstValueDelim)

If Where = 0 Then
m_sContents = m_sContents & UCase$(NAME) & cnstValueDelim & Value & cnstItemsDelim
Else
RemoveItem NAME
WriteItem NAME, Value
End If

Exit Sub

hComponentFailure:
Err.Raise eErrStringBag_ComponentFailure, S_ERR_ComponentFailure
End Sub

****************************************

запись свойств производится чем-то вроде
With bagStrData
Call .WriteItem("Свойство1", Значение1)
Call .WriteItem("Свойство2", Значение2)
Call .WriteItem("Свойство3", Значение3)
End With

где bagStrData - экземпляр указанного класса
чтение соответственно по .ReadItem("СвойствоN")

в общем полезный класс для передачи группы параметров не только через .Tag, но и например OpenArgs формы.

думаю пригодится для доводки Вашей идеи )
с уважением, Руслан

24 Написал(а) Алекс, в 21:38 27.12.2010
По моему руководствоваться принципом "Зачем просто, когда можно сложно" не самое верное решение. А слово оппонент пишется через "О" - это я так к слову.

25 Написал(а) Этот e-mail защищен от спам-ботов. Для его просмотра в вашем браузере должна быть включена поддержка Java-script , в 07:16 28.12.2010
Позволю себе не согласиться на счет "сложности" предложенного уважаемым Бамером решения. Сложность не только объективный параметр описывающий степень разнообразия внутренней структуры объекта, но и сугубо субъективная характеристика простоты его понимания. Решение любой задачи это постепенное ее структурирование т.е описание через взаимосвязь уже изученных и легко понимаемых элементарных объектов с последующей оптимизацией построенной модели. В данной ситуации уважаемый Бамер действует абсолютно правильно. Как только задача будет четко сформулирована и создана рабочая модель настанет время ее оптимизации, а пока все варианты имеют право на существование. На данном этапе конструктивным подходом было бы не критиковать, а предлагать варианты решения (не беспокойтесь - придет время и критики). И смею заметить в Васике пакетная передача параметров не самый неудобный способ обмена информацией между объектами. Поэтому я и предложил в том числе и Вашему вниманию этот класс заимствованный мной из известного сборника готовых алгоритмов - он обладает четкой легко понимаемой структурой (особенно если его обработчиков ошибок) и предлагает достаточный набор методов для решения части из поставленных задач. Если автору он покажется удобным в достаточной мере он сможет им воспользоваться в качестве одного из "кирпичиков" в своей модели. Знаете, так не удобно каждый раз писать с нуля. Думаю у каждого, в том числе и у Вас, есть свой набор готовых проверенных решений для типовых задач из которых и лепится готовая реализация)))
Ну а на счет "аппонента" право это недостойно Вас. В интернете пишут столько и так мало следят за тем как, что уверен и Вы и, без сомнений - я, в отношении ашипок не безупречны) Хотите уколоть - делайте это изящно. В качестве образца для подражания в этом отношении могу порекомендовать д-ра Хауса)).

26 Написал(а) Алекс, в 07:20 29.12.2010
2 iKaRus,
согласен с Вашим мнением. Вы правы. Оставляя в стороне, техническую сторону вопроса, хочу принести Баймеру свои искренние извинения за недопустимую резкость в оценке его работы.

С уважением,