Dario Sassi
c43ef9c011
- modifiche per AboutBox - tolte costanti inutili - semplificato Ini file - modificata generazione licenza.
83 lines
1.9 KiB
VB.net
83 lines
1.9 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)
|
|
Dim nVal As integer
|
|
If Integer.TryParse( value, nVal) Then m_VersionNumber = nVal
|
|
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
|