Manual del programador:

Men alumnos:
Imports System.Data.OleDb Public Class Formulario_Alumnos Dim dt As New DataTable Dim cn As New OleDb.OleDbConnection("Provider=Microsoft. ACE.OLEDB.12.0;Data Source=C:\Users\user\Desktop\CONTROL.accdb ") Dim fila As Integer Private Sub Refrescar() dt.Reset() fila = 0 Dim RefrescarDatos As String = "Select * From Alumnos" Dim dataAdapter As New OleDb.OleDbDataAdapter(RefrescarDatos, cn) dataAdapter.Fill(dt) Actualiza() dataAdapter.Dispose() End Sub Public Sub Actualiza() TextBox1.Text = CStr(dt.Rows(fila)("Matricula")) TextBox2.Text = CStr(dt.Rows(fila)("Nombre")) TextBox3.Text = CStr(dt.Rows(fila)("Paterno")) TextBox4.Text = CStr(dt.Rows(fila)("Materno")) TextBox5.Text = CStr(dt.Rows(fila)("Direccion")) TextBox6.Text = CInt(dt.Rows(fila)("Numgrupo")) End Sub Private Sub Formulario_Alumnos_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load dt.Reset() fila = 0 Dim RefrescarDatos As String = "Select * From Alumnos" Dim dataAdapter As New OleDb.OleDbDataAdapter(RefrescarDatos, cn) dataAdapter.Fill(dt) Actualiza() dataAdapter.Dispose() End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click Me.Hide() Consultas_Alumnos.Show() End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Me.Close() Altas_Alumnos.Show() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If (fila > 0 And fila <= dt.Rows.Count - 1) Then fila = fila - 1 Actualiza() Else MsgBox("Primer Registro Encontrado", MsgBoxStyle.Information, "Mensaje") End If

End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click If (fila >= 0 And fila < dt.Rows.Count - 1) Then fila = fila + 1 Actualiza() Else MsgBox("Ultimo Registro Encontrado", MsgBoxStyle.Information, "Mensaje") End If End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click If ((MsgBox("Desea Eliminar un Registro ? " + CStr(TextBox1.Text), MsgBoxStyle.OkCancel, "Mensaje")) = 1) Then Dim strSQL As String = "DELETE FROM Alumnos WHERE Matricula='" & CStr(TextBox1.Text) & "';" Dim dataAdapter As New OleDb.OleDbDataAdapter(strSQL, cn) dataAdapter.Fill(dt) Refrescar() Actualiza() dataAdapter.Dispose() Else MsgBox("No se ha Seleccionado Registro a Eliminar") End If End Sub Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click Me.Hide() Modificaciones.Show() End Sub Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click Me.Close() Form1.Show() End Sub End Class Altas alumnos: Imports System.Data.OleDb Public Class Altas_Alumnos Dim dt As New DataTable Dim fila As Integer = 0 Dim cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\user\Desktop\CONTROL.accdb")

Private Sub Altas_Alumnos_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click cn.Open() Dim GuardarDatos As String = " Insert into Alumnos(Matricula,Nombre,Paterno,Materno,Direc cion,Numgrupo)" & "Values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "')" Dim dataAdapter As New OleDb.OleDbDataAdapter(GuardarDatos, cn) dataAdapter.Fill(dt) MsgBox("Se Agrego registro Correctamente", MsgBoxStyle.Information, "Mensaje") ' Limpiar() dataAdapter.Dispose() cn.Close() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Close() Formulario_Alumnos.Show() End Sub End Class Consultas alumnos: Imports System.Data.OleDb Public Class Consultas_Alumnos Dim dt As New DataTable Dim fila As Integer = 0 Dim cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=C:\Users\user\Desktop\CONTROL.accdb") Public Sub Actualiza() TextBox1.Text = CStr(dt.Rows(fila)("Matricula")) TextBox2.Text = CStr(dt.Rows(fila)("Nombre")) TextBox3.Text = CStr(dt.Rows(fila)("Paterno")) TextBox4.Text = CStr(dt.Rows(fila)("Materno")) TextBox5.Text = CStr(dt.Rows(fila)("Direccion")) TextBox6.Text = CInt(dt.Rows(fila)("Numgrupo")) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click cn.Open() Dim strSQL As String = "Select * From Alumnos Where Matricula='" & CStr(TextBox1.Text()) & "';" Dim dataAdapter As New OleDb.OleDbDataAdapter(strSQL, cn) dt.Reset()

