PeopleTrac – People Management for Not-For-Profit Organizations


Namespace LightSwitchApplication

    Public Class CreateAndEditPeople

        Private Sub CreateAndEditPeople_InitializeDataWorkspace(saveChangesTo As System.Collections.Generic.List(Of Microsoft.LightSwitch.IDataService))
            ' Write your code here.
            If Me.PersonID.HasValue Then
                Me.PersonProperty = Me.Person
            Else
                Me.PersonProperty = New Person()
            End If

        End Sub

        Private Sub CreateAndEditPeople_Saved()
            ' Write your code here.
            Me.Close(False)
            Application.Current.ShowDefaultScreen(Me.PersonProperty)
        End Sub

        Private Sub AddNewSubscription_Execute()
            ' Write your code here.
            Dim myID As Integer
            myID = Me.PersonID
            ShowMessageBox("Me.PersonID:  " & Me.PersonID & vbLf & "MyID: " & myID)

            Me.Application.ShowSubscriptionDetailA(myID)
        End Sub

        Private Sub SubscriptionsAddNew_CanExecute(ByRef result As Boolean)
            ' Write your code here.

        End Sub

        

        Private Sub SubscriptionsEditSelected_CanExecute(ByRef result As Boolean)
            ' Write your code here.

        End Sub

        Private Sub SubscriptionsEditSelected_Execute()
            ' Write your code here.

        End Sub
    End Class

End Namespace