Seguridad Usuarios

[vsuarez3]

Hola!

Quisiera saber cómo puedo asignar permisos a usuarios, a determinadas secciones de la aplicación. Que en caso de que no tenga acceso, simplemente le avise al usuario que no tiene acceso.

La idea que tengo es la de asociar el usuario a la funcion descrita en la base de datos. Pero no se como hacerlo desde VB.NET o C#.

Algún ejemplo?.

[jorgelig]

Lo mas sencillo es guardar un campo llamado perfil en la tabla donde tienes los usuarios y contraseñas, cuando hagas el login simplemente guardas una variable de sesion con el perfil que tiene el usuario; despues en cada form checas la variable de session donde guardaste el perfil y con un if determinas si puede accesar o no.

[Peterpay]

Windows o Web?

Web puedes usar los mecanismos de autenticacion del framework, acceso basado en formularios, credenciales de windows, active directory etc etc etc.

Window Code Access Security , Role Based Security asi podrias limitar el uso de funciones o pantallas solo ha cierto rango de usuarios definidos en tu grupo de trabajo.

[vsuarez3]

Iniciado por Peterpay

Windows o Web?

Web puedes usar los mecanismos de autenticacion del framework, acceso basado en formularios, credenciales de windows, active directory etc etc etc.

Window Code Access Security , Role Based Security asi podrias limitar el uso de funciones o pantallas solo ha cierto rango de usuarios definidos en tu grupo de trabajo.

Es una aplicacion windows. Lo que intento hacer es, que cuando el usuario ingrese al sistema, solo se habiliten las opciones a las que este tiene acceso, definido por roles o perfiles.

[asastrem]

Fijate que tengo una pequeña pantalla de acceso, en la cual manejo dos combobox, una de empresa y otra de area, el usuario selecciona que es lo que quiere consultar, 1 que empresa 2 que area, manejo una tabla en sql de usuario y eso es todo...

Private Function CompUsu(ByVal Emp As String, ByVal Are As String, ByVal Acceso As String, ByVal clave As String) As Boolean

Dim cnn As SqlConnection = Nothing
Try
cnn = New SqlConnection(CadenaCnn)
cnn.Open()
Dim sel As New System.Text.StringBuilder
sel.Append("SELECT COUNT(*) FROM AsigUsu ")
sel.Append("WHERE IdEmp=@Emp and IdAre=@Are and Acceso=@Acceso and Clave=@Clave")
Dim cmd As New SqlCommand(sel.ToString, cnn)
cmd.Parameters.Add("@Emp", SqlDbType.Int)
cmd.Parameters.Add("@Are", SqlDbType.Int)
cmd.Parameters.Add("@Acceso", SqlDbType.NChar, 10)
cmd.Parameters.Add("@Clave", SqlDbType.NChar, 10)
cmd.Parameters("@Emp").Value = Emp
cmd.Parameters("@Are").Value = Are
cmd.Parameters("@Acceso").Value = Acceso
cmd.Parameters("@Clave").Value = clave

Dim t As Integer = CInt(cmd.ExecuteScalar())
cnn.Close()
If t = 0 Then
Return False
End If

Catch ex As Exception
MessageBox.Show("ERROR al conectar a la base de datos: " & vbCrLf & _
ex.Message, "Comprobar usuario", MessageBoxButtons.OK, _
MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1)
Return False
Finally
If Not cnn Is Nothing Then
cnn.Dispose()
End If
End Try
Return True
End Function


esta función me la paso el GRAN GUILLE...
solo la adapte a mis necesidades