dataAdapter.Fill(dt) ' Limpiar() fila = 0 Actualiza() dataAdapter.Dispose() cn.Close() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Close() Formulario_Alumnos.Show() End Sub Private Sub Consultas_Alumnos_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub End Class

Modificacion alumnos: Imports System.Data.OleDb Public Class Modificaciones Dim dt As New DataTable Dim fila As Integer = 0 Dim cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0 ;Data Source=C:\Users\user\Desktop\CONTROL.accdb") Public Sub Actualiza() TextBox1.Text = CStr(dt.Rows(fila)("Matricula")) TextBox2.Text = CStr(dt.Rows(fila)("Nombre")) TextBox3.Text = CStr(dt.Rows(fila)("Paterno")) TextBox4.Text = CStr(dt.Rows(fila)("Materno")) TextBox5.Text = CStr(dt.Rows(fila)("Direccion")) TextBox6.Text = CInt(dt.Rows(fila)("Numgrupo")) End Sub Private Sub Refrescar() dt.Reset() fila = 0 Dim RefrescarDatos As String = "Select * From Alumnos" Dim dataAdapter As New OleDb.OleDbDataAdapter(RefrescarDatos, cn) dataAdapter.Fill(dt) Actualiza() dataAdapter.Dispose() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click cn.Open() Dim strSQL As String = "Select * From Alumnos Where Matricula='" & CStr(TextBox1.Text()) & "';" Dim dataAdapter As New OleDb.OleDbDataAdapter(strSQL, cn) dt.Reset() dataAdapter.Fill(dt)

fila = 0 Actualiza() dataAdapter.Dispose() cn.Close()

End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click cn.Open() Dim ModificaDatos As String = "Update Alumnos Set Matricula= '" & TextBox1.Text & "', Nombre = '" & TextBox2.Text & "' , Paterno ='" & TextBox3.Text & "', Materno ='" & TextBox4.Text & "', Direccion ='" & TextBox5.Text & "', Numgrupo ='" & TextBox6.Text & "' Where Matricula='" & CStr(TextBox1.Text()) & "';" Dim dataAdapter As New OleDb.OleDbDataAdapter(ModificaDatos, cn) dataAdapter.Fill(dt) dataAdapter.Dispose() MsgBox("Registro Modificado", MsgBoxStyle.Information, "Mensaje") cn.Close() End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Me.Close() Formulario_Alumnos.Show() End Sub Private Sub Modificaciones_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub End Class

Menu maestros:
Imports System.Data.OleDb Public Class formulario_maestros Dim dt As New DataTable Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\user\Desktop\CONTROL.accdb ") Dim fila As Integer Private Sub Refrescar() dt.Reset() fila = 0 Dim RefrescarDatos As String = "Select * From Maestros" Dim dataAdapter As New OleDb.OleDbDataAdapter(RefrescarDatos, cn) dataAdapter.Fill(dt) Actualiza() dataAdapter.Dispose() End Sub Public Sub Actualiza() TextAle1.Text = CStr(dt.Rows(fila)("Claveprofe")) TextAle2.Text = CStr(dt.Rows(fila)("Nombre")) TextAle3.Text = CStr(dt.Rows(fila)("Paterno")) TextAle4.Text = CStr(dt.Rows(fila)("Materno"))

