LicenceManager 2.1b1 :

- Primo commit.
2019-02-20 09:46:20 +00:00
parent 393b154874
commit 2ff390d577
95 changed files with 10639 additions and 0 deletions
@@ -0,0 +1,376 @@
+Imports EgtWPFLib5
+
+Public Class MainMenuVM
+   Inherits VMBase
+
+#Region "FIELDS & PROPERTIES"
+
+   ' Definizione comandi
+   Private m_cmdNewClient As Command
+   Private m_cmdNewKey As Command
+   Private m_cmdNewLicence As Command
+   Private m_cmdNewProduct As Command
+   Private m_cmdNewVersion As Command
+   Private m_cmdNewReseller As Command
+   Private m_cmdSearchClient As Command
+   Private m_cmdSearchKey As Command
+   Private m_cmdSearchLicence As Command
+   Private m_cmdSearchProduct As Command
+   Private m_cmdSearchVersion As Command
+   Private m_cmdSearchReseller As Command
+   Private m_cmdUpdateClient As Command
+   Private m_cmdUpdateKey As Command
+   Private m_cmdUpdateLicence As Command
+   Private m_cmdUpdateProduct As Command
+   Private m_cmdUpdateVersion As Command
+   Private m_cmdUpdateReseller As Command
+
+#End Region    ' FIELDS & PROPERTIES
+
+#Region "COMMANDS"
+
+#Region "NewClient"
+
+   ' Returns a command that manage the MainWindow_Unloaded command
+   Public ReadOnly Property NewClient_Command As ICommand
+      Get
+         If m_cmdNewClient Is Nothing Then
+            m_cmdNewClient = New Command(AddressOf NewClient)
+         End If
+         Return m_cmdNewClient
+      End Get
+   End Property
+
+   ' Manage the MainWindow_Unloaded event. This method is invoked by the cmdMainWindow_Unloaded.
+   Public Sub NewClient(ByVal param As Object)
+      Map.refMainWindowVM.SelProjectMode = MainWindowVM.ProjectModeOpt.NEWCLIENT
+   End Sub
+
+#End Region ' NewClient
+
+#Region "NewKey"
+
+   ' Returns a command that manage the MainWindow_Unloaded command
+   Public ReadOnly Property NewKey_Command As ICommand
+      Get
+         If m_cmdNewKey Is Nothing Then
+            m_cmdNewKey = New Command(AddressOf NewKey)
+         End If
+         Return m_cmdNewKey
+      End Get
+   End Property
+
+   ' Manage the MainWindow_Unloaded event. This method is invoked by the cmdMainWindow_Unloaded.
+   Public Sub NewKey(ByVal param As Object)
+      Map.refMainWindowVM.SelProjectMode = MainWindowVM.ProjectModeOpt.NEWKEY
+   End Sub
+
+#End Region ' NewKey
+
+#Region "NewLicence"
+
+   ' Returns a command that manage the MainWindow_Unloaded command
+   Public ReadOnly Property NewLicence_Command As ICommand
+      Get
+         If m_cmdNewLicence Is Nothing Then
+            m_cmdNewLicence = New Command(AddressOf NewLicence)
+         End If
+         Return m_cmdNewLicence
+      End Get
+   End Property
+
+   ' Manage the MainWindow_Unloaded event. This method is invoked by the cmdMainWindow_Unloaded.
+   Public Sub NewLicence(ByVal param As Object)
+      Map.refMainWindowVM.SelProjectMode = MainWindowVM.ProjectModeOpt.NEWLICENCE
+   End Sub
+
+#End Region ' NewLicence
+
+#Region "NewProduct"
+
+   ' Returns a command that manage the MainWindow_Unloaded command
+   Public ReadOnly Property NewProduct_Command As ICommand
+      Get
+         If m_cmdNewProduct Is Nothing Then
+            m_cmdNewProduct = New Command(AddressOf NewProduct)
+         End If
+         Return m_cmdNewProduct
+      End Get
+   End Property
+
+   ' Manage the MainWindow_Unloaded event. This method is invoked by the cmdMainWindow_Unloaded.
+   Public Sub NewProduct(ByVal param As Object)
+      Map.refMainWindowVM.SelProjectMode = MainWindowVM.ProjectModeOpt.NEWPRODUCT
+   End Sub
+
+#End Region ' NewProduct
+
+#Region "NewVersion"
+
+   ' Returns a command that manage the MainWindow_Unloaded command
+   Public ReadOnly Property NewVersion_Command As ICommand
+      Get
+         If m_cmdNewVersion Is Nothing Then
+            m_cmdNewVersion = New Command(AddressOf NewVersion)
+         End If
+         Return m_cmdNewVersion
+      End Get
+   End Property
+
+   ' Manage the MainWindow_Unloaded event. This method is invoked by the cmdMainWindow_Unloaded.
+   Public Sub NewVersion(ByVal param As Object)
+      Map.refMainWindowVM.SelProjectMode = MainWindowVM.ProjectModeOpt.NEWVERSION
+   End Sub
+
+#End Region ' NewVersion
+
+#Region "NewReseller"
+
+   ' Returns a command that manage the MainWindow_Unloaded command
+   Public ReadOnly Property NewReseller_Command As ICommand
+      Get
+         If m_cmdNewReseller Is Nothing Then
+            m_cmdNewReseller = New Command(AddressOf NewReseller)
+         End If
+         Return m_cmdNewReseller
+      End Get
+   End Property
+
+   ' Manage the MainWindow_Unloaded event. This method is invoked by the cmdMainWindow_Unloaded.
+   Public Sub NewReseller(ByVal param As Object)
+      Map.refMainWindowVM.SelProjectMode = MainWindowVM.ProjectModeOpt.NEWRESELLER
+   End Sub
+
+#End Region ' NewReseller
+
+#Region "SearchClient"
+
+   ' Returns a command that manage the MainWindow_Unloaded command
+   Public ReadOnly Property SearchClient_Command As ICommand
+      Get
+         If m_cmdSearchClient Is Nothing Then
+            m_cmdSearchClient = New Command(AddressOf SearchClient)
+         End If
+         Return m_cmdSearchClient
+      End Get
+   End Property
+
+   ' Manage the MainWindow_Unloaded event. This method is invoked by the cmdMainWindow_Unloaded.
+   Public Sub SearchClient(ByVal param As Object)
+      Map.refMainWindowVM.SelProjectMode = MainWindowVM.ProjectModeOpt.SEARCHCLIENT
+   End Sub
+
+#End Region ' SearchCLient
+
+#Region "SearchKey"
+
+   ' Returns a command that manage the MainWindow_Unloaded command
+   Public ReadOnly Property SearchKey_Command As ICommand
+      Get
+         If m_cmdSearchKey Is Nothing Then
+            m_cmdSearchKey = New Command(AddressOf SearchKey)
+         End If
+         Return m_cmdSearchKey
+      End Get
+   End Property
+
+   ' Manage the MainWindow_Unloaded event. This method is invoked by the cmdMainWindow_Unloaded.
+   Public Sub SearchKey(ByVal param As Object)
+      Map.refMainWindowVM.SelProjectMode = MainWindowVM.ProjectModeOpt.SEARCHKEY
+   End Sub
+
+#End Region ' SearchKey
+
+#Region "SearchLicence"
+
+   ' Returns a command that manage the MainWindow_Unloaded command
+   Public ReadOnly Property SearchLicence_Command As ICommand
+      Get
+         If m_cmdSearchLicence Is Nothing Then
+            m_cmdSearchLicence = New Command(AddressOf SearchLicence)
+         End If
+         Return m_cmdSearchLicence
+      End Get
+   End Property
+
+   ' Manage the MainWindow_Unloaded event. This method is invoked by the cmdMainWindow_Unloaded.
+   Public Sub SearchLicence(ByVal param As Object)
+      Map.refMainWindowVM.SelProjectMode = MainWindowVM.ProjectModeOpt.SEARCHLICENCE
+   End Sub
+
+#End Region ' SearchLicence
+
+#Region "SearchProduct"
+
+   ' Returns a command that manage the MainWindow_Unloaded command
+   Public ReadOnly Property SearchProduct_Command As ICommand
+      Get
+         If m_cmdSearchProduct Is Nothing Then
+            m_cmdSearchProduct = New Command(AddressOf SearchProduct)
+         End If
+         Return m_cmdSearchProduct
+      End Get
+   End Property
+
+   ' Manage the MainWindow_Unloaded event. This method is invoked by the cmdMainWindow_Unloaded.
+   Public Sub SearchProduct(ByVal param As Object)
+      Map.refMainWindowVM.SelProjectMode = MainWindowVM.ProjectModeOpt.SEARCHPRODUCT
+   End Sub
+
+#End Region ' SearchProduct
+
+#Region "SearchVersion"
+
+   ' Returns a command that manage the MainWindow_Unloaded command
+   Public ReadOnly Property SearchVersion_Command As ICommand
+      Get
+         If m_cmdSearchVersion Is Nothing Then
+            m_cmdSearchVersion = New Command(AddressOf SearchVersion)
+         End If
+         Return m_cmdSearchVersion
+      End Get
+   End Property
+
+   ' Manage the MainWindow_Unloaded event. This method is invoked by the cmdMainWindow_Unloaded.
+   Public Sub SearchVersion(ByVal param As Object)
+      Map.refMainWindowVM.SelProjectMode = MainWindowVM.ProjectModeOpt.SEARCHVERSION
+   End Sub
+
+#End Region ' SearchVersion
+
+#Region "SearchReseller"
+
+   ' Returns a command that manage the MainWindow_Unloaded command
+   Public ReadOnly Property SearchReseller_Command As ICommand
+      Get
+         If m_cmdSearchReseller Is Nothing Then
+            m_cmdSearchReseller = New Command(AddressOf SearchReseller)
+         End If
+         Return m_cmdSearchReseller
+      End Get
+   End Property
+
+   ' Manage the MainWindow_Unloaded event. This method is invoked by the cmdMainWindow_Unloaded.
+   Public Sub SearchReseller(ByVal param As Object)
+      Map.refMainWindowVM.SelProjectMode = MainWindowVM.ProjectModeOpt.SEARCHRESELLER
+   End Sub
+
+#End Region ' SearchReseller
+
+#Region "UpdateClient"
+
+   ' Returns a command that manage the MainWindow_Unloaded command
+   Public ReadOnly Property UpdateClient_Command As ICommand
+      Get
+         If m_cmdUpdateClient Is Nothing Then
+            m_cmdUpdateClient = New Command(AddressOf UpdateClient)
+         End If
+         Return m_cmdUpdateClient
+      End Get
+   End Property
+
+   ' Manage the MainWindow_Unloaded event. This method is invoked by the cmdMainWindow_Unloaded.
+   Public Sub UpdateClient(ByVal param As Object)
+      Map.refMainWindowVM.SelProjectMode = MainWindowVM.ProjectModeOpt.UPDATECLIENT
+   End Sub
+
+#End Region ' UpdateClient
+
+#Region "UpdateKey"
+
+   ' Returns a command that manage the MainWindow_Unloaded command
+   Public ReadOnly Property UpdateKey_Command As ICommand
+      Get
+         If m_cmdUpdateKey Is Nothing Then
+            m_cmdUpdateKey = New Command(AddressOf UpdateKey)
+         End If
+         Return m_cmdUpdateKey
+      End Get
+   End Property
+
+   ' Manage the MainWindow_Unloaded event. This method is invoked by the cmdMainWindow_Unloaded.
+   Public Sub UpdateKey(ByVal param As Object)
+      Map.refMainWindowVM.SelProjectMode = MainWindowVM.ProjectModeOpt.UPDATEKEY
+   End Sub
+
+#End Region ' UpdateKey
+
+#Region "UpdateLicence"
+
+   ' Returns a command that manage the MainWindow_Unloaded command
+   Public ReadOnly Property UpdateLicence_Command As ICommand
+      Get
+         If m_cmdUpdateLicence Is Nothing Then
+            m_cmdUpdateLicence = New Command(AddressOf UpdateLicence)
+         End If
+         Return m_cmdUpdateLicence
+      End Get
+   End Property
+
+   ' Manage the MainWindow_Unloaded event. This method is invoked by the cmdMainWindow_Unloaded.
+   Public Sub UpdateLicence(ByVal param As Object)
+      Map.refMainWindowVM.SelProjectMode = MainWindowVM.ProjectModeOpt.UPDATELICENCE
+   End Sub
+
+#End Region ' UpdateKey
+
+#Region "UpdateProduct"
+
+   ' Returns a command that manage the MainWindow_Unloaded command
+   Public ReadOnly Property UpdateProduct_Command As ICommand
+      Get
+         If m_cmdUpdateProduct Is Nothing Then
+            m_cmdUpdateProduct = New Command(AddressOf UpdateProduct)
+         End If
+         Return m_cmdUpdateProduct
+      End Get
+   End Property
+
+   ' Manage the MainWindow_Unloaded event. This method is invoked by the cmdMainWindow_Unloaded.
+   Public Sub UpdateProduct(ByVal param As Object)
+      Map.refMainWindowVM.SelProjectMode = MainWindowVM.ProjectModeOpt.UPDATEPRODUCT
+   End Sub
+
+#End Region ' UpdateProduct
+
+#Region "UpdateVersion"
+
+   ' Returns a command that manage the MainWindow_Unloaded command
+   Public ReadOnly Property UpdateVersion_Command As ICommand
+      Get
+         If m_cmdUpdateVersion Is Nothing Then
+            m_cmdUpdateVersion = New Command(AddressOf UpdateVersion)
+         End If
+         Return m_cmdUpdateVersion
+      End Get
+   End Property
+
+   ' Manage the MainWindow_Unloaded event. This method is invoked by the cmdMainWindow_Unloaded.
+   Public Sub UpdateVersion(ByVal param As Object)
+      Map.refMainWindowVM.SelProjectMode = MainWindowVM.ProjectModeOpt.UPDATEVERSION
+   End Sub
+
+#End Region ' UpdateVersion
+
+#Region "UpdateReseller"
+
+   ' Returns a command that manage the MainWindow_Unloaded command
+   Public ReadOnly Property UpdateReseller_Command As ICommand
+      Get
+         If m_cmdUpdateReseller Is Nothing Then
+            m_cmdUpdateReseller = New Command(AddressOf UpdateReseller)
+         End If
+         Return m_cmdUpdateReseller
+      End Get
+   End Property
+
+   ' Manage the MainWindow_Unloaded event. This method is invoked by the cmdMainWindow_Unloaded.
+   Public Sub UpdateReseller(ByVal param As Object)
+      Map.refMainWindowVM.SelProjectMode = MainWindowVM.ProjectModeOpt.UPDATERESELLER
+   End Sub
+
+#End Region ' SearchReseller
+
+#End Region    ' COMMANDS
+
+End Class