\' Gambas class file
Public usuarioActual As Usuario
Public recursoActual As Irecurso
Public usu1 As New Usuario
Public usu2 As New Usuario
Public usu3 As New Usuario
Public recurso1 As New Irecurso
Public recurso2 As New Irecurso
Public controlAccesoContabilidadRecurso As New RecursoContabilidadProxy
Public controlAccesoAlmacenRecurso As New RecursoAlmacenProxy
Public Sub Form_Open()
\'Defino niveles para poder acceder a los Recursos
controlAccesoContabilidadRecurso.setnivel(4) \' El recurso que gestiona (la contabilidad) este objeto solo será visible para nivel 4
controlAccesoAlmacenRecurso.setnivel(2) \' El recurso que gestiona (la contabilidad) este objeto solo será visible para nivel 4
\'usuarios
usu1.nombre = "Enrique: El jefe que es gerente"
usu1.nivelAcceso = 4
usu2.nombre = "Pedro (Peón de almacén)"
usu2.nivelAcceso = 2
usu3.nombre = "Juan: comprador de articulos"
usu3.nivelAcceso = 0
\'relleno los combobox...
ComboBoxUsuario.Add("usu1")
ComboBoxUsuario.Add("usu2")
ComboBoxUsuario.Add("usu3")
ComboBoxUsuario.Index = 0
ComboBoxUsuario_Change()
\'recursos...
ComboBoxRecurso.Add("Almacen")
ComboBoxRecurso.Add("Contabilidad")
ComboBoxRecurso.Index = 0
ComboBoxRecurso_Change()
\'centro el formulario...
Me.Center()
End
Public Sub ComboBoxUsuario_Change()
\'cambio usuario segun el valor del combobox
Select Case ComboBoxUsuario.Index
Case 0
usuarioActual = usu1
Case 1
usuarioActual = usu2
Case 2
usuarioActual = usu3
End Select
\'Enlazo al usuario actual con el que tiene el Proxy
controlAccesoAlmacenRecurso.setusu(usuarioActual)
controlAccesoContabilidadRecurso.setusu(usuarioActual)
\'muestro datos
LabelNombre.text = "Nombre: " & usuarioActual.nombre
Labelnivel.text = "Nivel de acceso: " & Str$(usuarioActual.nivelAcceso)
End
Public Sub ComboBoxRecurso_Change()
\'cambio usuario segun el valor del combobox
Select Case ComboBoxRecurso.Index
Case 0
recursoActual = controlAccesoAlmacenRecurso
Case 1
recursoActual = controlAccesoContabilidadRecurso
End Select
End
Public Sub ComboBoxUsuario_Click()
ComboBoxUsuario_Change()
End
Public Sub ComboBoxRecurso_Click()
ComboBoxRecurso_Change()
End
Public Sub ButtonAcceder_Click()
TextLabelInformacion.text = recursoActual.acceder()
End
Public Sub ToolButtonSalir_Click()
Me.Close()
End