Scribd
Upload
63 views23 pages

Manual Del Program Ad or

The document contains code for a student and teacher management system with menus, forms and classes for viewing, adding, modifying and deleting student and teacher records from an Access database. It includes code for forms to list, search, add, modify and delete student and teacher records, as well as code to connect to and query the Access database.

Uploaded by

Alejandra Cruz
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
63 views23 pages

Manual Del Program Ad or

The document contains code for a student and teacher management system with menus, forms and classes for viewing, adding, modifying and deleting student and teacher records from an Access database. It includes code for forms to list, search, add, modify and delete student and teacher records, as well as code to connect to and query the Access database.

Uploaded by

Alejandra Cruz
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd

Manual del programador:

Men alumnos:
Imports [Link] Public Class Formulario_Alumnos Dim dt As New DataTable Dim cn As New [Link]("Provider=Microsoft. [Link].12.0;Data Source=C:\Users\user\Desktop\[Link] ") Dim fila As Integer Private Sub Refrescar() [Link]() fila = 0 Dim RefrescarDatos As String = "Select * From Alumnos" Dim dataAdapter As New [Link](RefrescarDatos, cn) [Link](dt) Actualiza() [Link]() End Sub Public Sub Actualiza() [Link] = CStr([Link](fila)("Matricula")) [Link] = CStr([Link](fila)("Nombre")) [Link] = CStr([Link](fila)("Paterno")) [Link] = CStr([Link](fila)("Materno")) [Link] = CStr([Link](fila)("Direccion")) [Link] = CInt([Link](fila)("Numgrupo")) End Sub Private Sub Formulario_Alumnos_Load(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link]() fila = 0 Dim RefrescarDatos As String = "Select * From Alumnos" Dim dataAdapter As New [Link](RefrescarDatos, cn) [Link](dt) Actualiza() [Link]() End Sub

Private Sub Button5_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link]() Consultas_Alumnos.Show() End Sub Private Sub Button3_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link]() Altas_Alumnos.Show() End Sub Private Sub Button1_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link]

If (fila > 0 And fila <= [Link] - 1) Then fila = fila - 1 Actualiza() Else MsgBox("Primer Registro Encontrado", [Link], "Mensaje") End If

End Sub Private Sub Button2_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] If (fila >= 0 And fila < [Link] - 1) Then fila = fila + 1 Actualiza() Else MsgBox("Ultimo Registro Encontrado", [Link], "Mensaje") End If End Sub Private Sub Button4_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] If ((MsgBox("Desea Eliminar un Registro ? " + CStr([Link]), [Link], "Mensaje")) = 1) Then Dim strSQL As String = "DELETE FROM Alumnos WHERE Matricula='" & CStr([Link]) & "';" Dim dataAdapter As New [Link](strSQL, cn) [Link](dt) Refrescar() Actualiza() [Link]() Else MsgBox("No se ha Seleccionado Registro a Eliminar") End If End Sub Private Sub Button6_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link]() [Link]() End Sub Private Sub Button7_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link]() [Link]() End Sub End Class Altas alumnos: Imports [Link] Public Class Altas_Alumnos Dim dt As New DataTable Dim fila As Integer = 0 Dim cn As New OleDbConnection("Provider=[Link].12.0;Data Source=C:\Users\user\Desktop\[Link]")

Private Sub Altas_Alumnos_Load(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] End Sub Private Sub Button1_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link]() Dim GuardarDatos As String = " Insert into Alumnos(Matricula,Nombre,Paterno,Materno,Direc cion,Numgrupo)" & "Values('" & [Link] & "','" & [Link] & "','" & [Link] & "','" & [Link] & "','" & [Link] & "','" & [Link] & "')" Dim dataAdapter As New [Link](GuardarDatos, cn) [Link](dt) MsgBox("Se Agrego registro Correctamente", [Link], "Mensaje") ' Limpiar() [Link]() [Link]() End Sub Private Sub Button2_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link]() Formulario_Alumnos.Show() End Sub End Class Consultas alumnos: Imports [Link] Public Class Consultas_Alumnos Dim dt As New DataTable Dim fila As Integer = 0 Dim cn As New OleDbConnection("Provider=[Link].12.0; Data Source=C:\Users\user\Desktop\[Link]") Public Sub Actualiza() [Link] = CStr([Link](fila)("Matricula")) [Link] = CStr([Link](fila)("Nombre")) [Link] = CStr([Link](fila)("Paterno")) [Link] = CStr([Link](fila)("Materno")) [Link] = CStr([Link](fila)("Direccion")) [Link] = CInt([Link](fila)("Numgrupo")) End Sub Private Sub Button1_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link]() Dim strSQL As String = "Select * From Alumnos Where Matricula='" & CStr([Link]()) & "';" Dim dataAdapter As New [Link](strSQL, cn) [Link]()

