Sres. Desarrolladores, siempre con mi estilo de
ejemplos pequeños pero útiles les envio una práctica que desarrollé con un
grupo de alumnos. En la práctica se pueden entender lo siguiente:
-
La autenticación mediante formularios
(Forms), haciendo uso de usuarios registrados en una base de datos y usando un
Store Procedure para buscar al usuario con el que se loguea. Este se encuentra
en una base de datos llamada EXAMEN (Campos: Usuario y Clave),
el Store Procedure se encuentra en una archivo adjunto al código en formato
doc.
-
Las teclas de Navegación en ASP, en
las cuales tenemos que hacer uso de los estados del Web Form y de la propiedad
ViewState.
-
El consumo de XML Web Services incluidos
en el mismo Proyecto y en otro Proyecto, para realizar cálculos sencillos, lo
importante es reconocer como crear el Proxy para el consumo del servicio.
-
El uso de Controles de Usuario .ascx,
para el menú principal una vez logueados.
Notas importantes:
-
El Web Form de Calculos no tiene implementados los
controles de Validación, se asume que el usuario debe conocerlo para darle
consistencia, el objetivo de este aporte no es ese.
-
Cree su Base de datos Examen, la
tabla usuarios y el SP login, existe un
documento adjunto en formato Word llamado Base.doc que
tiene las indicaciones adecuadas.
-
Al bajar el código fuente, actualicen sus cadenas
de conexión.
Aqui parte del Código:
'Importar
los NameSpace Necesarios
Imports System.Web.Security
Imports System.Data.SqlClient
Imports
System.Data
Public
Class login
Inherits System.Web.UI.Page
Dim cmd As
SqlCommand
Dim con As New SqlConnection("workstation id=HOME;packet
size=4096;integrated security=SSPI;data source=.;persist security
info=False;initial catalog=Examen")
#Region " Código generado por el Diseñador de Web
Forms "
''' el código de esta parte ha sido eliminada
#End Region
'Procedimiento para
loguearse
Private Sub
cmdAceptar_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles
cmdAceptar.Click
'Crear el
comando
cmd = New SqlCommand("Login",
con)
cmd.CommandType = CommandType.StoredProcedure
'Crear el parametro del procedimiento
almacenado - retorno
Dim
prmDato As SqlParameter
Dim Resultado As Integer
prmDato
= cmd.Parameters.Add("RETURN_VALUE", SqlDbType.Bit)
prmDato.Direction =
ParameterDirection.ReturnValue
'asignar los valores a los
parametros
cmd.Parameters.Add("@user", TextBox1.Text)
cmd.Parameters.Add("@clave", TextBox2.Text)
'Abrir la
conexion
con.Open()
'Ejecutar el
comando
cmd.ExecuteNonQuery()
'Recoger el
resultado
Resultado = cmd.Parameters("RETURN_VALUE").Value
'Cerrar la
conexion
con.Close()
If Resultado = 1 Then
FormsAuthentication.RedirectFromLoginPage(TextBox1.Text, False)
'Response.Redirect("defoult.aspx")
Else
lblm.Text = "Usuario no Existe o
la Clave es
Incorrecta"
End
If
End
Sub
End
Class
El código completo está en el archivo adjunto, cree
los directorios virtuales después de desempaquetar los archivos fuente.
Suerte a todos, espero les sirva de ayuda, no olviden
dar su opinión en mi Panoramabox, gracias.
Ing. Fernando Luque Sánchez
Trujillo - Perú
Espacios de nombres usados en el código de este artículo:
System.Data
System.Data.SqlClient
System.Web.Security
System.Web.UI.Page
System.Web.UI.UserControl
