Renzo Lanza
82 lines
1.8 KiB
VB.net
82 lines
1.8 KiB
VB.net
Imports EgtWPFLib5
|
|
|
|
Public Class VersionPageVM
|
|
Inherits VMBase
|
|
|
|
#Region "FIELDS & PROPERTIES"
|
|
|
|
Private m_VersionId As Integer
|
|
Public Property VersionId As Integer
|
|
Get
|
|
Return m_VersionId
|
|
End Get
|
|
Set(value As Integer)
|
|
m_VersionId = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_VersionNumber As Integer
|
|
Public Property VersionNumber As String
|
|
Get
|
|
Return m_VersionNumber.ToString()
|
|
End Get
|
|
Set(value As String)
|
|
m_VersionNumber = value
|
|
NotifyPropertyChanged("VersionNumber")
|
|
End Set
|
|
End Property
|
|
|
|
Private m_ProductList As List(Of Product)
|
|
Public ReadOnly Property ProductList As List(Of Product)
|
|
Get
|
|
Return m_ProductList
|
|
End Get
|
|
End Property
|
|
|
|
Private m_SelProduct As Product
|
|
Public Property SelProduct As Product
|
|
Get
|
|
Return m_SelProduct
|
|
End Get
|
|
Set(value As Product)
|
|
m_SelProduct = value
|
|
NotifyPropertyChanged("SelProduct")
|
|
End Set
|
|
End Property
|
|
|
|
#Region "Messages"
|
|
|
|
Public ReadOnly Property VersionNumberMsg As String
|
|
Get
|
|
Return "Version number"
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property ProductNameMsg As String
|
|
Get
|
|
Return "Product name"
|
|
End Get
|
|
End Property
|
|
|
|
#End Region ' Messages
|
|
|
|
#End Region ' FIELDS & PROPERTIES
|
|
|
|
#Region "METHODS"
|
|
|
|
Friend Sub InitVersionPage()
|
|
' Svuoto campi
|
|
m_VersionNumber = Nothing ' 1
|
|
NotifyPropertyChanged("VersionNumber")
|
|
|
|
' Carico lista Product
|
|
Dim Query As String = "SELECT * FROM " & DB_PRODUCT
|
|
m_ProductList = ManageDb.ExecuteProductQuery(Query)
|
|
NotifyPropertyChanged("ProductList")
|
|
|
|
End Sub
|
|
|
|
#End Region ' METHODS
|
|
|
|
End Class
|