document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. \' Gambas class file
  2.  
  3. Public usuarioActual As Usuario
  4. Public recursoActual As Irecurso
  5. Public usu1 As New Usuario
  6. Public usu2 As New Usuario
  7. Public usu3 As New Usuario
  8. Public recurso1 As New Irecurso
  9. Public recurso2 As New Irecurso
  10.  
  11. Public controlAccesoContabilidadRecurso As New RecursoContabilidadProxy
  12. Public controlAccesoAlmacenRecurso As New RecursoAlmacenProxy
  13.  
  14. Public Sub Form_Open()
  15.  
  16.   \'Defino niveles para poder acceder a los Recursos
  17.   controlAccesoContabilidadRecurso.setnivel(4) \' El recurso que gestiona (la contabilidad) este objeto solo será visible para nivel 4
  18.   controlAccesoAlmacenRecurso.setnivel(2) \' El recurso que gestiona (la contabilidad) este objeto solo será visible para nivel 4
  19.  
  20.   \'usuarios
  21.   usu1.nombre = "Enrique: El jefe que es gerente"
  22.   usu1.nivelAcceso = 4
  23.  
  24.   usu2.nombre = "Pedro (Peón de almacén)"
  25.   usu2.nivelAcceso = 2
  26.  
  27.   usu3.nombre = "Juan: comprador de articulos"
  28.   usu3.nivelAcceso = 0
  29.  
  30.   \'relleno los combobox...
  31.   ComboBoxUsuario.Add("usu1")
  32.   ComboBoxUsuario.Add("usu2")
  33.   ComboBoxUsuario.Add("usu3")
  34.  
  35.   ComboBoxUsuario.Index = 0
  36.   ComboBoxUsuario_Change()
  37.  
  38.   \'recursos...
  39.   ComboBoxRecurso.Add("Almacen")
  40.   ComboBoxRecurso.Add("Contabilidad")
  41.  
  42.   ComboBoxRecurso.Index = 0
  43.   ComboBoxRecurso_Change()
  44.  
  45.   \'centro el formulario...  
  46.   Me.Center()
  47.  
  48. End
  49.  
  50. Public Sub ComboBoxUsuario_Change()
  51.   \'cambio usuario segun el valor del combobox
  52.  
  53.   Select Case ComboBoxUsuario.Index
  54.     Case 0
  55.       usuarioActual = usu1
  56.     Case 1
  57.       usuarioActual = usu2
  58.      
  59.     Case 2
  60.       usuarioActual = usu3
  61.   End Select
  62.   \'Enlazo al usuario actual con el que tiene el Proxy
  63.   controlAccesoAlmacenRecurso.setusu(usuarioActual)
  64.   controlAccesoContabilidadRecurso.setusu(usuarioActual)
  65.  
  66.   \'muestro datos
  67.   LabelNombre.text = "Nombre: " & usuarioActual.nombre
  68.   Labelnivel.text = "Nivel de acceso: " & Str$(usuarioActual.nivelAcceso)
  69.  
  70. End
  71.  
  72. Public Sub ComboBoxRecurso_Change()
  73.   \'cambio usuario segun el valor del combobox
  74.  
  75.   Select Case ComboBoxRecurso.Index
  76.     Case 0
  77.       recursoActual = controlAccesoAlmacenRecurso
  78.     Case 1
  79.       recursoActual = controlAccesoContabilidadRecurso
  80.   End Select
  81.  
  82. End
  83.  
  84. Public Sub ComboBoxUsuario_Click()
  85.  
  86.   ComboBoxUsuario_Change()
  87.  
  88. End
  89.  
  90. Public Sub ComboBoxRecurso_Click()
  91.  
  92.   ComboBoxRecurso_Change()
  93.  
  94. End
  95.  
  96. Public Sub ButtonAcceder_Click()
  97.  
  98.   TextLabelInformacion.text = recursoActual.acceder()
  99.  
  100. End
  101.  
  102. Public Sub ToolButtonSalir_Click()
  103.  
  104.   Me.Close()
  105.  
  106. End
');