TextAle5.Text = CStr(dt.Rows(fila)("Profesion")) TextAle6.Text = CStr(dt.Rows(fila)("Fechanac")) End Sub Private Sub formulario_maestros_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load dt.Reset() fila = 0 Dim RefrescarDatos As String = "Select * From Maestros" Dim dataAdapter As New OleDb.OleDbDataAdapter(RefrescarDatos, cn) dataAdapter.Fill(dt) Actualiza() dataAdapter.Dispose() End Sub Private Sub Ale6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ale6.Click If (fila > 0 And fila <= dt.Rows.Count - 1) Then fila = fila - 1 Actualiza() Else MsgBox("Primer Registro Encontrado", MsgBoxStyle.Information, "Mensaje") End If End Sub Private Sub Ale7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ale7.Click If (fila >= 0 And fila < dt.Rows.Count - 1) Then fila = fila + 1 Actualiza() Else MsgBox("Ultimo Registro Encontrado", MsgBoxStyle.Information, "Mensaje") End If End Sub Private Sub vate(ByVal p1 As Object, ByVal p2 As Object) Throw New NotImplementedException End Sub Private Sub Ale1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ale1.Click Me.Close() Altas_2.Show() End Sub Private Sub Ale2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ale2.Click If ((MsgBox("Desea Eliminar un Registro ? " + CStr(TextAle1.Text), MsgBoxStyle.OkCancel, "Mensaje")) = 1) Then Dim strSQL As String = "DELETE FROM Maestros WHERE Matricula='" & CStr(TextAle1.Text) & "';" Dim dataAdapter As New OleDb.OleDbDataAdapter(strSQL, cn) dataAdapter.Fill(dt) Refrescar() Actualiza() dataAdapter.Dispose() Else MsgBox("No se ha Seleccionado Registro a Eliminar")

End If End Sub Private Sub Ale3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ale3.Click Me.Hide() Consultas_2.Show() End Sub Private Sub Ale4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ale4.Click Me.Hide() Modificacion_2.Show() End Sub Private Sub Ale5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ale5.Click Me.Close() Form1.Show() End Sub End Class

Altas maestros:
Imports System.Data.OleDb Public Class Altas_2 Dim dt As New DataTable Dim fila As Integer = 0 Dim cn As New OleDbConnection("Provider=Microsoft.ACE.OLED B.12.0;Data Source=C:\Users\user\Desktop\CONTROL.accdb") Private Sub Ale1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ale1.Click cn.Open() Dim GuardarDatos As String = " Insert into Maestros(Claveprofe,Nombre,Paterno,Materno,P rofesion,Fechanac)" & "Values('" & TextAle1.Text & "','" & TextAle2.Text & "','" & TextAle3.Text & "','" & TextAle4.Text & "','" & TextAle5.Text & "','" & TextAle6.Text & "')" Dim dataAdapter As New OleDb.OleDbDataAdapter(GuardarDatos, cn) dataAdapter.Fill(dt) MsgBox("Se Agrego registro Correctamente", MsgBoxStyle.Information, "Mensaje") ' Limpiar() dataAdapter.Dispose() cn.Close() End Sub Private Sub Ale2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ale2.Click Me.Close() formulario_maestros.Show() End Sub

Private Sub Altas_2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub End Class

Consultas maestros:
Imports System.Data.OleDb Public Class Consultas_2 Dim dt As New DataTable Dim fila As Integer = 0 Dim cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB. 12.0;Data Source=C:\Users\user\Desktop\CONTROL.accdb") Public Sub Actualiza() TextAle1.Text = CStr(dt.Rows(fila)("Claveprofe")) TextAle2.Text = CStr(dt.Rows(fila)("Nombre")) TextAle3.Text = CStr(dt.Rows(fila)("Paterno")) TextAle4.Text = CStr(dt.Rows(fila)("Materno")) TextAle5.Text = CStr(dt.Rows(fila)("Profesion")) TextAle6.Text = CStr(dt.Rows(fila)("Fechanac")) End Sub Private Sub Ale1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ale1.Click cn.Open() Dim strSQL As String = "Select * From Maestros Where Claveprofe=" & CInt(TextAle1.Text()) Dim dataAdapter As New OleDb.OleDbDataAdapter(strSQL, cn) dt.Reset() dataAdapter.Fill(dt) ' Limpiar() fila = 0 Actualiza() dataAdapter.Dispose() cn.Close() End Sub Private Sub Ale2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ale2.Click Me.Close() formulario_maestros.Show() End Sub Private Sub Consultas_2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub End Class