[Link](dt) ' Limpiar() fila = 0 Actualiza() [Link]() [Link]() End Sub Private Sub Button2_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link]() Formulario_Alumnos.Show() End Sub Private Sub Consultas_Alumnos_Load(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] End Sub End Class

Modificacion alumnos: Imports [Link] Public Class Modificaciones Dim dt As New DataTable Dim fila As Integer = 0 Dim cn As New OleDbConnection("Provider=[Link].12.0 ;Data Source=C:\Users\user\Desktop\[Link]") Public Sub Actualiza() [Link] = CStr([Link](fila)("Matricula")) [Link] = CStr([Link](fila)("Nombre")) [Link] = CStr([Link](fila)("Paterno")) [Link] = CStr([Link](fila)("Materno")) [Link] = CStr([Link](fila)("Direccion")) [Link] = CInt([Link](fila)("Numgrupo")) End Sub Private Sub Refrescar() [Link]() fila = 0 Dim RefrescarDatos As String = "Select * From Alumnos" Dim dataAdapter As New [Link](RefrescarDatos, cn) [Link](dt) Actualiza() [Link]() End Sub Private Sub Button1_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link]() Dim strSQL As String = "Select * From Alumnos Where Matricula='" & CStr([Link]()) & "';" Dim dataAdapter As New [Link](strSQL, cn) [Link]() [Link](dt)

fila = 0 Actualiza() [Link]() [Link]()

End Sub Private Sub Button2_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link]() Dim ModificaDatos As String = "Update Alumnos Set Matricula= '" & [Link] & "', Nombre = '" & [Link] & "' , Paterno ='" & [Link] & "', Materno ='" & [Link] & "', Direccion ='" & [Link] & "', Numgrupo ='" & [Link] & "' Where Matricula='" & CStr([Link]()) & "';" Dim dataAdapter As New [Link](ModificaDatos, cn) [Link](dt) [Link]() MsgBox("Registro Modificado", [Link], "Mensaje") [Link]() End Sub

Private Sub Button3_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link]() Formulario_Alumnos.Show() End Sub Private Sub Modificaciones_Load(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] End Sub End Class

Menu maestros:
Imports [Link] Public Class formulario_maestros Dim dt As New DataTable Dim cn As New [Link]("Provider=[Link].12.0;Data Source=C:\Users\user\Desktop\[Link] ") Dim fila As Integer Private Sub Refrescar() [Link]() fila = 0 Dim RefrescarDatos As String = "Select * From Maestros" Dim dataAdapter As New [Link](RefrescarDatos, cn) [Link](dt) Actualiza() [Link]() End Sub Public Sub Actualiza() [Link] = CStr([Link](fila)("Claveprofe")) [Link] = CStr([Link](fila)("Nombre")) [Link] = CStr([Link](fila)("Paterno")) [Link] = CStr([Link](fila)("Materno"))

[Link] = CStr([Link](fila)("Profesion")) [Link] = CStr([Link](fila)("Fechanac")) End Sub Private Sub formulario_maestros_Load(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link]() fila = 0 Dim RefrescarDatos As String = "Select * From Maestros" Dim dataAdapter As New [Link](RefrescarDatos, cn) [Link](dt) Actualiza() [Link]() End Sub Private Sub Ale6_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] If (fila > 0 And fila <= [Link] - 1) Then fila = fila - 1 Actualiza() Else MsgBox("Primer Registro Encontrado", [Link], "Mensaje") End If End Sub Private Sub Ale7_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] If (fila >= 0 And fila < [Link] - 1) Then fila = fila + 1 Actualiza() Else MsgBox("Ultimo Registro Encontrado", [Link], "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 [Link], ByVal e As [Link]) Handles [Link] [Link]() Altas_2.Show() End Sub Private Sub Ale2_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] If ((MsgBox("Desea Eliminar un Registro ? " + CStr([Link]), [Link], "Mensaje")) = 1) Then Dim strSQL As String = "DELETE FROM Maestros WHERE Matricula='" & CStr([Link]) & "';" Dim dataAdapter As New [Link](strSQL, cn) [Link](dt) Refrescar() Actualiza() [Link]() Else MsgBox("No se ha Seleccionado Registro a Eliminar")

End If End Sub Private Sub Ale3_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link]() Consultas_2.Show() End Sub Private Sub Ale4_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link]() Modificacion_2.Show() End Sub Private Sub Ale5_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link]() [Link]() End Sub End Class

