Documentoaltas

COLEGIO NACIONAL DE EDUCACIÓN
PROFESIONAL TÉCNICA DEL ESTADO DE
TLAXCALA.
PLANTEL CONALEP ZACUALPAN 101
MODULO:
ELABORACIÓN Y MANTENIMIENTO DE SISTEMAS DE
INFORMACIÓN
PORTAFOLIO DE
EVIDENCIAS
Nombre del alumno: Romero Sánchez Guadalupe.
Grupo: 603
Carrera: informática
Profesor: Ing. Agustín Hernández delgado.
CICLO ESCOLAR 2014

ALTAS DE ALUMNOS
En este documento se presenta como dar de altas a alumnos, siguiendo una serie
de pasos para poder lograrlo. A continuación se presenta el código elaborado en
visual studio 2010 con el cual se podrá llevar a cabo la acción de dar de alta a
alumnos y sus datos.
1. Este código es del menú principal el cual nos va a permitir tener acceso a
diferentes secciones del programa desde dar de alta, realizar consultas y
salir.
Public Class Form2
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs)
Handles Button1.Click
Form1.Show() 'esta parte de codigo nos va a permitir tener acceso al
formulario de altas
End Sub
Form3.Show() ' este codigo nos va a mandar al formulario de consultas
End Sub
Private Sub Form2_Load(sender As System.Object, e As System.EventArgs)
Handles MyBase.Load
End Sub
End 'al seleccionar este boton nos va a permitir salir del programa
End Sub
End Class
Esta es la pantalla principal del
Programa.

2. El siguiente código es nos va permitir buscar una matrícula, si esta existe
no se podrá realizar la acción de dar de alta, de lo contrario se tienen que
insertar los datos para dar de alta.
Public Class Form1
Private Sub Alta_alumnosBindingNavigatorSaveItem_Click(sender As
System.Object, e As System.EventArgs) Handles
Alta_alumnosBindingNavigatorSaveItem.Click
Me.Validate()
Me.Alta_alumnosBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.SICOHEDataSet)
End Sub
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs)
Handles MyBase.Load
'TODO: esta línea de código carga datos en la tabla
'SICOHEDataSet.alta_alumnos' Puede moverla o quitarla según sea necesario.
Me.Alta_alumnosTableAdapter.Fill(Me.SICOHEDataSet.alta_alumnos)
IdTextBox.Enabled = False 'Todos los campos de la tabla se deshabilitan en
el formulario
IdTextBox.Visible = False
EspecialidadTextBox.Enabled = False
EspecialidadTextBox.Visible = False
MatriculaTextBox.Enabled = False
MatriculaTextBox.Visible = False
NombreTextBox.Enabled = False
NombreTextBox.Visible = False
Ap_patTextBox.Enabled = False
Ap_patTextBox.Visible = False
Ap_matTextBox.Enabled = False
Ap_matTextBox.Visible = False
GrupoTextBox.Enabled = False
GrupoTextBox.Visible = False
TurnoTextBox.Enabled = False
TurnoTextBox.Visible = False
End Sub
Dim mitabla As DataTable = SICOHEDataSet.alta_alumnos 'se crea una tabla
de datos
Dim cfilas As DataRowCollection = mitabla.Rows
Dim nuevafila As DataRow

Dim i As Integer
Dim c1 As String
Dim c2 As String
Dim res As Boolean
Dim n As Integer
Dim bandera As Boolean
n = Alta_alumnosBindingSource.Count 'SE LE ASIGNA EL NUMERO DE
REGISTROS A LA VARIABLE N
Alta_alumnosBindingSource.MoveFirst() 'pasa al siguiente registros de la
tabla
bandera = True
res = False
c1 = (RTrim(TextBox1.Text))
c2 = (RTrim(MatriculaTextBox.Text))
Do
If (Trim(MatriculaTextBox.Text) = Trim(TextBox1.Text)) Then 'si la
matricula es igual al textbox1
bandera = False ' la variable bandera va a ser falsa
Else
Alta_alumnosBindingSource.MoveNext() 'sino pasa al siguiente registro
i = i + 1
End If
Loop While (bandera = True And i <= n)
If (bandera = False) Then 'si la variable vandera es igual a falso
MsgBox("ERROR, MATRICULA YA REGISTRADA n PRESIONA LA
TECLA ENTERPARA CONTINUAR") 'entonces la matricula ya existe
Else
MsgBox("INTRODUCE") 'sino se tiene que ingresar datos
nuevafila = mitabla.NewRow
cfilas.Add(nuevafila)
Alta_alumnosBindingSource.MoveLast()
IdTextBox.Enabled = False
IdTextBox.Visible = False
EspecialidadTextBox.Enabled = True
EspecialidadTextBox.Visible = True
MatriculaTextBox.Enabled = False
MatriculaTextBox.Visible = True
NombreTextBox.Enabled = True
NombreTextBox.Visible = True
Ap_matTextBox.Enabled = True
Ap_matTextBox.Visible = True
Ap_patTextBox.Enabled = True
Ap_patTextBox.Visible = True

GrupoTextBox.Enabled = True
GrupoTextBox.Visible = True
TurnoTextBox.Enabled = True
TurnoTextBox.Visible = True
nuevafila(1) = UCase(TextBox1.Text)
nuevafila(2) = Val(NombreTextBox.Text)
nuevafila(3) = Val(Ap_patTextBox.Text)
nuevafila(4) = Val(Ap_matTextBox.Text)
nuevafila(5) = Val(EspecialidadTextBox.Text)
nuevafila(6) = Val(GrupoTextBox.Text)
nuevafila(7) = Val(TurnoTextBox.Text)
End If
End Sub
End
End Sub
If (SICOHEDataSet.HasChanges) Then ' nos va a permitir grabar los datos a
la base de datos
Me.Validate()
Me.Alta_alumnosBindingSource.EndEdit()
Me.Alta_alumnosTableAdapter.Update(Me.SICOHEDataSet)
MsgBox("DATOS GRABADOS")
End If
End Sub
Form2.Show() 'regresa al formulario 2 donde esta el menu principal
End Sub
End Class

En la pantalla se podrá visualizar de la siguiente manera:
3. De la siguiente forma va a funcionar el programa:
 Este es el menú principal del programa:
 Al seleccionar la opción de altas nos mandara al siguiente formulario.

Al insertarle una matrícula en el cuadro de texto, si es una existente
aparecerá un cuadro de dialogo como el siguiente:
 De ser una
matrícula nueva entonces aparecerá un letrero de la siguiente forma:
 Se le da clic en
el botón de aceptar y se ingresan los nuevos datos para dar de alta al
alumno, habilitando todos los campos a excepción de matrícula y
ocultando el campo de
ID.

 Se llenan los campos faltantes en el formulario.
 Se selecciona el botón de GRABAR:
 Y aparecerá un cuadro de dialogo con lo siguiente:

 Después de puede seleccionar el botón de SALIR para salir
automáticamente del programa o REGRESAR para ir al menú principal:
 En la base de datos elaborada en Access se podrá visualizar el nuevo
registro:
 De esta forma se puede dar de alta un alumno en la base de datos.

Documentoaltas

Más contenido relacionado

La actualidad más candente

Destacado

Similar a Documentoaltas

Último

Documentoaltas