Modificaciones maestros:
Imports System.Data.OleDb Public Class Modificacion_2 Dim dt As New DataTable Dim fila As Integer = 0 Dim cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB .12.0;Data Source=C:\Users\user\Desktop\CONTROL.accdb") Public Sub Actualiza() TextAle1.Text = CInt(dt.Rows(fila)("Claveprofe")) TextAle2.Text = CStr(dt.Rows(fila)("Nombre")) TextAle3.Text = CStr(dt.Rows(fila)("Paterno")) TextAle4.Text = CStr(dt.Rows(fila)("Materno")) TextAle5.Text = CStr(dt.Rows(fila)("Profesion")) TextAle6.Text = CStr(dt.Rows(fila)("Fechanac")) End Sub Private Sub Refrescar() dt.Reset() fila = 0 Dim RefrescarDatos As String = "Select * From Maestros" Dim dataAdapter As New OleDb.OleDbDataAdapter(RefrescarDatos, cn) dataAdapter.Fill(dt) Actualiza() dataAdapter.Dispose() End Sub Private Sub Modificacion_2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub Ale1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ale1.Click cn.Open() Dim strSQL As String = "Select * From Maestros Where Claveprofe=" & CInt(TextAle1.Text()) Dim dataAdapter As New OleDb.OleDbDataAdapter(strSQL, cn) dt.Reset() dataAdapter.Fill(dt) fila = 0 Actualiza() dataAdapter.Dispose() cn.Close()

End Sub Private Sub Ale2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ale2.Click cn.Open() Dim ModificaDatos As String = "Update Alumnos Set Matricula= '" & TextAle1.Text & "', Nombre = '" & TextAle2.Text & "' , Paterno ='" & TextAle3.Text & "', Materno ='" & TextAle4.Text & "', Direccion ='" & TextAle5.Text & "', Numgrupo ='" & TextAle6.Text & "' Where Matricula='" & CStr(TextAle1.Text()) & "';" Dim dataAdapter As New OleDb.OleDbDataAdapter(ModificaDatos, cn) dataAdapter.Fill(dt)

dataAdapter.Dispose() MsgBox("Registro Modificado", MsgBoxStyle.Information, "Mensaje") cn.Close() End Sub Private Sub Ale3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ale3.Click Me.Close() formulario_maestros.Show() End Sub End Class

Menu asignaturas:
Imports System.Data.OleDb Public Class Formulario_asignaturas Dim dt As New DataTable Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.ACE .OLEDB.12.0;Data Source=C:\Users\user\Desktop\CONTROL.accdb") Dim fila As Integer Private Sub Refrescar() dt.Reset() fila = 0 Dim RefrescarDatos As String = "Select * From Asignatura" Dim dataAdapter As New OleDb.OleDbDataAdapter(RefrescarDatos, cn) dataAdapter.Fill(dt) Actualiza() dataAdapter.Dispose() End Sub Public Sub Actualiza() TextAle1.Text = CStr(dt.Rows(fila)("Clavemat")) TextAle2.Text = CStr(dt.Rows(fila)("Claveprofe")) TextAle3.Text = CStr(dt.Rows(fila)("Numgrupo")) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.Close() Altas_3.Show() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click If ((MsgBox("Desea Eliminar un Registro ? " + CStr(TextAle1.Text), MsgBoxStyle.OkCancel, "Mensaje")) = 1) Then Dim strSQL As String = "DELETE FROM Asignatura where Clavemat=" & CInt(TextAle1.Text()) Dim dataAdapter As New OleDb.OleDbDataAdapter(strSQL, cn) dataAdapter.Fill(dt) Refrescar() Actualiza() dataAdapter.Dispose() Else MsgBox("No se ha Seleccionado Registro a Eliminar") End If

End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Me.Hide() Consulta_3.Show() End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Me.Hide() Modificacion_3.Show() End Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click Me.Close() Form1.Show() End Sub Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click If (fila > 0 And fila <= dt.Rows.Count - 1) Then fila = fila - 1 Actualiza() Else MsgBox("Primer Registro Encontrado", MsgBoxStyle.Information, "Mensaje") End If End Sub Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click If (fila >= 0 And fila < dt.Rows.Count - 1) Then fila = fila + 1 Actualiza() Else MsgBox("Ultimo Registro Encontrado", MsgBoxStyle.Information, "Mensaje") End If End Sub Private Sub Formulario_asignaturas_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load dt.Reset() fila = 0 Dim RefrescarDatos As String = "Select * From Asignatura" Dim dataAdapter As New OleDb.OleDbDataAdapter(RefrescarDatos, cn) dataAdapter.Fill(dt) Actualiza() dataAdapter.Dispose() End Sub End Class