Altas maestros:
Imports [Link] Public Class Altas_2 Dim dt As New DataTable Dim fila As Integer = 0 Dim cn As New OleDbConnection("Provider=[Link] B.12.0;Data Source=C:\Users\user\Desktop\[Link]") Private Sub Ale1_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link]() Dim GuardarDatos As String = " Insert into Maestros(Claveprofe,Nombre,Paterno,Materno,P rofesion,Fechanac)" & "Values('" & [Link] & "','" & [Link] & "','" & [Link] & "','" & [Link] & "','" & [Link] & "','" & [Link] & "')" Dim dataAdapter As New [Link](GuardarDatos, cn) [Link](dt) MsgBox("Se Agrego registro Correctamente", [Link], "Mensaje") ' Limpiar() [Link]() [Link]() End Sub Private Sub Ale2_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link]() formulario_maestros.Show() End Sub

Private Sub Altas_2_Load(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] End Sub End Class

Consultas maestros:
Imports [Link] Public Class Consultas_2 Dim dt As New DataTable Dim fila As Integer = 0 Dim cn As New OleDbConnection("Provider=[Link]. 12.0;Data Source=C:\Users\user\Desktop\[Link]") Public Sub Actualiza() [Link] = CStr([Link](fila)("Claveprofe")) [Link] = CStr([Link](fila)("Nombre")) [Link] = CStr([Link](fila)("Paterno")) [Link] = CStr([Link](fila)("Materno")) [Link] = CStr([Link](fila)("Profesion")) [Link] = CStr([Link](fila)("Fechanac")) End Sub Private Sub Ale1_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link]() Dim strSQL As String = "Select * From Maestros Where Claveprofe=" & CInt([Link]()) Dim dataAdapter As New [Link](strSQL, cn) [Link]() [Link](dt) ' Limpiar() fila = 0 Actualiza() [Link]() [Link]() End Sub Private Sub Ale2_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link]() formulario_maestros.Show() End Sub Private Sub Consultas_2_Load(ByVal sender As [Link], ByVal e As [Link]) Handles [Link]

End Sub End Class

Modificaciones maestros:
Imports [Link] Public Class Modificacion_2 Dim dt As New DataTable Dim fila As Integer = 0 Dim cn As New OleDbConnection("Provider=[Link] .12.0;Data Source=C:\Users\user\Desktop\[Link]") Public Sub Actualiza() [Link] = CInt([Link](fila)("Claveprofe")) [Link] = CStr([Link](fila)("Nombre")) [Link] = CStr([Link](fila)("Paterno")) [Link] = CStr([Link](fila)("Materno")) [Link] = CStr([Link](fila)("Profesion")) [Link] = CStr([Link](fila)("Fechanac")) End Sub Private Sub Refrescar() [Link]() fila = 0 Dim RefrescarDatos As String = "Select * From Maestros" Dim dataAdapter As New [Link](RefrescarDatos, cn) [Link](dt) Actualiza() [Link]() End Sub Private Sub Modificacion_2_Load(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] End Sub Private Sub Ale1_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link]() Dim strSQL As String = "Select * From Maestros Where Claveprofe=" & CInt([Link]()) Dim dataAdapter As New [Link](strSQL, cn) [Link]() [Link](dt) fila = 0 Actualiza() [Link]() [Link]()

End Sub Private Sub Ale2_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link]() Dim ModificaDatos As String = "Update Alumnos Set Matricula= '" & [Link] & "', Nombre = '" & [Link] & "' , Paterno ='" & [Link] & "', Materno ='" & [Link] & "', Direccion ='" & [Link] & "', Numgrupo ='" & [Link] & "' Where Matricula='" & CStr([Link]()) & "';" Dim dataAdapter As New [Link](ModificaDatos, cn) [Link](dt)

