Renzo Lanza
91 lines
2.0 KiB
VB.net
91 lines
2.0 KiB
VB.net
Imports EgtWPFLib5
|
|
|
|
Public Class ClientPageVM
|
|
Inherits VMBase
|
|
|
|
#Region "FIELDS & PROPERTIES"
|
|
|
|
Private m_Name As String
|
|
Public Property Name As String
|
|
Get
|
|
Return m_Name
|
|
End Get
|
|
Set(value As String)
|
|
m_Name = value
|
|
NotifyPropertyChanged("Name")
|
|
End Set
|
|
End Property
|
|
|
|
Private m_ResellerList As List(Of Reseller)
|
|
Public ReadOnly Property ResellerList As List(Of Reseller)
|
|
Get
|
|
Return m_ResellerList
|
|
End Get
|
|
End Property
|
|
|
|
Private m_SelReseller As Reseller
|
|
Public Property SelReseller As Reseller
|
|
Get
|
|
Return m_SelReseller
|
|
End Get
|
|
Set(value As Reseller)
|
|
m_SelReseller = value
|
|
NotifyPropertyChanged("SelReseller")
|
|
End Set
|
|
End Property
|
|
|
|
Private m_Email As String
|
|
Public Property Email As String
|
|
Get
|
|
Return m_Email
|
|
End Get
|
|
Set(value As String)
|
|
m_Email = value
|
|
NotifyPropertyChanged("Email")
|
|
End Set
|
|
End Property
|
|
|
|
#Region "Messages"
|
|
|
|
Public ReadOnly Property NameMsg As String
|
|
Get
|
|
Return "Name"
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property ResellerNameMsg As String
|
|
Get
|
|
Return "Reseller name"
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property EmailMsg As String
|
|
Get
|
|
Return "E-mail address"
|
|
End Get
|
|
End Property
|
|
|
|
#End Region ' Messages
|
|
|
|
#End Region ' FIELDS & PROPERTIES
|
|
|
|
#Region "METHODS"
|
|
|
|
Friend Sub InitClientPage()
|
|
' Svuoto campi
|
|
m_Name = String.Empty
|
|
NotifyPropertyChanged("Name")
|
|
|
|
m_Email = String.Empty
|
|
NotifyPropertyChanged("Email")
|
|
|
|
' Carico lista Reseller
|
|
Dim Query As String = "SELECT * FROM " & DB_RESELLER
|
|
m_ResellerList = ManageDb.ExecuteResellerQuery(Query)
|
|
NotifyPropertyChanged("ResellerList")
|
|
End Sub
|
|
|
|
#End Region ' METHODS
|
|
|
|
End Class
|