Altas asignaturas:
Imports System.Data.OleDb Public Class Altas_3 Dim dt As New DataTable Dim fila As Integer = 0 Dim cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB. 12.0;Data Source=C:\Users\user\Desktop\CONTROL.accdb") Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click End Sub Private Sub Ale1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ale1.Click cn.Open() Dim GuardarDatos As String = " Insert into Asignatura(Clavemat,Claveprofe,Numgrupo)" & "Values('" & CStr(TextAle1.Text) & "','" & CStr(TextAle2.Text) & "','" & CStr(TextAle3.Text) & "')" Dim dataAdapter As New OleDb.OleDbDataAdapter(GuardarDatos, cn) dataAdapter.Fill(dt) MsgBox("Se Agrego registro Correctamente", MsgBoxStyle.Information, "Mensaje") ' Limpiar() dataAdapter.Dispose() cn.Close() End Sub Private Sub Ale2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ale2.Click Me.Close() Formulario_asignaturas.Show() End Sub Private Sub Altas_3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub End Class Consultas asignatutras: Imports System.Data.OleDb Public Class Consulta_3 Dim dt As New DataTable Dim fila As Integer = 0 Dim cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0 ;Data Source=C:\Users\user\Desktop\CONTROL.accdb") Public Sub Actualiza() TextAle1.Text = CInt(dt.Rows(fila)("Clavemat")) TextAle2.Text = CInt(dt.Rows(fila)("Claveprofe")) TextAle3.Text = CInt(dt.Rows(fila)("Numgrupo")) End Sub

Private Sub Ale1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ale1.Click cn.Open() Dim strSQL As String = "Select * From Asignatura Where Clavemat=" & CInt(TextAle1.Text()) Dim dataAdapter As New OleDb.OleDbDataAdapter(strSQL, cn) dt.Reset() dataAdapter.Fill(dt) ' Limpiar() fila = 0 Actualiza() dataAdapter.Dispose() cn.Close() End Sub Private Sub Ale2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ale2.Click Me.Close() Formulario_asignaturas.Show() End Sub Private Sub Consulta_3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub End Class

Modificaciones asignaturtas:
Imports System.Data.OleDb Public Class Modificacion_3 Dim dt As New DataTable Dim fila As Integer = 0 Dim cn As New OleDbConnection("Provider=Microsoft.ACE.OLED B.12.0;Data Source=C:\Users\user\Desktop\CONTROL.accdb") Public Sub Actualiza() TextAle1.Text = CInt(dt.Rows(fila)("Clavemat")) TextAle2.Text = CInt(dt.Rows(fila)("Claveprofe")) TextAle3.Text = CInt(dt.Rows(fila)("Numgrupo")) End Sub

Private Sub Ale1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ale1.Click cn.Open() Dim strSQL As String = "Select * From Asignatura Where Clavemat=" & CInt(TextAle1.Text()) Dim dataAdapter As New OleDb.OleDbDataAdapter(strSQL, cn) dt.Reset() dataAdapter.Fill(dt) fila = 0 Actualiza() dataAdapter.Dispose() cn.Close()

End Sub Private Sub Ale2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ale2.Click cn.Open() Dim ModificaDatos As String = "Update Asignatura set Clavemat= '" & TextAle1.Text & "', Claveprofe= '" & TextAle2.Text & "' , Numgrupo ='" & TextAle3.Text & "' where Clavemat= " & CInt(TextAle1.Text) Dim dataAdapter As New OleDb.OleDbDataAdapter(ModificaDatos, cn) dataAdapter.Fill(dt) dataAdapter.Dispose() MsgBox("Registro Modificado", MsgBoxStyle.Information, "Mensaje") cn.Close() End Sub Private Sub Ale3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ale3.Click Me.Close() Formulario_asignaturas.Show() End Sub Private Sub Modificacion_3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub End Class

Menu grupos:
Imports System.Data.OleDb Public Class Formulario_grupos Dim dt As New DataTable Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB. 12.0;Data Source=C:\Users\user\Desktop\CONTROL.accdb") Dim fila As Integer Private Sub Refrescar() dt.Reset() fila = 0 Dim RefrescarDatos As String = "Select * From Grupos" Dim dataAdapter As New OleDb.OleDbDataAdapter(RefrescarDatos, cn) dataAdapter.Fill(dt) Actualiza() dataAdapter.Dispose() End Sub Public Sub Actualiza() TextAle1.Text = CStr(dt.Rows(fila)("Numgrupos")) TextAle2.Text = CStr(dt.Rows(fila)("Cantidadalumnos")) TextAle3.Text = CStr(dt.Rows(fila)("Clavemat"))

