Colegio Nacional de Educación Profesional Técnica del Estado de
Chihuahua
Elaboración y Mantenimiento de Sistemas de la Información
Practica#6
Generación de Códigos
Jesús Manuel Silva
Grupo: 6101-I
Matricula: 080260779-6
Objetivo: terminar con la codificación del sistema de información.
Material:
Reportes
Sistema de Información
Desarrollo:
1. Codificar los botones faltantes
2. Realizar el paso 4 del manual del sistema (formulario + código)
3. Probar que el sistema funcione correctamente
Formularios de selección de codigo
Public Class Form1
Private Sub RadioButton1_CheckedChanged(ByVal sender As
[Link], ByVal e As [Link]) Handles
[Link]
x = 2
End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As
[Link], ByVal e As [Link]) Handles
[Link]
x = 1
End Sub
Private Sub Button1_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
[Link]()
[Link]()
End Sub
End Class
Formulario para registrar a un nuevo usuario
Public Class Registro
Dim dt As New DataTable
Dim cn As New
[Link]("Provider=[Link].4.0;DataSource=C:\Sis
tema\Sistema\[Link]")
Private Sub Registro_Load(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
If (x = 2) Then
[Link] = ("Welcome to the registration of a new
account")
[Link] = ("Name")
[Link] = ("Last name")
[Link] = ("Mother's maiden name")
[Link] = ("Address")
[Link] = ("Birth date")
[Link] = ("Account Name")
[Link] = ("Password")
[Link] = ("Register")
Else
End If
End Sub
Private Sub Button1_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
[Link]()
Dim GuardarDatos As String = "Insert Into
NuevosRegistros(Nombre,ApellidoM,ApellidoP,Domicilio,FechaNac,NombreCuent
a,Contraseña)" & " Values ('" & [Link] & "','" & [Link] &
"', '" & [Link] & "','" & [Link] & "','" & [Link] &
"','" & [Link] & "','" & [Link] & "')"
Dim dataAdapter As New [Link](GuardarDatos, cn)
[Link](dt)
If (x = 2) Then
MsgBox("The account was created correctly")
Else
MsgBox("La cuenta se creo correctamente")
End If
[Link]()
[Link]()
[Link]()
[Link]()
End Sub
End Class
Formulario para registrar a un nuevo trabajador
Public Class Agregar
Dim dt As New DataTable
Dim cn As New
[Link]("Provider=[Link].4.0;DataSource=C:\Sis
tema\Sistema\[Link]")
Private Sub Button1_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
[Link]()
Dim GuardarDatos As String = "Insert Into
Altas(Nombre,ApellidoM,ApellidoP,Edad,SerieUnica,Telefono,Fechanac,Lugarn
ac,MotivoAlta)" & " Values ('" & [Link] & "','" & [Link] &
"', '" & [Link] & "','" & [Link] & "','" & [Link] &
"','" & [Link] & "','" & [Link] & "','" & [Link] &
"','" & [Link] & "','" & [Link] & "')"
Dim dataAdapter As New [Link](GuardarDatos, cn)
[Link](dt)
If (x = 2) Then
MsgBox("The account was created correctly")
Else
MsgBox("Data successfully added")
End If
[Link]()
[Link]()
[Link]()
End Sub
End Class
Formulario de administrador, en el cual realizara tareas de modificacion, agregacion
y eliminacion de registros de datos (aun en codificacion)
Public Class Administrador
Dim dt As New DataTable
Dim cn As New
[Link]("Provider=[Link].4.0;DataSource=C:\Sis
tema\Sistema\[Link]")
Private Sub Button4_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
[Link]()
End Sub
Private Sub Administrador_Load(ByVal sender As [Link], ByVal e
As [Link]) Handles [Link]
[Link] = Name
If (x = 2) Then
[Link] = ("Welcome")
[Link] = ("Name")
[Link] = ("Modify")
[Link] = ("Add")
[Link] = ("Delete")
[Link] = ("Exit")
Else
End If
End Sub
Private Sub Button2_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
[Link]()
End Sub
Private Sub Button3_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
MsgBox("Seguro que desea continuar", [Link])
[Link]()
refrescar()
actualiza()
End Sub
End Class