[Link]() MsgBox("Registro Modificado", [Link], "Mensaje") [Link]() End Sub Private Sub Ale3_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link]() formulario_maestros.Show() End Sub End Class

Menu asignaturas:
Imports [Link] Public Class Formulario_asignaturas Dim dt As New DataTable Dim cn As New [Link]("Provider=[Link] .OLEDB.12.0;Data Source=C:\Users\user\Desktop\[Link]") Dim fila As Integer Private Sub Refrescar() [Link]() fila = 0 Dim RefrescarDatos As String = "Select * From Asignatura" Dim dataAdapter As New [Link](RefrescarDatos, cn) [Link](dt) Actualiza() [Link]() End Sub Public Sub Actualiza() [Link] = CStr([Link](fila)("Clavemat")) [Link] = CStr([Link](fila)("Claveprofe")) [Link] = CStr([Link](fila)("Numgrupo")) End Sub Private Sub Button1_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link]() Altas_3.Show() End Sub Private Sub Button2_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] If ((MsgBox("Desea Eliminar un Registro ? " + CStr([Link]), [Link], "Mensaje")) = 1) Then Dim strSQL As String = "DELETE FROM Asignatura where Clavemat=" & CInt([Link]()) Dim dataAdapter As New [Link](strSQL, cn) [Link](dt) Refrescar() Actualiza() [Link]() Else MsgBox("No se ha Seleccionado Registro a Eliminar") End If

End Sub Private Sub Button3_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link]() Consulta_3.Show() End Sub Private Sub Button4_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link]() Modificacion_3.Show() End Sub Private Sub Button5_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link]() [Link]() End Sub Private Sub Button6_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] If (fila > 0 And fila <= [Link] - 1) Then fila = fila - 1 Actualiza() Else MsgBox("Primer Registro Encontrado", [Link], "Mensaje") End If End Sub Private Sub Button7_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] If (fila >= 0 And fila < [Link] - 1) Then fila = fila + 1 Actualiza() Else MsgBox("Ultimo Registro Encontrado", [Link], "Mensaje") End If End Sub Private Sub Formulario_asignaturas_Load(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link]() fila = 0 Dim RefrescarDatos As String = "Select * From Asignatura" Dim dataAdapter As New [Link](RefrescarDatos, cn) [Link](dt) Actualiza() [Link]() End Sub End Class

Altas asignaturas:
Imports [Link] Public Class Altas_3 Dim dt As New DataTable Dim fila As Integer = 0 Dim cn As New OleDbConnection("Provider=[Link]. 12.0;Data Source=C:\Users\user\Desktop\[Link]") Private Sub Label3_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] End Sub Private Sub Ale1_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link]() Dim GuardarDatos As String = " Insert into Asignatura(Clavemat,Claveprofe,Numgrupo)" & "Values('" & CStr([Link]) & "','" & CStr([Link]) & "','" & CStr([Link]) & "')" Dim dataAdapter As New [Link](GuardarDatos, cn) [Link](dt) MsgBox("Se Agrego registro Correctamente", [Link], "Mensaje") ' Limpiar() [Link]() [Link]() End Sub Private Sub Ale2_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link]() Formulario_asignaturas.Show() End Sub Private Sub Altas_3_Load(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] End Sub End Class Consultas asignatutras: Imports [Link] Public Class Consulta_3 Dim dt As New DataTable Dim fila As Integer = 0 Dim cn As New OleDbConnection("Provider=[Link].12.0 ;Data Source=C:\Users\user\Desktop\[Link]") Public Sub Actualiza() [Link] = CInt([Link](fila)("Clavemat")) [Link] = CInt([Link](fila)("Claveprofe")) [Link] = CInt([Link](fila)("Numgrupo")) End Sub

Private Sub Ale1_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link]() Dim strSQL As String = "Select * From Asignatura Where Clavemat=" & CInt([Link]()) Dim dataAdapter As New [Link](strSQL, cn) [Link]() [Link](dt) ' Limpiar() fila = 0 Actualiza() [Link]() [Link]() End Sub Private Sub Ale2_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link]() Formulario_asignaturas.Show() End Sub Private Sub Consulta_3_Load(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] End Sub End Class

