Nada

MICROSOFT VISUAL STUDIO 2005
VISUAL BASIC .NET

FORMULARIO DE BARRA DE PROGRESO

HERRAMIENTAS A UTILIZAR
* Label
* ProgressBar
* Timer
* PictureBox (Para imágenes si sedesea)

NOTA: Para que funcione el formulario ir a las propiedades del timer y colocar la opción de Enabled = True (Ver Figura)

PROGRAMACION

Doble click en Timer y colocar la siguienteprogramación

If pgbCargar.Value < 100 Then
pgbCargar.Value = pgbCargar.Value + 5
Else

Timer1.Enabled = False
FrmContraseña.Show()Me.Hide()

End If

NOTA: El formulario de progreso en este codigo abre el formulario de contraseña.

FORMULARIO PARA CONTRASEÑA

HERRAMIENTAS A UTILIZAR
* Label
*TextBox
* Button
* PictureBox

PROGRAMACION

Doble click en el formulario e irse al primer reglon de la ventana de programación y colocar la siguiente programación.

ImportsSystem.Data.Odbc

Despues debajo de Public Class form

Private AdaptarDatos As OdbcDataAdapter
Private ObtenerDatos As DataSet
Private iPosicFilaActual As Integer
Friend Conexion AsOdbcConnection
Private VrNuevo As Boolean

Despues doble click en el formulario

CargarConexion()

Después colocar el siguiente código arriba de end class colocar el siguiente códigoPrivate Sub CargarConexion()
Conexion = New OdbcConnection("Dsn=DsnDatos")
conexion.Open()
AdaptarDatos = New OdbcDataAdapter("select * from Usuario ", Conexion)ObtenerDatos = New DataSet
AdaptarDatos.Fill(ObtenerDatos, "Usuario")
conexion.Close()
End Sub

Después colocar el siguiente código en el botón entrar
DimNoRegistro As Integer
NoRegistro = Me.ObtenerDatos.Tables("Usuario").Rows.Count
If NoRegistro <> 0 Then
Dim registro As DataRow
registro =...