End Sub Private Sub Ale1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ale1.Click Me.Close() Altas_4.Show()

End Sub Private Sub Formulario_grupos_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load dt.Reset() fila = 0 Dim RefrescarDatos As String = "Select * From Grupos" Dim dataAdapter As New OleDb.OleDbDataAdapter(RefrescarDatos, cn) dataAdapter.Fill(dt) Actualiza() dataAdapter.Dispose() End Sub Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click If (fila > 0 And fila <= dt.Rows.Count - 1) Then fila = fila - 1 Actualiza() Else MsgBox("Primer Registro Encontrado", MsgBoxStyle.Information, "Mensaje") End If End Sub Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click If (fila >= 0 And fila < dt.Rows.Count - 1) Then fila = fila + 1 Actualiza() Else MsgBox("Ultimo Registro Encontrado", MsgBoxStyle.Information, "Mensaje") End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click If ((MsgBox("Desea Eliminar un Registro ? " + CStr(TextAle1.Text), MsgBoxStyle.OkCancel, "Mensaje")) = 1) Then Dim strSQL As String = "DELETE FROM Grupos where Numgrupos=" & CInt(TextAle1.Text()) Dim dataAdapter As New OleDb.OleDbDataAdapter(strSQL, cn) dataAdapter.Fill(dt) Refrescar() Actualiza() dataAdapter.Dispose() Else MsgBox("No se ha Seleccionado Registro a Eliminar") End If End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Me.Close() Consultas_4.Show() End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Me.Close()

Modificaciones_4.Show() End Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click Me.Close() Form1.Show() End Sub End Class

Altas grupos:
Imports System.Data.OleDb Public Class Altas_4 Dim dt As New DataTable Dim fila As Integer = 0 Dim cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB. 12.0;Data Source=C:\Users\user\Desktop\CONTROL.accdb") Private Sub Altas_4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub Ale1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ale1.Click cn.Open() Dim GuardarDatos As String = " Insert into Grupos(Numgrupos,cantidadalumnos,Clavemat)" & "Values('" & TextAle1.Text & "','" & TextAle2.Text & "','" & TextAle3.Text & "')" Dim dataAdapter As New OleDb.OleDbDataAdapter(GuardarDatos, cn) dataAdapter.Fill(dt) MsgBox("Se Agrego registro Correctamente", MsgBoxStyle.Information, "Mensaje") ' Limpiar() dataAdapter.Dispose() cn.Close() End Sub Private Sub Ale2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ale2.Click Me.Close() Formulario_grupos.Show() End Sub End Class

Consultas grupos:
Imports System.Data.OleDb Public Class Consultas_4 Dim dt As New DataTable Dim fila As Integer = 0 Dim cn As New OleDbConnection("Provider=Microsoft.ACE.O LEDB.12.0;Data Source=C:\Users\user\Desktop\CONTROL.accd b") Public Sub Actualiza() TextAle1.Text = CInt(dt.Rows(fila)("Numgrupos")) TextAle2.Text = CInt(dt.Rows(fila)("Cantidadalumnos")) TextAle3.Text = CInt(dt.Rows(fila)("Clavemat")) End Sub Private Sub Consultas_4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub Ale1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ale1.Click cn.Open() Dim strSQL As String = "Select * from Grupos where Numgrupos= " & (CInt(TextAle1.Text)) Dim dataAdapter As New OleDb.OleDbDataAdapter(strSQL, cn) dt.Reset() dataAdapter.Fill(dt) ' Limpiar() fila = 0 Actualiza() dataAdapter.Dispose() cn.Close() End Sub Private Sub Ale2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ale2.Click Me.Close() Formulario_grupos.Show() End Sub End Class

Modificacion grupos:
Imports System.Data.OleDb Public Class Modificaciones_4 Dim dt As New DataTable Dim fila As Integer = 0 Dim cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0 ;Data Source=C:\Users\user\Desktop\CONTROL.accdb") Public Sub Actualiza() TextAle1.Text = CInt(dt.Rows(fila)("Numgrupos")) TextAle2.Text = CInt(dt.Rows(fila)("Cantidadalumnos"))

