| 11/09/2014 | Vamos a crear un formulario que al poner un numero de usuario y una contraseña nos de acceso a la base de datos que hemos creado.
**primero hacer tres tablas:
Primera tabla: campos IdAcceso y Acceso
NOMBRE DEL CAMPO: IdAcceso(clave principal)
TIPO DE DATOS: autonumerico
DESCRIPCIÓN: automáticamente al salir del campo dará un número
- - - - - - - - - - - - - - -
NOMBRE DEL CAMPO: Acceso
TIPO DE DATOS: texto
DESCRIPCIÓN: tipo de usuario
TAMAÑO DEL CAMPO: 15
los tipos de acceso escribiríamos Administrador y Usuario
Guardamos la tabla con el nombre Acceso
Segunda tabla: campos IdUsuario, Usuario, Contraseña, IdAcceso
NOMBRE DEL CAMPO: IdUsuario (clave principal)
TIPO DE DATOS: autonumerico
DESCRIPCIÓN: automaticamente al salir del campo dara un numero
- -- - - - - - - - - - - - - - -
NOMBRE DEL CAMPO: Usuario
TIPO DE DATOS: texto
DESCRIPCIÓN: escribir el nombre por el que conocerá el sistema al usuario
TAMAÑO DEL CAMPO: 10 (por ejemplo)
- - - - - - - - - - - - - - - - -
NOMBRE DEL CAMPO: Contraseña
TIPO DE DATOS: texto
DESCRIPCIÓN: escribir la contraseña para validar la entrada a la base de datos
TAMAÑO DEL CAMPO: 10 (por ejemplo)
- - - - - - - - - - - - - - - - - - - - - -
NOMBRE DEL CAMPO: IdAcceso
TIPO DE DATOS: numero
DESCRIPCIÓN: escoger el tipo de acceso al que pertenecerá el usuario
Pestaña BUSQUEDA:
MOSTRAR CONTROL: cuadro combinado
TIPO DE ORIGEN DE LA FILA: tabla/consulta
ORIGEN DE LA FILA: Acceso
COLUMNA DEPENDIENTE: 1
NUMERO DE COLUMNAS: 2
ANCHO DE COLUMNAS: 0cm; 2cm
Guardamos la tabla con el nombre Usuarios
Tercera tabla: campos Orden, IdUsuario, Fecha_Ingreso, Hora_Ingreso
NOMBRE DEL CAMPO: Orden (clave principal)
TIPO DE DATOS: autonumerico
DESCRIPCIÓN: automáticamente al salir del campo dará un número
- - - - - - - - - - - - - - -
NOMBRE DEL CAMPO: IdUsuario
TIPO DE DATOS: numero
DESCRIPCIÓN: número de usuario
- - - - - - - - - - -- - - - - - -
NOMBRE DEL CAMPO: Fecha_Ingreso
TIPO DE DATOS: fecha/hora
DESCRIPCIÓN: fecha en la que el usuario accede a la base de datos
FORMATO: Fecha corta
- - - - - - - - - - - - - - - - - -
NOMBRE DEL CAMPO: Hora_Ingreso
TIPO DE DATOS: fecha/hora
DESCRIPCIÓN: hora en la que el usuario accede a la base de datos
FORMATO: Hora corta
Guardamos la tabla con el nombre Bitacora.
**segundo vamos a "herramientas de base de datos" y pulsamos en RELACIONES; pulsamos en "mostrar tablas" seleccionamos las tres tablas hechas y aceptamos;
Ahora unimos de la tabla Usuarios el campo IdUsuario al campo IdUsuario de la tabla Bitacora, nos saldrá una ventana en la cual verificamos los tres apartados y clicamos en Aceptar
Después unimos de la tabla Usuarios el campo IdAcceso al campo IdAcceso de la tabla Acceso, nos saldrá una ventana en la cual verificamos solo el primer apartado y clicamos en Aceptar
Una vez escritos los datos en las tablas las podemos hacer "invisibles" seleccionándola y con el botón derecho del mouse escogemos "Ocultar en este grupo" veréis que desaparecen, a continuación el panel de la izquierda donde tenemos las tablas,consultas,,etc. cerramos los objetos clicando en sus flechitas dejando el panel solo con los nombres de los objetos es decir Tablas, consultas, formularios, etc. en la parte vacía del panel clicando el botón derecho del mouse escogemos la opción "Opciones de exploración" y en la ventana que sale verificamos la opción "Mostrar objetos ocultos" y pulsamos Aceptar; ahora desplegamos los objetos pulsando en sus flechitas y veremos las tres tablas creadas con un color gris transparente, si nos situamos en una de ellas con el botón derecho del mouse y clicamos en abrir o vista diseño podremos añadir o rectificar datos.
**tercero nos situamos en la pestaña "Crear" y guardamos dándole un nombre al formulario por ejemplo VERIFICACIÓN y lo volvemos a abrir, clicamos en "diseño del formulario" en agregar campos existentes clicamos la tabla Bitacora y arrastramos el campo IdUsuario en su etiqueta la seleccionamos y escribimos "Usuario" y clicamos en sus propiedades para ver en la pestaña "Todas" que en Titulo ponga Usuario y en Nombre Usuario_Etiqueta. Ahora clicamos su cuadro de texto y en la pestaña "Todas" en Nombre escribir txtLogin, en Origen del control tiene que poner "IdUsuario" y cerramos propiedades. (cuando entremos en el formulario escribiremos en este campo el número que tengamos asignado)
Ahora arrastramos uno detrás de otro los campos Fecha_Ingreso y Hora_Ingreso dentro del formulario, eliminamos sus etiquetas de texto.
Seleccionamos el campo Fecha_Ingreso y clicamos en "Hoja de propiedades" en la pestaña "Datos" en Valor predeterminado escribimos =Fecha() con lo que nos saldrá la fecha actual y tanto en Activado como en Bloqueado decimos SI, cerramos Hoja de propiedades.
Ahora seleccionamos el campo Hora_Ingreso y clicamos en "Hoja de propiedades" en la pestaña "Datos" en Valor predeterminado escribimos =HoraActual() con lo que nos saldrá la hora actual y tanto en Activado como en Bloqueado decimos SI, cerramos Hoja de propiedades.
De esta manera se sabe el usuario que ha entrado, en qué fecha y a qué hora en la base de datos, mirando la tabla Bitacora
Vamos hacer el campo de la contraseña clicando en "Cuadro de texto" y poniéndolo en el formulario, en su etiqueta de texto escribimos "Contraseña" y una vez hecho esto seleccionamos su cuadro de texto, en la pestaña "Todas" en Nombre escribimos txtPass en la pestaña "Datos" en Mascara de entrada clicamos y seleccionamos "Contraseña" y cerramos propiedades.(en este campo escribiremos nuestra contraseña)
Ahora volvemos a seleccionar el cuadro de texto de Usuario abrimos sus propiedades, en la pestaña "Eventos" en al cambiar clicamos en el botón de los puntitos y generamos un código de Visual Basic
Private Sub txtLogin_Change()
escribimos:
On Error GoTo Err_txtLogin_Change
Me.txtPass.SetFocus
Exit_txtLogin_Change:
Exit Sub
Err_txtLogin_Change:
"en caso de error, no pasa nada
Resume Exit_txtLogin_Change
End Sub
Clicamos en el icono de guardar que está en la parte superior izquierda y después en Depuración clicamos en "Compilar (nombre de la base de datos)" eso se hace para estar seguros de no haber ningún fallo en el código que hemos escrito, finalmente cerramos Visual Basic clicando la equis que hay a la derecha en la parte superior de la pantalla, también cerramos propiedades.
Ahora haremos el botón de Aceptar pulsando el comando botón y lo ponemos en el formulario saldrá un asistente lo cancelamos y en el botón escribimos Aceptar le damos a sus propiedades y en la pestaña "Todas" en nombre escribimos CmdAceptar en la pestaña "Eventos" en Al hacer clic creamos un código en Visual Basic
Private Sub CmdAceptar_Click()
Escribimos:
Dim auxContraseña As String
"Comprobamos que hay datos en las cajas de texto
If Nz(Me.txtLogin.Value, "") = "" Then
MsgBox "Escriba su numero de usuario para acceder", vbInformation, "ATENCIÓN"
Me.txtLogin.SetFocus
ElseIf Nz(Me.txtPass.Value, "") = "" Then
MsgBox "Introduzca la contraseña del usuario escrito", vbInformation, "ATENCIÓN"
Me.txtPass.SetFocus
Else
If Nz(DLookup("Contraseña", "Usuarios", "IdUsuario=" & Me![txtLogin]), "") "" Then
auxContraseña = DLookup("Contraseña", "Usuario", "IdUsuario=" & Me![txtLogin])
End If
If auxContraseña Me.txtPass.Value Then
If NumIntentos > 1 Then
NumIntentos = NumIntentos - 1
MsgBox "La contraseña introducida es incorrecta" & vbCrLf & _
"Le quedan " & NumIntentos & " intentos" & vbCrLf & vbCrLf & _
"Por favor,introduzca otra", vbExclamation, "INTRODUCCIÓN INCORRECTA"
Me.txtPass.Value = ""
Me.txtPass.SetFocus
Else
MsgBox "Ha superado el numero de intentos", vbCritical, "ADIOS..."
DoCmd.Close acForm, Me.Name "y cerramos el de acceso
End If
Else
If DLookup("IdAcceso", "Usuarios", "IdUsuario=" & Me![txtLogin]) = 1 Then
"**entrada como Administrador
DoCmd.OpenForm "ADMINISTRADOR", , , "Aceptar" "Abrimos el formulario correspondiente
End If
If DLookup("IdAcceso", "Usuarios", "IdUsuario=" & Me![txtLogin]) = 2 Then
"**entrada como Usuario
DoCmd.OpenForm "PRINCIPAL", , , "Aceptar" "Abrimos el formulario correspondiente
End If
DoCmd.Close acForm, Me.Name "y cerramos el de acceso
End If
End If
End Sub
Guardamos y le damos a Compilar en la pestaña Depuración para ver que se ha hecho correctamente y cerramos visual Basic.
Ahora crearemos el botón Cancelar clicando el comando de botón, poniéndolo en el formulario y cancelando el asistente para escribir "Cancelar" en el botón y le damos a propiedades en la pestaña "Todas" en nombre escribimos CmdCancelar
En la pestaña "Eventos" en Al hacer clic generamos el código de visual Basic
Private Sub cmdCancelar_Click()
Escribimos:
Dim resp As Integer
resp = MsgBox("¿Seguro que desea cancelar?", _
vbQuestion + vbYesNo, "CONFIRMAR")
If resp = vbYes Then
DoCmd.Quit
End If
End Sub
Guardamos, compilamos y cerramos visual Basic y propiedades.
Ahora sin tener nada seleccionado en el formulario clicamos la hoja de propiedades del formulario y en la pestaña "Eventos" en Al cargar genéranos un código visual Basic
Private Sub Form_Load()
Escribimos:
DoCmd.Restore
NumIntentos = 3
End Sub
Ahora guardamos, compilamos y cerramos visual Basic y las propiedades del formulario. Finalmente seleccionamos el botón Aceptar clicamos en la hoja de propiedades pestaña "Eventos", Al hacer clic, en esta ventana situamos el cursor del ratón arriba del todo ahora en el cuadro combinado de la izquierda seleccionamos "(General)" automáticamente en el de la derecha sale "(Declaraciones)"
Option Compare Database
Escribimos:
Option Explicit
Dim NumIntentos As Integer
Guardamos, compilamos y cerramos visual Basic. Guardamos el formulario creado y probamos si funciona. Hay que tener paciencia y fijarse bien al escribir o copiar el código de marras.
|
|