Modificaciones asignaturtas:
Imports [Link] Public Class Modificacion_3 Dim dt As New DataTable Dim fila As Integer = 0 Dim cn As New OleDbConnection("Provider=[Link] B.12.0;Data Source=C:\Users\user\Desktop\[Link]") Public Sub Actualiza() [Link] = CInt([Link](fila)("Clavemat")) [Link] = CInt([Link](fila)("Claveprofe")) [Link] = CInt([Link](fila)("Numgrupo")) End Sub

Private Sub Ale1_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link]() Dim strSQL As String = "Select * From Asignatura Where Clavemat=" & CInt([Link]()) Dim dataAdapter As New [Link](strSQL, cn) [Link]() [Link](dt) fila = 0 Actualiza() [Link]() [Link]()

End Sub Private Sub Ale2_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link]() Dim ModificaDatos As String = "Update Asignatura set Clavemat= '" & [Link] & "', Claveprofe= '" & [Link] & "' , Numgrupo ='" & [Link] & "' where Clavemat= " & CInt([Link]) Dim dataAdapter As New [Link](ModificaDatos, cn) [Link](dt) [Link]() MsgBox("Registro Modificado", [Link], "Mensaje") [Link]() End Sub Private Sub Ale3_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link]() Formulario_asignaturas.Show() End Sub Private Sub Modificacion_3_Load(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] End Sub End Class

Menu grupos:
Imports [Link] Public Class Formulario_grupos Dim dt As New DataTable Dim cn As New [Link]("Provider=[Link]. 12.0;Data Source=C:\Users\user\Desktop\[Link]") Dim fila As Integer Private Sub Refrescar() [Link]() fila = 0 Dim RefrescarDatos As String = "Select * From Grupos" Dim dataAdapter As New [Link](RefrescarDatos, cn) [Link](dt) Actualiza() [Link]() End Sub Public Sub Actualiza() [Link] = CStr([Link](fila)("Numgrupos")) [Link] = CStr([Link](fila)("Cantidadalumnos")) [Link] = CStr([Link](fila)("Clavemat"))

End Sub Private Sub Ale1_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link]() Altas_4.Show()

End Sub Private Sub Formulario_grupos_Load(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link]() fila = 0 Dim RefrescarDatos As String = "Select * From Grupos" Dim dataAdapter As New [Link](RefrescarDatos, cn) [Link](dt) Actualiza() [Link]() End Sub Private Sub Button7_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] If (fila > 0 And fila <= [Link] - 1) Then fila = fila - 1 Actualiza() Else MsgBox("Primer Registro Encontrado", [Link], "Mensaje") End If End Sub Private Sub Button6_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] If (fila >= 0 And fila < [Link] - 1) Then fila = fila + 1 Actualiza() Else MsgBox("Ultimo Registro Encontrado", [Link], "Mensaje") End If End Sub Private Sub Button2_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] If ((MsgBox("Desea Eliminar un Registro ? " + CStr([Link]), [Link], "Mensaje")) = 1) Then Dim strSQL As String = "DELETE FROM Grupos where Numgrupos=" & CInt([Link]()) Dim dataAdapter As New [Link](strSQL, cn) [Link](dt) Refrescar() Actualiza() [Link]() Else MsgBox("No se ha Seleccionado Registro a Eliminar") End If End Sub Private Sub Button3_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link]() Consultas_4.Show() End Sub Private Sub Button4_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link]()

Modificaciones_4.Show() End Sub Private Sub Button5_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link]() [Link]() End Sub End Class

Altas grupos:
Imports [Link] Public Class Altas_4 Dim dt As New DataTable Dim fila As Integer = 0 Dim cn As New OleDbConnection("Provider=[Link]. 12.0;Data Source=C:\Users\user\Desktop\[Link]") Private Sub Altas_4_Load(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] End Sub Private Sub Ale1_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link]() Dim GuardarDatos As String = " Insert into Grupos(Numgrupos,cantidadalumnos,Clavemat)" & "Values('" & [Link] & "','" & [Link] & "','" & [Link] & "')" Dim dataAdapter As New [Link](GuardarDatos, cn) [Link](dt) MsgBox("Se Agrego registro Correctamente", [Link], "Mensaje") ' Limpiar() [Link]() [Link]() End Sub Private Sub Ale2_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link]() Formulario_grupos.Show() End Sub End Class

