[pic]

Public NotInheritable Class Bienvenida

‘TODO: Este formulario se puede establecer fácilmente como pantalla de bienvenida para la aplicación desde la ficha “Aplicación”
‘ del Diseñador de proyectos (“Propiedades” bajo el menú “Proyecto”).

Private Sub Bienvenida_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
‘Configure el texto delcuadro de diálogo en tiempo de ejecución según la información del ensamblado de la aplicación.

‘TODO: Personalice la información del ensamblado de la aplicación en el panel “Aplicación” del cuadro de diálogo
‘ propiedades del proyecto (bajo el menú “Proyecto”).

‘Título de la aplicación
If My.Application.Info.Title “” Then
ApplicationTitle.Text= My.Application.Info.Title
Else
‘Si falta el título de la aplicación, utilice el nombre de la aplicación sin la extensión
ApplicationTitle.Text = System.IO.Path.GetFileNameWithoutExtension(My.Application.Info.AssemblyName)
End If

‘Dé formato a la información de versión usando el texto establecido en el control de versiones en tiempo dediseño como
‘ cadena de formato. Esto le permite una localización efectiva si lo desea.
‘ Se pudo incluir la información de compilación y revisión usando el siguiente código y cambiando el
‘ texto en tiempo de diseño del control de versiones a “Versión {0}.{1:00}.{2}.{3}” o algo parecido. Consulte
‘ String.Format() en la Ayuda para obtener más información.’
‘ Version.Text = System.String.Format(Version.Text, My.Application.Info.Version.Major, My.Application.Info.Version.Minor, My.Application.Info.Version.Build, My.Application.Info.Version.Revision)

Version.Text = System.String.Format(Version.Text, My.Application.Info.Version.Major, My.Application.Info.Version.Minor)

‘Información de CopyrightCopyright.Text = My.Application.Info.Copyright
End Sub

End Class

Imports System.Data.SqlClient
Namespace tDatos
Public Class Datos
Dim cadenaConexion As String = “pooling=false;integrated security=true; data source=LAB-1SQLEXPRESS; initial catalog=Escolar”
Function accBuscar(ByVal nombre As String) As SqlDataReader
Try
Dim conexion As NewSqlConnection(cadenaConexion)
conexion.Open()
Dim comando As New SqlCommand(“select Contraseña from ACCESO where Usuario= ‘” & nombre & “‘”, conexion)
Dim a As SqlDataReader = comando.ExecuteReader
Return a
Catch ex As Exception
Return Nothing
End Try
End FunctionFunction addUsuario(ByVal nombre As String, ByVal contraseña As String) As Boolean
Try
Dim conexion As New SqlConnection(cadenaConexion)
conexion.Open()
Dim comando As New SqlCommand(“insert into ACCESO(Usuario, Contraseña) values(‘” & nombre & “‘,'” & contraseña & “‘)”, conexion)
comando.ExecuteNonQuery()conexion.Close()
Return True
Catch ex As Exception
Return False
End Try
End Function
Function elimUsuario(ByVal nombre As String) As Integer
Try
Dim r As Integer
Dim conexion As New SqlConnection(cadenaConexion)
conexion.Open()
Dim comandoAs New SqlCommand(“delete from ACCESO where Usuario='” & nombre & “‘”, conexion)
r = comando.ExecuteNonQuery()
conexion.Close()
Return r
Catch ex As Exception
Return 0
End Try
End Function
Function addAlumno(ByVal control As String, ByVal nombre As String) As String
Try…