Ответ 1
Добавьте столбец в таблицы под названием "метаданные" и поместите в него XML. SQL-сервер позволяет вам взглянуть на blob, полный XML, как если бы это были дополнительные столбцы (с ограничениями).
Для ORM это зависит от того, как структурирован ваш объект.
- Бесконечно настраиваемые элементы метаданных: вы помещаете пары имени-значения из XML в коллекцию. Если ваш ORM не допустит этого, поместите его прямо в свойство строки, сеттер сможет проанализировать его в XML-документе (или быстрее, если вам нужна скорость). Getter вернет строку. Затем отдельное свойство "MetaDataItem (ItemName- > string)", которое не является ORM'd, будет считывать значения из списка метаданных и обновлять/добавлять их с его установщиком.
- Metadeta - это жестко заданные свойства - сопоставьте их с помощью запроса, который вытаскивает их из XML.
- Гибрид двухструйных свойств для некоторых элементов - их сеттеры/геттеры называют MetaDataItem.
- Обратный гибрид, если определенные свойства должны быть непосредственно сохранены (esp, если вы сортируете на них большие списки): вы должны жестко задавать свойства для этих метаданных со своими частными членами, но не ORM эти свойства. Жестко закодировано сохранение/загрузка этих значений в строковое свойство ORM'd, и если вы хотите иметь возможность обновлять эти жестко закодированные элементы метаданных из свойства MetaDataItem, также скопируйте их в это место!
Если у вас есть целая группа жестко закодированных свойств метаданных, в дополнение к бесконечной сумме, вы можете легко избавиться от свойства XML и свойства MetaDataItem со списками и отражением. Если все жестко закодированы, вы все равно можете использовать свойство текста XML для загрузки/сохранения, сопоставить это свойство, а не другие.
Сортируйте их с запросом LINQ для объекта.
Я сделал это с большим успехом и с каждой маркированной буквой, все работало лучше и лучше! 2005/.Net 1.1, поэтому нет ORM, LINQ, моей первой программы VB.net и т.д. Но другие разработчики использовали XML-запрос SQL Server для чтения моего XML. Конечно, я забыл об этом, изменил его и опрокинул: - (
Вот фрагменты. Ключ от всего этого: ORM friendly = ORM некоторые свойства, а не другие; Разрешить потребителям использовать другие свойства, но не некоторые. Если ваш ORM не разрешает такой выбор свойств ala-carte, вы можете использовать наследование или композицию, чтобы обмануть его. Извините, у меня нет времени, чтобы опубликовать полный пример для вашей цели.
Ну, у меня нет образца кода здесь, дома. Я буду редактировать и вставлять его завтра.
ИЗМЕНИТЬ, как и было обещано, здесь фрагмент кода:
Public Property ItemType(ByVal stTagName As String) As String
Get
Dim obj As Object
obj = Me.lstMemberList.Item(stTagName)
If Not obj Is Nothing Then
Return CType(obj, foDataItem).Type
End If
End Get
Set(ByVal Value As String)
Dim obj As Object
obj = Me.lstMemberList.Item(stTagName)
If Not obj Is Nothing Then
CType(obj, foDataItem).Type = Value
End If
End Set
End Property
Public Function ItemExists(ByVal stTagName As String) As Boolean
Return Me.lstMemberList.ContainsKey(stTagName)
End Function
Public Property ItemValue(ByVal stTagName As String, Optional ByVal Type4NewItem As String = "") As String
Get
Dim obj As Object
obj = Me.lstMemberList.Item(stTagName)
If obj Is Nothing Then
Dim stInternalKey As String = ""
Try
stInternalKey = Me.InternalKey.ToString
Catch
End Try
If stTagName <> "InternalKey" Then '' // avoid deadlock if internalkey errs!
Throw New ApplicationException("Tag '" & stTagName & _
"' does not exist in FO w/ internal key of " & stInternalKey)
End If
Else
Return CType(obj, foDataItem).Value
End If
End Get
Set(ByVal Value As String)
'' // if child variation form...
If bLocked4ChildVariation Then
'' // protect properties not in the list of allowed updatable items
If Not Me.GetChildVariationDifferentFields.Contains(stTagName) Then
Exit Property
End If
End If
'' // WARNING - DON'T FORGET TO UPDATE THIS LIST OR YOU WILL NEVER FIND THE BUG!
Select Case stTagName
Case "PageNum"
_PageNum = CInt(Value)
Case "Left"
_Left = CInt(Value)
Case "Top"
_Top = CInt(Value)
Case "Width"
_Width = CInt(Value)
Case "Height"
_Height = CInt(Value)
Case "Type"
_Type = String2Type(Value)
Case "InternalKey"
_InternalKey = CInt(Value)
Case "UniqueID"
_UniqueID = Value
End Select
Static MyError As frmErrorMessage
Dim obj As Object
If Me.lstMemberList.ContainsKey(stTagName) Then
Dim foi As foDataItem = CType(Me.lstMemberList.Item(stTagName), foDataItem)
If foi.Type = "Number" Then
Value = CStr(Val(Value))
End If
If foi.Value <> Value Then
If bMonitorRefreshChanges Then
LogObject.LoggIt("Gonna Send Update for Change " & stTagName & " from " & _
foi.Value & " to " & Value)
If Not Me.FormObjectChanged_Address Is Nothing Then
FormObjectChanged_Address(Me, stTagName)
End If
End If
End If
foi.Value = Value
Else
Me.lstMemberList.Add(stTagName, New foDataItem(Value, Type4NewItem))
Me.alOrderAdded.Add(stTagName)
End If
End Set
End Property
Public Function StringVal(ByVal st As String, Optional ByVal stDefault As String = "") As String
Try
StringVal = stDefault
Return CType(Me.ItemValue(st), String)
Catch ex As Exception
Dim bThrowError As Boolean = True
RaiseEvent ConversionError(ex, "String=" & Me.ItemValue(st), Me, st, bThrowError)
If bThrowError Then
LogObject.LoggIt("Error setting tag value in fo.StringVal: " & st)
Throw New Exception("Rethrown Exception getting value of " & Me.ID & "." & st, ex)
End If
End Try
End Function
Public Function IntVal(ByVal st As String, Optional ByVal iDefault As Integer = 0) As Integer
...
'' // 'native' values - are normal properties instead of XML properties, which
'' // actually makes it harder to deal with b/c of extra updates to sync them, BUT,
'' // worth it - as they are read much more than written (sorts, wizard builds,
'' // screen redraws, etc) I can afford to be slow when writing to them, PLUS
'' // retain the benefits of referencing everything else via ItemValue, PLUS
'' // these are just the more 'popular' items.
Private _Top As Integer
Private _Left As Integer
Private _Width As Integer
Private _Height As Integer
Private _PageNum As Integer
Private _Type As pfoType
Private _InternalKey As Integer
Private _UniqueID As String
Public Sub SetNativeValuesFromMyXML()
_Top = CInt(CType(Me.lstMemberList("Top"), foDataItem).Value)
_Left = CInt(CType(Me.lstMemberList("Left"), foDataItem).Value)
_Width = CInt(CType(Me.lstMemberList("Width"), foDataItem).Value)
_Height = CInt(CType(Me.lstMemberList("Height"), foDataItem).Value)
_PageNum = CInt(CType(Me.lstMemberList("PageNum"), foDataItem).Value)
_Type = String2Type(CType(Me.lstMemberList("Type"), foDataItem).Value)
_InternalKey = CInt(CType(Me.lstMemberList("InternalKey"), foDataItem).Value)
_UniqueID = CType(Me.lstMemberList("UniqueID"), foDataItem).Value
End Sub
Public Property Top() As Integer
Get
Return _Top '' // CInt(ItemValue("Top"))
End Get
Set(ByVal Value As Integer)
ItemValue("Top") = Value.ToString
End Set
End Property
Public Property Left() As Integer
Get
Return _Left '' //CInt(ItemValue("Left"))
End Get
...