HACER-UN-LOGIN-EN-VISUAL-BASIC

Vista previa del material en texto

Hacer un login en visual Basic .Net 
 
Lo primero es aclarar que es válido pata cualquiera 
de las versiones que estén utilizando. 
Para este ejemplo estamos partiendo de una tabla que 
yo he llamado acceso, la cual contiene los campos 
usuario y clave y los textbox del formulario los he 
llamado txtUsuario.Text y txtClave.Text 
 
Para el caso he trabajado con una base de datos 
SQL Server, 
sin van a a utilizar access, recuerden sustituir 
el (SqlDataAdapter) por oledbdataAdapter. 
 
 
 
 
 
 
 
'boton aceptar 
Private Sub cmdAceptar_Click(ByVal sender As Object, 
ByVal e As System.EventArgs) Handles 
cmdAceptar.Click 
 A partir de esta parte lo pueden copiar y pegar a 
su proyecto y adaptar a los nombres que tengan 
puestos 
'//////////////////////////////////////////////// 
 Try 
 'Preguntamos si la conexion esta abierta, si lo 
esta la abrimo 
 If Not con.State = ConnectionState.Open Then 
'abrimos la conexion 
con.Open() 
 End If 
'hacemos una nueva consulta donde comparamos los 
campo de la tabla 
 Dim da As New SqlDataAdapter("select * from acceso 
where usuario='" & txtUsuario.Text & "' and clave='" 
& txtClave.Text & "'", con) 
'creamos una variable del tipo tabla de datos 
 Dim dt As New DataTable 
' llenamos la tabla con los datos de la consulta 
 da.Fill(dt) 
http://2.bp.blogspot.com/-OzV1JkX0V88/UUJO7zokF7I/AAAAAAAAAKY/Co18m0RaBOc/s1600/login.jpg
' preguntamos si la cantidad de filas de la tabla es 
diferente de 0 
' si es asi es porque ma misma tiene datos 
 
 If dt.Rows.Count <> 0 Then 
 ' llAMAMO NUESTRO MENU PRINCIPAL 
 frmMenuPrincipal.Show() 
 'CERRAMOS EL FORMULARIO 
Me.close 
 Else 
 
' si esta parte se ejecuta es porque el usuario no 
ha sido registrado o se escribieron datos 
incorrectos, y enviamos un mensaje informando 
MessageBox.Show("Usuario invalido o su clave es 
incorrecta", "Error de usuario o clave", 
MessageBoxButtons.OK, MessageBoxIcon.Error) 
'limpiarmos los controles para que se escriba de 
nuevo 
 txtClave.Clear() 
 txtUsuario.Clear() 
'enviamos el foco a unos de los controles nuemante 
 txtUsuario.Focus() 
 End If 
'Cerramos al conexion para que no quede abierta 
 con.Close() 
' si para un error se ejecuta esta aprte que dice 
que paso y evita que el programa se explote 
' Catch ex As Exception 
 MsgBox(ex.Message, MsgBoxStyle.Critical, 
Err.Source) 
 End Try 
 
Práctica Controles básicos 
La práctica que se propone a continuación consiste en realizar las 4 operaciones 
matemáticas básicas, más un botón para limpiar y uno para salir. la interfaz planteada se 
presenta en la figura siguiente. 
Ademas debe crear un nuevo proyecto en el cual se colocarán los controles necesarios para 
calcular el área de un triangulo rectangulo a sabienda de su formular (Base X Altura)/2. 
http://mendy123z.blogspot.com/2013/02/practica-controles-basicos.html
 
A continuación se muestra el codigo fuente del mismo más un video en el que se puede ver 
paso a paso la realización, es algo sumamente elemental con la finalidad de introducirlos en 
el maravilloso mundo de la programación orientada a objetos. 
 
Se ha realizado solamente la suma, limpiar y salir debiendo ustedes realizar las opciones 
faltantes, recuerden aplicar la notación hungara para el nombre de los diferentes controles. 
 
 
http://4.bp.blogspot.com/-etaotgYsKDs/USKTgXLuoMI/AAAAAAAAAH4/8A8mUea4whw/s1600/pantalla+principal.PNG
http://2.bp.blogspot.com/-NMHF6f4jbCI/USKT6ucB6EI/AAAAAAAAAIA/rCF19LnWR_s/s1600/codigo.PNG