TextAle3.Text = CInt(dt.Rows(fila)("Clavemat")) End Sub Private Sub Ale1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ale1.Click cn.Open() Dim strSQL As String = "Select * From Grupos Where Numgrupos=" & CInt(TextAle1.Text()) Dim dataAdapter As New OleDb.OleDbDataAdapter(strSQL, cn) dt.Reset() dataAdapter.Fill(dt) fila = 0 Actualiza() dataAdapter.Dispose() cn.Close() End Sub Private Sub Ale2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ale2.Click cn.Open() Dim ModificaDatos As String = "Update Grupos Set Numgrupos= '" & CInt(TextAle1.Text) & "', Cantidadalumnos = '" & CInt(TextAle2.Text) & "' , Clavemat ='" & CInt(TextAle3.Text) & "' Where Numgrupos=" & CInt(TextAle1.Text()) Dim dataAdapter As New OleDb.OleDbDataAdapter(ModificaDatos, cn) dataAdapter.Fill(dt) dataAdapter.Dispose() MsgBox("Registro Modificado", MsgBoxStyle.Information, "Mensaje") cn.Close() End Sub Private Sub Ale3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ale3.Click Me.Close() Formulario_grupos.Show() End Sub Private Sub Modificaciones_4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub End Class

Menu materias:
Imports System.Data.OleDb Public Class Formulario_materias Dim dt As New DataTable Dim cn As New OleDb.OleDbConnection("Provider=Microsof t.ACE.OLEDB.12.0;Data Source=C:\Users\user\Desktop\CONTROL.acc db") Dim fila As Integer Private Sub Refrescar() dt.Reset() fila = 0 Dim RefrescarDatos As String = "Select * From Materias" Dim dataAdapter As New OleDb.OleDbDataAdapter(RefrescarDatos, cn) dataAdapter.Fill(dt)

Actualiza() dataAdapter.Dispose() End Sub Public Sub Actualiza() TextAle1.Text = CStr(dt.Rows(fila)("Clavemat")) TextAle2.Text = CStr(dt.Rows(fila)("Nombre")) TextAle3.Text = CStr(dt.Rows(fila)("Horastotales")) TextAle4.Text = CStr(dt.Rows(fila)("Horasp")) TextAle5.Text = CStr(dt.Rows(fila)("Horast")) End Sub Private Sub Formulario_materias_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load dt.Reset() fila = 0 Dim RefrescarDatos As String = "Select * From Materias" Dim dataAdapter As New OleDb.OleDbDataAdapter(RefrescarDatos, cn) dataAdapter.Fill(dt) Actualiza() dataAdapter.Dispose() End Sub Private Sub Ale1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ale1.Click Me.Hide() Altas_5.Show() End Sub

Private Sub Ale2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ale2.Click If ((MsgBox("Desea Eliminar un Registro ? " + CStr(TextAle1.Text), MsgBoxStyle.OkCancel, "Mensaje")) = 1) Then Dim strSQL As String = "DELETE FROM Materias WHERE Clavemat=" & CInt(TextAle1.Text) Dim dataAdapter As New OleDb.OleDbDataAdapter(strSQL, cn) dataAdapter.Fill(dt) Refrescar() Actualiza() dataAdapter.Dispose() Else MsgBox("No se ha Seleccionado Registro a Eliminar") End If End Sub Private Sub Ale7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ale7.Click If (fila > 0 And fila <= dt.Rows.Count - 1) Then fila = fila - 1 Actualiza() Else MsgBox("Primer Registro Encontrado", MsgBoxStyle.Information, "Mensaje") End If End Sub Private Sub Ale6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ale6.Click If (fila >= 0 And fila < dt.Rows.Count - 1) Then

fila = fila + 1 Actualiza() Else MsgBox("Ultimo Registro Encontrado", MsgBoxStyle.Information, "Mensaje") End If End Sub Private Sub Ale5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ale5.Click Me.Hide() Form1.Show() End Sub Private Sub Ale3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ale3.Click Me.Hide() Consultas_5.Show() End Sub Private Sub Ale4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ale4.Click Me.Hide() Modificaciones_5.Show() End Sub End Class

Altas materias:
Imports System.Data.OleDb Public Class Altas_5 Dim dt As New DataTable Dim fila As Integer = 0 Dim cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.1 2.0;Data Source=C:\Users\user\Desktop\CONTROL.accdb")