Consultas grupos:
Imports [Link] Public Class Consultas_4 Dim dt As New DataTable Dim fila As Integer = 0 Dim cn As New OleDbConnection("Provider=[Link].O LEDB.12.0;Data Source=C:\Users\user\Desktop\[Link] b") Public Sub Actualiza() [Link] = CInt([Link](fila)("Numgrupos")) [Link] = CInt([Link](fila)("Cantidadalumnos")) [Link] = CInt([Link](fila)("Clavemat")) End Sub Private Sub Consultas_4_Load(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] End Sub Private Sub Ale1_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link]() Dim strSQL As String = "Select * from Grupos where Numgrupos= " & (CInt([Link])) Dim dataAdapter As New [Link](strSQL, cn) [Link]() [Link](dt) ' Limpiar() fila = 0 Actualiza() [Link]() [Link]() End Sub Private Sub Ale2_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link]() Formulario_grupos.Show() End Sub End Class

Modificacion grupos:
Imports [Link] Public Class Modificaciones_4 Dim dt As New DataTable Dim fila As Integer = 0 Dim cn As New OleDbConnection("Provider=[Link].12.0 ;Data Source=C:\Users\user\Desktop\[Link]") Public Sub Actualiza() [Link] = CInt([Link](fila)("Numgrupos")) [Link] = CInt([Link](fila)("Cantidadalumnos"))

[Link] = CInt([Link](fila)("Clavemat")) End Sub Private Sub Ale1_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link]() Dim strSQL As String = "Select * From Grupos Where Numgrupos=" & CInt([Link]()) Dim dataAdapter As New [Link](strSQL, cn) [Link]() [Link](dt) fila = 0 Actualiza() [Link]() [Link]() End Sub Private Sub Ale2_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link]() Dim ModificaDatos As String = "Update Grupos Set Numgrupos= '" & CInt([Link]) & "', Cantidadalumnos = '" & CInt([Link]) & "' , Clavemat ='" & CInt([Link]) & "' Where Numgrupos=" & CInt([Link]()) Dim dataAdapter As New [Link](ModificaDatos, cn) [Link](dt) [Link]() MsgBox("Registro Modificado", [Link], "Mensaje") [Link]() End Sub Private Sub Ale3_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link]() Formulario_grupos.Show() End Sub Private Sub Modificaciones_4_Load(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] End Sub End Class

Menu materias:
Imports [Link] Public Class Formulario_materias Dim dt As New DataTable Dim cn As New [Link]("Provider=Microsof [Link].12.0;Data Source=C:\Users\user\Desktop\[Link] db") Dim fila As Integer Private Sub Refrescar() [Link]() fila = 0 Dim RefrescarDatos As String = "Select * From Materias" Dim dataAdapter As New [Link](RefrescarDatos, cn) [Link](dt)

Actualiza() [Link]() End Sub Public Sub Actualiza() [Link] = CStr([Link](fila)("Clavemat")) [Link] = CStr([Link](fila)("Nombre")) [Link] = CStr([Link](fila)("Horastotales")) [Link] = CStr([Link](fila)("Horasp")) [Link] = CStr([Link](fila)("Horast")) End Sub Private Sub Formulario_materias_Load(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link]() fila = 0 Dim RefrescarDatos As String = "Select * From Materias" Dim dataAdapter As New [Link](RefrescarDatos, cn) [Link](dt) Actualiza() [Link]() End Sub Private Sub Ale1_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link]() Altas_5.Show() End Sub

Private Sub Ale2_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] If ((MsgBox("Desea Eliminar un Registro ? " + CStr([Link]), [Link], "Mensaje")) = 1) Then Dim strSQL As String = "DELETE FROM Materias WHERE Clavemat=" & CInt([Link]) Dim dataAdapter As New [Link](strSQL, cn) [Link](dt) Refrescar() Actualiza() [Link]() Else MsgBox("No se ha Seleccionado Registro a Eliminar") End If End Sub Private Sub Ale7_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] If (fila > 0 And fila <= [Link] - 1) Then fila = fila - 1 Actualiza() Else MsgBox("Primer Registro Encontrado", [Link], "Mensaje") End If End Sub Private Sub Ale6_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] If (fila >= 0 And fila < [Link] - 1) Then

