CuentasAhorro/Cliente.vb at main · ozzies-code/CuentasAhorro · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
Public Class Cliente

    'Atributos de la Clase Cliente

    Private nombre As String
    Private numIdentificacion As String
    Private direccion As String
    Private telefono As String

    'Constructor por defecto
    Public Sub New()

    End Sub

    Public Sub New(ByVal nom As String, ByVal numId As String, ByVal dire As String, ByVal tel As String)

        nombre = nom
        numIdentificacion = numId
        direccion = dire
        telefono = tel

    End Sub

    Public Property NombreCliente As String

        Get
            Return nombre
        End Get
        Set(ByVal value As String)
            nombre = value
        End Set
    End Property

    Public Property NumIdCliente As String

        Get
            Return numIdentificacion
        End Get
        Set(ByVal value As String)
            numIdentificacion = value
        End Set
    End Property

    Public Property DireccionCliente As String
        Get
            Return direccion
        End Get
        Set(ByVal value As String)
            direccion = value
        End Set
    End Property

    Public Property TelefonoCliente As String
        Get
            Return telefono
        End Get
        Set(ByVal value As String)
            telefono = value
        End Set
    End Property

End Class