none
Habilitar Botones Menustrip RRS feed

  • Pregunta

  • Tengo un form de inicio donde tengo el siguiente menu 

    Tengo una Tabla Llamada Permisos Con los Campos de (ID,TIPO_USUARIO,NOMBRE,VENTANA,PERMISO) en la columna VENTANA esta guardado el nombre de los submenu es decir (Iniciar Sesión, Cerrar Sesión, Usuarios, Archivos) y en la columna PERMISO se guarda si el permiso es True o false, mi idea es que al abrir el form de inicio recorrer cada uno de estos items  (Iniciar Sesión, Cerrar Sesión, Usuarios, Archivos) y compararlos con la tabla Permisos que tengo en SQL e ir habilitando o desabilitando esos items

    estoy intentando con el siguiente codigo, pero no logro dar con mi objetivo 

    Private Sub Validar_Permisos()
            Dim conexion As New SqlConnection("data source=(local);initial catalog=DatosInventario;integrated security=true")
            conexion.Open()
            Dim command As New SqlCommand("SELECT NOMBRE,PERMISO FROM Permisos WHERE USUARIO=@usuario", conexion)
            'añadimos los parametros
            command.Parameters.AddWithValue("@usuario", "ADMINISTRADOR")
            Dim DAPermisos As New SqlDataAdapter(command)
            Dim DTPermisos As New DataTable()
            DAPermisos.Fill(DTPermisos)
    
            'intento comparar el valor de el permis que puede ser true o fals, que esta en tabla Pemrmisos 
    
            For Each elementos As ToolStripMenuItem In Me.MenuStrip.Items
                If elementos.Text = DTPermisos.Rows("NOMBRE").tostring Then
                    elementos.Enabled = DTPermisos.rows("PERMISO").tostring 
                End If
            Next
    
    
            'Cerramos conexion
            conexion.Close())
    Nose si lo que este haciendo este bien, ya que no consigo que se habilite o deshabilite ningun boton 

    • Cambiado Enrique M. Montejo miércoles, 3 de mayo de 2017 6:43 Pregunta relacionada con controles de Windows Forms.
    viernes, 28 de abril de 2017 17:06