Применение tagged values в БД
Применение стандартных методов проектирования баз данных не всегда удовлетворяет запросы программиста. Одно из ограничений - невозможность изменить набор атрибутов объекта после создания БД, что, при постоянно изменяемых требованиях заказчика, приводит к необходимости менять структуру БД (не потеряв при этом введенные данные), менять и заново отлаживать код программы, поля ввода/редактирования и т.д.
Вашему вниманию предлагается один из способов решения этой проблемы — применение tagged values (TV , тэг-значений, или именованных значений).
Сами значения хранятся в БД в строковом формате, но могут интерпретироваться в приложении по-разному, в зависимости от заданного типа значения. Аналог - всем известные ini-files! Основное преимущество применения TV - это возможность расширения списка значений в процессе исполнения приложения, без изменения структуры БД!
(image placeholder)
Список тэг-значений хранятся в таблице TaggedValue.
- DefaultValue - это значение будет использоваться, если не задано действующее значение.
- DefaultValueAlias - соответственно, значение для локализации.
- ValueType - тип значения. Кроме стандартных типов, можно использовать свои, все зависит от фантазии разработчика. В зависимости от типа значения выбирается встроенный редактор значений. Например, для типа "OCL" используется редактор OCL-выражений. Для перечислимого типа производится выбор значений, которые хранятся в таблице TV_ValueSet. Возможен выбор из списка объектов БД - тогда надо задать ValuesListName.
- Hint - подсказка при выборе/редактировании значения.
- HintAlias - локализованная подсказка.
- IsReadOnly - ну, это понятно.
- ValuesListName - название класса объектов, из списка значений которых будет производиться выбор. Например "City", и тогда будет предложен выбор из списка ClassByExpressionName(‘City).
Список значений для набора объектов - в таблице TV_ValueSet. Например, для логического типа можно задать значения "True/False", а возможно и "Можно/Нельзя".
Сами значения TV хранятся в таблице TV_Value. StringValue - действительное значение, значение, StringValueAlias - то, которое используется для локализации программы (или для показа юзеру ().
(image placeholder)
Для того, чтобы подключить к объекту тэг-значения, нужно создать ассоциацию типа n-n - OverridenTagedValues. Вся прелесть в том, что таким образом хранятся только переопределенные значения! Если нет значения - будет использоваться значение по-умолчанию! Классом такой ассоциации будет TV_Value, то есть, экземпляр класса - тэг-значение будет создан только при действительном вводе информации! Если грамотно подобрать умолчания, можно существенно сэкономить на размере БД!
Программная реализация.
Эта функция возвращает действующее тэг-значение по его имени. Если значение не было переопределено - возвращается значение по умолчанию.
function TMetaActorProperty.ActualValueByName(Tag: String): String;
var
_TaggedValue:TTaggedValue;
_TV_Value:TTV_Value;
begin
_TaggedValue:=Self.TaggedValues.EvaluateExpressionAsDirectElement(‘self->select(name=’+QuotedStr(Tag)+’)->first’) as TTaggedValue;
if Self.OverridenTaggedValues.Includes(_TaggedValue) then begin
_TV_Value:=Self.TV_Value.BoldObjects[Self.OverridenTaggedValues.IndexOf(_TaggedValue)];
Result:=_TV_Value.StringValue;
end
else
Result:=Self.TaggedValues.EvaluateExpressionAsString(‘self->select(name=’+QuotedStr(Tag)+’)->first.defaultValue’, 1);
end;
Эта процедура устанавливает тэг-значение.
procedure TMetaActorProperty.SetTVByName(Tag: String; Value: String);
var
_TaggedValue:TTaggedValue;
_TV_Value:TTV_Value;
Overriden: Boolean;
begin
_TaggedValue:=LocateInList(Self.TaggedValues, ‘name’, Tag) as TTaggedValue;
if not Assigned(_TaggedValue) then begin
MsgError(Self.Name+’: Not found TV=’+Tag);
Exit;
end;
Overriden:=Self.OverridenTaggedValues.Includes(_TaggedValue);
if Overriden then begin //Ранее было переопределено
_TV_Value:= //Найдем переопределенное значение
Self.TV_Value.BoldObjects[Self.OverridenTaggedValues.IndexOf(_TaggedValue)];
if (Value=_TaggedValue.DefaultValue) then //Если ввели значение по умолчанию — удалим переопределенное
Self.OverridenTaggedValues.Remove(_TaggedValue)
else //Ранее было переопределено и изменили значение
_TV_Value.StringValue:=Value;
end
else //Ранее было по умолчанию
begin
Assert(Assigned(_TaggedValue), ‘SetTVByName’);
Self.OverridenTaggedValues.Add(_TaggedValue);
_TV_Value:= //Найдем переопределенное значение
Self.TV_Value.BoldObjects[Self.OverridenTaggedValues.IndexOf(_TaggedValue)];
_TV_Value.StringValue:=Value;
end;
end;
Функция дает список подключенных тэг-значений.
function TMetaActorProperty.TaggedValues: TTaggedValueList; //Find TaggedValueList
var
expr: string;
begin
Result:=nil;
if not Assigned(Self) then Exit;
expr:=’TV_Section.allInstances->select(name=’+QuotedStr(Self.MetaClassName)+’)->first.taggedValues’;
Result:=TBoldSystem.DefaultSystem.EvaluateExpressionAsDirectElement(expr)as TTaggedValueList;
end;
Такие тэг-значения удобны для сохранения в БД настроек программы, быстрого создания прототипов проекта для согласования с заказчиком и добавления/изменения атрибутов на "лету" (в дальнейшем, после обкатки приложения, легко все оформить в виде "настоящих" атрибутов).
Для создания/редактирования тэг-значений применяется редактор на основе компонента TCommonInspector из пакета Greatis — http://www.greatis.com.