Private Sub Altas_5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub Ale1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ale1.Click cn.Open() Dim GuardarDatos As String = " Insert into Materias(Clavemat,Nombre,Horastotales,Horasp,Horast)" & "Values('" & TextAle1.Text & "','" & TextAle2.Text & "','" & TextAle3.Text & "','" & TextAle4.Text & "','" & TextAle5.Text & "')" Dim dataAdapter As New OleDb.OleDbDataAdapter(GuardarDatos, cn) dataAdapter.Fill(dt) MsgBox("Se Agrego registro Correctamente", MsgBoxStyle.Information, "Mensaje") ' Limpiar() dataAdapter.Dispose() cn.Close() End Sub

Private Sub Ale2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ale2.Click Me.Close() Formulario_materias.Show() End Sub End Class

Consultas materias:
Imports System.Data.OleDb Public Class Consultas_5 Dim dt As New DataTable Dim fila As Integer = 0 Dim cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.1 2.0;Data Source=C:\Users\user\Desktop\CONTROL.accdb") Public Sub Actualiza() TextAle1.Text = CStr(dt.Rows(fila)("Clavemat")) TextAle2.Text = CStr(dt.Rows(fila)("Nombre")) TextAle3.Text = CStr(dt.Rows(fila)("Horastotales")) TextAle4.Text = CStr(dt.Rows(fila)("Horasp")) TextAle5.Text = CStr(dt.Rows(fila)("Horast"))

End Sub Private Sub Consultas_5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub Ale1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ale1.Click cn.Open() Dim strSQL As String = "Select * From Materias Where Clavemat=" & CInt(TextAle1.Text()) Dim dataAdapter As New OleDb.OleDbDataAdapter(strSQL, cn) dt.Reset() dataAdapter.Fill(dt) ' Limpiar() fila = 0 Actualiza() dataAdapter.Dispose() cn.Close() End Sub Private Sub Ale2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ale2.Click Me.Close() Formulario_materias.Show() End Sub End Class

Modificacion materias:
Imports System.Data.OleDb Public Class Modificaciones_5 Dim dt As New DataTable Dim fila As Integer = 0 Dim cn As New OleDbConnection("Provider=Microsoft.ACE.OLED B.12.0;Data Source=C:\Users\user\Desktop\CONTROL.accdb") Public Sub Actualiza() TextAle1.Text = CInt(dt.Rows(fila)("Clavemat")) TextAle2.Text = CStr(dt.Rows(fila)("Nombre")) TextAle3.Text = CStr(dt.Rows(fila)("Horastotales")) TextAle4.Text = CStr(dt.Rows(fila)("Horasp")) TextAle5.Text = CStr(dt.Rows(fila)("Horast")) End Sub Private Sub Refrescar() dt.Reset() fila = 0 Dim RefrescarDatos As String = "Select * From Materias" Dim dataAdapter As New OleDb.OleDbDataAdapter(RefrescarDatos, cn) dataAdapter.Fill(dt) Actualiza() dataAdapter.Dispose() End Sub Private Sub Modificaciones_5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub Ale1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ale1.Click cn.Open() Dim strSQL As String = "Select * From Materias Where Clavemat=" & CInt(TextAle1.Text()) Dim dataAdapter As New OleDb.OleDbDataAdapter(strSQL, cn) dt.Reset() dataAdapter.Fill(dt) fila = 0 Actualiza() dataAdapter.Dispose() cn.Close() End Sub Private Sub Ale2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ale2.Click cn.Open() Dim ModificaDatos As String = "Update Materias Set Clavemat= '" & TextAle1.Text & "', Nombre = '" & TextAle2.Text & "' , Horastotales ='" & TextAle3.Text & "', Horasp ='" & TextAle4.Text & "', Horast ='" & TextAle5.Text & "' Where Clavemat= " & CInt(TextAle1.Text()) Dim dataAdapter As New OleDb.OleDbDataAdapter(ModificaDatos, cn) dataAdapter.Fill(dt)

dataAdapter.Dispose() MsgBox("Registro Modificado", MsgBoxStyle.Information, "Mensaje") cn.Close() End Sub Private Sub Ale3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ale3.Click Me.Close() Formulario_materias.Show() End Sub End Class