So know that we got our class up and running (unit test and all) we want to connect it to a database. At first this class will look like a DTO but it could be more. So don't let yourself be fooled.
First of all I needed to change the properties to make them virtual (C#) or better overridable (VB.Net). Why? Because I didn't know better and I did what it told me to do. But now I understand. It needs this for its lazy loading. That way it can make a sub class of your class and it just needs to overload the properties. At the mean while it also overloads the compareto method which was un unwanted side effect for me. It overloads it so that it starts sorting on the Id field.
Now for the mapping.
NHibernate like Hibernate uses mapping files to map the properties to columns in the database. But some nice guy also provided us with attributes to make it eassier to make the mapping files or make no mapping files at all.
So the attributes you see are from that.
I used nHibernate 1.2.1 for this
Enjoy
Imports NHibernate
Imports NHibernate.Mapping.Attributes
Namespace Model
''' <summary>
'''
''' </summary>
''' <remarks></remarks>
<CLSCompliant(True)> _
<NHibernate.Mapping.Attributes.JoinedSubclass(0, table:="tbl_Person", lazy:=False)> _
Public Class Person2
Implements IComparable
#Region " Private members "
''' <summary>
''' A local variable called _id of type Guid
''' </summary>
''' <remarks>Has Property Id</remarks>
Private _id As Guid
''' <summary>
''' A local variable called _firstName of type String
''' </summary>
''' <remarks>Has Property FirstName</remarks>
Private _firstName As String
''' <summary>
''' A local variable called _lastName of type String
''' </summary>
''' <remarks>Has Property LastName</remarks>
Private _lastName As String
#End Region
#Region " Constructors "
''' <summary>
''' Default empty constructor
''' </summary>
''' <remarks></remarks>
Public Sub New()
'TODO : Implement default constructor
End Sub
''' <summary>
''' Constructor with all the fields
''' </summary>
''' <param name="Id">DataType = Guid</param>
''' <param name="FirstName">DataType = String</param>
''' <param name="LastName">DataType = String</param>
''' <remarks></remarks>
Public Sub New(ByVal Id As Guid, ByVal FirstName As String, ByVal LastName As String)
Me.Id = Id
Me.FirstName = FirstName
Me.LastName = LastName
End Sub
#End Region
#Region " Public properties "
''' <summary>
''' This is the Id property.
''' </summary>
''' <value>Guid</value>
''' <returns>Guid</returns>
''' <remarks></remarks>
<NHibernate.Mapping.Attributes.Id(0, typetype:=GetType(Guid), Name:="Id") _
, NHibernate.Mapping.Attributes.Generator(1, Class:="guid.comb")> _
<NHibernate.Mapping.Attributes.Key()> _
Public Overridable Property Id() As Guid
Get
Return _id
End Get
Set(ByVal Value As Guid)
_id = Value
End Set
End Property
''' <summary>
''' This is the FirstName property.
''' </summary>
''' <value>String</value>
''' <returns>String</returns>
''' <remarks></remarks>
<NHibernate.Mapping.Attributes.Property()> _
Public Overridable Property FirstName() As String
Get
Return _firstName
End Get
Set(ByVal Value As String)
_firstName = Value
End Set
End Property
''' <summary>
''' This is the LastName property.
''' </summary>
''' <value>String</value>
''' <returns>String</returns>
''' <remarks></remarks>
<NHibernate.Mapping.Attributes.Property()> _
Public Overridable Property LastName() As String
Get
Return _lastName
End Get
Set(ByVal Value As String)
_lastName = Value
End Set
End Property
#End Region
#Region " Overrides ToString "
''' <summary>
''' Overridden ToString method for this class
''' </summary>
''' <returns>String</returns>
''' <remarks>The String value of this class represented by the ToStrings of all it's private members</remarks>
Public Overrides Function ToString() As String
Dim ReturnString As New System.Text.StringBuilder()
ReturnString.Append("[Id: " & _id.ToString() & "]")
ReturnString.Append(" - [FirstName: " & _firstName.ToString() & "]")
ReturnString.Append(" - [LastName: " & _lastName.ToString() & "]")
Return ReturnString.ToString()
End Function
#End Region
#Region " Overrides Equals "
''' <summary>
''' Overridden Equals method for this class
''' </summary>
''' <returns>Boolean</returns>
''' <remarks>The Boolean value indictaing if this is equal to the other class</remarks>
Public Overrides Function Equals(ByVal obj As Object) As Boolean
If obj.GetType Is Me.GetType Then
Return Me._id.Equals(CType(obj, Person2)._id)
Else
Return False
End If
End Function
#End Region
#Region " Overrides CompareTo "
''' <summary>
''' Overridden CompareTo method for this class
''' </summary>
''' <returns>Integer</returns>
''' <remarks></remarks>
Public Function CompareTo(ByVal obj As Object) As Integer Implements System.IComparable.CompareTo
If obj.GetType Is Me.GetType Then
Return Me._id.CompareTo(CType(obj, Person2)._id)
Else
Return -1
End If
End Function
#End Region
End Class
End Namespace