Scribd
Upload
109 views8 pages

Sistema de Información II: Laboratorio 8

The document discusses code for a user access form application in Visual Basic. It includes code to connect to a database, load user data into dropdown and text boxes, validate login credentials, and direct the user to different forms based on user type. It also includes code for a user management form that allows inserting, updating, deleting and viewing user records from a database table.

Uploaded by

Sergio Callizaya
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd
109 views8 pages

Sistema de Información II: Laboratorio 8

The document discusses code for a user access form application in Visual Basic. It includes code to connect to a database, load user data into dropdown and text boxes, validate login credentials, and direct the user to different forms based on user type. It also includes code for a user management form that allows inserting, updating, deleting and viewing user records from a database table.

Uploaded by

Sergio Callizaya
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd

Laboratorio 8 - Sistemas de Informacion II

Imports [Link] Public Class frmAcceso Dim sw1, sw2 As Integer Dim cargo Sub cargar_usuario() Dim MiDataSet As New DataSet()

lic. Julia Zenteno Zenteno 2-Avbril-2013 -

Private Sub btnIngresar_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link]

[Link](MiDataSet, "TUSUARIO") Dim row [Link]() For Each row In [Link](0).Rows [Link](row(1).ToString()) Next [Link] = [Link](0).ToString() [Link]() End Sub

Dim Comando As New [Link]("SELECT * FROM TUSUARIO", CN)

salir:

Dim MiDataSet As New DataSet() Dim Comando As New [Link]("SELECT * FROM TUSUARIO", CN) [Link](MiDataSet, "TUSUARIO") For Each rowi In [Link](0).Rows If [Link] = rowi(1).ToString() Then If [Link] = rowi(4).ToString() Then sw1 = 1 cargo = rowi(5).ToString() usuario = [Link] GoTo salir End If End If Next

If sw1 = 1 Then If cargo = "OPERADOR" Then [Link] = False [Link]() [Link]() Dim fe As New frmPrincipal [Link]() End If If cargo = "ANALISTA" Then [Link] = False [Link]() [Link]() Dim fp As New frmUsuario [Link]() End If Else [Link]("Es incorrecto el Password - !! VUELVA A ESCRIBIR!!") End If [Link]() End Sub Private Sub frmAcceso_Load(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] ConectaBD() cargar_usuario() [Link] = True End Sub [Link]() End Sub

Private Sub btnLimpiar_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link]

[Link] = False End End Sub Private Sub Timer1_Tick(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] If [Link] < [Link] - 300 Then [Link] = [Link] + 100 Else [Link] = 100 End If End Sub End Class

Private Sub btnSalir_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link]

Laboratorio 8 - Sistemas de Informacion II

lic. Julia Zenteno Zenteno 2-Avbril-2013 -

Imports [Link] Imports [Link] Public Class frmUsuario Dim imagen As String Dim sql As String Dim imagen1 As Bitmap Private DS As DataSet Private FILA As Integer

limpiar() End Sub Sub limpiar() [Link]() [Link]() [Link]() [Link]() [Link]() [Link] = "" [Link]() [Link]() [Link] = [Link](rutaImagen & "[Link]") End Sub Sub guardar() ConectaBD() Dim rs As New [Link]("insert into TUsuario (cod_Usuario,Nombre,Paterno,Materno,Clave,Cargo,Imagen) values ('" & [Link] & _ "','" & [Link] & "','" & [Link] & "','" & [Link] & "','" & _ [Link] & "','" & [Link] & "','" & [Link] & "')", CN) [Link]() MsgBox("usuario guardado en la base de datos ", [Link], "Usuario Nuevo") [Link]() End Sub Sub CargaDatos() Try sql = "Select cod_Usuario as [Codigo de Usuario], Nombre, Paterno as [Apellido Paterno], Materno as [Apellido Materno], Cargo, imagen as [Ruta de Imagen] from TUsuario" DA = New OleDbDataAdapter(sql, CN) Dim CB As OleDbCommandBuilder = New OleDbCommandBuilder(DA)

Private Sub btnLimpiar_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link]

Laboratorio 8 - Sistemas de Informacion II

lic. Julia Zenteno Zenteno 2-Avbril-2013 -

DS = New DataSet [Link](DS, "TUsuario") Dim DR As DataRow DR = [Link]("TUsuario").Rows(FILA) [Link] = DR("Codigo de Usuario") [Link] = DR("Nombre") [Link] = DR("Apellido Paterno") [Link] = DR("Apellido Materno") [Link] = DR("Cargo") imagen = DR("Ruta de Imagen") [Link] = imagen [Link] = [Link](DR("Ruta de Imagen")) [Link] = [Link]("TUsuario") [Link]() Catch ex As Exception [Link]([Link]) End Try [Link]() End Sub Sub actualizadatos() Try Dim da As New OleDbDataAdapter("select * from TUsuario", CN) Dim ds As New DataSet [Link](ds, "TUsuario") [Link] = [Link]("TUsuario") Catch ex As Exception [Link]([Link]) End Try End Sub FILA = [Link]("TUsuario").[Link] - 1 CargaDatos() End Sub

