Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Visual Basic.NET » Como registrar quien inicia sesion con fecha y saber quien modifica

Visual Basic.NET - Como registrar quien inicia sesion con fecha y saber quien modifica

Volver
Nuevo Tema
<<>>
 
Vista:
Imágen de perfil de Ivan
Val: 3
Ha disminuido su posición en 8 puestos en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Como registrar quien inicia sesion con fecha y saber quien modifica

Publicado por Ivan (2 intervenciones) el 04/03/2019 20:17:19
Hola compañeros espero y se encuentren bien, como parte de mi servicio social en el lugar donde lo elaboro me piden hacer un proyecto de control y recepción de muestras para su certificación.

Bien, este sistema lo estoy elaborando en visual studio 2012 enlazado a una base de datos en SQL SERVER.

Elabore mi form de usuarios con permisos y sus contraseñas, pero quiero saber como puedo registrar cuando inician sesion, tengo una tabla en mi base de datos que se llama registrologin, cuenta con fecha y el id del usuario.
de igual forma tengo una tabla de registromuestra, que contiene el id de la muestra, la fecha y el id del usuario.

realmente no se como elaborarlo, hasta un punto pense en crear una variable donde se almacene el id del usuario y esta variable usarla en otros forms para introducirla en los campos de otras tablas.

pero no se como asignarle a la variable el id del usuario que inicia.


Agradezco de antemano su tiempo y atención.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Como registrar quien inicia sesion con fecha y saber quien modifica

Publicado por Nacho (56 intervenciones) el 05/03/2019 11:53:59
Todo eso lo guarda el servidor mssql. Quién se conecta se guarda en una base de datos del sistema y devuelve datos el procedimiento sp_who y todos los comandos sql ejecutados en el archivo ldf.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de giancarlo
Val: 377
Bronce
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Como registrar quien inicia sesion con fecha y saber quien modifica

Publicado por giancarlo (488 intervenciones) el 13/03/2019 00:49:21
Sobre el inicuo sesion, te refieres al inicio de sesion a tu siatena cieeto? Como lo haces? Procesimieto almacenado o código directamente?

Si usas un procedinienti almacenado, deapues de la validación quewxista el usuario agregas un insert into a la tabla de sesiones, paea saber la hora,pones getdate() algo asi

Verificación que exista el usuario y clave......
Insert into tabla(fechahora, sesion)values(getdate(),@usuario)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Ivan
Val: 3
Ha disminuido su posición en 8 puestos en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Como registrar quien inicia sesion con fecha y saber quien modifica

Publicado por Ivan (2 intervenciones) el 13/03/2019 02:13:48
gracias por sus comentarios chicos, el código que manejo lo encontré en un tutorial por internet, lo adapte y funciono acorde a mis necesidades.

la consulta ya estaba hecha, solo hacia falta darle el valor del id a la alta y era todo, aqui mi codigo:


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
Try
    If TBUSER.Text <> "" Then
        If TBPASS.Text <> "" Then
            Using c As New SqlConnection(ruta)
                Dim exe As New SqlCommand("select * from Usuario where usuario='" & TBUSER.Text & "'", c)
                c.Open()
                Dim l As SqlDataReader = exe.ExecuteReader
                If l.HasRows = True Then
                    While l.Read
                        If TBUSER.Text = Trim(l(1)) And TBPASS.Text = Trim(l(2)) And Trim(l(3)) = 1 Then
                            Me.Hide()
                            Menú.Show()
                            Menú.Baja.Enabled = True
                            Menú.Usuarios.Enabled = True
                            Menú.Baja.Show()
                            Menú.Usuarios.Show()
                            CFamilia.EliminarB.Visible = True
                            tbint.Text = l(0)
                            Dim u As New Registro_Login
                            u.id_registro = TBR.Text
                            u.fecha = DateTime.Now.ToString("G")
                            u.hora = tiempo
                            u.dni_usuario = tbint.Text
                            k.Registro_Login.InsertOnSubmit(u)
                            k.SubmitChanges()
                        ElseIf TBUSER.Text = Trim(l(1)) And TBPASS.Text = Trim(l(2)) And Trim(l(3)) = 2 Then
                            Me.Hide()
                            Menú.Show()
                            Menú.Baja.Enabled = False
                            Menú.Usuarios.Enabled = False
                            Menú.Baja.Hide()
                            Menú.Usuarios.Hide()
                            tbint.Text = l(0)
                            Dim u As New Registro_Login
                            u.id_registro = TBR.Text
                            u.fecha = DateTime.Now.ToString("G")
                            u.dni_usuario = tbint.Text
                            k.Registro_Login.InsertOnSubmit(u)
                            k.SubmitChanges()
                        Else
                            MsgBox("Contraseña incorrecta", MsgBoxStyle.Information, "Incorrecto")
                            TBPASS.Clear()
                        End If
                    End While
                Else
                    MsgBox("No existe el usuario", MsgBoxStyle.Critical, "Atención")
                    TBUSER.Clear()
                    TBPASS.Clear()
                End If
            End Using
        Else
            MsgBox("Escriba la contraseña", MsgBoxStyle.Critical, "Atención")
        End If
    Else
        MsgBox("Escriba su Usuario", MsgBoxStyle.Critical, "Atención")
    End If
Catch ex As Exception
    MsgBox(ex.Message)
End Try
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar