Practica

COLEGIO DE EDUCACIÓN PROFESIONAL TÉCNICA DEL
ESTADO DE TLAXCALA
PLANTEL CONALEP ZACUALPAN 101
Docente: Ing. Agustín Hernández Delgado.
Modulo: Elaboración y mantenimiento de sistemas de
información.
Proyecto: Formulario de Altas.
Alumno: Israel Moreno Serrano.
Especialidad: Informática.
Grupo: 603
Fecha: 03/05/2014

Public Class Form2
Private Sub AltasBindingNavigatorSaveItem_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles AltasBindingNavigatorSaveItem.Click
Me.Validate()
Me.AltasBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.ParaescolarDataSet)
End Sub
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
'TODO: esta línea de código carga datos en la tabla
'ParaescolarDataSet.altas' Puede moverla o quitarla según sea necesario.
Me.AltasTableAdapter.Fill(Me.ParaescolarDataSet.altas)
MatriculaTextBox.Enabled = False
MatriculaTextBox.Visible = False
Nombre_compTextBox.Enabled = False
Nombre_compTextBox.Visible = False
GrupoTextBox.Enabled = False
GrupoTextBox.Visible = False
EspecialidadTextBox.Enabled = False
EspecialidadTextBox.Visible = False
Nom_paraescolarTextBox.Enabled = False
Nom_paraescolarTextBox.Visible = False
Nom_profTextBox.Enabled = False
Nom_profTextBox.Visible = False
Fech_inicioDateTimePicker.Enabled = False
Fech_inicioDateTimePicker.Visible = False
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim mitabla As DataTable = ParaescolarDataSet.altas
Dim cfilas As DataRowCollection = mitabla.Rows
Dim nuevafila As DataRow
Dim bandera As Boolean
bandera = True
Dim i, n As Integer
Dim RESU As Boolean
Dim C1 As String
Dim C2 As String
n = AltasBindingSource.Count
i = 1
AltasBindingSource.MoveFirst()
C1 = UCase(RTrim(TextBox1.Text))
C2 = UCase(RTrim(Nombre_compTextBox.Text))
n = AltasBindingSource.Count
Dim tamaño As Integer
tamaño = AltasBindingSource.Count
i = 1
If (tamaño = 0) Then
Comentado [IM1]: La función de estas líneas de código es
ocultar y deshabilitar el contenido de los TextBox al iniciar el
formulario.
Comentado [IM2]: BOTÓN “BUSCAR”
Su función es realizar una búsqueda en la tabla especificada
y comparar los datos ingresados.
Comentado [IM3]: Aquí se manda a llamar a la base de
datos donde se encuentra la tabla en la cual se realizara el
registro.

MsgBox("tabla vacia")
Else
Do
If (Trim(MatriculaTextBox.Text) = Trim(TextBox1.Text)) Then
bandera = False
Else
AltasBindingSource.MoveNext()
i = i + 1
End If
Loop While (bandera = True And i <= n)
End If
If (bandera = False) Then
MatriculaTextBox.Enabled = False
MatriculaTextBox.Visible = True
Nombre_compTextBox.Enabled = False
Nombre_compTextBox.Visible = True
GrupoTextBox.Enabled = False
GrupoTextBox.Visible = True
EspecialidadTextBox.Enabled = False
EspecialidadTextBox.Visible = True
Nom_paraescolarTextBox.Enabled = False
Nom_paraescolarTextBox.Visible = True
Nom_profTextBox.Enabled = False
Nom_profTextBox.Visible = True
Fech_inicioDateTimePicker.Enabled = False
Fech_inicioDateTimePicker.Visible = True
MsgBox("Matricula ya registrada")
Else
MsgBox("intruduce")
nuevafila = mitabla.NewRow()
cfilas.Add(nuevafila)
AltasBindingSource.MoveLast()
MatriculaTextBox.Enabled = True
MatriculaTextBox.Visible = True
Nombre_compTextBox.Enabled = True
Nombre_compTextBox.Visible = True
GrupoTextBox.Enabled = True
GrupoTextBox.Visible = True
EspecialidadTextBox.Enabled = True
EspecialidadTextBox.Visible = True
Nom_paraescolarTextBox.Enabled = True
Nom_paraescolarTextBox.Visible = True
Nom_profTextBox.Enabled = True
Nom_profTextBox.Visible = True
Fech_inicioDateTimePicker.Enabled = True
Fech_inicioDateTimePicker.Visible = True
nuevafila(1) = UCase(TextBox1.Text)
nuevafila(2) = UCase(Nombre_compTextBox.Text)
nuevafila(3) = Val(GrupoTextBox.Text)
nuevafila(4) = UCase(EspecialidadTextBox.Text)
nuevafila(5) = UCase(Nom_paraescolarTextBox.Text)
nuevafila(6) = UCase(Nom_profTextBox.Text)
Comentado [IM4]: Ahora la bandera se cambiara a falso.
Comentado [IM5]: La función de esta sentencia de control
es comparar la matricula ingresada, si esta matricula existe
en la base de datos nos mostrara un mensaje de que la
matricula ya esta registrada.
Comentado [IM6]: Se enlaza la tabla de la base de datos.
Comentado [IM7]: Esta línea de código realiza la función
de agregar una nueva fila a la tabla donde se ingresarán los
datos.
Comentado [IM8]: En esta parte se muestran y se
habilitan los TextBox para poder ingresar los datos.

nuevafila(7) = Fech_inicioDateTimePicker.Value
End If
End Sub
If (ParaescolarDataSet.HasChanges) Then
Me.Validate()
Me.AltasBindingSource.EndEdit()
Me.AltasTableAdapter.Update(Me.ParaescolarDataSet)
MsgBox("Grabado")
End If
End Sub
End
End Sub
End Class
CAPTURAS DE LA PRACTICA
Comentado [IM9]: Su función de estas líneas es ordenar
los datos que fueron ingresados en sus respectivas filas.
Comentado [IM10]: Si la matricula que fue ingresada no
existe en la tabla de la base de datos, entonces se mostrara
un mensaje indicando “introducir datos”.
Comentado [IM11]: BOTÓN “GUARDAR”
Su función es guardar en la tabla los datos ingresados.
Comentado [IM12]: Esta sentencia realiza la función de
guardar los datos y muestra un mensaje confirmando que
han sido guardados.
Comentado [IM13]: BOTÓN “SALIR”
Cierra el formulario.
Comentado [IM14]: Al ingresar una matricula existente
nos muestra un mensaje de que ya esta registrada y no
podremos ingresar datos.

Comentado [IM15]: Se ha ingresado una matricula que no
existe en la tabla de la base de datos, entonces se muestra
un mensaje que nos indica introducir datos.
Se habilitaran los cuadros de texto para poder ingresar
información.
Comentado [IM16]: Al ingresar los datos y dar click en el
botón guardar nos saldrá un mensaje confirmando que los
datos han sido guardados.

Comentado [IM17]: Comprobamos que lo que ingresamos
este en la tabla.

Practica

Más contenido relacionado

La actualidad más candente

Destacado

Similar a Practica

Practica