DISEÑO Y CODIFICACIÓN DEL FORMULARIO ALUMNO

DISEÑO Y CODIFICACIÓN DEL FORMULARIO ALUMNO

Public Class Form4

    Private Sub ALUMNOBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ALUMNOBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.ALUMNOBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.DATOSEDUCADataSet)

    End Sub

    Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
        'TODO: esta línea de código carga datos en la tabla 'DATOSEDUCADataSet.ALUMNO' Puede moverla o quitarla según sea necesario.
        Me.ALUMNOTableAdapter.Fill(Me.DATOSEDUCADataSet.ALUMNO)

    End Sub

    Private Sub ALUMNOBindingSource1BindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ALUMNOBindingSource1BindingNavigatorSaveItem.Click
        Me.Validate()
        Me.ALUMNOBindingSource1.EndEdit()
        Me.TableAdapterManager1.UpdateAll(Me.DATOSEDUCADataSet1)

    End Sub

    Private Sub Form4_Load_1(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 'DATOSEDUCADataSet1.ESPECIALIZACION' Puede moverla o quitarla según sea necesario.
        Me.ESPECIALIZACIONTableAdapter.Fill(Me.DATOSEDUCADataSet1.ESPECIALIZACION)
        'TODO: esta línea de código carga datos en la tabla 'DATOSEDUCADataSet1.MATERIA' Puede moverla o quitarla según sea necesario.
        Me.MATERIATableAdapter.Fill(Me.DATOSEDUCADataSet1.MATERIA)
        'TODO: esta línea de código carga datos en la tabla 'DATOSEDUCADataSet1.ALUMNO' Puede moverla o quitarla según sea necesario.
        Me.ALUMNOTableAdapter1.Fill(Me.DATOSEDUCADataSet1.ALUMNO)

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Visible = False
        Form1.Visible = True
    End Sub

    Private Sub ComboBox3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox3.SelectedIndexChanged
        MATERIATextBox1.Text = Val(ComboBox3.SelectedValue)
    End Sub

    Private Sub ComboBox4_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox4.SelectedIndexChanged
        ESPECIALIZACIONTextBox1.Text = Val(ComboBox4.SelectedValue)
    End Sub

    
End Class