06. Clases: Añadiendo Propiedades.

Vamos a añadir  varias propiedades a nuestras clases recien creadas.

Por cada campo que tiene la tabla, haremos una propiedad siguiendo este esquema:

'zona para definir las propiedades....                                                 PROPERTY Nombre AS Tipo PRIVATE hNombre AS Tipo .... .... 'zona para definir el acceso de lectura y escritura a las propiedades  PRIVATE FUNCTION Nombre_read() AS Tipo RETURN hNombre END   PRIVATE SUB Nombre_write(Valor AS Tipo) hNombre = Valor END .... ....

Nombre: vamos a nombrarlo como cada campo de la tabla

hNombre : sera una variable privada (solo lo usara la misma clase)

Tipo: aqui le tenemos que poner el tipo de dato (String, Integer, Float, etc)

Nos vamos a la clase Registro, y empazamos a crear estas propiedades:

'---------------------------- 'zona para definir las propiedades....                       '----------------------------                                   Property nif As String Private hnif As String Property nombre As String Private hnombre As String Property apellidos As String Private hapellidos As String Property telefono As String Private htelefono As String Property movil As String Private hmovil As String Property domicilio As String Private hdomicilio As String Property ruta_grafica As String Private hruta_grafica As String Property ruta_mini As String Private hruta_mini As String '------------------------------------------  'zona para definir el acceso de lectura y escritura a las propiedades  '------------------------------------------  Private Function ruta_mini_read() As String Return hruta_mini End Private Sub ruta_mini_write(Valor As String) hruta_mini = Valor End Private Function ruta_grafica_read() As String Return hruta_grafica End Private Sub ruta_grafica_write(Valor As String) hruta_grafica = Valor End Private Function domicilio_read() As String Return hdomicilio End Private Sub domicilio_write(Valor As String) hdomicilio = Valor End Private Function movil_read() As String Return hmovil End Private Sub movil_write(Valor As String) hmovil = Valor End Private Function telefono_read() As String Return htelefono End Private Sub telefono_write(Valor As String) htelefono = Valor End Private Function apellidos_read() As String Return hapellidos End Private Sub apellidos_write(Valor As String) hapellidos = Valor End Private Function nombre_read() As String Return hnombre End Private Sub nombre_write(Valor As String) hnombre = Valor End Private Function nif_read() As String Return hnif End Private Sub nif_write(Valor As String) hnif = Valor End

Nota:

Este proceso es muy mecánico, para hacerlo más rápido podeis usar esta pequeña herramienta CreadorClasesGambas3.gambas

Si quereis ver como esta hecha, podeis descargar el código fuente en:

CreadorClases-0.0.2.tar.gz

Tarea:

Para la clase Usuario, por cada campo de la tabla, hacer sus propiedades  correspondientes.