Private Sub btnUltimo_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link]

Private Sub btnAnterior_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link]

If FILA = ([Link]("TUsuario").[Link] - 1) Then [Link]("No hay Registro Siguiente", "Error", [Link], [Link]) Else FILA += 1 CargaDatos() End If End Sub If FILA = 0 Then [Link]("No hay RegistroAnterior", "Error", [Link], [Link]) Else FILA -= 1 CargaDatos() End If End Sub FILA = 0 CargaDatos() End Sub Private Sub txtImagen_Click(ByVal sender As Object, ByVal e As [Link]) Handles [Link] btnImagen_Click(sender, e) End Sub With OpenFileDialog1 .FileName = "" .CheckFileExists = True .Title = "Imagen del usuario..." .Filter = "archivos de imagen (*.jpg)|*.jpg" .ShowDialog() End With [Link] = imagen End Sub
Private Sub btnImagen_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] Private Sub btnPrimero_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link]

Private Sub btnSiguiente_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link]

Private Sub OpenFileDialog1_FileOk(ByVal sender As [Link], ByVal e As [Link]) Handles [Link]

imagen = [Link] [Link] = [Link](imagen)

Laboratorio 8 - Sistemas de Informacion II

lic. Julia Zenteno Zenteno 2-Avbril-2013 -

Private Sub btnCancelar_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link]

End Sub Private Sub frmUsuario_Load(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link] = usuario ConectaBD() CargaDatos() limpiar() FILA = 0 With (DataGridView1) .[Link] = [Link] .[Link] = [Link] .DataSource = [Link]("TUsuario") End With [Link] = True [Link]("ANALISTA") [Link]("OPERADOR") End Sub [Link]() [Link]() Dim fe As New frmPrincipal [Link]() End Sub guardar() CargaDatos() limpiar() End Sub

Private Sub btnGuardar_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link]

ConectaBD() Dim dr As OleDbDataReader Dim cmd As New [Link]("update TUsuario SET Nombre='" & [Link] & "',Paterno='" & [Link] & "',Materno='" _ & [Link] & "',Clave='" & [Link] & "',Cargo='" & [Link] & "',Imagen='" & imagen & "' where cod_Usuario='" & [Link] & "'", CN) MsgBox("se modificaron los datos satisfactoriamente") dr = [Link]() [Link]() [Link]() CargaDatos() limpiar() End Sub Private Sub btnEliminar_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] ConectaBD() Dim dr As OleDbDataReader If [Link] = " " Then Try MsgBox("<<!!ERROR!!>>ESCRIBA EL CODIGO") Catch ex As Exception MsgBox("ERROR AL REGISTRAR LOS DATOS") End Try Else dr = [Link]() [Link]() MsgBox("SE ELIMINO EL USUARIO") End If [Link]() actualizadatos() CargaDatos() limpiar() End Sub
Dim cmdr As New [Link]("delete from TUsuario where cod_Usuario='" & [Link] & "'", CN)

Private Sub btnModificar_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link]

[Link] = TimeOfDay [Link] = [Link] + "/" + [Link] + "/" + [Link] End Sub End Class

Private Sub TimerHora_Tick(ByVal sender As [Link], ByVal e As [Link]) Handles [Link]

Laboratorio 8 - Sistemas de Informacion II

lic. Julia Zenteno Zenteno 2-Avbril-2013 -

Public Class frmPrincipal Private Sub toolSalir_Click(ByVal sender As [Link], ByVal e As [Link]) [Link] = False End End Sub Dim fe As New frmEmpleado [Link]() End Sub End End Sub

Private Sub EmpleadoToolStripMenuItem_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link]

Private Sub SalirrToolStripMenuItem_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link]

Private Sub btnSalir_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link]

Private Sub btnEmpleado_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link]

[Link] = False End End Sub Dim fe As New frmEmpleado [Link]() End Sub

Imports [Link] Public Class frmEmpleado Inherits [Link] Private DS As DataSet Private FILA As Integer Private sw As Integer

Laboratorio 8 - Sistemas de Informacion II

lic. Julia Zenteno Zenteno 2-Avbril-2013 -

Sub CargaDatos() Try DA = New OleDbDataAdapter("Select * from TEmpleado", CN) Dim CB As OleDbCommandBuilder = New OleDbCommandBuilder(DA) DS = New DataSet [Link](DS, "TEmpleado") [Link]() Dim DR As DataRow DR = [Link]("TEmpleado").Rows(FILA) [Link] = DR("IdPersonal") [Link] = DR("nombre") [Link] = DR("apellidos") [Link] = DR("cargo") [Link] = DR("sueldo") [Link] = [Link]("TEmpleado") Catch ex As Exception [Link]([Link]) End Try End Sub Sub actualizadatos() Try Dim da As New OleDbDataAdapter("select * from TEmpleado", CN) Dim ds As New DataSet [Link](ds, "TEmpleado") [Link] = [Link]("TEmpleado") Catch ex As Exception [Link]([Link]) End Try End Sub Sub activabotones(ByVal x As Boolean) [Link] = x [Link] = Not x [Link] = x [Link] = Not x [Link] = x [Link] = x [Link] = Not x End Sub FILA = 0 CargaDatos() End Sub