fila = fila + 1 Actualiza() Else MsgBox("Ultimo Registro Encontrado", [Link], "Mensaje") End If End Sub Private Sub Ale5_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link]() [Link]() End Sub Private Sub Ale3_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link]() Consultas_5.Show() End Sub Private Sub Ale4_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link]() Modificaciones_5.Show() End Sub End Class

Altas materias:
Imports [Link] Public Class Altas_5 Dim dt As New DataTable Dim fila As Integer = 0 Dim cn As New OleDbConnection("Provider=[Link].1 2.0;Data Source=C:\Users\user\Desktop\[Link]")

Private Sub Altas_5_Load(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] End Sub Private Sub Ale1_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link]() Dim GuardarDatos As String = " Insert into Materias(Clavemat,Nombre,Horastotales,Horasp,Horast)" & "Values('" & [Link] & "','" & [Link] & "','" & [Link] & "','" & [Link] & "','" & [Link] & "')" Dim dataAdapter As New [Link](GuardarDatos, cn) [Link](dt) MsgBox("Se Agrego registro Correctamente", [Link], "Mensaje") ' Limpiar() [Link]() [Link]() End Sub

Private Sub Ale2_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link]() Formulario_materias.Show() End Sub End Class

Consultas materias:
Imports [Link] Public Class Consultas_5 Dim dt As New DataTable Dim fila As Integer = 0 Dim cn As New OleDbConnection("Provider=[Link].1 2.0;Data Source=C:\Users\user\Desktop\[Link]") Public Sub Actualiza() [Link] = CStr([Link](fila)("Clavemat")) [Link] = CStr([Link](fila)("Nombre")) [Link] = CStr([Link](fila)("Horastotales")) [Link] = CStr([Link](fila)("Horasp")) [Link] = CStr([Link](fila)("Horast"))

End Sub Private Sub Consultas_5_Load(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] End Sub Private Sub Ale1_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link]() Dim strSQL As String = "Select * From Materias Where Clavemat=" & CInt([Link]()) Dim dataAdapter As New [Link](strSQL, cn) [Link]() [Link](dt) ' Limpiar() fila = 0 Actualiza() [Link]() [Link]() End Sub Private Sub Ale2_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link]() Formulario_materias.Show() End Sub End Class

Modificacion materias:
Imports [Link] Public Class Modificaciones_5 Dim dt As New DataTable Dim fila As Integer = 0 Dim cn As New OleDbConnection("Provider=[Link] B.12.0;Data Source=C:\Users\user\Desktop\[Link]") Public Sub Actualiza() [Link] = CInt([Link](fila)("Clavemat")) [Link] = CStr([Link](fila)("Nombre")) [Link] = CStr([Link](fila)("Horastotales")) [Link] = CStr([Link](fila)("Horasp")) [Link] = CStr([Link](fila)("Horast")) End Sub Private Sub Refrescar() [Link]() fila = 0 Dim RefrescarDatos As String = "Select * From Materias" Dim dataAdapter As New [Link](RefrescarDatos, cn) [Link](dt) Actualiza() [Link]() End Sub Private Sub Modificaciones_5_Load(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] End Sub Private Sub Ale1_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link]() Dim strSQL As String = "Select * From Materias Where Clavemat=" & CInt([Link]()) Dim dataAdapter As New [Link](strSQL, cn) [Link]() [Link](dt) fila = 0 Actualiza() [Link]() [Link]() End Sub Private Sub Ale2_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link]() Dim ModificaDatos As String = "Update Materias Set Clavemat= '" & [Link] & "', Nombre = '" & [Link] & "' , Horastotales ='" & [Link] & "', Horasp ='" & [Link] & "', Horast ='" & [Link] & "' Where Clavemat= " & CInt([Link]()) Dim dataAdapter As New [Link](ModificaDatos, cn) [Link](dt)

[Link]() MsgBox("Registro Modificado", [Link], "Mensaje") [Link]() End Sub Private Sub Ale3_Click(ByVal sender As [Link], ByVal e As [Link]) Handles [Link] [Link]() Formulario_materias.Show() End Sub End Class

You might also like