CONALEP JUAREZ 1

Programacin con sistemas gestores de bases de datos

Contrasea

Conexin: Imports System.Data.OleDb Public Class Form21 Dim dt As New DataTable Dim fila As Integer = 0 Dim cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=E:\contrasenia.accdb") Boton acceder: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim encontrado = 0 fila = 0 Do While (fila <= dt.Rows.Count - 1) If (Textgris1.Text = dt.Rows(fila)("Usuario")) Then MsgBox("Usuario ENCONTRADO" + Textgris1.Text) encontrado = 1 Me.Hide() Form1.Show() End If fila = fila + 1 Loop If encontrado = 0 Then MsgBox("Usuario NO ENCONTRADO") Me.Hide() End If End Sub Load: Private Sub Form21_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load cn.Open() Dim datos As String = "Select * from Usuarios" Dim dataAdapter As New OleDb.OleDbDataAdapter(datos, cn) dataAdapter.Fill(dt) dataAdapter.Dispose() cn.Close() End Sub End Class

Men principal

Boton menu alumnos: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.Hide() Form2.Show() End Sub Boton menu grupos: Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click Me.Hide() Form18.Show() End Sub Boton menu asignaturas: Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Me.Hide() Form6.show() End Sub Boton menu materias: Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Me.Hide() form10.show() End Sub Boton menu maestros: Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click Me.Hide() form14.show() End Sub Boton menu salir: Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Close()

End Sub Boton cambiar de usuario: Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click Me.Hide() Form21.Show() End Sub Men alumnos