Private Sub btnPrimero_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link]

Private Sub btnAnterior_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link]

Private Sub btnSiguiente_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link]

If FILA = 0 Then [Link]("No hay RegistroAnterior", "Error", [Link], [Link]) Else FILA -= 1 CargaDatos() End If End Sub If FILA = ([Link]("TEmpleado").[Link] - 1) Then [Link]("No hay Registro Siguiente", "Error", [Link], [Link]) Else FILA += 1 CargaDatos() End If End Sub FILA = [Link]("TEmpleado").[Link] - 1 CargaDatos() End Sub Sub InsertarNuevo() Dim dr As DataRow dr = [Link]("TEmpleado").NewRow dr(0) = [Link] dr(1) = [Link] dr(2) = [Link] dr(3) = [Link] dr(4) = [Link]
Private Sub btnUltimo_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link]

Laboratorio 8 - Sistemas de Informacion II

lic. Julia Zenteno Zenteno 2-Avbril-2013 -

End Sub

End Sub

End Sub

Private Sub btnNuevo_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link]

End

[Link]("TEmpleado").[Link](dr) [Link](DS, "TEmpleado") Sub EditarPersonal() Dim dr As DataRow dr = [Link]("TEmpleado").Rows(FILA) dr(1) = [Link] dr(2) = [Link] dr(3) = [Link] dr(4) = [Link] [Link](DS, "TEmpleado") Sub eliminarPersonal() Dim dr As DataRow dr = [Link]("TEmpleado").Rows(FILA) [Link]() Dim tb As DataTable tb = [Link]("TEmpleado").GetChanges([Link]) [Link](tb) [Link]("TEmpleado").AcceptChanges() [Link]() Sub LimpiarCajas() [Link]() [Link]() [Link]() [Link]() [Link]() [Link]() Sub

activabotones(False) LimpiarCajas() sw = 1 End Sub If sw = 1 Then

Private Sub btnGrabar_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] If [Link]("Grabar el Nuevo Registro?", "Nuevo Registro", [Link]) = [Link] Then

InsertarNuevo() End If End If If sw = 2 Then

Private Sub btnEliminar_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] If [Link]("Eliminars el Registro?", "Eliminar", [Link]) = [Link] Then

EditarPersonal() End If End If actualizadatos() activabotones(True) End Sub eliminarPersonal() actualizadatos() End If End Sub activabotones(False) sw = 2 End Sub

If [Link]("Modificar el Registro?", "Nuevo Registro", [Link]) = [Link] Then

Private Sub btnEditar_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link]

Private Sub btnCancelar_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link]

LimpiarCajas() CargaDatos() activabotones(True) [Link] = False End Sub

If [Link]("Saldrs del Registro de Empleados?", "Hasta Pronto...", [Link]) = [Link] Then '[Link]()

Private Sub btnCerrar_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link]

Laboratorio 8 - Sistemas de Informacion II

lic. Julia Zenteno Zenteno 2-Avbril-2013 -

[Link] = TimeOfDay [Link] = [Link] + "/" + [Link] + "/" + [Link] End Sub End Class Imports [Link] Imports [Link] Module ConectarBD Public CN As OleDbConnection Public DA As OleDbDataAdapter Public rutaImagen As String Public usuario As String Sub ConectaBD() Try

Private Sub TimerHora_Tick(ByVal sender As [Link], ByVal e As [Link]) Handles [Link]

[Link]() End If End Sub Private Sub frmEmpleado_Load(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] ConectaBD() CargaDatos() activabotones(True) FILA = 0 [Link] = [Link]("TEmpleado") [Link] = True End Sub

rutaImagen = "D:\MATERIASI2013\inf253\LABORATORIO\vbNetSeptimo\CEmpresaSeptimoVBNet\EmpresaVBNet\imagenes\"

CN = New OleDbConnection [Link] = "Provider=[Link].4.0;Data Source=|DataDirectory|\[Link]" [Link]() Catch ex As Exception End Try End Sub End Module
MsgBox("No se pudo conectar la base de datos ", [Link], "Conexion a la Base de Datos")

Ejercicio:
1. 2. 3. 4. Genere codigo para el campo IdPersonal de la tabla TEmpleado Cree backup de la base de datos [Link] Restaure la base de datos Valide los datos de entrada de los campos (como por ejemplo los datos de campos numericos no deben ingresar valores string)

Por ejemplo

You might also like