Класс event содержит список объектов класса user и индекс по ELEMENTS.
Класс userClass User.user Extends %Persistent [ SqlTableName = UserTable ]
{
Index uniqueIdx On name [ IdKey, PrimaryKey, Unique ];
Property name As %String [ ReadOnly ];
Method %OnNew(name As %String) As %Status [ Private, ServerOnly = 1 ]
{
Set i%name = $G(name)
Quit $$$OK
}
ClassMethod get(name As %String) As %String
{
Quit:..uniqueIdxExists(name) name
Set obj = ..%New(name)
If $IsObject(obj) {
Set sc = obj.%Save()
Quit:$$$ISOK(sc) obj.%Id()
}
Quit ""
}
}
Класс eventClass User.event Extends (%Persistent, %Populate)
{
Index usersIdx On users(ELEMENTS);
Property name As %String(POPSPEC = "City()");
Property users As list Of User.user(POPSPEC = "##class(User.user).get(##class(%PopulateUtils).Name()):100:Integer(1,100)");
}
Зная user.%Id() необходимо найти event.name:SELECT %NOLOCK name
FROM event
WHERE FOR SOME %ELEMENT(users) (%VALUE = 'Sorenson,Stavros P.')План запроса (относительная стоимость = 1232):
1.
2.
3.
4.
Read index map SQLUser.event.usersIdx, using the given %EXACT(Subvalue(users)), and looping on ID.
For each row:
Read master map SQLUser.event.IDKEY, using the given idkey value.
Output the row.
Индекс используется, всё работает быстро.
Переделаем users в массив.
Класс event2Class User.event2 Extends (%Persistent, %Populate)
{
Index usersIdx On users(ELEMENTS);
Property name As %String(POPSPEC = "City()");
Property users As array Of User.user(POPSPEC = "##class(User.user).get(##class(%PopulateUtils).Name()):100:Integer(1,100)");
}
Зная user.%Id() необходимо найти event.name и ключ в массиве, по которому записан user.
Т.к. users это массив, поля users в таблице event2 нет, зато есть таблица event2_users:SELECT %NOLOCK event2->name, element_key
FROM event2_users
WHERE users = 'Sorenson,Stavros P.'План запроса (относительная стоимость = 49132):
1.
2.
3.
4.
Read master map SQLUser.event2_users.IDKEY, looping on event2 and element_key.
For each row:
Read master map SQLUser.event2.IDKEY, using the given idkey value, generating a row padded with nulls if none found.
Output the row.
Индекс не используется. Объявить индекс для таблицы event2_users возможности нет.
Единственное что мне удалось придумать, это костыль вызов SqlProc:ClassMethod getEventsByUser(user As %String) As %List [ SqlName = GetEvents, SqlProc ]
{
Set result = ""
Set key = $O(^User.event2I("usersIdx",user,""))
While key'="" {
Set result = result_$LB(key)
Set key = $O(^User.event2I("usersIdx",user,key))
}
Quit result
}SELECT %NOLOCK event2->name, element_key
FROM event2_users
WHERE users = 'Sorenson,Stavros P.'
AND u.event2 %INLIST GetEvents('Sorenson,Stavros P.')План запроса (относительная стоимость = 733.28):
1.
2.
3.
4.
Read master map SQLUser.event2_users.IDKEY, looping on event2 (with a given set of values) and element_key.
For each row:
Read master map SQLUser.event2.IDKEY, using the given idkey value, generating a row padded with nulls if none found.
Output the row.
Как должен выглядеть SQL запрос к таблице events2, который будет использовать индекс usersIdx?
