XML Web Services
Autenticación mediante Fomularios en ASP
Uso de Controles de Usuario
Navegar entre Registros en un WebForm 

Fecha: 24/May/2005 (23 de Mayo de 2005)
Autor: Ing. Fernando Luque Sánchez   -  Trujillo - Perú 
                        fls2307@hotmail.com  -   
                        fernandoluque2307@yahoo.com
                        fluque@infonegocio.net.pe


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:

  1. 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.
  2. 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.
  3. 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.
  4. El uso de Controles de Usuario .ascx, para el menú principal una vez logueados.

Notas importantes:

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


Fichero con el código de ejemplo: FernandoLuque_WebServiceBD.zip - Tamaño 70 KB


ir al índice