Boton altas: Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Me.Close() Form3.Show() End Sub Boton bajas: Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click If ((MsgBox("... Desea Eliminar ? " + 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) Actualiza() MsgBox("Se ha eliminado correctamente un registro") dataAdapter.Dispose() Else MsgBox("No se ha seleccionado registro a eliminar") End If End Sub

Boton consultas: End Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

Me.Hide() Form4.show() End Sub Boton modificaciones: Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click Me.Hide() Form5.show() End Sub Boton ver todos los registros: Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click ver() End Sub Metodo ver: Private Sub ver() Dim ver As String = "SELECT * FROM Alumnos" Dim dataAdapter As New OleDb.OleDbDataAdapter(ver, cn) dataAdapter.Fill(dt) 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 = CStr(dt.Rows(fila)("Numgrupo")) dataAdapter.Dispose() End Sub Boton anterior: 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 Boton siguiente: 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 Boton regresar al menu principal: Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click Me.Hide() Form1.Show() End Sub Metodo refresca: 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) Refrescar() dataAdapter.Dispose() End Sub Metodo actualiza: Private 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 = CStr(dt.Rows(fila)("Numgrupo")) End Sub Altas alumnos

Boton Guardar: 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,Direccion,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 Boton regresar al menu alumnus: Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Close() Form2.Show() End Sub

Consultas Alumnos

Boton regresar al menu alumnus: Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Close() Form2.Show() End Sub Boton consultar: 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 Metodo actualiza: Private 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 = CStr(dt.Rows(fila)("Numgrupo")) End Sub

Modificaciones Alumnos

Boton regresar al menu alumnos: Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Me.Close() Form2.Show() End Sub Boton buscar: 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 Boton modificar: 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 Metodo actualiza: Private 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 = CStr(dt.Rows(fila)("Numgrupo")) End Sub Men asignaturas

Boton regresar al menu principal: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.Close() Form7.Show() End Sub Boton bajas: Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click If ((MsgBox("... Desea Eliminar ? " + CStr(Textmat1.Text), MsgBoxStyle.OkCancel, "Mensaje")) = 1) Then Dim strSQL As String = "DELETE FROM Asignaturas WHERE Clavemat='" & CStr(Textmat1.Text) & "';" Dim dataAdapter As New OleDb.OleDbDataAdapter(strSQL, cn) dataAdapter.Fill(dt) Actualiza() MsgBox("Se ha eliminado correctamente un registro") dataAdapter.Dispose() Else MsgBox("No se ha seleccionado registro a eliminar") End If End Sub Boton consultas: Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Me.Hide() Form8.show()

End Sub Boton modificaciones: Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Me.Hide() Form9.Show() End Sub Boton anterior: Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.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 Boton siguiente: 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 Metodo refrescar: Private Sub Refrescar() dt.Reset() fila = 0 Dim RefrescarDatos As String = "Select * from Asignaturas" Dim dataAdapter As New OleDb.OleDbDataAdapter(RefrescarDatos, cn) dataAdapter.Fill(dt) Refrescar() dataAdapter.Dispose() End Sub Metodo actualiza: Private Sub Actualiza() Textmat1.Text = CStr(dt.Rows(fila)("Clavemat")) Textprofe2.Text = CStr(dt.Rows(fila)("Claveprofe")) Textng3.Text = CStr(dt.Rows(fila)("Numgrupo")) End Sub Metodo ver: Private Sub ver() Dim ver As String = "SELECT * FROM Asignaturas" Dim dataAdapter As New OleDb.OleDbDataAdapter(ver, cn) dataAdapter.Fill(dt) Textmat1.Text = CStr(dt.Rows(fila)("Clavemat")) Textprofe2.Text = CStr(dt.Rows(fila)("Claveprofe")) Textng3.Text = CStr(dt.Rows(fila)("Numgrupo")) dataAdapter.Dispose() End Sub Boton mostrar todos los registros: Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click ver() End Sub Boton regresar al menu principal: Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click Me.Hide() Form1.Show() End Sub Altas asignaturas

Boton guarder: 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 Asignaturas(Clavemat,Claveprofe,Numgrupo)" & "Values('" & Textmat1.Text & "','" & Textprofe2.Text & "','" & Textng3.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 Boton regresar al menu asignaturas: Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Close() Form6.Show() End Sub

Consultas Asignaturas

Boton regresar al menu asignaturas: Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Close() Form6.Show() End Sub Boton consultar: 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 Asignaturas Where Clavemat='" & CStr(Textmat1.Text()) & "';" Dim dataAdapter As New OleDb.OleDbDataAdapter(strSQL, cn) dt.Reset() dataAdapter.Fill(dt) ' Limpiar() fila = 0 Actualiza() dataAdapter.Dispose() cn.Close() End Sub Metodo actualiza: Private Sub Actualiza() Textmat1.Text = CStr(dt.Rows(fila)("Clavemat")) Textprofe2.Text = CStr(dt.Rows(fila)("Claveprofe")) Textng3.Text = CStr(dt.Rows(fila)("Numgrupo")) End Sub

Modificaciones asignaturas

Boton buscar: 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 Asignaturas Where Clavemat='" & CStr(Textmat1.Text()) & "';" Dim dataAdapter As New OleDb.OleDbDataAdapter(strSQL, cn) dt.Reset() dataAdapter.Fill(dt) fila = 0 Actualiza() dataAdapter.Dispose() cn.Close() End Sub Boton modificar: Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click cn.Open() Dim ModificaDatos As String = "Update Asignaturas Set Clavemat= '" & Textmat1.Text & "', Claveprofe = '" & Textprofe2.Text & "' , Numgrupo ='" & Textng3.Text & "' Where Clavemat='" & CStr(Textmat1.Text()) & "';" Dim dataAdapter As New OleDb.OleDbDataAdapter(ModificaDatos, cn) dataAdapter.Fill(dt) dataAdapter.Dispose() MsgBox("Registro Modificado", MsgBoxStyle.Information, "Mensaje") cn.Close() End Sub Metodo actualiza: Private Sub Actualiza() Textmat1.Text = CStr(dt.Rows(fila)("Clavemat")) Textprofe2.Text = CStr(dt.Rows(fila)("Claveprofe")) Textng3.Text = CStr(dt.Rows(fila)("Numgrupo")) End Sub Boton regresar al menu asignaturas: Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Me.Hide() Form6.Show() End Sub Men materias

Boton anterior: Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.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 Boton siguiente: 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 Boton altas: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.Close() Form11.Show() End Sub Boton bajas: Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click If ((MsgBox("... Desea Eliminar ? " + CStr(Textmat1.Text), MsgBoxStyle.OkCancel, "Mensaje")) = 1) Then

Dim strSQL As String = "DELETE FROM Materias WHERE Clavemat='" & CStr(Textmat1.Text) & "';" Dim dataAdapter As New OleDb.OleDbDataAdapter(strSQL, cn) dataAdapter.Fill(dt) Actualiza() MsgBox("Se ha eliminado correctamente un registro") dataAdapter.Dispose() Else MsgBox("No se ha seleccionado registro a eliminar") End If End Sub Boton consultas: Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Me.Hide() Form12.Show() End Sub Boton modificaciones: Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Me.Hide() Form13.Show() End Sub Boton refrescar: 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) Refrescar() dataAdapter.Dispose() End Sub Boton actualiza: Private Sub Actualiza() Textmat1.Text = CStr(dt.Rows(fila)("Clavemat")) Textnom2.Text = CStr(dt.Rows(fila)("Nombre")) Textht3.Text = CInt(dt.Rows(fila)("Horastotales")) Texthp4.Text = CInt(dt.Rows(fila)("Horasp")) Texthteo5.Text = CInt(dt.Rows(fila)("Horast")) End Sub Metodo ver: Private Sub ver() Dim ver As String = "SELECT * FROM Materias" Dim dataAdapter As New OleDb.OleDbDataAdapter(ver, cn) dataAdapter.Fill(dt) Textmat1.Text = CInt(dt.Rows(fila)("Clavemat")) Textnom2.Text = CStr(dt.Rows(fila)("Nombre")) Textht3.Text = CInt(dt.Rows(fila)("Horastotales")) Texthp4.Text = CInt(dt.Rows(fila)("Horasp")) Texthteo5.Text = CInt(dt.Rows(fila)("Horast")) dataAdapter.Dispose() End Sub Boton mostrar todos los registros: Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click ver() End Sub Boton regresar al menu principal: Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click Me.Hide() Form1.Show() End Sub Altas materias

Boton guardar: 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 Materias(Clavemat,Nombre,Horastotales,Horasp,Horast)" & "Values('" & Textmat1.Text & "','" & Textnom2.Text & "','" & Textht3.Text & "','" & Texthp4.Text & "','" & Texthteo5.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 Boton regresar al menu materias: Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Close() Form10.Show() End Sub

Consultas materias

Boton consultar: 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 Materias Where Clavemat='" & CStr(Textmat1.Text()) & "';" Dim dataAdapter As New OleDb.OleDbDataAdapter(strSQL, cn) dt.Reset() dataAdapter.Fill(dt) ' Limpiar() fila = 0 Actualiza() dataAdapter.Dispose() cn.Close() End Sub Boton regresar al menu materias: Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Close() Form10.Show() End Sub Metodo actualiza: Private Sub Actualiza() Textmat1.Text = CStr(dt.Rows(fila)("Clavemat")) Textnom2.Text = CStr(dt.Rows(fila)("Nombre")) Textht3.Text = CInt(dt.Rows(fila)("Horastotales")) Texthp4.Text = CInt(dt.Rows(fila)("Horasp")) Texthteo5.Text = CInt(dt.Rows(fila)("Horast")) End Sub

Modificaciones materias

Boton buscar: 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 Materias Where Clavemat='" & CStr(Textmat1.Text()) & "';" Dim dataAdapter As New OleDb.OleDbDataAdapter(strSQL, cn) dt.Reset() dataAdapter.Fill(dt) fila = 0 Actualiza() dataAdapter.Dispose() cn.Close() End Sub Boton modificar: Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click cn.Open() Dim ModificaDatos As String = "Update Materias Set Clavemat= '" & Textmat1.Text & "', Nombre = '" & Textnom2.Text & "' , Horastotales ='" & Textht3.Text & "', Horasp ='" & Texthp4.Text & "', Horast ='" & Texthteo5.Text & "' Where Clavemat='" & CStr(Textmat1.Text()) & "';" Dim dataAdapter As New OleDb.OleDbDataAdapter(ModificaDatos, cn) dataAdapter.Fill(dt) dataAdapter.Dispose() MsgBox("Registro Modificado", MsgBoxStyle.Information, "Mensaje") cn.Close() End Sub Metodo actualiza: Private Sub Actualiza() Textmat1.Text = CStr(dt.Rows(fila)("Clavemat")) Textnom2.Text = CStr(dt.Rows(fila)("Nombre")) Textht3.Text = CInt(dt.Rows(fila)("Horastotales")) Texthp4.Text = CInt(dt.Rows(fila)("Horasp")) Texthteo5.Text = CInt(dt.Rows(fila)("Horast")) End Sub Boton regresar al menu materias

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Me.Hide() Form10.Show() End Sub Men Maestros

Boton altas: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.Close() Form15.Show() End Sub Boton bajas: Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click If ((MsgBox("... Desea Eliminar ? " + CStr(Textprofe1.Text), MsgBoxStyle.OkCancel, "Mensaje")) = 1) Then Dim strSQL As String = "DELETE FROM Maestros WHERE Claveprofe='" & CStr(Textprofe1.Text) & "';" Dim dataAdapter As New OleDb.OleDbDataAdapter(strSQL, cn) dataAdapter.Fill(dt) Actualiza() MsgBox("Se ha eliminado correctamente un registro") dataAdapter.Dispose() Else MsgBox("No se ha seleccionado registro a eliminar") End If End Sub Boton consultas: Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Me.Hide() Form16.Show() End Sub Boton modificaciones: Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Me.Hide()

Form17.Show() End Sub Metodo actualiza: Private Sub Actualiza() Textprofe1.Text = CStr(dt.Rows(fila)("Claveprofe")) Textnom2.Text = CStr(dt.Rows(fila)("Nombre")) Textpat3.Text = CStr(dt.Rows(fila)("Paterno")) Textmat4.Text = CStr(dt.Rows(fila)("Materno")) Textp5.Text = CStr(dt.Rows(fila)("Profesion")) Textnac6.Text = CStr(dt.Rows(fila)("Fachanac")) End Sub Metodo ver: Private Sub ver() Dim ver As String = "SELECT * FROM Maestros" Dim dataAdapter As New OleDb.OleDbDataAdapter(ver, cn) dataAdapter.Fill(dt) Textprofe1.Text = CStr(dt.Rows(fila)("Claveprofe")) Textnom2.Text = CStr(dt.Rows(fila)("Nombre")) Textpat3.Text = CStr(dt.Rows(fila)("Paterno")) Textmat4.Text = CStr(dt.Rows(fila)("Materno")) Textp5.Text = CStr(dt.Rows(fila)("Profesion")) Textnac6.Text = CStr(dt.Rows(fila)("Fachanac")) dataAdapter.Dispose() End Sub Boton mostrar todos los registros: Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click ver() End Sub Boton anterior: 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 Boton siguiente: 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 Boton regresa al menu principal: Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click Me.Hide() Form1.Show() End Sub

Altas maestros

Boton guardar: 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 Maestros(Claveprofe,Nombre,Paterno,Materno,Profesion,Fachanac)" & "Values('" & Textprofe1.Text & "','" & Textnom2.Text & "','" & Textpat3.Text & "','" & Textmat4.Text & "','" & Textp5.Text & "','" & Textnac6.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 Boton regresar al menu maestros: Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Close() Form14.Show() End Sub

Consultas maestros

Boton consultar: 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 Maestros Where Claveprofe='" & CStr(Textprofe1.Text()) & "';" Dim dataAdapter As New OleDb.OleDbDataAdapter(strSQL, cn) dt.Reset() dataAdapter.Fill(dt) ' Limpiar() fila = 0 Actualiza() dataAdapter.Dispose() cn.Close() End Sub Boton regresar al menu maestros: Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Close() Form14.Show() End Sub Metodo actualiza: Private Sub Actualiza() Textprofe1.Text = CStr(dt.Rows(fila)("Claveprofe")) Textnom2.T ext = CStr(dt.Rows(fila)("Nombre")) Textpat3.Text = CStr(dt.Rows(fila)("Paterno")) Textmat4.Text = CStr(dt.Rows(fila)("Materno")) Textp5.Text = CStr(dt.Rows(fila)("Profesion")) Textnac6.Text = CDate(dt.Rows(fila)("Fachanac")) End Sub

Modificaciones maestros

Boton buscar: 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 Maestros Where Claveprofe='" & CStr(Textprofe1.Text()) & "';" Dim dataAdapter As New OleDb.OleDbDataAdapter(strSQL, cn) dt.Reset() dataAdapter.Fill(dt) fila = 0 Actualiza() dataAdapter.Dispose() cn.Close() End Sub Boton modificar: Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click cn.Open() Dim ModificaDatos As String = "Update Maestros Set Claveprofe= '" & Textprofe1.Text & "', Nombre = '" & Textnom2.Text & "' , Paterno ='" & Textpat3.Text & "', Materno ='" & Textmat4.Text & "', Profesion ='" & Textp5.Text & "', Fachanac ='" & Textnac6.Text & "' Where Claveprofe='" & CStr(Textprofe1.Text()) & "';" Dim dataAdapter As New OleDb.OleDbDataAdapter(ModificaDatos, cn) dataAdapter.Fill(dt) dataAdapter.Dispose() MsgBox("Registro Modificado", MsgBoxStyle.Information, "Mensaje") cn.Close() End Sub Metodo actualiza: Private Sub Actualiza() Textprofe1.Text = CStr(dt.Rows(fila)("Claveprofe")) Textnom2.Text = CStr(dt.Rows(fila)("Nombre")) Textpat3.Text = CStr(dt.Rows(fila)("Paterno")) Textmat4.Text = CStr(dt.Rows(fila)("Materno")) Textp5.Text = CStr(dt.Rows(fila)("Profesion")) Textnac6.Text = CDate(dt.Rows(fila)("Fachanac")) End Sub

Metodo regresar al menu maestros: Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Me.Hide() Form14.Show() End Sub

Men grupos

Boton altas: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.Close() Form22.Show() End Sub Boton bajas: Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click If ((MsgBox("... Desea Eliminar ? " + CStr(Textng1.Text), MsgBoxStyle.OkCancel, "Mensaje")) = 1) Then Dim strSQL As String = "DELETE FROM Grupos WHERE Numgrupo='" & CStr(Textng1.Text) & "';" Dim dataAdapter As New OleDb.OleDbDataAdapter(strSQL, cn) dataAdapter.Fill(dt) Actualiza() MsgBox("Se ha eliminado correctamente un registro") dataAdapter.Dispose() Else MsgBox("No se ha seleccionado registro a eliminar") End If End Sub

Boton consultas: Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Me.Hide() Form19.Show()

End Sub Metodo refrescar: 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) Refrescar() dataAdapter.Dispose() End Sub Metodo actualiza: Private Sub Actualiza() Textng1.Text = CInt(dt.Rows(fila)("Numgrupo")) Textca2.Text = CInt(dt.Rows(fila)("Cantidadalumnos")) Textmat3.Text = CInt(dt.Rows(fila)("Clavemat")) End Sub Metodo ver: Private Sub ver() Dim ver As String = "SELECT * FROM Grupos" Dim dataAdapter As New OleDb.OleDbDataAdapter(ver, cn) dataAdapter.Fill(dt) Textng1.Text = CStr(dt.Rows(fila)("Numgrupo")) Textca2.Text = CStr(dt.Rows(fila)("Cantidadalumnos")) Textmat3.Text = CStr(dt.Rows(fila)("Clavemat")) dataAdapter.Dispose() End Sub Boton mostrar todos los registros: Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click ver() End Sub Boton anterior: 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 Boton siguiente: 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 Boton regresar al menu principal: Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click Me.Hide() Form1.Show() End Sub Boton modificaciones: Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Me.Hide() Form20.Show() End Sub Altas grupos

Boton regresar al menu grupos: Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Hide() Form18.Show() End Sub Boton guardar: 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 Grupos(Numgrupo,Cantidadalumnos,Clavemat)" & "Values('" & Textng1.Text & "','" & Textca2.Text & "','" & Textmat3.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

Consultas grupos

Boton consultar: 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 Grupos Where Numgrupo='" & CStr(Textng1.Text()) & "';" Dim dataAdapter As New OleDb.OleDbDataAdapter(strSQL, cn) dt.Reset() dataAdapter.Fill(dt) ' Limpiar() fila = 0 Actualiza() dataAdapter.Dispose() cn.Close() End Sub Boton regresar al menu grupos: Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Close() Form18.Show() End Sub Metodo actualiza: Private Sub Actualiza() Textng1.Text = CStr(dt.Rows(fila)("Numgrupo")) Textca2.Text = CStr(dt.Rows(fila)("Cantidadalumnos")) Textmat3.Text = CStr(dt.Rows(fila)("Clavemat")) End Sub

Modificaciones grupos

Boton buscar: 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 Grupos Where Numgrupo='" & CStr(Textng1.Text()) & "';" Dim dataAdapter As New OleDb.OleDbDataAdapter(strSQL, cn) dt.Reset() dataAdapter.Fill(dt) fila = 0 Actualiza() dataAdapter.Dispose() cn.Close() End Sub Boton modificar: Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click cn.Open() Dim ModificaDatos As String = "Update Grupos Set Numgrupo= '" & Textng1.Text & "', Cantidadalumnos = '" & Textca2.Text & "' , Clavemat ='" & Textmat3.Text & "' Where Numgrupo='" & CStr(Textng1.Text()) & "';" Dim dataAdapter As New OleDb.OleDbDataAdapter(ModificaDatos, cn) dataAdapter.Fill(dt) dataAdapter.Dispose() MsgBox("Registro Modificado", MsgBoxStyle.Information, "Mensaje") cn.Close() End Sub Metodo actualiza: Private Sub Actualiza() Textng1.Text = CStr(dt.Rows(fila)("Numgrupo")) Textca2.Text = CStr(dt.Rows(fila)("Cantidadalumnos")) Textmat3.Text = CStr(dt.Rows(fila)("Clavemat")) End Sub Boton regresar al menu grupos: Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Me.Hide() Form18.Show() End Sub